Re: The Inbox: Morphic-DS.916.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-DS.916.mcz

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

Name: Morphic-DS.916
Author: DS
Time: 22 April 2015, 11:33:53.08 am
UUID: e58e8bbb-7a37-954a-87a0-5e71904b55c2
Ancestors: Morphic-cmm.915

Add basic support for borderStyles with non-uniform widths.

=============== Diff against Morphic-cmm.915 ===============

Item was added:
+ ----- Method: BorderStyle>>inset (in category 'accessing') -----
+ inset
+       "Possible inset when honoring this border style. The default implementation uses #width to return a uniform inset."
+       ^ self width!

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 inset) fillStyle: aFillStyle].
-               self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle].
        aBorderStyle ifNil:[^self].
        aBorderStyle width <= 0 ifTrue:[^self].
+       aBorderStyle frameRectangle: aRectangle on: self.!
-       aBorderStyle frameRectangle: aRectangle on: self
- !

Item was changed:
  ----- Method: Morph>>innerBounds (in category 'geometry') -----
  innerBounds
        "Return the inner rectangle enclosed by the bounds of this morph excluding the space taken by its borders. For an unbordered morph, this is just its bounds."

+       ^ self bounds insetBy: self borderStyle inset!
-       ^ self bounds insetBy: self borderWidth!