Up  

Module Tk.Tkintf

module Tkintf: sig .. end
val cCAMLtoTKbitmap : Tk.bitmap -> Protocol.tkArgs
val cTKtoCAMLbitmap : string -> [> `File of string | `Predefined of string ]
val cCAMLtoTKcolor : Tk.color -> Protocol.tkArgs
val cTKtoCAMLcolor : 'a -> [> `Color of 'a ]
val cCAMLtoTKcursor : Tk.cursor -> Protocol.tkArgs
val cCAMLtoTKunits : Tk.units -> Protocol.tkArgs
val cTKtoCAMLunits : string ->
       [> `Cm of float | `In of float | `Mm of float | `Pix of int | `Pt of float ]
val cCAMLtoTKscrollValue : Tk.scrollValue -> Protocol.tkArgs
val cTKtoCAMLscrollValue : string list ->
       [> `Moveto of float | `Page of int | `Unit of int ] * string list
val cCAMLtoTKmodifier : Tk.modifier -> string
exception IllegalVirtualEvent
val cCAMLtoTKevent : Tk.event -> string
val cCAMLtoTKeventSequence : Tk.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 : Tk.font -> Protocol.tkArgs
val cTKtoCAMLfont : Tk.font -> Tk.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 : Tk.canvas_index -> Protocol.tkArgs
val cCAMLtoTKentry_index : Tk.entry_index -> Protocol.tkArgs
val cCAMLtoTKlistbox_index : Tk.listbox_index -> Protocol.tkArgs
val cCAMLtoTKmenu_index : Tk.menu_index -> Protocol.tkArgs
val cCAMLtoTKtext_index : Tk.text_index -> Protocol.tkArgs
val cTKtoCAMLtext_index : string -> [> `Linechar of int * int ]
val cTKtoCAMLlistbox_index : string -> [> `Num of int ]
val cCAMLtoTKpaletteType : Tk.paletteType -> Protocol.tkArgs
val cCAMLtoTKtextMark : string -> Protocol.tkArgs
val cTKtoCAMLtextMark : 'a -> 'a
val cCAMLtoTKtextTag : string -> Protocol.tkArgs
val cTKtoCAMLtextTag : 'a -> 'a
val cCAMLtoTKtextIndex : Tk.textIndex -> Protocol.tkArgs
val cCAMLtoTKanchor : Tk.anchor -> Protocol.tkArgs
val cCAMLtoTKimage : [< Tk.image ] -> Protocol.tkArgs
val cCAMLtoTKjustification : Tk.justification -> Protocol.tkArgs
val cCAMLtoTKorientation : Tk.orientation -> Protocol.tkArgs
val cCAMLtoTKrelief : Tk.relief -> Protocol.tkArgs
val cCAMLtoTKstate : Tk.state -> Protocol.tkArgs
val cCAMLtoTKcolorMode : Tk.colorMode -> Protocol.tkArgs
val cCAMLtoTKarcStyle : Tk.arcStyle -> Protocol.tkArgs
val cCAMLtoTKarrowStyle : Tk.arrowStyle -> Protocol.tkArgs
val cCAMLtoTKcapStyle : Tk.capStyle -> Protocol.tkArgs
val cCAMLtoTKjoinStyle : Tk.joinStyle -> Protocol.tkArgs
val cCAMLtoTKcanvasTextState : Tk.canvasTextState -> Protocol.tkArgs
val cCAMLtoTKinputState : Tk.inputState -> Protocol.tkArgs
val cCAMLtoTKweight : Tk.weight -> Protocol.tkArgs
val cCAMLtoTKslant : Tk.slant -> Protocol.tkArgs
val cCAMLtoTKvisual : Tk.visual -> Protocol.tkArgs
val cCAMLtoTKcolormap : Tk.colormap -> Protocol.tkArgs
val cCAMLtoTKselectModeType : Tk.selectModeType -> Protocol.tkArgs
val cCAMLtoTKmenuType : Tk.menuType -> Protocol.tkArgs
val cCAMLtoTKmenubuttonDirection : Tk.menubuttonDirection -> Protocol.tkArgs
val cCAMLtoTKfillMode : Tk.fillMode -> Protocol.tkArgs
val cCAMLtoTKside : Tk.side -> Protocol.tkArgs
val cCAMLtoTKborderMode : Tk.borderMode -> Protocol.tkArgs
val cCAMLtoTKalignType : Tk.alignType -> Protocol.tkArgs
val cCAMLtoTKwrapMode : Tk.wrapMode -> Protocol.tkArgs
val cCAMLtoTKtabType : Tk.tabType -> Protocol.tkArgs
val cCAMLtoTKmessageIcon : Tk.messageIcon -> Protocol.tkArgs
val cCAMLtoTKmessageType : Tk.messageType -> Protocol.tkArgs
val cCAMLtoTKtagOrId : Tk.tagOrId -> Protocol.tkArgs
val cTKtoCAMLtagOrId : string -> [> `Id of int | `Tag of string ]
val cCAMLtoTKimageBitmap : [< Tk.imageBitmap ] -> Protocol.tkArgs
val cTKtoCAMLimageBitmap : 'a -> [> `Bitmap of 'a ]
val cCAMLtoTKimagePhoto : [< Tk.imagePhoto ] -> Protocol.tkArgs
val cTKtoCAMLimagePhoto : 'a -> [> `Photo of 'a ]
val ccCAMLtoTKoptions_messagetype : Tk.messageType -> Protocol.tkArgs
val ccCAMLtoTKoptions_message : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_messageicon : Tk.messageIcon -> Protocol.tkArgs
val ccCAMLtoTKoptions_messagedefault : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_initialfile : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_initialdir : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_filetypes : Tk.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 : Tk.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 : Tk.bitmap -> Protocol.tkArgs
val ccCAMLtoTKoptions_bgstipple : Tk.bitmap -> Protocol.tkArgs
val ccCAMLtoTKoptions_spacing1 : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_spacing2 : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_spacing3 : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_tabs : Tk.tabType list -> Protocol.tkArgs
val ccCAMLtoTKoptions_wrap : Tk.wrapMode -> Protocol.tkArgs
val ccCAMLtoTKoptions_stretch : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_name : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_align : Tk.alignType -> Protocol.tkArgs
val ccCAMLtoTKoptions_activerelief : Tk.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 : Tk.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 : Tk.paletteType -> Protocol.tkArgs
val ccCAMLtoTKoptions_gamma : float -> Protocol.tkArgs
val ccCAMLtoTKoptions_format : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_side : Tk.side -> Protocol.tkArgs
val ccCAMLtoTKoptions_fill : Tk.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 : Tk.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 : Tk.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 : Tk.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 : Tk.colormap -> Protocol.tkArgs
val ccCAMLtoTKoptions_container : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_visual : Tk.visual -> Protocol.tkArgs
val ccCAMLtoTKoptions_font_overstrike : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_font_underline : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_font_slant : Tk.slant -> Protocol.tkArgs
val ccCAMLtoTKoptions_font_weight : Tk.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 : Tk.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 : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_selectimage : [< Tk.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 : Tk.canvasTextState -> Protocol.tkArgs
val ccCAMLtoTKoptions_splinesteps : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_smooth : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_joinstyle : Tk.joinStyle -> Protocol.tkArgs
val ccCAMLtoTKoptions_capstyle : Tk.capStyle -> Protocol.tkArgs
val ccCAMLtoTKoptions_arrowshape : int * int * int -> Protocol.tkArgs
val ccCAMLtoTKoptions_arrowstyle : Tk.arrowStyle -> Protocol.tkArgs
val ccCAMLtoTKoptions_tags : string list -> Protocol.tkArgs
val ccCAMLtoTKoptions_arcstyle : Tk.arcStyle -> Protocol.tkArgs
val ccCAMLtoTKoptions_stipple : Tk.bitmap -> Protocol.tkArgs
val ccCAMLtoTKoptions_start : float -> Protocol.tkArgs
val ccCAMLtoTKoptions_outlinestipple : Tk.bitmap -> Protocol.tkArgs
val ccCAMLtoTKoptions_outline : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_fillcolor : Tk.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 : Tk.anchor -> Protocol.tkArgs
val ccCAMLtoTKoptions_colormode : Tk.colorMode -> Protocol.tkArgs
val ccCAMLtoTKoptions_command : (unit -> unit) -> Protocol.tkArgs
val ccCAMLtoTKoptions_default : Tk.state -> Protocol.tkArgs
val ccCAMLtoTKoptions_height : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_state : Tk.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 : Tk.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 : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_selectborderwidth : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_selectbackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_repeatinterval : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_repeatdelay : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_relief : Tk.relief -> Protocol.tkArgs
val ccCAMLtoTKoptions_pady : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_padx : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_orient : Tk.orientation -> Protocol.tkArgs
val ccCAMLtoTKoptions_justify : Tk.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 : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_image : [< Tk.image ] -> Protocol.tkArgs
val ccCAMLtoTKoptions_highlightthickness : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_highlightcolor : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_highlightbackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_geometry : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_foreground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_font : string -> Protocol.tkArgs
val ccCAMLtoTKoptions_exportselection : bool -> Protocol.tkArgs
val ccCAMLtoTKoptions_disabledforeground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_cursor : Tk.cursor -> Protocol.tkArgs
val ccCAMLtoTKoptions_borderwidth : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_bitmap : Tk.bitmap -> Protocol.tkArgs
val ccCAMLtoTKoptions_background : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_anchor : Tk.anchor -> Protocol.tkArgs
val ccCAMLtoTKoptions_activeforeground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKoptions_activeborderwidth : int -> Protocol.tkArgs
val ccCAMLtoTKoptions_activebackground : Tk.color -> Protocol.tkArgs
val messageBox_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?default:string ->
       ?icon:Tk.messageIcon ->
       ?message:string ->
       ?parent:'b Widget.widget -> ?title:string -> ?typ:Tk.messageType -> 'a
val getFile_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?defaultextension:string ->
       ?filetypes:Tk.filePattern list ->
       ?initialdir:string ->
       ?initialfile:string -> ?parent:'b Widget.widget -> ?title:string -> 'a
val toplevel_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?clas:string ->
       ?colormap:Tk.colormap ->
       ?container:bool ->
       ?cursor:Tk.cursor ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?menu:Widget.menu Widget.widget ->
       ?relief:Tk.relief ->
       ?screen:string ->
       ?takefocus:bool -> ?use:string -> ?visual:Tk.visual -> ?width:int -> 'a
val chooseColor_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?initialcolor:Tk.color -> ?parent:'b Widget.widget -> ?title:string -> 'a
val texttag_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?bgstipple:Tk.bitmap ->
       ?borderwidth:int ->
       ?fgstipple:Tk.bitmap ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?justify:Tk.justification ->
       ?lmargin1:int ->
       ?lmargin2:int ->
       ?offset:int ->
       ?overstrike:bool ->
       ?relief:Tk.relief ->
       ?rmargin:int ->
       ?spacing1:int ->
       ?spacing2:int ->
       ?spacing3:int ->
       ?tabs:Tk.tabType list -> ?underline:bool -> ?wrap:Tk.wrapMode -> 'a
val text_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?exportselection:bool ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?insertbackground:Tk.color ->
       ?insertborderwidth:int ->
       ?insertofftime:int ->
       ?insertontime:int ->
       ?insertwidth:int ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?selectbackground:Tk.color ->
       ?selectborderwidth:int ->
       ?selectforeground:Tk.color ->
       ?setgrid:bool ->
       ?spacing1:int ->
       ?spacing2:int ->
       ?spacing3:int ->
       ?state:Tk.inputState ->
       ?tabs:Tk.tabType list ->
       ?takefocus:bool ->
       ?width:int ->
       ?wrap:Tk.wrapMode ->
       ?xscrollcommand:(first:float -> last:float -> unit) ->
       ?yscrollcommand:(first:float -> last:float -> unit) -> 'a
val embeddedw_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?align:Tk.alignType ->
       ?padx:int -> ?pady:int -> ?stretch:bool -> ?window:'b Widget.widget -> 'a
val embeddedi_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?align:Tk.alignType ->
       ?image:[< Tk.image ] -> ?name:string -> ?padx:int -> ?pady:int -> 'a
val scrollbar_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activerelief:Tk.relief ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?command:(scroll:[> `Moveto of float | `Page of int | `Unit of int ] -> unit) ->
       ?cursor:Tk.cursor ->
       ?elementborderwidth:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?jump:bool ->
       ?orient:Tk.orientation ->
       ?relief:Tk.relief ->
       ?repeatdelay:int ->
       ?repeatinterval:int ->
       ?takefocus:bool -> ?troughcolor:Tk.color -> ?width:int -> 'a
val scale_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?background:Tk.color ->
       ?bigincrement:float ->
       ?borderwidth:int ->
       ?command:(float -> unit) ->
       ?cursor:Tk.cursor ->
       ?digits:int ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?label:string ->
       ?length:int ->
       ?max:float ->
       ?min:float ->
       ?orient:Tk.orientation ->
       ?relief:Tk.relief ->
       ?repeatdelay:int ->
       ?repeatinterval:int ->
       ?resolution:float ->
       ?showvalue:bool ->
       ?sliderlength:int ->
       ?state:Tk.state ->
       ?takefocus:bool ->
       ?tickinterval:float ->
       ?troughcolor:Tk.color ->
       ?variable:Textvariable.textVariable -> ?width:int -> 'a
val radiobutton_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?command:(unit -> unit) ->
       ?cursor:Tk.cursor ->
       ?disabledforeground:Tk.color ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?justify:Tk.justification ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?selectcolor:Tk.color ->
       ?selectimage:[< Tk.image ] ->
       ?state:Tk.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:Tk.anchor ->
       ?bordermode:Tk.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:Tk.paletteType -> ?width:int -> 'a
val pack_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?after:'b Widget.widget ->
       ?anchor:Tk.anchor ->
       ?before:'c Widget.widget ->
       ?expand:bool ->
       ?fill:Tk.fillMode ->
       ?inside:'d Widget.widget ->
       ?ipadx:int -> ?ipady:int -> ?padx:int -> ?pady:int -> ?side:Tk.side -> 'a
val message_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?anchor:Tk.anchor ->
       ?aspect:int ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?justify:Tk.justification ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?takefocus:bool ->
       ?text:string -> ?textvariable:Textvariable.textVariable -> ?width:int -> 'a
val menubutton_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?direction:Tk.menubuttonDirection ->
       ?disabledforeground:Tk.color ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?justify:Tk.justification ->
       ?menu:Widget.menu Widget.widget ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?state:Tk.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:Tk.color ->
       ?activeborderwidth:int ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?disabledforeground:Tk.color ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?postcommand:(unit -> unit) ->
       ?relief:Tk.relief ->
       ?selectcolor:Tk.color ->
       ?takefocus:bool ->
       ?tearoff:bool ->
       ?tearoffcommand:(menu:Widget.any Widget.widget ->
                        tornoff:Widget.any Widget.widget -> unit) ->
       ?title:string -> ?typ:Tk.menuType -> 'a
val menucommand_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?accelerator:string ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?columnbreak:bool ->
       ?command:(unit -> unit) ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?image:[< Tk.image ] ->
       ?label:string -> ?state:Tk.state -> ?underline:int -> 'a
val menucheck_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?accelerator:string ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?columnbreak:bool ->
       ?command:(unit -> unit) ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?label:string ->
       ?offvalue:string ->
       ?onvalue:string ->
       ?selectcolor:Tk.color ->
       ?selectimage:[< Tk.image ] ->
       ?state:Tk.state ->
       ?underline:int -> ?variable:Textvariable.textVariable -> 'a
val menuradio_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?accelerator:string ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?columnbreak:bool ->
       ?command:(unit -> unit) ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?label:string ->
       ?selectcolor:Tk.color ->
       ?selectimage:[< Tk.image ] ->
       ?state:Tk.state ->
       ?underline:int -> ?value:string -> ?variable:Textvariable.textVariable -> 'a
val menucascade_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?accelerator:string ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?columnbreak:bool ->
       ?command:(unit -> unit) ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?hidemargin:bool ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?label:string ->
       ?menu:Widget.menu Widget.widget -> ?state:Tk.state -> ?underline:int -> 'a
val menuentry_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?accelerator:string ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?columnbreak:bool ->
       ?command:(unit -> unit) ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?hidemargin:bool ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?label:string ->
       ?menu:Widget.menu Widget.widget ->
       ?offvalue:string ->
       ?onvalue:string ->
       ?selectcolor:Tk.color ->
       ?selectimage:[< Tk.image ] ->
       ?state:Tk.state ->
       ?underline:int -> ?value:string -> ?variable:Textvariable.textVariable -> 'a
val listbox_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?exportselection:bool ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?relief:Tk.relief ->
       ?selectbackground:Tk.color ->
       ?selectborderwidth:int ->
       ?selectforeground:Tk.color ->
       ?selectmode:Tk.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:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?justify:Tk.justification ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.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:Tk.color ->
       ?borderwidth:int ->
       ?clas:string ->
       ?colormap:Tk.colormap ->
       ?container:bool ->
       ?cursor:Tk.cursor ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?relief:Tk.relief -> ?takefocus:bool -> ?visual:Tk.visual -> ?width:int -> 'a
val font_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?family:string ->
       ?overstrike:bool ->
       ?size:int -> ?slant:Tk.slant -> ?underline:bool -> ?weight:Tk.weight -> 'a
val entry_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?exportselection:bool ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?insertbackground:Tk.color ->
       ?insertborderwidth:int ->
       ?insertofftime:int ->
       ?insertontime:int ->
       ?insertwidth:int ->
       ?justify:Tk.justification ->
       ?relief:Tk.relief ->
       ?selectbackground:Tk.color ->
       ?selectborderwidth:int ->
       ?selectforeground:Tk.color ->
       ?show:char ->
       ?state:Tk.inputState ->
       ?takefocus:bool ->
       ?textvariable:Textvariable.textVariable ->
       ?width:int -> ?xscrollcommand:(first:float -> last:float -> unit) -> 'a
val checkbutton_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?command:(unit -> unit) ->
       ?cursor:Tk.cursor ->
       ?disabledforeground:Tk.color ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?indicatoron:bool ->
       ?justify:Tk.justification ->
       ?offvalue:string ->
       ?onvalue:string ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?selectcolor:Tk.color ->
       ?selectimage:[< Tk.image ] ->
       ?state:Tk.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:Tk.color ->
       ?borderwidth:int ->
       ?closeenough:float ->
       ?confine:bool ->
       ?cursor:Tk.cursor ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?insertbackground:Tk.color ->
       ?insertborderwidth:int ->
       ?insertofftime:int ->
       ?insertontime:int ->
       ?insertwidth:int ->
       ?relief:Tk.relief ->
       ?scrollregion:int * int * int * int ->
       ?selectbackground:Tk.color ->
       ?selectborderwidth:int ->
       ?selectforeground:Tk.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:Tk.anchor ->
       ?dash:string ->
       ?height:int ->
       ?tags:string list -> ?width:int -> ?window:'b Widget.widget -> 'a
val canvastext_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?anchor:Tk.anchor ->
       ?fill:Tk.color ->
       ?font:string ->
       ?justify:Tk.justification ->
       ?state:Tk.canvasTextState ->
       ?stipple:Tk.bitmap -> ?tags:string list -> ?text:string -> ?width:int -> 'a
val rectangle_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?dash:string ->
       ?fill:Tk.color ->
       ?outline:Tk.color ->
       ?stipple:Tk.bitmap -> ?tags:string list -> ?width:int -> 'a
val polygon_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?dash:string ->
       ?fill:Tk.color ->
       ?outline:Tk.color ->
       ?smooth:bool ->
       ?splinesteps:int ->
       ?stipple:Tk.bitmap -> ?tags:string list -> ?width:int -> 'a
val oval_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?dash:string ->
       ?fill:Tk.color ->
       ?outline:Tk.color ->
       ?stipple:Tk.bitmap -> ?tags:string list -> ?width:int -> 'a
val line_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?arrow:Tk.arrowStyle ->
       ?arrowshape:int * int * int ->
       ?capstyle:Tk.capStyle ->
       ?dash:string ->
       ?fill:Tk.color ->
       ?joinstyle:Tk.joinStyle ->
       ?smooth:bool ->
       ?splinesteps:int ->
       ?stipple:Tk.bitmap -> ?tags:string list -> ?width:int -> 'a
val image_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?anchor:Tk.anchor -> ?image:[< Tk.image ] -> ?tags:string list -> 'a
val bitmap_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap -> ?foreground:Tk.color -> ?tags:string list -> 'a
val arc_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?dash:string ->
       ?extent:float ->
       ?fill:Tk.color ->
       ?outline:Tk.color ->
       ?outlinestipple:Tk.bitmap ->
       ?start:float ->
       ?stipple:Tk.bitmap ->
       ?style:Tk.arcStyle -> ?tags:string list -> ?width:int -> 'a
val postscript_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?colormode:Tk.colorMode ->
       ?file:string ->
       ?height:int ->
       ?pageanchor:Tk.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:Tk.color ->
       ?activeforeground:Tk.color ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?command:(unit -> unit) ->
       ?cursor:Tk.cursor ->
       ?default:Tk.state ->
       ?disabledforeground:Tk.color ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?height:int ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?justify:Tk.justification ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?state:Tk.state ->
       ?takefocus:bool ->
       ?text:string ->
       ?textvariable:Textvariable.textVariable ->
       ?underline:int -> ?width:int -> ?wraplength:int -> 'a
val bitmapimage_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?background:Tk.color ->
       ?data:string ->
       ?file:string ->
       ?foreground:Tk.color -> ?maskdata:string -> ?maskfile:string -> 'a
val standard_options_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activeborderwidth:int ->
       ?activeforeground:Tk.color ->
       ?anchor:Tk.anchor ->
       ?background:Tk.color ->
       ?bitmap:Tk.bitmap ->
       ?borderwidth:int ->
       ?cursor:Tk.cursor ->
       ?disabledforeground:Tk.color ->
       ?exportselection:bool ->
       ?font:string ->
       ?foreground:Tk.color ->
       ?geometry:string ->
       ?highlightbackground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?highlightthickness:int ->
       ?image:[< Tk.image ] ->
       ?insertbackground:Tk.color ->
       ?insertborderwidth:int ->
       ?insertofftime:int ->
       ?insertontime:int ->
       ?insertwidth:int ->
       ?jump:bool ->
       ?justify:Tk.justification ->
       ?orient:Tk.orientation ->
       ?padx:int ->
       ?pady:int ->
       ?relief:Tk.relief ->
       ?repeatdelay:int ->
       ?repeatinterval:int ->
       ?selectbackground:Tk.color ->
       ?selectborderwidth:int ->
       ?selectforeground:Tk.color ->
       ?setgrid:bool ->
       ?takefocus:bool ->
       ?text:string ->
       ?textvariable:Textvariable.textVariable ->
       ?troughcolor:Tk.color ->
       ?underline:int ->
       ?wraplength:int ->
       ?xscrollcommand:(first:float -> last:float -> unit) ->
       ?yscrollcommand:(first:float -> last:float -> unit) -> 'a
val cCAMLtoTKsearchSpec : Tk.searchSpec -> Protocol.tkArgs
val cCAMLtoTKcanvasItem : Tk.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 : Tk.fontMetrics -> Protocol.tkArgs
val cCAMLtoTKgrabStatus : Tk.grabStatus -> Protocol.tkArgs
val cTKtoCAMLgrabStatus : string -> [> `Global | `Local | `None ]
val cCAMLtoTKmenuItem : Tk.menuItem -> Protocol.tkArgs
val cTKtoCAMLmenuItem : string ->
       [> `Cascade | `Checkbutton | `Command | `Radiobutton | `Separator | `Tearoff ]
val cCAMLtoTKoptionPriority : Tk.optionPriority -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_palettetroughcolor : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteforegroundselectcolor : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteselectbackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteselectcolor : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteinsertbackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_palettehighlightcolor : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_palettehighlightbackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteforeground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_palettedisabledforeground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_palettebackground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteactiveforeground : Tk.color -> Protocol.tkArgs
val ccCAMLtoTKtkPalette_paletteactivebackground : Tk.color -> Protocol.tkArgs
val any_tkPalette_optionals : (Protocol.tkArgs list -> 'a) ->
       ?activebackground:Tk.color ->
       ?activeforeground:Tk.color ->
       ?background:Tk.color ->
       ?disabledforeground:Tk.color ->
       ?foreground:Tk.color ->
       ?highlightcolor:Tk.color ->
       ?hilightbackground:Tk.color ->
       ?insertbackground:Tk.color ->
       ?selectbackground:Tk.color ->
       ?selectcolor:Tk.color ->
       ?selectforeground:Tk.color -> ?troughcolor:Tk.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 : Tk.scaleElement -> Protocol.tkArgs
val cTKtoCAMLscaleElement : string -> [> `Beyond | `Slider | `Trough1 | `Trough2 ]
val cCAMLtoTKscrollbarElement : Tk.scrollbarElement -> Protocol.tkArgs
val cTKtoCAMLscrollbarElement : string -> [> `Arrow1 | `Arrow2 | `Beyond | `Slider | `Through1 | `Through2 ]
val cCAMLtoTKsendOption : Tk.sendOption -> Protocol.tkArgs
val cCAMLtoTKcomparison : Tk.comparison -> Protocol.tkArgs
val cCAMLtoTKmarkDirection : Tk.markDirection -> Protocol.tkArgs
val cTKtoCAMLmarkDirection : string -> [> `Left | `Right ]
val cCAMLtoTKtextSearch : Tk.textSearch -> Protocol.tkArgs
val cCAMLtoTKtext_dump : 'a Widget.widget -> Tk.text_dump -> Protocol.tkArgs
val cCAMLtoTKatomId : Tk.atomId -> Protocol.tkArgs
val cTKtoCAMLatomId : string -> [> `AtomId of int ]
val cCAMLtoTKfocusModel : Tk.focusModel -> Protocol.tkArgs
val cTKtoCAMLfocusModel : string -> [> `Active | `Passive ]
val cCAMLtoTKwmFrom : Tk.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