| visualization |
visualization := TLTreeExplorer new
root: Collection;
property: #subclasses;
yourself.
visualization nodeBuilder shapeBuilder: TLEllipseShapeBuilder new.
visualization nodeBuilder nodeLabel: #name position: #inside.
visualization nodeBuilder addInteraction: TLNodeBasicInteraction popup.
visualization nodeBuilder addInteraction: TLNodeBasicInteraction draggable.
visualization open
In this visualization, click on the blue circle to expand the node and the red to collapse it.
In the class TLDemos you can find others examples to understand how it works.
--
Cheers,
Leo Perard
University of Lille 1