Le 2/4/16 17:31, Aliaksei Syrel a ��crit��:

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.

But this is not what I want! As I mentioned in a mail that was sent but never arrived.
I want a square and this is why I did

BlCell>>initialize
�� super initialize.
�� self
�� shape:
�� (BlShape new
�� fillPaint: (BlColorPaint new color: (Color yellow));
�� path: BlRectanglePath new);
�� extent: self extent

then I want to draw something extra this is why I overrode drawOnAthensCanvas: aCanvas

Now I stop but I find bloc too complex.

Sorry but I cannot lose time like that and just get frustrated at the end.
I will use the athens canvas directly and stay in morph for now.

Stef

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