diff options
| author | buisson | 2005-04-29 09:35:43 +0000 |
|---|---|---|
| committer | buisson | 2005-04-29 09:35:43 +0000 |
| commit | 22c1e6dbe7cf74936e5ca29eadeff81312ccc506 (patch) | |
| tree | 3304815b956eb5c76674fa2763d3da8a2e73394f /glibIvy.ml | |
| parent | 23abb4b87c7e40ed259dd02f653516f60e55ade4 (diff) | |
| download | ivy-ocaml-22c1e6dbe7cf74936e5ca29eadeff81312ccc506.zip ivy-ocaml-22c1e6dbe7cf74936e5ca29eadeff81312ccc506.tar.gz ivy-ocaml-22c1e6dbe7cf74936e5ca29eadeff81312ccc506.tar.bz2 ivy-ocaml-22c1e6dbe7cf74936e5ca29eadeff81312ccc506.tar.xz | |
Initial revision
Diffstat (limited to 'glibIvy.ml')
| -rw-r--r-- | glibIvy.ml | 8 |
1 files changed, 8 insertions, 0 deletions
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" + |