([> `gtk ] as 'a) Gtk.obj ->
object
  val obj : 'a Gtk.obj
  method destroy : unit -> unit
  method get_oid : int
end