sig
  val cast : 'a Gobject.obj -> [ `gtk ] Gobject.obj
  external _ref_and_sink : [> `gtk ] Gobject.obj -> unit
    = "ml_gtk_object_ref_and_sink"
  val make :
    classe:string -> ([> `gtk ] as 'a) Gobject.param list -> 'a Gobject.obj
end