`sig
val cast : 'a Gobject.obj -> Gtk.label Gtk.obj
module P :
sig
val label : ([> `label ], string) Gobject.property
val use_markup : ([> `label ], bool) Gobject.property
val use_underline : ([> `label ], bool) Gobject.property
val mnemonic_keyval : ([> `label ], int) Gobject.property
val mnemonic_widget :
([> `label ], Gtk.widget Gtk.obj option) Gobject.property
val justify : ([> `label ], GtkEnums.justification) Gobject.property
val wrap : ([> `label ], bool) Gobject.property
val pattern : ([> `label ], string) Gobject.property
val selectable : ([> `label ], bool) Gobject.property
val cursor_position : ([> `label ], int) Gobject.property
val selection_bound : ([> `label ], int) Gobject.property
val angle : ([> `label ], float) Gobject.property
val ellipsize :
([> `label ], PangoEnums.ellipsize_mode) Gobject.property
val max_width_chars : ([> `label ], int) Gobject.property
val single_line_mode : ([> `label ], bool) Gobject.property
val width_chars : ([> `label ], int) Gobject.property
end
module S :
sig
val copy_clipboard : ([> `label ], unit -> unit) GtkSignal.t
val move_cursor :
([> `label ], GtkEnums.movement_step -> int -> bool -> unit)
GtkSignal.t
val populate_popup :
([> `label ], Gtk.menu Gtk.obj -> unit) GtkSignal.t
end
val create : Gtk.label Gobject.param list -> Gtk.label Gtk.obj
external get_text : [> `label ] Gtk.obj -> string = "ml_gtk_label_get_text"
external set_text : [> `label ] Gtk.obj -> string -> unit
= "ml_gtk_label_set_text"
external select_region : [> `label ] Gtk.obj -> int -> int -> unit
= "ml_gtk_label_select_region"
external get_selection_bounds : [> `label ] Gtk.obj -> (int * int) option
= "ml_gtk_label_get_selection_bounds"
val make_params :
cont:(([> `label ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list ->
?label:string ->
?use_markup:bool ->
?use_underline:bool ->
?mnemonic_widget:Gtk.widget Gtk.obj ->
?justify:GtkEnums.justification ->
?line_wrap:bool ->
?pattern:string ->
?selectable:bool -> ?ellipsize:PangoEnums.ellipsize_mode -> 'b
end`