equal
deleted
inserted
replaced
1658 |
1658 |
1659 |x y scaleH scaleV nW nH hSep vSep m2 stringLogo| |
1659 |x y scaleH scaleV nW nH hSep vSep m2 stringLogo| |
1660 |
1660 |
1661 doClear ifTrue:[self clearInsideWith:bg]. |
1661 doClear ifTrue:[self clearInsideWith:bg]. |
1662 |
1662 |
|
1663 self paint:fg on:bg. |
1663 logo notNil ifTrue:[ |
1664 logo notNil ifTrue:[ |
1664 self paint:fg on:bg. |
|
1665 |
|
1666 m2 := margin * 2. |
1665 m2 := margin * 2. |
1667 hSep := (hSpace*2). |
1666 hSep := (hSpace*2). |
1668 vSep := (vSpace*2). |
1667 vSep := (vSpace*2). |
1669 |
1668 |
1670 x := labelOriginX. |
1669 x := labelOriginX. |
1850 ! ! |
1849 ! ! |
1851 |
1850 |
1852 !Label class methodsFor:'documentation'! |
1851 !Label class methodsFor:'documentation'! |
1853 |
1852 |
1854 version |
1853 version |
1855 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.134 2008-05-30 12:28:27 cg Exp $' |
1854 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.135 2008-06-20 09:54:07 cg Exp $' |
1856 ! ! |
1855 ! ! |