GnomeCanvas.canvas Gtk.obj -> ('a, 'b, 'c) DGraphModel.abstract_model -> GMisc.label -> ['a, 'b, 'c] DGraphView.view