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)
[image: Inline image 1]
Cheers, Doru
-- www.tudorgirba.com
"Every thing has its own flow"
