The Trunk: Morphic-mt.946.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.946.mcz

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

Name: Morphic-mt.946
Author: mt
Time: 29 April 2015, 8:30:36.16 am
UUID: 9a8b385d-ad62-d14f-a4c1-928b41601c34
Ancestors: Morphic-mt.945, Morphic-DS.916

Basic hook added to support non-uniform border styles such as "top line only".

=============== Diff against Morphic-mt.945 ===============

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!