2016-04-02 16:56 GMT+02:00 stepharo <stepharo@free.fr>:
Hi

I want a square morph with a circle or a line at 45 degree inside
Now I do not get it.

I thought that I needed to specialize drawOnAthensCanvas: so I did

BlCell >> drawOnAthensCanvas: aCanvas

�� �� super drawOnAthensCanvas: aCanvas.
�� �� aCanvas
�� �� �� �� drawShape: (BlShape new
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� strokePaint:
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ��(BlStrokePaint new
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� paint: (BlColorPaint new color: (Color blue));
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� width: 15);
�� �� �� �� �� �� �� �� �� �� �� �� �� �� path: BlCirclePath new).

Can it be implemented by special kind of BiPath? it will draw rectangle and circle inside.