May 24, 2021
6:06 p.m.
I should also point out that nothing works unless I also set a surfaceExtent when the presenter is set up - initializePresenters rosesAthensPresenter := RosesAthensPresenter new. rosesAthensPresenter surfaceExtent: 400 @ 400. rosesAthensPresenter drawBlock: [ :aCanvas | | paint surface | surface := aCanvas surface. paint := surface createLinearGradient: { (0 -> Color blue). (1 -> Color black) } start: 0 @ 0 stop: 300 @ 300. surface clear. aCanvas setPaint: paint. aCanvas drawShape: (0 @ 0 corner: 300 @ 300) ]. -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html