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