sig
  val cast : '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) ->
    'Gobject.param list -> ?color:Gdk.color -> ?title:string -> 'b
end