From 22c1e6dbe7cf74936e5ca29eadeff81312ccc506 Mon Sep 17 00:00:00 2001
From: buisson
Date: Fri, 29 Apr 2005 09:35:43 +0000
Subject: Initial revision

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

(limited to 'glibIvy.ml')

diff --git a/glibIvy.ml b/glibIvy.ml
new file mode 100644
index 0000000..17919c5
--- /dev/null
+++ b/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