equal
deleted
inserted
replaced
1722 |
1722 |
1723 (w > 0 and:[h > 0]) ifTrue:[ |
1723 (w > 0 and:[h > 0]) ifTrue:[ |
1724 bwWidth ~~ 0 ifTrue:[ |
1724 bwWidth ~~ 0 ifTrue:[ |
1725 color isNil ifTrue:[ |
1725 color isNil ifTrue:[ |
1726 "/ must force redraw of border |
1726 "/ must force redraw of border |
1727 color := aView borderColor. |
1727 "/ color := aView borderColor. |
1728 aView borderColor:(Color colorId:1). "/ kludge to force a redraw |
1728 "/ aView borderColor:(Color colorId:1). "/ kludge to force a redraw |
1729 aView borderColor:color. |
1729 "/ aView borderColor:color. |
|
1730 aView invalidate. |
1730 ]. |
1731 ]. |
1731 w := w - bwWidth. |
1732 w := w - bwWidth. |
1732 h := h - bwWidth. |
1733 h := h - bwWidth. |
1733 |
1734 |
1734 (x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0]. |
1735 (x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0]. |