Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.107.mcz
==================== Summary ====================
Name: Morphic-bf.107 Author: bf Time: 10 July 2013, 10:14:32 pm UUID: 088de8b9-38a1-4529-aa79-6ca48f106c31 Ancestors: Morphic-kfr.106
Fix drawing morphs with translucent gradient (by adopting the fix made by Andreas in 2009)
=============== Diff against Morphic-kfr.106 ===============
Item was changed: ----- Method: BorderedMorph>>areasRemainingToFill: (in category 'drawing') ----- + areasRemainingToFill: aRectangle + "Fixed here to test the fillStyle rather than color for translucency. + Since can have a translucent fillStyle while the (calculated) color is not." + + self fillStyle isTranslucent - areasRemainingToFill: aRectangle - (color isColor - and: [color isTranslucent]) ifTrue: [^ Array with: aRectangle]. self wantsRoundedCorners ifTrue: [(self borderWidth > 0 and: [self borderColor isColor and: [self borderColor isTranslucent]]) ifTrue: [^ aRectangle areasOutside: (self innerBounds intersect: self boundsWithinCorners)] ifFalse: [^ aRectangle areasOutside: self boundsWithinCorners]] ifFalse: [(self borderWidth > 0 and: [self borderColor isColor and: [self borderColor isTranslucent]]) ifTrue: [^ aRectangle areasOutside: self innerBounds] + ifFalse: [^ aRectangle areasOutside: self bounds]] + ! - ifFalse: [^ aRectangle areasOutside: self bounds]]!