labltk 8.06.13 · OCaml Package

val create : 
  ?name:string ->
  ?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 Widget.widget ->
  Widget.canvas Widget.widget

val addtag : 
  Widget.canvas Widget.widget ->
  tag:string ->
  specs:Tk.searchSpec list ->
  unit

val bbox : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId list ->
  int * int * int * int

val canvasx : x:int -> ?spacing:int -> Widget.canvas Widget.widget -> float

val canvasy : y:int -> ?spacing:int -> Widget.canvas Widget.widget -> float

val configure : 
  ?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 ->
  Widget.canvas Widget.widget ->
  unit

val configure_arc : 
  ?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 ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_bitmap : 
  ?anchor:Tk.anchor ->
  ?background:Tk.color ->
  ?bitmap:Tk.bitmap ->
  ?foreground:Tk.color ->
  ?tags:string list ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_get : Widget.canvas Widget.widget -> string

val configure_image : 
  ?anchor:Tk.anchor ->
  ?image:[< Tk.image ] ->
  ?tags:string list ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_line : 
  ?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 ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_oval : 
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_polygon : 
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?smooth:bool ->
  ?splinesteps:int ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_rectangle : 
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_text : 
  ?anchor:Tk.anchor ->
  ?fill:Tk.color ->
  ?font:string ->
  ?justify:Tk.justification ->
  ?state:Tk.canvasTextState ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?text:string ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val configure_window : 
  ?anchor:Tk.anchor ->
  ?dash:string ->
  ?height:int ->
  ?tags:string list ->
  ?width:int ->
  ?window:'a Widget.widget ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val coords_get : Widget.canvas Widget.widget -> Tk.tagOrId -> float list

val coords_set : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  xys:(int * int) list ->
  unit

val create_arc : 
  x1:int ->
  y1:int ->
  x2:int ->
  y2:int ->
  ?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 ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_bitmap : 
  x:int ->
  y:int ->
  ?anchor:Tk.anchor ->
  ?background:Tk.color ->
  ?bitmap:Tk.bitmap ->
  ?foreground:Tk.color ->
  ?tags:string list ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_image : 
  x:int ->
  y:int ->
  ?anchor:Tk.anchor ->
  ?image:[< Tk.image ] ->
  ?tags:string list ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_line : 
  xys:(int * int) list ->
  ?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 ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_oval : 
  x1:int ->
  y1:int ->
  x2:int ->
  y2:int ->
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_polygon : 
  xys:(int * int) list ->
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?smooth:bool ->
  ?splinesteps:int ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_rectangle : 
  x1:int ->
  y1:int ->
  x2:int ->
  y2:int ->
  ?dash:string ->
  ?fill:Tk.color ->
  ?outline:Tk.color ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_text : 
  x:int ->
  y:int ->
  ?anchor:Tk.anchor ->
  ?fill:Tk.color ->
  ?font:string ->
  ?justify:Tk.justification ->
  ?state:Tk.canvasTextState ->
  ?stipple:Tk.bitmap ->
  ?tags:string list ->
  ?text:string ->
  ?width:int ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val create_window : 
  x:int ->
  y:int ->
  ?anchor:Tk.anchor ->
  ?dash:string ->
  ?height:int ->
  ?tags:string list ->
  ?width:int ->
  ?window:'a Widget.widget ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId

val dchars : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  first:Tk.canvas_index ->
  last:Tk.canvas_index ->
  unit

val delete : Widget.canvas Widget.widget -> Tk.tagOrId list -> unit

val dtag : Widget.canvas Widget.widget -> Tk.tagOrId -> tag:string -> unit

val find : 
  Widget.canvas Widget.widget ->
  specs:Tk.searchSpec list ->
  Tk.tagOrId list

val focus : Widget.canvas Widget.widget -> Tk.tagOrId -> unit

val focus_get : Widget.canvas Widget.widget -> Tk.tagOrId

val focus_reset : Widget.canvas Widget.widget -> unit

val gettags : Widget.canvas Widget.widget -> Tk.tagOrId -> string list

val icursor : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  index:Tk.canvas_index ->
  unit

val index : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  index:Tk.canvas_index ->
  int

val insert : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  before:Tk.canvas_index ->
  text:string ->
  unit

val itemconfigure_get : Widget.canvas Widget.widget -> Tk.tagOrId -> string

val lower : 
  ?below:Tk.tagOrId ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val move : Widget.canvas Widget.widget -> Tk.tagOrId -> x:int -> y:int -> unit

val postscript : 
  ?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 ->
  Widget.canvas Widget.widget ->
  string

val raise : 
  ?above:Tk.tagOrId ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

val scale : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  xorigin:int ->
  yorigin:int ->
  xscale:float ->
  yscale:float ->
  unit

val scan_dragto : Widget.canvas Widget.widget -> x:int -> y:int -> unit

val scan_mark : Widget.canvas Widget.widget -> x:int -> y:int -> unit

val select_adjust : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  index:Tk.canvas_index ->
  unit

val select_clear : Widget.canvas Widget.widget -> unit

val select_from : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  index:Tk.canvas_index ->
  unit

val select_item : Widget.canvas Widget.widget -> Tk.tagOrId

val select_to : 
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  index:Tk.canvas_index ->
  unit

val typeof : Widget.canvas Widget.widget -> Tk.tagOrId -> Tk.canvasItem

val xview : Widget.canvas Widget.widget -> scroll:Tk.scrollValue -> unit

val xview_get : Widget.canvas Widget.widget -> float * float

val yview : Widget.canvas Widget.widget -> scroll:Tk.scrollValue -> unit

val yview_get : Widget.canvas Widget.widget -> float * float

val bind : 
  events:Tk.event list ->
  ?extend:bool ->
  ?breakable:bool ->
  ?fields:Tk.eventField list ->
  ?action:(Tk.eventInfo -> unit) ->
  Widget.canvas Widget.widget ->
  Tk.tagOrId ->
  unit

package labltk