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