How to make square element with filled circle inside:

1) Subclass BlElement -> BlCell

2) Override

drawOnSpartaCanvas: aCanvas
�� super drawOnSpartaCanvas: aCanvas.
�� aCanvas
setShape: self localBounds;
�� setStrokePaint: Color blue;
stroke

��

3) Override initialize to have circle shape:

initialize
�� super initialize.
�� self shapeDo: [ :aShape | aShape
�� path: BlCirclePath new;
�� fillPaint: Color red ].

4) Open cell in word

Easy :)

Except that I do not understand it.
I do not understand why I should do
�� setShape: self localBounds;
��
and why I should do shapeDo: in the initialize

This is totally unclear to me. So this means that I cannot program anything I want
with it. Imagine I could not find anything simpler than a box with a circle drawn on it
and even with the solution I cannot understand it.

You see in Morphic this is simple: you have a drawOn: aCanvas method and you know how to draw: aCanvas
I do not get the interaction between the draw and the initialize.
This is totally unclear.

Now I tried and this code did not work in the build 26 so I tried with drawOnAthensCanvas: and it crashed.
So I stop.
No need to reply to this email and thread.

Stef