GLMCompositePresentation new
with: [ :c |
c roassal2
painting: [ :v :roassal2Presentation :entity |
v addAll: ((RTEllipse new color: Color purple; size: 10)
elementsOn: entity withAllSubclasses) @ RTDraggable.
RTEdge
buildEdgesFromObjects: entity withAllSubclasses
from: #superclass
to: #yourself
inView: v.
RTClusterLayout on: v elements edges: v edges.
v edges do: [ :e | e trachelShape pushBack ] ] ];
openOn: Collection
It's also integrated in GTInspector. For example, just inspect:
| v |
v := RTView new.
v addAll: ((RTEllipse new color: Color purple)
elementsOn: Collection withAllSubclasses).
RTEdge
buildEdgesFromObjects: Collection withAllSubclasses
from: #superclass
to: #yourself
inView: v.
RTClusterLayout on: v elements edges: v edges.
v edges do: [ :e | e trachelShape pushBack ].
v
(see attachment)
Cheers,
Doru
"Every thing has its own flow"