sig
  val cast : 'a Gobject.obj -> Gtk.event_box Gtk.obj
  val create : Gtk.event_box Gobject.param list -> Gtk.event_box Gtk.obj
end