module Widget :
  sig
    type 'a widget = 'a Rawwidget.raw_widget
    type any = Rawwidget.raw_any
    and button = Widget.button
    and canvas = Widget.canvas
    and checkbutton = Widget.checkbutton
    and entry = Widget.entry
    and frame = Widget.frame
    and label = Widget.label
    and listbox = Widget.listbox
    and menu = Widget.menu
    and menubutton = Widget.menubutton
    and message = Widget.message
    and radiobutton = Widget.radiobutton
    and scale = Widget.scale
    and scrollbar = Widget.scrollbar
    and text = Widget.text
    and toplevel = Widget.toplevel
    val forget_type : 'a widget -> any widget
    val coe : 'a widget -> any widget
    val default_toplevel : toplevel widget
    val atom : parent:'a widget -> name:string -> any widget
    val name : 'a widget -> string
    val known_class : 'a widget -> string
    val dummy : any widget
    val new_atom : parent:'a widget -> ?name:string -> string -> 'b widget
    val get_atom : string -> any widget
    val remove : 'a widget -> unit
    val widget_any_table : string list
    val widget_button_table : string list
    val widget_canvas_table : string list
    val widget_checkbutton_table : string list
    val widget_entry_table : string list
    val widget_frame_table : string list
    val widget_label_table : string list
    val widget_listbox_table : string list
    val widget_menu_table : string list
    val widget_menubutton_table : string list
    val widget_message_table : string list
    val widget_radiobutton_table : string list
    val widget_scale_table : string list
    val widget_scrollbar_table : string list
    val widget_text_table : string list
    val widget_toplevel_table : string list
    val chk_sub : string -> 'a list -> 'a -> unit
    val check_class : 'a widget -> string list -> unit
    exception IllegalWidgetType of string
  end
module Protocol :
  sig
    exception TkError of string
    val debug : bool ref
    type tkArgs =
      Protocol.tkArgs =
        TkToken of string
      | TkTokenList of tkArgs list
      | TkQuote of tkArgs
    external splitlist : string -> string list = "camltk_splitlist"
    val add_destroy_hook : (Widget.any Widget.widget -> unit) -> unit
    val default_display : unit -> string
    val opentk : unit -> Widget.toplevel Widget.widget
    val keywords : (string * Arg.spec * string) list
    val opentk_with_args : string list -> Widget.toplevel Widget.widget
    val openTk :
      ?display:string ->
      ?clas:string -> unit -> Widget.toplevel Widget.widget
    val openTkClass : string -> Widget.toplevel Widget.widget
    val openTkDisplayClass :
      string -> string -> Widget.toplevel Widget.widget
    val closeTk : unit -> unit
    val finalizeTk : unit -> unit
    val mainLoop : unit -> unit
    type event_flag =
      Protocol.event_flag =
        DONT_WAIT
      | X_EVENTS
      | FILE_EVENTS
      | TIMER_EVENTS
      | IDLE_EVENTS
      | ALL_EVENTS
    val do_one_event : event_flag list -> bool
    val do_pending : 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.any Widget.widget, cbid) Hashtbl.t
    val new_function_id : unit -> cbid
    val string_of_cbid : cbid -> string
    val register_callback :
      'a Widget.widget -> callback:(callback_buffer -> unit) -> string
    val clear_callback : cbid -> unit
    val remove_callbacks : 'a Widget.widget -> unit
    val cTKtoCAMLwidget : string -> Widget.any Widget.widget
    val cCAMLtoTKwidget : 'a Widget.widget -> tkArgs
    val register : string -> callback:(callback_buffer -> unit) -> unit
    val prerr_cbid : cbid -> unit
  end
module Textvariable :
  sig
    type textVariable = Textvariable.textVariable
    val create : ?on:'a Widget.widget -> unit -> textVariable
    val set : textVariable -> string -> unit
    val get : textVariable -> string
    val name : textVariable -> string
    val cCAMLtoTKtextVariable : textVariable -> Protocol.tkArgs
    val handle : textVariable -> callback:(unit -> unit) -> unit
    val coerce : string -> textVariable
    val free : textVariable -> unit
  end
module Fileevent :
  sig
    val add_fileinput : fd:Unix.file_descr -> callback:(unit -> unit) -> unit
    val remove_fileinput : fd:Unix.file_descr -> unit
    val add_fileoutput :
      fd:Unix.file_descr -> callback:(unit -> unit) -> unit
    val remove_fileoutput : fd:Unix.file_descr -> unit
  end
module Timer :
  sig
    type t = Timer.t
    val add : ms:int -> callback:(unit -> unit) -> t
    val set : ms:int -> callback:(unit -> unit) -> unit
    val remove : t -> unit
  end
module Place :
  sig
    val configure :
      ?anchor:Tk.anchor ->
      ?bordermode:Tk.borderMode ->
      ?height:int ->
      ?inside:'a Widget.widget ->
      ?relheight:float ->
      ?relwidth:float ->
      ?relx:float ->
      ?rely:float ->
      ?width:int -> ?x:int -> ?y:int -> 'b Widget.widget -> unit
    val forget : 'a Widget.widget -> unit
    val info : 'a Widget.widget -> string
    val slaves : 'a Widget.widget -> Widget.any Widget.widget list
  end
module Wm :
  sig
    val aspect_get : Widget.toplevel Widget.widget -> int * int * int * int
    val aspect_set :
      Widget.toplevel Widget.widget ->
      minnum:int -> mindenom:int -> maxnum:int -> maxdenom:int -> unit
    val client_get : Widget.toplevel Widget.widget -> string
    val client_set : Widget.toplevel Widget.widget -> name:string -> unit
    val colormapwindows_get :
      Widget.toplevel Widget.widget -> Widget.any Widget.widget list
    val colormapwindows_set :
      Widget.toplevel Widget.widget -> windows:'a Widget.widget list -> unit
    val command_clear : Widget.toplevel Widget.widget -> unit
    val command_get : Widget.toplevel Widget.widget -> string list
    val command_set : Widget.toplevel Widget.widget -> string list -> unit
    val deiconify : Widget.toplevel Widget.widget -> unit
    val focusmodel_get : Widget.toplevel Widget.widget -> Tk.focusModel
    val focusmodel_set :
      Widget.toplevel Widget.widget -> Tk.focusModel -> unit
    val frame : Widget.toplevel Widget.widget -> string
    val geometry_get : Widget.toplevel Widget.widget -> string
    val geometry_set : Widget.toplevel Widget.widget -> string -> unit
    val grid_clear : Widget.toplevel Widget.widget -> unit
    val grid_get : Widget.toplevel Widget.widget -> int * int * int * int
    val grid_set :
      Widget.toplevel Widget.widget ->
      basewidth:int ->
      baseheight:int -> widthinc:int -> heightinc:int -> unit
    val group_clear : Widget.toplevel Widget.widget -> unit
    val group_get : Widget.toplevel Widget.widget -> Widget.any Widget.widget
    val group_set :
      Widget.toplevel Widget.widget -> leader:'a Widget.widget -> unit
    val iconbitmap_clear : Widget.toplevel Widget.widget -> unit
    val iconbitmap_get : Widget.toplevel Widget.widget -> Tk.bitmap
    val iconbitmap_set : Widget.toplevel Widget.widget -> Tk.bitmap -> unit
    val iconify : Widget.toplevel Widget.widget -> unit
    val iconmask_clear : Widget.toplevel Widget.widget -> unit
    val iconmask_get : Widget.toplevel Widget.widget -> Tk.bitmap
    val iconmask_set : Widget.toplevel Widget.widget -> Tk.bitmap -> unit
    val iconname_get : Widget.toplevel Widget.widget -> string
    val iconname_set : Widget.toplevel Widget.widget -> string -> unit
    val iconposition_clear : Widget.toplevel Widget.widget -> unit
    val iconposition_get : Widget.toplevel Widget.widget -> int * int
    val iconposition_set :
      Widget.toplevel Widget.widget -> x:int -> y:int -> unit
    val iconwindow_clear : Widget.toplevel Widget.widget -> unit
    val iconwindow_get :
      Widget.toplevel Widget.widget -> Widget.toplevel Widget.widget
    val iconwindow_set :
      Widget.toplevel Widget.widget ->
      icon:Widget.toplevel Widget.widget -> unit
    val maxsize_get : Widget.toplevel Widget.widget -> int * int
    val maxsize_set :
      Widget.toplevel Widget.widget -> width:int -> height:int -> unit
    val minsize_get : Widget.toplevel Widget.widget -> int * int
    val minsize_set :
      Widget.toplevel Widget.widget -> width:int -> height:int -> unit
    val overrideredirect_get : Widget.toplevel Widget.widget -> bool
    val overrideredirect_set : Widget.toplevel Widget.widget -> bool -> unit
    val positionfrom_clear : Widget.toplevel Widget.widget -> unit
    val positionfrom_get : Widget.toplevel Widget.widget -> Tk.wmFrom
    val positionfrom_set : Widget.toplevel Widget.widget -> Tk.wmFrom -> unit
    val protocol_clear : Widget.toplevel Widget.widget -> name:string -> unit
    val protocol_set :
      Widget.toplevel Widget.widget ->
      name:string -> command:(unit -> unit) -> unit
    val protocols : Widget.toplevel Widget.widget -> string list
    val resizable_get : Widget.toplevel Widget.widget -> bool * bool
    val resizable_set :
      Widget.toplevel Widget.widget -> width:bool -> height:bool -> unit
    val sizefrom_clear : Widget.toplevel Widget.widget -> unit
    val sizefrom_get : Widget.toplevel Widget.widget -> Tk.wmFrom
    val sizefrom_set : Widget.toplevel Widget.widget -> Tk.wmFrom -> unit
    val state : Widget.toplevel Widget.widget -> string
    val title_get : Widget.toplevel Widget.widget -> string
    val title_set : Widget.toplevel Widget.widget -> string -> unit
    val transient_clear : Widget.toplevel Widget.widget -> unit
    val transient_get :
      Widget.toplevel Widget.widget -> Widget.