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@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@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev