24 lines
858 B
Diff
24 lines
858 B
Diff
|
--- src/equeue-gtk2/uq_gtk.ml.orig 2007-06-11 19:35:10.000000000 +0100
|
||
|
|
+++ src/equeue-gtk2/uq_gtk.ml 2007-06-11 20:07:54.000000000 +0100
|
||
|
|
@@ -3,6 +3,11 @@
|
||
|
|
open Equeue
|
||
|
|
open Unixqueue
|
||
|
|
|
||
|
|
+(* Ugly hack required to compile under OCaml 3.10. This unmarshals
|
||
|
|
+ * `IN. IN is a reserved word for Camlp4.Macro.
|
||
|
|
+ *)
|
||
|
|
+let __in = (Marshal.from_string "\132\149\166\190\000\000\000\003\000\000\000\000\000\000\000\000\000\000\000\000\001?\229" 0 : GMain.Io.condition)
|
||
|
|
+
|
||
|
|
IFDEF GTK1 THEN
|
||
|
|
type event_id = GMain.Io.event_source
|
||
|
|
ELSE
|
||
|
|
@@ -147,7 +152,7 @@
|
||
|
|
gtk_event_source_hup = None; } in
|
||
|
|
( match g.gtk_event_source_in with
|
||
|
|
None when i ->
|
||
|
|
- g.gtk_event_source_in <- Some(mk_handler `IN [fd] [] []);
|
||
|
|
+ g.gtk_event_source_in <- Some(mk_handler __in [fd] [] []);
|
||
|
|
| Some s when not i ->
|
||
|
|
dest_handler s;
|
||
|
|
g.gtk_event_source_in <- None
|