##ifdef CAMLTK
val tag_bind:
widget -> textTag -> (modifier list * xEvent) list -> bindAction -> unit
##else
val tag_bind :
tag: string -> events: event list ->
?extend: bool -> ?breakable: bool -> ?fields: eventField list ->
?action: (eventInfo -> unit) -> text widget -> unit
##endif