sig
  val cast : 'Gobject.obj -> Gtk.bin Gtk.obj
  external get_child : [> `bin ] Gtk.obj -> Gtk.widget Gtk.obj
    = "ml_gtk_bin_get_child"
end