d6b69d47a7
- Update to v2.48v4, via _service file - Add Compatibility-with-OCaml-4.08.patch - Add Fix-for-lablgtk-2.18.6.patch - Require lablgtk2 > 2.18.5 OBS-URL: https://build.opensuse.org/request/show/748254 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/unison?expand=0&rev=38
29 lines
969 B
Diff
29 lines
969 B
Diff
From 2e7ea9481c6c3ff2ec513c39f73cfe15c0763c06 Mon Sep 17 00:00:00 2001
|
|
From: daviddavid <geiger.david68210@gmail.com>
|
|
Date: Mon, 26 Feb 2018 13:36:36 +0100
|
|
Subject: Fix for lablgtk >= 2.18.6
|
|
|
|
---
|
|
uigtk2.ml | 4 ++--
|
|
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/uigtk2.ml b/uigtk2.ml
|
|
index 2ba6d79..04c4da4 100644
|
|
--- a/uigtk2.ml
|
|
+++ b/uigtk2.ml
|
|
@@ -89,12 +89,12 @@ let fontItalic = lazy (Pango.Font.from_string "italic")
|
|
(* 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
|
|
|
|
let leftPtrWatch =
|