[squeak-dev] The Trunk: Morphic-ar.161.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.161.mcz

==================== Summary ====================

Name: Morphic-ar.161
Author: ar
Time: 25 August 2009, 8:49:08 am
UUID: c668bbf1-411e-4c46-ac88-b7f7244d8275
Ancestors: Morphic-laza.160

Integrate Polymorph fix for BorderedMorph>>areasRemainingToFill:.

=============== Diff against Morphic-laza.160 ===============

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