I'm afraid it still doesn't work for me. If I have a drawBlock like this: drawBlock ^ [ :aCanvas | | paint surface | surface := aCanvas surface. paint := surface createLinearGradient: { (0 -> Color blue). (1 -> Color black) } start: 0 @ 0 stop: aCanvas surface extent. surface clear. aCanvas setPaint: paint. aCanvas drawShape: (0 @ 0 corner: aCanvas surface extent) ] I get just a blank canvas.- nothing is drawn. If I replace the aCanvas surface extent with a fixed size like this: drawBlock ^ [ :aCanvas | | paint surface | surface := aCanvas surface. paint := surface createLinearGradient: { (0 -> Color red). (1 -> Color green) } start: 0 @ 0 stop: 300 @ 300. surface clear. aCanvas setPaint: paint. aCanvas drawShape: (0 @ 0 corner: 300 @ 300) ] then it works. Any ideas what i might be doing wrong? -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html