`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
val try_cast : 'a Gobject.obj -> string -> 'b Gobject.obj
external destroy : [> `gtk ] Gtk.obj -> unit = "ml_gtk_object_destroy"
external get_flags : [> `gtk ] Gtk.obj -> int = "ml_GTK_OBJECT_FLAGS"
val get_flag : [> `gtk ] Gtk.obj -> GtkEnums.widget_flags -> bool
module S : sig val destroy : ([> `gtk ], unit -> unit) GtkSignal.t end
end`