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