view := RTView new.
el := (RTHorizontalCompositeShape new
        shape1: (RTCompositeShape new shape1: RTBox new; shape2: RTLabel new);
        shape2: (RTEllipse new size: 10; color: Color blue))
        elementOn: 'Element'.
view add: el.

view canvas addMenu: 'Color' callback: [ el trachelShape shape2 color: Color red. view signalUpdate ].
view open