<div dir="ltr">Maybe we need<div>SimpleBorder&gt;&gt;width</div><div><span class="" style="white-space:pre">        </span>^width ifNil:[ ^0]</div><div><br></div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Apr 22, 2015 at 11:34 AM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">A new version of Morphic was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Morphic-DS.916.mcz" target="_blank">http://source.squeak.org/inbox/Morphic-DS.916.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-DS.916<br>
Author: DS<br>
Time: 22 April 2015, 11:33:53.08 am<br>
UUID: e58e8bbb-7a37-954a-87a0-5e71904b55c2<br>
Ancestors: Morphic-cmm.915<br>
<br>
Add basic support for borderStyles with non-uniform widths.<br>
<br>
=============== Diff against Morphic-cmm.915 ===============<br>
<br>
Item was added:<br>
+ ----- Method: BorderStyle&gt;&gt;inset (in category &#39;accessing&#39;) -----<br>
+ inset<br>
+       &quot;Possible inset when honoring this border style. The default implementation uses #width to return a uniform inset.&quot;<br>
+       ^ self width!<br>
<br>
Item was changed:<br>
  ----- Method: Canvas&gt;&gt;fillRectangle:fillStyle:borderStyle: (in category &#39;drawing-rectangles&#39;) -----<br>
  fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle<br>
        &quot;Fill the given rectangle.&quot;<br>
        aFillStyle isTransparent ifFalse:[<br>
+               self fillRectangle: (aRectangle insetBy: aBorderStyle inset) fillStyle: aFillStyle].<br>
-               self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle].<br>
        aBorderStyle ifNil:[^self].<br>
        aBorderStyle width &lt;= 0 ifTrue:[^self].<br>
+       aBorderStyle frameRectangle: aRectangle on: self.!<br>
-       aBorderStyle frameRectangle: aRectangle on: self<br>
- !<br>
<br>
Item was changed:<br>
  ----- Method: Morph&gt;&gt;innerBounds (in category &#39;geometry&#39;) -----<br>
  innerBounds<br>
        &quot;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.&quot;<br>
<br>
+       ^ self bounds insetBy: self borderStyle inset!<br>
-       ^ self bounds insetBy: self borderWidth!<br>
<br>
<br>
</blockquote></div><br></div>