module Text: sig .. end
The text widget
val create : ?name:string ->
?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 Widget.widget -> Widget.text Widget.widget
create ?name parent options... creates a new widget with
parent parent and new patch component name, if specified.
val bbox : Widget.text Widget.widget -> index:Tk.textIndex -> int * int * int * int
val compare : Widget.text Widget.widget ->
index:Tk.textIndex -> op:Tk.comparison -> index:Tk.textIndex -> bool
val configure : ?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) ->
Widget.text Widget.widget -> unit
val configure_get : Widget.text Widget.widget -> string
val debug : Widget.text Widget.widget -> bool -> unit
val delete : Widget.text Widget.widget -> start:Tk.textIndex -> stop:Tk.textIndex -> unit
val delete_char : Widget.text Widget.widget -> index:Tk.textIndex -> unit
val dlineinfo : Widget.text Widget.widget ->
index:Tk.textIndex -> int * int * int * int * int
val dump : Widget.text Widget.widget ->
Tk.text_dump list -> start:Tk.textIndex -> stop:Tk.textIndex -> string list
val dump_char : Widget.text Widget.widget ->
Tk.text_dump list -> index:Tk.textIndex -> string list
val get : Widget.text Widget.widget ->
start:Tk.textIndex -> stop:Tk.textIndex -> string
val get_char : Widget.text Widget.widget -> index:Tk.textIndex -> string
val image_configure : name:string ->
?align:Tk.alignType ->
?image:[< Tk.image ] ->
?name:string -> ?padx:int -> ?pady:int -> Widget.text Widget.widget -> unit
val image_configure_get : Widget.text Widget.widget -> name:string -> string
val image_create : index:Tk.textIndex ->
?align:Tk.alignType ->
?image:[< Tk.image ] ->
?name:string -> ?padx:int -> ?pady:int -> Widget.text Widget.widget -> string
val image_names : Widget.text Widget.widget -> string list
val index : Widget.text Widget.widget ->
index:Tk.textIndex -> [> `Linechar of int * int ]
val insert : index:Tk.textIndex ->
text:string -> ?tags:Tk.textTag list -> Widget.text Widget.widget -> unit
val mark_gravity_get : Widget.text Widget.widget -> mark:Tk.textMark -> Tk.markDirection
val mark_gravity_set : Widget.text Widget.widget ->
mark:Tk.textMark -> direction:Tk.markDirection -> unit
val mark_names : Widget.text Widget.widget -> Tk.textMark list
val mark_next : Widget.text Widget.widget -> index:Tk.textIndex -> Tk.textMark
val mark_previous : Widget.text Widget.widget -> index:Tk.textIndex -> Tk.textMark
val mark_set : Widget.text Widget.widget -> mark:Tk.textMark -> index:Tk.textIndex -> unit
val mark_unset : Widget.text Widget.widget -> marks:Tk.textMark list -> unit
val scan_dragto : Widget.text Widget.widget -> x:int -> y:int -> unit
val scan_mark : Widget.text Widget.widget -> x:int -> y:int -> unit
val search : switches:Tk.textSearch list ->
pattern:string ->
start:Tk.textIndex ->
?stop:Tk.textIndex ->
Widget.text Widget.widget -> [> `Linechar of int * int ]
val see : Widget.text Widget.widget -> index:Tk.textIndex -> unit
val tag_add : Widget.text Widget.widget ->
tag:Tk.textTag -> start:Tk.textIndex -> stop:Tk.textIndex -> unit
val tag_add_char : Widget.text Widget.widget -> tag:Tk.textTag -> index:Tk.textIndex -> unit
val tag_configure : tag:Tk.textTag ->
?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 -> Widget.text Widget.widget -> unit
val tag_delete : Widget.text Widget.widget -> Tk.textTag list -> unit
val tag_lower : tag:Tk.textTag -> ?below:Tk.textTag -> Widget.text Widget.widget -> unit
val tag_names : ?index:Tk.textIndex -> Widget.text Widget.widget -> Tk.textTag list
: tag:Tk.textTag ->
start:Tk.textIndex ->
?stop:Tk.textIndex ->
Widget.text Widget.widget ->
[> `Linechar of int * int ] * [> `Linechar of int * int ]
val tag_prevrange : tag:Tk.textTag ->
start:Tk.textIndex ->
?stop:Tk.textIndex ->
Widget.text Widget.widget ->
[> `Linechar of int * int ] * [> `Linechar of int * int ]
val tag_raise : tag:Tk.textTag -> ?above:Tk.textTag -> Widget.text Widget.widget -> unit
val tag_ranges : Widget.text Widget.widget ->
tag:Tk.textTag -> [> `Linechar of int * int ] list
val tag_remove : Widget.text Widget.widget ->
tag:Tk.textTag -> start:Tk.textIndex -> stop:Tk.textIndex -> unit
val tag_remove_char : Widget.text Widget.widget -> tag:Tk.textTag -> index:Tk.textIndex -> unit
val window_configure : tag:Tk.textTag ->
?align:Tk.alignType ->
?padx:int ->
?pady:int ->
?stretch:bool ->
?window:'a Widget.widget -> Widget.text Widget.widget -> unit
val window_create : index:Tk.textIndex ->
?align:Tk.alignType ->
?padx:int ->
?pady:int ->
?stretch:bool ->
?window:'a Widget.widget -> Widget.text Widget.widget -> unit
val window_names : Widget.text Widget.widget -> Widget.any Widget.widget list
val xview : Widget.text Widget.widget -> scroll:Tk.scrollValue -> unit
val xview_get : Widget.text Widget.widget -> float * float
val yview : Widget.text Widget.widget -> scroll:Tk.scrollValue -> unit
val yview_get : Widget.text Widget.widget -> float * float
val yview_index : Widget.text Widget.widget -> index:Tk.textIndex -> unit
val yview_index_pickplace : Widget.text Widget.widget -> index:Tk.textIndex -> unit
val yview_line : Widget.text Widget.widget -> line:int -> unit
val tag_bind : tag:string ->
events:Tk.event list ->
?extend:bool ->
?breakable:bool ->
?fields:Tk.eventField list ->
?action:(Tk.eventInfo -> unit) -> Widget.text Widget.widget -> unit