You don't want to draw a shape, you configure it. Shape can not be drawn, it is not an AthensPath.

cell shape: (BlShape new
�� path: BlCirclePath new;
�� strokePaint: (BlStrokePaint new
�� paint: Color blue;
�� width: 1)).
cell extent: 50@50.

On Apr 2, 2016 4:57 PM, "stepharo" <stepharo@free.fr> wrote:

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).

Now I do not know how I can specify a shape size

So I will use another API than drawShape:

Stef