equal
deleted
inserted
replaced
1707 (w > 0 and:[h > 0]) ifTrue:[ |
1707 (w > 0 and:[h > 0]) ifTrue:[ |
1708 bwWidth ~~ 0 ifTrue:[ |
1708 bwWidth ~~ 0 ifTrue:[ |
1709 color isNil ifTrue:[ |
1709 color isNil ifTrue:[ |
1710 "/ must force redraw of border |
1710 "/ must force redraw of border |
1711 color := aView borderColor. |
1711 color := aView borderColor. |
1712 aView borderColor:(Color colorId:1). |
1712 aView borderColor:(Color colorId:1). "/ kludge to force a redraw |
1713 aView borderColor:color. |
1713 aView borderColor:color. |
1714 ]. |
1714 ]. |
1715 w := w - bwWidth. |
1715 w := w - bwWidth. |
1716 h := h - bwWidth. |
1716 h := h - bwWidth. |
1717 |
1717 |
3223 |
3223 |
3224 !UIObjectView class methodsFor:'documentation'! |
3224 !UIObjectView class methodsFor:'documentation'! |
3225 |
3225 |
3226 version |
3226 version |
3227 ^ '$Header$' |
3227 ^ '$Header$' |
3228 ! ! |
3228 ! |
|
3229 |
|
3230 version_CVS |
|
3231 ^ '$Header$' |
|
3232 ! ! |