The Trunk: Morphic-mtf.493.mcz

Matthew Fulmer uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mtf.493.mcz

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

Name: Morphic-mtf.493
Author: mtf
Time: 10 December 2010, 2:05:40.188 pm
UUID: ecff7ecd-c928-4125-b0c8-f564ffe7e7db
Ancestors: Morphic-ul.490

don't draw transparent fillStyles. Needed by Tweak. Imported from OpenCobalt

=============== Diff against Morphic-ul.490 ===============

Item was changed:
  ----- Method: Canvas>>fillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') -----
  fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle
  "Fill the given rectangle."
+ aFillStyle isTransparent ifFalse:[
+ self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle].
+ aBorderStyle ifNil:[^self].
+ aBorderStyle width <= 0 ifTrue:[^self].
+ aBorderStyle frameRectangle: aRectangle on: self
+ !
- self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle.
- aBorderStyle frameRectangle: aRectangle on: self!