`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`