sig val cast : 'a Gobject.obj -> Gtk.bin Gtk.obj end