blob: 17919c5735f175ebb7e3dba7ebc46d548976437b (
plain)
1
2
3
4
5
6
7
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"
|