April 2, 2016
6:17 p.m.
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 :)