I found 2 bugs when I tried to change color of one of the shape in the RTCompositeShape
view := RTView new.
el := (RTCompositeShape new
shape1: RTBox new;
shape2: RTLabel new)
elementOn: 'Element'.
view add: el.
view canvas addMenu: 'Color' callback: [ el shape shape1 color: Color red. el update. view canvas signalUpdate ].
view open
The color of the box is changed but it does not have the good size anymore.
The second one is with one of the shape is a RTCompositeShape itself
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 shape shape2 color: Color red. el update. view canvas signalUpdate ].
view open
Raise an error :
RTCompositeShape>>#updateFor:trachelShape: is missing