v := RTView new.
fiveCircles := RTEllipse new size: [ :e | 40 atRandom + 5 ]; elementsOn: (1 to: 5).
fiveBoxes := RTBox new size: [ :e | 40 atRandom + 5 ]; elementsOn: (1 to: 5).
v addAll: fiveCircles; addAll: fiveBoxes.
v elements do: [ :element | element translateTo: (200 atRandom @ 200 atRandom) ].
v addMenu: 'Red' callback: [ v canvas shapes do: [ :aTrachelShape | aTrachelShape color: Color red ]. v canvas signalUpdate ].
v addMenu: 'Blue' callback: [ v canvas shapes do: [ :aTrachelShape | aTrachelShape color: Color blue ]. v canvas signalUpdate ].
v