module Gui:sig
..end
typenodeName =
string
type
guiEvent =
| |
GuiMessage of |
| |
GuiNode of |
| |
GuiNewNode of |
| |
GuiNone |
val gui_init : bool -> string -> int -> unit
val guievent_of_string : string -> guiEvent
val string_of_guievent : guiEvent -> string
val gui_report : Unix.file_descr -> bool -> guiEvent -> unit