sig
  val cast : '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) ->
    '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