labltk 8.06.9 · OCaml Package

val cCAMLtoTKbitmap : bitmap -> Protocol.tkArgs

val cTKtoCAMLbitmap : string -> [> `File of string | `Predefined of string ]

val cCAMLtoTKcolor : color -> Protocol.tkArgs

val cTKtoCAMLcolor : 'a -> [> `Color of 'a ]

val cCAMLtoTKcursor : cursor -> Protocol.tkArgs

val cCAMLtoTKunits : units -> Protocol.tkArgs

val cTKtoCAMLunits : 
  string ->
  [> `Cm of float | `In of float | `Mm of float | `Pix of int | `Pt of float ]

val cCAMLtoTKscrollValue : scrollValue -> Protocol.tkArgs

val cTKtoCAMLscrollValue : 
  string list ->
  [> `Moveto of float | `Page of int | `Unit of int ] * string list

val cCAMLtoTKmodifier : modifier -> string

exception IllegalVirtualEvent

val cCAMLtoTKevent : event -> string

val cCAMLtoTKeventSequence : event list -> Protocol.tkArgs

val cCAMLtoTKbindings : 
  [< `Tag of string | `Widget of 'a Widget.widget ] ->
  Protocol.tkArgs

val cTKtoCAMLbindings : 
  string ->
  [> `Tag of string | `Widget of Widget.any Widget.widget ]

val cCAMLtoTKfont : font -> Protocol.tkArgs

val cTKtoCAMLfont : font -> font

val cCAMLtoTKgrabGlobal : bool -> Protocol.tkArgs

val cCAMLtoTKindex : 
  [< `Active
  | `Anchor
  | `At of int
  | `Atxy of int * int
  | `End
  | `Image of string
  | `Insert
  | `Last
  | `Linechar of int * int
  | `Mark of string
  | `None
  | `Num of int
  | `Pattern of string
  | `Selfirst
  | `Sellast
  | `Tagfirst of string
  | `Taglast of string
  | `Window of Widget.any Widget.widget ] ->
  Protocol.tkArgs

val cCAMLtoTKcanvas_index : canvas_index -> Protocol.tkArgs

val cCAMLtoTKentry_index : entry_index -> Protocol.tkArgs

val cCAMLtoTKlistbox_index : listbox_index -> Protocol.tkArgs

val cCAMLtoTKmenu_index : menu_index -> Protocol.tkArgs

val cCAMLtoTKtext_index : text_index -> Protocol.tkArgs

val cTKtoCAMLtext_index : string -> [> `Linechar of int * int ]

val cTKtoCAMLlistbox_index : string -> [> `Num of int ]

val cCAMLtoTKpaletteType : paletteType -> Protocol.tkArgs

val cCAMLtoTKtextMark : string -> Protocol.tkArgs

val cTKtoCAMLtextMark : 'a -> 'a

val cCAMLtoTKtextTag : string -> Protocol.tkArgs

val cTKtoCAMLtextTag : 'a -> 'a

val cCAMLtoTKtextIndex : textIndex -> Protocol.tkArgs

val cCAMLtoTKanchor : anchor -> Protocol.tkArgs

val cCAMLtoTKimage : [< image ] -> Protocol.tkArgs

val cCAMLtoTKjustification : justification -> Protocol.tkArgs

val cCAMLtoTKorientation : orientation -> Protocol.tkArgs

val cCAMLtoTKrelief : relief -> Protocol.tkArgs

val cCAMLtoTKstate : state -> Protocol.tkArgs

val cCAMLtoTKcolorMode : colorMode -> Protocol.tkArgs

val cCAMLtoTKarcStyle : arcStyle -> Protocol.tkArgs

val cCAMLtoTKarrowStyle : arrowStyle -> Protocol.tkArgs

val cCAMLtoTKcapStyle : capStyle -> Protocol.tkArgs

val cCAMLtoTKjoinStyle : joinStyle -> Protocol.tkArgs

val cCAMLtoTKcanvasTextState : canvasTextState -> Protocol.tkArgs

val cCAMLtoTKinputState : inputState -> Protocol.tkArgs

val cCAMLtoTKweight : weight -> Protocol.tkArgs

val cCAMLtoTKslant : slant -> Protocol.tkArgs

val cCAMLtoTKvisual : visual -> Protocol.tkArgs

val cCAMLtoTKcolormap : colormap -> Protocol.tkArgs

val cCAMLtoTKselectModeType : selectModeType -> Protocol.tkArgs

val cCAMLtoTKmenuType : menuType -> Protocol.tkArgs

val cCAMLtoTKmenubuttonDirection : menubuttonDirection -> Protocol.tkArgs

val cCAMLtoTKfillMode : fillMode -> Protocol.tkArgs

val cCAMLtoTKside : side -> Protocol.tkArgs

val cCAMLtoTKborderMode : borderMode -> Protocol.tkArgs

val cCAMLtoTKalignType : alignType -> Protocol.tkArgs

val cCAMLtoTKwrapMode : wrapMode -> Protocol.tkArgs

val cCAMLtoTKtabType : tabType -> Protocol.tkArgs

val cCAMLtoTKmessageIcon : messageIcon -> Protocol.tkArgs

val cCAMLtoTKmessageType : messageType -> Protocol.tkArgs

val cCAMLtoTKtagOrId : tagOrId -> Protocol.tkArgs

val cTKtoCAMLtagOrId : string -> [> `Id of int | `Tag of string ]

val cCAMLtoTKimageBitmap : [< imageBitmap ] -> Protocol.tkArgs

val cTKtoCAMLimageBitmap : 'a -> [> `Bitmap of 'a ]

val cCAMLtoTKimagePhoto : [< imagePhoto ] -> Protocol.tkArgs

val cTKtoCAMLimagePhoto : 'a -> [> `Photo of 'a ]

val ccCAMLtoTKoptions_messagetype : messageType -> Protocol.tkArgs

val ccCAMLtoTKoptions_message : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_messageicon : messageIcon -> Protocol.tkArgs

val ccCAMLtoTKoptions_messagedefault : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_initialfile : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_initialdir : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_filetypes : filePattern list -> Protocol.tkArgs

val ccCAMLtoTKoptions_defaultextension : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_screen : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_use : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_title : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_parent : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_initialcolor : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_underline : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_rmargin : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_overstrike : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_offset : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_lmargin2 : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_lmargin1 : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_fgstipple : bitmap -> Protocol.tkArgs

val ccCAMLtoTKoptions_bgstipple : bitmap -> Protocol.tkArgs

val ccCAMLtoTKoptions_spacing1 : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_spacing2 : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_spacing3 : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_tabs : tabType list -> Protocol.tkArgs

val ccCAMLtoTKoptions_wrap : wrapMode -> Protocol.tkArgs

val ccCAMLtoTKoptions_stretch : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_name : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_align : alignType -> Protocol.tkArgs

val ccCAMLtoTKoptions_activerelief : relief -> Protocol.tkArgs

val ccCAMLtoTKoptions_scrollcommand : 
  (scroll:[> `Moveto of float | `Page of int | `Unit of int ] -> unit) ->
  Protocol.tkArgs

val ccCAMLtoTKoptions_elementborderwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_bigincrement : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_scalecommand : (float -> unit) -> Protocol.tkArgs

val ccCAMLtoTKoptions_digits : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_from : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_length : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_resolution : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_showvalue : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_sliderlength : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_tickinterval : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_to : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_bordermode : borderMode -> Protocol.tkArgs

val ccCAMLtoTKoptions_relheight : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_relwidth : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_rely : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_relx : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_palette : paletteType -> Protocol.tkArgs

val ccCAMLtoTKoptions_gamma : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_format : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_side : side -> Protocol.tkArgs

val ccCAMLtoTKoptions_fill : fillMode -> Protocol.tkArgs

val ccCAMLtoTKoptions_expand : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_before : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_after : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_aspect : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_direction : menubuttonDirection -> Protocol.tkArgs

val ccCAMLtoTKoptions_postcommand : (unit -> unit) -> Protocol.tkArgs

val ccCAMLtoTKoptions_tearoff : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_tearoffcommand : 
  (menu:Widget.any Widget.widget -> tornoff:Widget.any Widget.widget -> unit) ->
  Protocol.tkArgs

val ccCAMLtoTKoptions_menutitle : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_menutype : menuType -> Protocol.tkArgs

val ccCAMLtoTKoptions_value : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_menu : Widget.menu Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_label : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_hidemargin : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_columnbreak : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_accelerator : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_textheight : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectmode : selectModeType -> Protocol.tkArgs

val ccCAMLtoTKoptions_sticky : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_rowspan : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_row : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_ipady : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_ipadx : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_in : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_columnspan : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_column : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_pad : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_weight : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_minsize : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_clas : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_colormap : colormap -> Protocol.tkArgs

val ccCAMLtoTKoptions_container : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_visual : visual -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_overstrike : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_underline : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_slant : slant -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_weight : weight -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_size : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_font_family : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_show : char -> Protocol.tkArgs

val ccCAMLtoTKoptions_entrystate : inputState -> Protocol.tkArgs

val ccCAMLtoTKoptions_textwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_indicatoron : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_offvalue : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_onvalue : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectcolor : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectimage : [< image ] -> Protocol.tkArgs

val ccCAMLtoTKoptions_variable : Textvariable.textVariable -> Protocol.tkArgs

val ccCAMLtoTKoptions_closeenough : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_confine : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_scrollregion : (int * int * int * int) -> Protocol.tkArgs

val ccCAMLtoTKoptions_xscrollincrement : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_yscrollincrement : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_window : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKoptions_canvastextstate : canvasTextState -> Protocol.tkArgs

val ccCAMLtoTKoptions_splinesteps : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_smooth : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_joinstyle : joinStyle -> Protocol.tkArgs

val ccCAMLtoTKoptions_capstyle : capStyle -> Protocol.tkArgs

val ccCAMLtoTKoptions_arrowshape : (int * int * int) -> Protocol.tkArgs

val ccCAMLtoTKoptions_arrowstyle : arrowStyle -> Protocol.tkArgs

val ccCAMLtoTKoptions_tags : string list -> Protocol.tkArgs

val ccCAMLtoTKoptions_arcstyle : arcStyle -> Protocol.tkArgs

val ccCAMLtoTKoptions_stipple : bitmap -> Protocol.tkArgs

val ccCAMLtoTKoptions_start : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_outlinestipple : bitmap -> Protocol.tkArgs

val ccCAMLtoTKoptions_outline : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_fillcolor : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_dash : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_extent : float -> Protocol.tkArgs

val ccCAMLtoTKoptions_y : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_x : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_rotate : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_pagey : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_pagex : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_pagewidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_pageheight : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_pageanchor : anchor -> Protocol.tkArgs

val ccCAMLtoTKoptions_colormode : colorMode -> Protocol.tkArgs

val ccCAMLtoTKoptions_command : (unit -> unit) -> Protocol.tkArgs

val ccCAMLtoTKoptions_default : state -> Protocol.tkArgs

val ccCAMLtoTKoptions_height : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_state : state -> Protocol.tkArgs

val ccCAMLtoTKoptions_width : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_maskfile : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_maskdata : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_file : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_data : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_yscrollcommand : 
  (first:float -> last:float -> unit) ->
  Protocol.tkArgs

val ccCAMLtoTKoptions_xscrollcommand : 
  (first:float -> last:float -> unit) ->
  Protocol.tkArgs

val ccCAMLtoTKoptions_wraplength : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_underlinedchar : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_troughcolor : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_textvariable : 
  Textvariable.textVariable ->
  Protocol.tkArgs

val ccCAMLtoTKoptions_text : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_takefocus : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_setgrid : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectforeground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectborderwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_selectbackground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_repeatinterval : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_repeatdelay : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_relief : relief -> Protocol.tkArgs

val ccCAMLtoTKoptions_pady : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_padx : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_orient : orientation -> Protocol.tkArgs

val ccCAMLtoTKoptions_justify : justification -> Protocol.tkArgs

val ccCAMLtoTKoptions_jump : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_insertwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_insertontime : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_insertofftime : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_insertborderwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_insertbackground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_image : [< image ] -> Protocol.tkArgs

val ccCAMLtoTKoptions_highlightthickness : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_highlightcolor : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_highlightbackground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_geometry : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_foreground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_font : string -> Protocol.tkArgs

val ccCAMLtoTKoptions_exportselection : bool -> Protocol.tkArgs

val ccCAMLtoTKoptions_disabledforeground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_cursor : cursor -> Protocol.tkArgs

val ccCAMLtoTKoptions_borderwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_bitmap : bitmap -> Protocol.tkArgs

val ccCAMLtoTKoptions_background : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_anchor : anchor -> Protocol.tkArgs

val ccCAMLtoTKoptions_activeforeground : color -> Protocol.tkArgs

val ccCAMLtoTKoptions_activeborderwidth : int -> Protocol.tkArgs

val ccCAMLtoTKoptions_activebackground : color -> Protocol.tkArgs

val messageBox_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?default:string ->
  ?icon:messageIcon ->
  ?message:string ->
  ?parent:'b Widget.widget ->
  ?title:string ->
  ?typ:messageType ->
  'a

val getFile_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?defaultextension:string ->
  ?filetypes:filePattern list ->
  ?initialdir:string ->
  ?initialfile:string ->
  ?parent:'b Widget.widget ->
  ?title:string ->
  'a

val toplevel_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?clas:string ->
  ?colormap:colormap ->
  ?container:bool ->
  ?cursor:cursor ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?menu:Widget.menu Widget.widget ->
  ?relief:relief ->
  ?screen:string ->
  ?takefocus:bool ->
  ?use:string ->
  ?visual:visual ->
  ?width:int ->
  'a

val chooseColor_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?initialcolor:color ->
  ?parent:'b Widget.widget ->
  ?title:string ->
  'a

val texttag_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?bgstipple:bitmap ->
  ?borderwidth:int ->
  ?fgstipple:bitmap ->
  ?font:string ->
  ?foreground:color ->
  ?justify:justification ->
  ?lmargin1:int ->
  ?lmargin2:int ->
  ?offset:int ->
  ?overstrike:bool ->
  ?relief:relief ->
  ?rmargin:int ->
  ?spacing1:int ->
  ?spacing2:int ->
  ?spacing3:int ->
  ?tabs:tabType list ->
  ?underline:bool ->
  ?wrap:wrapMode ->
  'a

val text_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?exportselection:bool ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?insertbackground:color ->
  ?insertborderwidth:int ->
  ?insertofftime:int ->
  ?insertontime:int ->
  ?insertwidth:int ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?selectbackground:color ->
  ?selectborderwidth:int ->
  ?selectforeground:color ->
  ?setgrid:bool ->
  ?spacing1:int ->
  ?spacing2:int ->
  ?spacing3:int ->
  ?state:inputState ->
  ?tabs:tabType list ->
  ?takefocus:bool ->
  ?width:int ->
  ?wrap:wrapMode ->
  ?xscrollcommand:(first:float -> last:float -> unit) ->
  ?yscrollcommand:(first:float -> last:float -> unit) ->
  'a

val embeddedw_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?align:alignType ->
  ?padx:int ->
  ?pady:int ->
  ?stretch:bool ->
  ?window:'b Widget.widget ->
  'a

val embeddedi_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?align:alignType ->
  ?image:[< image ] ->
  ?name:string ->
  ?padx:int ->
  ?pady:int ->
  'a

val scrollbar_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activerelief:relief ->
  ?background:color ->
  ?borderwidth:int ->
  ?command:(scroll:[> `Moveto of float | `Page of int | `Unit of int ] -> unit) ->
  ?cursor:cursor ->
  ?elementborderwidth:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?jump:bool ->
  ?orient:orientation ->
  ?relief:relief ->
  ?repeatdelay:int ->
  ?repeatinterval:int ->
  ?takefocus:bool ->
  ?troughcolor:color ->
  ?width:int ->
  'a

val scale_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?background:color ->
  ?bigincrement:float ->
  ?borderwidth:int ->
  ?command:(float -> unit) ->
  ?cursor:cursor ->
  ?digits:int ->
  ?font:string ->
  ?foreground:color ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?label:string ->
  ?length:int ->
  ?max:float ->
  ?min:float ->
  ?orient:orientation ->
  ?relief:relief ->
  ?repeatdelay:int ->
  ?repeatinterval:int ->
  ?resolution:float ->
  ?showvalue:bool ->
  ?sliderlength:int ->
  ?state:state ->
  ?takefocus:bool ->
  ?tickinterval:float ->
  ?troughcolor:color ->
  ?variable:Textvariable.textVariable ->
  ?width:int ->
  'a

val radiobutton_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?command:(unit -> unit) ->
  ?cursor:cursor ->
  ?disabledforeground:color ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?justify:justification ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?selectcolor:color ->
  ?selectimage:[< image ] ->
  ?state:state ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?underline:int ->
  ?value:string ->
  ?variable:Textvariable.textVariable ->
  ?width:int ->
  ?wraplength:int ->
  'a

val place_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?bordermode:borderMode ->
  ?height:int ->
  ?inside:'b Widget.widget ->
  ?relheight:float ->
  ?relwidth:float ->
  ?relx:float ->
  ?rely:float ->
  ?width:int ->
  ?x:int ->
  ?y:int ->
  'a

val photoimage_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?data:string ->
  ?file:string ->
  ?format:string ->
  ?gamma:float ->
  ?height:int ->
  ?palette:paletteType ->
  ?width:int ->
  'a

val pack_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?after:'b Widget.widget ->
  ?anchor:anchor ->
  ?before:'c Widget.widget ->
  ?expand:bool ->
  ?fill:fillMode ->
  ?inside:'d Widget.widget ->
  ?ipadx:int ->
  ?ipady:int ->
  ?padx:int ->
  ?pady:int ->
  ?side:side ->
  'a

val message_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?aspect:int ->
  ?background:color ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?font:string ->
  ?foreground:color ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?justify:justification ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?width:int ->
  'a

val menubutton_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?direction:menubuttonDirection ->
  ?disabledforeground:color ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?justify:justification ->
  ?menu:Widget.menu Widget.widget ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?state:state ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?textwidth:int ->
  ?underline:int ->
  ?width:int ->
  ?wraplength:int ->
  'a

val menu_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeborderwidth:int ->
  ?activeforeground:color ->
  ?background:color ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?disabledforeground:color ->
  ?font:string ->
  ?foreground:color ->
  ?postcommand:(unit -> unit) ->
  ?relief:relief ->
  ?selectcolor:color ->
  ?takefocus:bool ->
  ?tearoff:bool ->
  ?tearoffcommand:
    (menu:Widget.any Widget.widget -> tornoff:Widget.any Widget.widget -> unit) ->
  ?title:string ->
  ?typ:menuType ->
  'a

val menucommand_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?accelerator:string ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?columnbreak:bool ->
  ?command:(unit -> unit) ->
  ?font:string ->
  ?foreground:color ->
  ?image:[< image ] ->
  ?label:string ->
  ?state:state ->
  ?underline:int ->
  'a

val menucheck_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?accelerator:string ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?columnbreak:bool ->
  ?command:(unit -> unit) ->
  ?font:string ->
  ?foreground:color ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?label:string ->
  ?offvalue:string ->
  ?onvalue:string ->
  ?selectcolor:color ->
  ?selectimage:[< image ] ->
  ?state:state ->
  ?underline:int ->
  ?variable:Textvariable.textVariable ->
  'a

val menuradio_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?accelerator:string ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?columnbreak:bool ->
  ?command:(unit -> unit) ->
  ?font:string ->
  ?foreground:color ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?label:string ->
  ?selectcolor:color ->
  ?selectimage:[< image ] ->
  ?state:state ->
  ?underline:int ->
  ?value:string ->
  ?variable:Textvariable.textVariable ->
  'a

val menucascade_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?accelerator:string ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?columnbreak:bool ->
  ?command:(unit -> unit) ->
  ?font:string ->
  ?foreground:color ->
  ?hidemargin:bool ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?label:string ->
  ?menu:Widget.menu Widget.widget ->
  ?state:state ->
  ?underline:int ->
  'a

val menuentry_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?accelerator:string ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?columnbreak:bool ->
  ?command:(unit -> unit) ->
  ?font:string ->
  ?foreground:color ->
  ?hidemargin:bool ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?label:string ->
  ?menu:Widget.menu Widget.widget ->
  ?offvalue:string ->
  ?onvalue:string ->
  ?selectcolor:color ->
  ?selectimage:[< image ] ->
  ?state:state ->
  ?underline:int ->
  ?value:string ->
  ?variable:Textvariable.textVariable ->
  'a

val listbox_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?exportselection:bool ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?relief:relief ->
  ?selectbackground:color ->
  ?selectborderwidth:int ->
  ?selectforeground:color ->
  ?selectmode:selectModeType ->
  ?setgrid:bool ->
  ?takefocus:bool ->
  ?width:int ->
  ?xscrollcommand:(first:float -> last:float -> unit) ->
  ?yscrollcommand:(first:float -> last:float -> unit) ->
  'a

val label_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?justify:justification ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?textwidth:int ->
  ?underline:int ->
  ?width:int ->
  ?wraplength:int ->
  'a

val grid_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?column:int ->
  ?columnspan:int ->
  ?inside:'b Widget.widget ->
  ?ipadx:int ->
  ?ipady:int ->
  ?padx:int ->
  ?pady:int ->
  ?row:int ->
  ?rowspan:int ->
  ?sticky:string ->
  'a

val rowcolumnconfigure_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?minsize:int ->
  ?pad:int ->
  ?weight:int ->
  'a

val frame_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?clas:string ->
  ?colormap:colormap ->
  ?container:bool ->
  ?cursor:cursor ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?relief:relief ->
  ?takefocus:bool ->
  ?visual:visual ->
  ?width:int ->
  'a

val font_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?family:string ->
  ?overstrike:bool ->
  ?size:int ->
  ?slant:slant ->
  ?underline:bool ->
  ?weight:weight ->
  'a

val entry_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?exportselection:bool ->
  ?font:string ->
  ?foreground:color ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?insertbackground:color ->
  ?insertborderwidth:int ->
  ?insertofftime:int ->
  ?insertontime:int ->
  ?insertwidth:int ->
  ?justify:justification ->
  ?relief:relief ->
  ?selectbackground:color ->
  ?selectborderwidth:int ->
  ?selectforeground:color ->
  ?show:char ->
  ?state:inputState ->
  ?takefocus:bool ->
  ?textvariable:Textvariable.textVariable ->
  ?width:int ->
  ?xscrollcommand:(first:float -> last:float -> unit) ->
  'a

val checkbutton_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?command:(unit -> unit) ->
  ?cursor:cursor ->
  ?disabledforeground:color ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?indicatoron:bool ->
  ?justify:justification ->
  ?offvalue:string ->
  ?onvalue:string ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?selectcolor:color ->
  ?selectimage:[< image ] ->
  ?state:state ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?underline:int ->
  ?variable:Textvariable.textVariable ->
  ?width:int ->
  ?wraplength:int ->
  'a

val canvas_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?borderwidth:int ->
  ?closeenough:float ->
  ?confine:bool ->
  ?cursor:cursor ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?insertbackground:color ->
  ?insertborderwidth:int ->
  ?insertofftime:int ->
  ?insertontime:int ->
  ?insertwidth:int ->
  ?relief:relief ->
  ?scrollregion:(int * int * int * int) ->
  ?selectbackground:color ->
  ?selectborderwidth:int ->
  ?selectforeground:color ->
  ?takefocus:bool ->
  ?width:int ->
  ?xscrollcommand:(first:float -> last:float -> unit) ->
  ?xscrollincrement:int ->
  ?yscrollcommand:(first:float -> last:float -> unit) ->
  ?yscrollincrement:int ->
  'a

val window_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?dash:string ->
  ?height:int ->
  ?tags:string list ->
  ?width:int ->
  ?window:'b Widget.widget ->
  'a

val canvastext_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?fill:color ->
  ?font:string ->
  ?justify:justification ->
  ?state:canvasTextState ->
  ?stipple:bitmap ->
  ?tags:string list ->
  ?text:string ->
  ?width:int ->
  'a

val rectangle_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dash:string ->
  ?fill:color ->
  ?outline:color ->
  ?stipple:bitmap ->
  ?tags:string list ->
  ?width:int ->
  'a

val polygon_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dash:string ->
  ?fill:color ->
  ?outline:color ->
  ?smooth:bool ->
  ?splinesteps:int ->
  ?stipple:bitmap ->
  ?tags:string list ->
  ?width:int ->
  'a

val oval_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dash:string ->
  ?fill:color ->
  ?outline:color ->
  ?stipple:bitmap ->
  ?tags:string list ->
  ?width:int ->
  'a

val line_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?arrow:arrowStyle ->
  ?arrowshape:(int * int * int) ->
  ?capstyle:capStyle ->
  ?dash:string ->
  ?fill:color ->
  ?joinstyle:joinStyle ->
  ?smooth:bool ->
  ?splinesteps:int ->
  ?stipple:bitmap ->
  ?tags:string list ->
  ?width:int ->
  'a

val image_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?image:[< image ] ->
  ?tags:string list ->
  'a

val bitmap_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?foreground:color ->
  ?tags:string list ->
  'a

val arc_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dash:string ->
  ?extent:float ->
  ?fill:color ->
  ?outline:color ->
  ?outlinestipple:bitmap ->
  ?start:float ->
  ?stipple:bitmap ->
  ?style:arcStyle ->
  ?tags:string list ->
  ?width:int ->
  'a

val postscript_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?colormode:colorMode ->
  ?file:string ->
  ?height:int ->
  ?pageanchor:anchor ->
  ?pageheight:int ->
  ?pagewidth:int ->
  ?pagex:int ->
  ?pagey:int ->
  ?rotate:bool ->
  ?width:int ->
  ?x:int ->
  ?y:int ->
  'a

val button_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?command:(unit -> unit) ->
  ?cursor:cursor ->
  ?default:state ->
  ?disabledforeground:color ->
  ?font:string ->
  ?foreground:color ->
  ?height:int ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?justify:justification ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?state:state ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?underline:int ->
  ?width:int ->
  ?wraplength:int ->
  'a

val bitmapimage_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?background:color ->
  ?data:string ->
  ?file:string ->
  ?foreground:color ->
  ?maskdata:string ->
  ?maskfile:string ->
  'a

val standard_options_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeborderwidth:int ->
  ?activeforeground:color ->
  ?anchor:anchor ->
  ?background:color ->
  ?bitmap:bitmap ->
  ?borderwidth:int ->
  ?cursor:cursor ->
  ?disabledforeground:color ->
  ?exportselection:bool ->
  ?font:string ->
  ?foreground:color ->
  ?geometry:string ->
  ?highlightbackground:color ->
  ?highlightcolor:color ->
  ?highlightthickness:int ->
  ?image:[< image ] ->
  ?insertbackground:color ->
  ?insertborderwidth:int ->
  ?insertofftime:int ->
  ?insertontime:int ->
  ?insertwidth:int ->
  ?jump:bool ->
  ?justify:justification ->
  ?orient:orientation ->
  ?padx:int ->
  ?pady:int ->
  ?relief:relief ->
  ?repeatdelay:int ->
  ?repeatinterval:int ->
  ?selectbackground:color ->
  ?selectborderwidth:int ->
  ?selectforeground:color ->
  ?setgrid:bool ->
  ?takefocus:bool ->
  ?text:string ->
  ?textvariable:Textvariable.textVariable ->
  ?troughcolor:color ->
  ?underline:int ->
  ?wraplength:int ->
  ?xscrollcommand:(first:float -> last:float -> unit) ->
  ?yscrollcommand:(first:float -> last:float -> unit) ->
  'a

val cCAMLtoTKsearchSpec : searchSpec -> Protocol.tkArgs

val cCAMLtoTKcanvasItem : canvasItem -> Protocol.tkArgs

val cTKtoCAMLcanvasItem : 
  string ->
  [> `Arc
  | `Bitmap
  | `Image
  | `Line
  | `Oval
  | `Polygon
  | `Rectangle
  | `Text
  | `User_item of string
  | `Window ]

val ccCAMLtoTKicccm_lostcommand : (unit -> unit) -> Protocol.tkArgs

val ccCAMLtoTKicccm_selection : string -> Protocol.tkArgs

val ccCAMLtoTKicccm_displayof : 'a Widget.widget -> Protocol.tkArgs

val ccCAMLtoTKicccm_icccmtype : string -> Protocol.tkArgs

val ccCAMLtoTKicccm_icccmformat : string -> Protocol.tkArgs

val selection_handle_icccm_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?format:string ->
  ?selection:string ->
  ?typ:string ->
  'a

val selection_ownset_icccm_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?command:(unit -> unit) ->
  ?selection:string ->
  'a

val selection_get_icccm_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?displayof:'b Widget.widget ->
  ?selection:string ->
  ?typ:string ->
  'a

val selection_clear_icccm_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?displayof:'b Widget.widget ->
  ?selection:string ->
  'a

val clipboard_append_icccm_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?format:string ->
  ?typ:string ->
  'a

val cCAMLtoTKfontMetrics : fontMetrics -> Protocol.tkArgs

val cCAMLtoTKgrabStatus : grabStatus -> Protocol.tkArgs

val cTKtoCAMLgrabStatus : string -> [> `Global | `Local | `None ]

val cCAMLtoTKmenuItem : menuItem -> Protocol.tkArgs

val cTKtoCAMLmenuItem : 
  string ->
  [> `Cascade
  | `Checkbutton
  | `Command
  | `Radiobutton
  | `Separator
  | `Tearoff ]

val cCAMLtoTKoptionPriority : optionPriority -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_palettetroughcolor : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteforegroundselectcolor : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteselectbackground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteselectcolor : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteinsertbackground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_palettehighlightcolor : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_palettehighlightbackground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteforeground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_palettedisabledforeground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_palettebackground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteactiveforeground : color -> Protocol.tkArgs

val ccCAMLtoTKtkPalette_paletteactivebackground : color -> Protocol.tkArgs

val any_tkPalette_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?activebackground:color ->
  ?activeforeground:color ->
  ?background:color ->
  ?disabledforeground:color ->
  ?foreground:color ->
  ?highlightcolor:color ->
  ?hilightbackground:color ->
  ?insertbackground:color ->
  ?selectbackground:color ->
  ?selectcolor:color ->
  ?selectforeground:color ->
  ?troughcolor:color ->
  'a

val ccCAMLtoTKphoto_topleft : (int * int) -> Protocol.tkArgs

val ccCAMLtoTKphoto_imgformat : string -> Protocol.tkArgs

val ccCAMLtoTKphoto_subsample : (int * int) -> Protocol.tkArgs

val ccCAMLtoTKphoto_zoom : (int * int) -> Protocol.tkArgs

val ccCAMLtoTKphoto_shrink : unit -> Protocol.tkArgs

val ccCAMLtoTKphoto_imgto : (int * int * int * int) -> Protocol.tkArgs

val ccCAMLtoTKphoto_imgfrom : (int * int * int * int) -> Protocol.tkArgs

val write_photo_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?format:string ->
  ?src_area:(int * int * int * int) ->
  'a

val read_photo_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dst_pos:(int * int) ->
  ?format:string ->
  ?shrink:unit ->
  ?src_area:(int * int * int * int) ->
  'a

val put_photo_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dst_area:(int * int * int * int) ->
  'a

val copy_photo_optionals : 
  (Protocol.tkArgs list -> 'a) ->
  ?dst_area:(int * int * int * int) ->
  ?shrink:unit ->
  ?src_area:(int * int * int * int) ->
  ?subsample:(int * int) ->
  ?zoom:(int * int) ->
  'a

val cCAMLtoTKscaleElement : scaleElement -> Protocol.tkArgs

val cTKtoCAMLscaleElement : 
  string ->
  [> `Beyond | `Slider | `Trough1 | `Trough2 ]

val cCAMLtoTKscrollbarElement : scrollbarElement -> Protocol.tkArgs

val cTKtoCAMLscrollbarElement : 
  string ->
  [> `Arrow1 | `Arrow2 | `Beyond | `Slider | `Through1 | `Through2 ]

val cCAMLtoTKsendOption : sendOption -> Protocol.tkArgs

val cCAMLtoTKcomparison : comparison -> Protocol.tkArgs

val cCAMLtoTKmarkDirection : markDirection -> Protocol.tkArgs

val cTKtoCAMLmarkDirection : string -> [> `Left | `Right ]

val cCAMLtoTKtextSearch : textSearch -> Protocol.tkArgs

val cCAMLtoTKtext_dump : 'a Widget.widget -> text_dump -> Protocol.tkArgs

val cCAMLtoTKatomId : atomId -> Protocol.tkArgs

val cTKtoCAMLatomId : string -> [> `AtomId of int ]

val cCAMLtoTKfocusModel : focusModel -> Protocol.tkArgs

val cTKtoCAMLfocusModel : string -> [> `Active | `Passive ]

val cCAMLtoTKwmFrom : wmFrom -> Protocol.tkArgs

val cTKtoCAMLwmFrom : string -> [> `Program | `User ]

val cCAMLtoTKoptions_constrs : 
  [< `Accelerator
  | `Activebackground
  | `Activeborderwidth
  | `Activeforeground
  | `Activerelief
  | `After
  | `Align
  | `Anchor
  | `Arrow
  | `Arrowshape
  | `Aspect
  | `Background
  | `Before
  | `Bgstipple
  | `Bigincrement
  | `Bitmap
  | `Bordermode
  | `Borderwidth
  | `Capstyle
  | `Class
  | `Closeenough
  | `Colormap
  | `Colormode
  | `Column
  | `Columnbreak
  | `Columnspan
  | `Command
  | `Confine
  | `Container
  | `Cursor
  | `Dash
  | `Data
  | `Default
  | `Defaultextension
  | `Digits
  | `Direction
  | `Disabledforeground
  | `Elementborderwidth
  | `Expand
  | `Exportselection
  | `Extent
  | `Family
  | `Fgstipple
  | `File
  | `Filetypes
  | `Fill
  | `Font
  | `Foreground
  | `Format
  | `Gamma
  | `Geometry
  | `Height
  | `Hidemargin
  | `Highlightbackground
  | `Highlightcolor
  | `Highlightthickness
  | `Icon
  | `Image
  | `Indicatoron
  | `Initialcolor
  | `Initialdir
  | `Initialfile
  | `Insertbackground
  | `Insertborderwidth
  | `Insertofftime
  | `Insertontime
  | `Insertwidth
  | `Inside
  | `Ipadx
  | `Ipady
  | `Joinstyle
  | `Jump
  | `Justify
  | `Label
  | `Length
  | `Lmargin1
  | `Lmargin2
  | `Maskdata
  | `Maskfile
  | `Max
  | `Menu
  | `Message
  | `Min
  | `Minsize
  | `Name
  | `Offset
  | `Offvalue
  | `Onvalue
  | `Orient
  | `Outline
  | `Outlinestipple
  | `Overstrike
  | `Pad
  | `Padx
  | `Pady
  | `Pageanchor
  | `Pageheight
  | `Pagewidth
  | `Pagex
  | `Pagey
  | `Palette
  | `Parent
  | `Postcommand
  | `Relheight
  | `Relief
  | `Relwidth
  | `Relx
  | `Rely
  | `Repeatdelay
  | `Repeatinterval
  | `Resolution
  | `Rmargin
  | `Rotate
  | `Row
  | `Rowspan
  | `Screen
  | `Scrollregion
  | `Selectbackground
  | `Selectborderwidth
  | `Selectcolor
  | `Selectforeground
  | `Selectimage
  | `Selectmode
  | `Setgrid
  | `Show
  | `Showvalue
  | `Side
  | `Size
  | `Slant
  | `Sliderlength
  | `Smooth
  | `Spacing1
  | `Spacing2
  | `Spacing3
  | `Splinesteps
  | `Start
  | `State
  | `Sticky
  | `Stipple
  | `Stretch
  | `Style
  | `Tabs
  | `Tags
  | `Takefocus
  | `Tearoff
  | `Tearoffcommand
  | `Text
  | `Textvariable
  | `Textwidth
  | `Tickinterval
  | `Title
  | `Troughcolor
  | `Type
  | `Underline
  | `Use
  | `Value
  | `Variable
  | `Visual
  | `Weight
  | `Width
  | `Window
  | `Wrap
  | `Wraplength
  | `X
  | `Xscrollcommand
  | `Xscrollincrement
  | `Y
  | `Yscrollcommand
  | `Yscrollincrement ] ->
  Protocol.tkArgs

package labltk