[Moose-dev] Roassal2: new RTMenuBuilder

Hi everyone, I changed the RTMenuBuilder in Roassal2, especially it's behavior, default colors and added more features as the definition of the highlight color. I also changed a bit the architecture but could still be a lot improved. We can also add a lot of different features to really specify the look of the menu using the builder so let me know if you have any ideas, comments. You can have a look with the example 06: -=-=-=-=-=-=-=-=-=-=-=-=-=-= | v b | v := RTView new. b := RTMenuBuilder new view: v. b menu: 'add' submenu: '10' callback: [ | es | es := (RTLabel new color: [ :tt| Color random ]) elementsOn: (1 to: 10). es do: [ :e | e translateTo: ((500 atRandom @ 500 atRandom) - (250 @ 250)) ]. v addAll: es. v canvas signalUpdate ]. b menu: 'add' submenu: '20' callback: [ | es | es := (RTLabel new color: [ :tt| Color random ]) elementsOn: (1 to: 20). es do: [ :e | e translateTo: ((500 atRandom @ 500 atRandom) - (250 @ 250)) ]. v addAll: es. v canvas signalUpdate ]. b menu: 'remove' submenu: 'odd' background: (Color blue alpha:0.3) callback: [ (v elements select: [ :e | e model odd ]) do: #remove. v canvas signalUpdate ]. b menu: 'remove' submenu: 'even' background: Color red callback: [ (v elements select: [ :e | e model even ]) do: #remove. v canvas signalUpdate ]. b menu: 'shuffle' highlight: Color lightBlue callback: [ | tra | tra := RTSmoothLayoutTranslator new. tra nbCycles: 0.5. (v elements do: [ :e | tra translate: e to: ((500 atRandom @ 500 atRandom) - (250 @ 250)) ]) ]. v open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= sincerely yours, Pierre Chanson