sig
  val cast : 'a Gobject.obj -> Gtk.drawing_area Gtk.obj
  val create :
    Gtk.drawing_area Gobject.param list -> Gtk.drawing_area Gtk.obj
  external size :
    [> `drawingarea ] Gtk.obj -> width:int -> height:int -> unit
    = "ml_gtk_drawing_area_size"
end