[etoys-dev] Etoys: Morphic-bf.107.mcz

[commits at source.squeak.org]

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]]!