Commits
Marcus Calhoun-Lopez authored a24b02f36bb
1 + | From 2e7ea9481c6c3ff2ec513c39f73cfe15c0763c06 Mon Sep 17 00:00:00 2001 |
2 + | From: daviddavid <geiger.david68210@gmail.com> |
3 + | Date: Mon, 26 Feb 2018 13:36:36 +0100 |
4 + | Subject: [PATCH] Fix for lablgtk >= 2.18.6 |
5 + | |
6 + | --- |
7 + | src/uigtk2.ml | 4 ++-- |
8 + | 1 file changed, 2 insertions(+), 2 deletions(-) |
9 + | |
10 + | diff --git a/src/uigtk2.ml b/src/uigtk2.ml |
11 + | index 2ba6d792..04c4da4a 100644 |
12 + | --- src/uigtk2.ml |
13 + | +++ src/uigtk2.ml |
14 + | |
15 + | (* This does not work with the current version of Lablgtk, due to a bug |
16 + | let icon = |
17 + | GdkPixbuf.from_data ~width:48 ~height:48 ~has_alpha:true |
18 + | - (Gpointer.region_of_string Pixmaps.icon_data) |
19 + | + (Gpointer.region_of_bytes Pixmaps.icon_data) |
20 + | *) |
21 + | let icon = |
22 + | let p = GdkPixbuf.create ~width:48 ~height:48 ~has_alpha:true () in |
23 + | Gpointer.blit |
24 + | - (Gpointer.region_of_string Pixmaps.icon_data) (GdkPixbuf.get_pixels p); |
25 + | + (Gpointer.region_of_bytes Pixmaps.icon_data) (GdkPixbuf.get_pixels p); |
26 + | p |
27 + | |
28 + | let leftPtrWatch = |