Hi,
I added last night a first version of an integration of Roassal2 into Glamour.
For example, try:
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)
[image: Inline image 1]
Cheers, Doru
