package labltk

  1. Overview
  2. Docs
exception TkError of string
val debug : bool ref
type tkArgs =
  1. | TkToken of string
  2. | TkTokenList of tkArgs list
  3. | TkQuote of tkArgs
val splitlist : string -> string list
val add_destroy_hook : (Widget.widget -> unit) -> unit
val default_display : unit -> string
val opentk : unit -> Widget.widget
val keywords : (string * Arg.spec * string) list
val opentk_with_args : string list -> Widget.widget
val openTk : ?display:string -> ?clas:string -> unit -> Widget.widget
val openTkClass : string -> Widget.widget
val openTkDisplayClass : string -> string -> Widget.widget
val closeTk : unit -> unit
val finalizeTk : unit -> unit
val mainLoop : unit -> unit
val tkEval : tkArgs array -> string
val tkCommand : tkArgs array -> unit
val tkreturn : string -> unit
type cbid = Protocol.cbid
type callback_buffer = string list
val callback_naming_table : (cbid, callback_buffer -> unit) Hashtbl.t
val callback_memo_table : (Widget.widget, cbid) Hashtbl.t
val new_function_id : unit -> cbid
val string_of_cbid : cbid -> string
val register_callback : Widget.widget -> callback:(callback_buffer -> unit) -> string
val clear_callback : cbid -> unit
val remove_callbacks : Widget.widget -> unit
val cTKtoCAMLwidget : string -> Widget.widget
val cCAMLtoTKwidget : string list -> Widget.widget -> tkArgs
val register : string -> callback:(callback_buffer -> unit) -> unit
val prerr_cbid : cbid -> unit