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)

Cheers,

Doru

--

www.tudorgirba.com

"Every thing has its own flow"