module TextTag:sig..end
val cast : 'a Gobject.obj -> Gtk.text_tagmodule P:sig..end
module S:sig..end
val create : ?name:string -> [ `texttag ] Gobject.param list -> Gtk.text_tagval get_priority : [> `texttag ] Gtk.obj -> intval set_priority : [> `texttag ] Gtk.obj -> int -> unitval event : [> `texttag ] Gtk.obj -> 'a Gtk.obj -> 'b Gdk.event -> Gtk.text_iter -> bool