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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.