Hi!
Wrong usage of RTGroup :-)
You need to have "view addAll: group.” and _not_ “view add: group”
Maybe you want to add a signalUpdate in the callback.
Your script should be:
-=-=-=-=-=-=-=-=-=-=-=-=
| view |
view := RTView new.
menuBuilder := RTMenuBuilder new view: view.
menuBuilder menu: 'Click Me' background: Color gray callback: [
view clean.
view signalUpdate
].
group := RTGroup new.
(1 to: 10) do: [:each| group add: ((RTBox new borderColor: (Color green); elementOn:each)
@ RTDraggable;
+(RTLabel new color: (Color red);
text: each asString; yourself))].
view addAll: group.
RTVerticalLineLayout on: view elements.
view open.
-=-=-=-=-=-=-=-=-=-=-=-=
Cheers,
Alexandre
On Jun 6, 2014, at 7:05 PM, Usman Bhatti <usman.bhatti(a)gmail.com> wrote:
Hi,
When removing grouped nodes from RTView, we get the red box. Try this script:
view := RTView new.
menuBuilder := RTMenuBuilder new view: view.
menuBuilder menu: 'Click Me' background: Color gray callback: [
view clean.
].
group := RTGroup new.
(1 to: 10) do: [:each| group add: ((RTBox new borderColor: (Color green); elementOn:each)
@ RTDraggable;
+(RTLabel new color: (Color red);
text: each asString; yourself))].
view add: group.
RTVerticalLineLayout on: view elements.
view open.
Is it a bug or does it occur because of the wrong usage of RTGroup?
Usman
_______________________________________________
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.