sig
  val cast : 'a Gobject.obj -> Gtk.text_tag_table
  module S :
    sig
      val tag_added : ([> `texttagtable ], Gtk.text_tag -> unit) GtkSignal.t
      val tag_changed :
        ([> `texttagtable ], Gtk.text_tag -> size:bool -> unit) GtkSignal.t
      val tag_removed :
        ([> `texttagtable ], Gtk.text_tag -> unit) GtkSignal.t
    end
  val create : [ `texttagtable ] Gobject.param list -> Gtk.text_tag_table
  external add : [> `texttagtable ] Gtk.obj -> Gtk.text_tag -> unit
    = "ml_gtk_text_tag_table_add"
  external remove : [> `texttagtable ] Gtk.obj -> Gtk.text_tag -> unit
    = "ml_gtk_text_tag_table_remove"
  external lookup :
    [> `texttagtable ] Gtk.obj -> string -> Gtk.text_tag option
    = "ml_gtk_text_tag_table_lookup"
  external get_size : [> `texttagtable ] Gtk.obj -> int
    = "ml_gtk_text_tag_table_get_size"
end