Etoys: Morphic-bf.107.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev