Maybe we need
SimpleBorder>>width
^width ifNil:[ ^0]

Karl

On Wed, Apr 22, 2015 at 11:34 AM, <commits at source.squeak.org> wrote:

> 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!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150512/ff279c4f/attachment.htm