Hi Leonel,

Currently, a roassal element is not composed. So, this means you need to all the elements to the view, and then define the nesting.��

From your script, you do not gain much by directly talking to Roassal. You should better use a builder, such as Mondrian.

I think your script can be:

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

packages := { 'Roassal2GT' . 'Trachel' } collect: [ :name | RPackageOrganizer default packageNamed:��name ].
b := RTMondrian new.
b nodes: packages forEach: [ :pak |
b nodes: pak classes forEach: [ :cls |
b nodes: cls methods.
b layout grid ].
b layout grid ].
b
-=-=-=-=-=-=-=-=

Here is a version of what you try to do using plain Roassal:

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

"Packages to visualize"
packages := { 'Roassal2GT' . 'Trachel' } collect: [ :name | RPackageOrganizer default packageNamed:��name ].

palette := RTPalette c10.

v := RTView new.

packagesElements := (RTBox new color: palette first) elementsOn: packages.
v addAll: packagesElements.
packagesElements @ RTPopup.

packagesElements do: [ :pakEl |
clsElements := (RTBox new color: palette second) elementsOn: pakEl model classes.
v addAll: clsElements.

clsElements do: [ :clsEl |
mtdElements := (RTBox new color: palette third) elementsOn: clsEl model methods.
v addAll: mtdElements.
mtdElements @ RTPopup.
RTGridLayout on: mtdElements.
RTNest new��
on: clsEl nest: mtdElements.
].
RTGridLayout on: clsElements.
RTNest new��
on: pakEl nest: clsElements.
clsElements @ RTPopup.
].
RTGridLayout on: packagesElements.
v

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

With the colors:

Cheers,

Alexandre

On Dec 8, 2015, at 1:35 PM, Leonel Merino <merino@iam.unibe.ch> wrote:

Hi all,

I want to visualise three nested levels of a model. I am not sure if I am doing it right, since I had to add a reference to the view��to the nested elements��manually to make it work. The problem I face now is that elements in the deepest level do not react to interactions. In the example below, popup is only shown for the elements in the first two levels.

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

v := RTView new.
es := (RTBox new
color: Color white;
borderColor: Color lightGray)
elementsOn: (Array with: RTLayout with: RTShape with: RTBuilder).
v addAll: es.
es @ RTPopup.
RTNest new
for: es
add:
[ :group :model |��
elements := (RTBox new color: (Color red alpha: 0.1)) elementsOn: model withAllSubclasses.
group addAll: elements.
elements @ RTPopup.
elements do: [ :e | e view: v ].
RTNest new
for: elements
add:
[ :group2 :model2 |��
els := (RTBox new color: Color blue) elementsOn: model2 methods.
group2 addAll: els.
els @ RTPopup.
RTTreeLayout on: els edges: edges ].
RTGridLayout on: elements ].
RTGridLayout on: es.
v
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Any hint would be much appreciated.

Best regards,
Leonel

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