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