Excellent!!!!!! Just in time for the big demo I will do in a couple of hours!!!
Alexandre
On Feb 13, 2014, at 5:00 AM, 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)
<Playground-roassal2.png>
Cheers, Doru
-- www.tudorgirba.com
"Every thing has its own flow" _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev