13 Feb
2014
13 Feb
'14
3:31 p.m.
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(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.