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