`sig
val cast : 'a Gobject.obj -> Gtk.color_selection Gtk.obj
module P :
sig
val current_alpha : ([> `colorselection ], int) Gobject.property
val current_color : ([> `colorselection ], Gdk.color) Gobject.property
val has_opacity_control : ([> `colorselection ], bool) Gobject.property
val has_palette : ([> `colorselection ], bool) Gobject.property
end
module S :
sig
val color_changed : ([> `colorselection ], unit -> unit) GtkSignal.t
end
val create :
Gtk.color_selection Gobject.param list -> Gtk.color_selection Gtk.obj
val make_params :
cont:(([> `colorselection ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list ->
?alpha:int ->
?color:Gdk.color -> ?has_opacity_control:bool -> ?has_palette:bool -> 'b
end`