`sig
val cast : 'a Gobject.obj -> Gtk.button Gtk.obj
module P :
sig
val focus_on_click : ([> `button ], bool) Gobject.property
val image : ([> `button ], Gtk.widget Gtk.obj) Gobject.property
val image_position :
([> `button ], GtkEnums.position_type) Gobject.property
val label : ([> `button ], string) Gobject.property
val use_stock : ([> `button ], bool) Gobject.property
val use_underline : ([> `button ], bool) Gobject.property
val relief : ([> `button ], GtkEnums.relief_style) Gobject.property
val xalign : ([> `button ], float) Gobject.property
val yalign : ([> `button ], float) Gobject.property
end
module S :
sig
val activate : ([> `button ], unit -> unit) GtkSignal.t
val clicked : ([> `button ], unit -> unit) GtkSignal.t
val enter : ([> `button ], unit -> unit) GtkSignal.t
val leave : ([> `button ], unit -> unit) GtkSignal.t
val pressed : ([> `button ], unit -> unit) GtkSignal.t
val released : ([> `button ], unit -> unit) GtkSignal.t
end
val create : Gtk.button Gobject.param list -> Gtk.button Gtk.obj
val make_params :
cont:(([> `button ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list ->
?label:string ->
?use_stock:bool ->
?use_underline:bool -> ?relief:GtkEnums.relief_style -> 'b
val make_params :
cont:(([> `button ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list ->
?label:string ->
?use_mnemonic:bool ->
?stock:GtkStock.id -> ?relief:GtkEnums.relief_style -> 'b
external pressed : [> `button ] Gtk.obj -> unit = "ml_gtk_button_pressed"
external released : [> `button ] Gtk.obj -> unit = "ml_gtk_button_released"
external clicked : [> `button ] Gtk.obj -> unit = "ml_gtk_button_clicked"
external enter : [> `button ] Gtk.obj -> unit = "ml_gtk_button_enter"
external leave : [> `button ] Gtk.obj -> unit = "ml_gtk_button_leave"
end`