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 :)��

��