From a17272283c803e13258e5dc6b19533c672ceee18 Mon Sep 17 00:00:00 2001
From: hattenberger
Date: Wed, 27 Mar 2013 13:17:19 +0000
Subject: some fixes in ivy-ocaml tag 1.2

---
 trunk/glibIvy.ml | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 trunk/glibIvy.ml

(limited to 'trunk/glibIvy.ml')

diff --git a/trunk/glibIvy.ml b/trunk/glibIvy.ml
new file mode 100644
index 0000000..17919c5
--- /dev/null
+++ b/trunk/glibIvy.ml
@@ -0,0 +1,8 @@
+
+type channel
+external main : unit -> unit = "ivy_GtkmainLoop"
+external ext_channelSetUp : Unix.file_descr -> string -> channel = "ivy_GtkchannelSetUp" 
+let set_up_channel fd delete read =
+  ext_channelSetUp fd (Ivy.cb_register read)
+external close_channel : channel -> unit = "ivy_GtkchannelClose"
+
-- 
cgit v1.1