Hi!

Here is a new example:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
v := RTView new.
shape := RTMultiCompositeShape new.
shape add: RTLabel new.
shape add: RTBox new.
es := shape elementsOn: RTShape withAllSubclasses.

v addAll: es.

RTNest new
for: es
inShape: #second
add: [ :group :model |
group addAll: ((RTBox new color: Color blue) elementsOn: model methods).
RTGridLayout on: group.
].

RTFlowLayout new on: es.
es @ RTPopup @ RTDraggable.
v open

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

The last release of Roassal2 should address the comments of Leo and Doru I think…

Alexandre

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.