class type shape = object .. end
object
end
GnoCanvas.base_item
val obj : GnomeCanvas.item Gtk.obj
GnomeCanvas.item Gtk.obj
method set : shape_p list -> unit
shape_p list -> unit
method undo : unit -> unit
unit -> unit