ports/net/unison248/files/patch-uigtk2.ml
Guido Falsi 87ac7af505 - Update x11-toolkits/ocaml-lablgtk2 to 2.18.11 [1]
- Update net/unison to 2.51.3
- Add patch to pots of previouss unison versions to work with newer
  x11-toolkits/ocaml-lablgtk2 [2]

Approved by:		mandree [2], danfe (via email) [1]
Differential Revision:	https://reviews.freebsd.org/D26924
2020-11-16 12:34:02 +00:00

17 lines
714 B
OCaml

--- uigtk2.ml.orig 2009-05-14 15:59:33 UTC
+++ uigtk2.ml
@@ -93,12 +93,12 @@ let fontMonospaceMediumPango = lazy (Pango.Font.from_s
(* This does not work with the current version of Lablgtk, due to a bug
let icon =
GdkPixbuf.from_data ~width:48 ~height:48 ~has_alpha:true
- (Gpointer.region_of_string Pixmaps.icon_data)
+ (Gpointer.region_of_bytes Pixmaps.icon_data)
*)
let icon =
let p = GdkPixbuf.create ~width:48 ~height:48 ~has_alpha:true () in
Gpointer.blit
- (Gpointer.region_of_string Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
+ (Gpointer.region_of_bytes Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
p
(*********************************************************************