sig
  val cast : 'a Gobject.obj -> Gtk.text_mark
  val create : [ `textmark ] Gobject.param list -> Gtk.text_mark
  external set_visible : [> `textmark ] Gtk.obj -> bool -> unit
    = "ml_gtk_text_mark_set_visible"
  external get_visible : [> `textmark ] Gtk.obj -> bool
    = "ml_gtk_text_mark_get_visible"
  external get_deleted : [> `textmark ] Gtk.obj -> bool
    = "ml_gtk_text_mark_get_deleted"
  external get_name : [> `textmark ] Gtk.obj -> string option
    = "ml_gtk_text_mark_get_name"
  external get_buffer : [> `textmark ] Gtk.obj -> Gtk.text_buffer option
    = "ml_gtk_text_mark_get_buffer"
  external get_left_gravity : [> `textmark ] Gtk.obj -> bool
    = "ml_gtk_text_mark_get_left_gravity"
end