`sig
val cast : 'a Gobject.obj -> Gtk.color_button Gtk.obj
module P :
sig
val alpha : ([> `colorbutton ], int) Gobject.property
val color : ([> `colorbutton ], Gdk.color) Gobject.property
val title : ([> `colorbutton ], string) Gobject.property
val use_alpha : ([> `colorbutton ], bool) Gobject.property
end
module S :
sig val color_set : ([> `colorbutton ], unit -> unit) GtkSignal.t end
val create :
Gtk.color_button Gobject.param list -> Gtk.color_button Gtk.obj
val make_params :
cont:(([> `colorbutton ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list -> ?color:Gdk.color -> ?title:string -> 'b
end`