I would like to have the default canvas color to be white.

Alex, do you have anything against that?

Doru


On Thu, Feb 13, 2014 at 2:00 PM, Tudor Girba <tudor@tudorgirba.com> wrote:
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)

Inline image 1

Cheers,
Doru

--

"Every thing has its own flow"



--
www.tudorgirba.com

"Every thing has its own flow"