29 Apr
2014
29 Apr
'14
10:36 a.m.
On Tue, Apr 29, 2014 at 2:24 AM, Alexandre Bergel alexandre.bergel@me.comwrote:
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
Ok cool I will do it like that
--
Cheers,
Leo Perard
University of Lille 1