diff options
| author | hattenberger | 2013-03-27 13:17:19 +0000 |
|---|---|---|
| committer | hattenberger | 2013-03-27 13:17:19 +0000 |
| commit | a17272283c803e13258e5dc6b19533c672ceee18 (patch) | |
| tree | 0fa7737e21fe1147c860a84b18676cd99a80fdb1 /trunk/tkIvy.ml | |
| parent | 003d66dc1fabc063372e4f03265935d0ccaefd78 (diff) | |
| download | ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.zip ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.gz ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.bz2 ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.xz | |
some fixes in ivy-ocaml tag 1.2
Diffstat (limited to 'trunk/tkIvy.ml')
| -rw-r--r-- | trunk/tkIvy.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/trunk/tkIvy.ml b/trunk/tkIvy.ml new file mode 100644 index 0000000..907baa9 --- /dev/null +++ b/trunk/tkIvy.ml @@ -0,0 +1,8 @@ + +type channel +external main : unit -> unit = "ivy_TclmainLoop" +external ext_channelSetUp : Unix.file_descr -> string -> channel = "ivy_TclchannelSetUp" +let set_up_channel fd delete read = + ext_channelSetUp fd (Ivy.cb_register read) +external close_channel : channel -> unit = "ivy_TclchannelClose" + |