equal
deleted
inserted
replaced
920 |
920 |
921 backgroundColor:aColor |
921 backgroundColor:aColor |
922 "set the background color" |
922 "set the background color" |
923 |
923 |
924 aColor ~~ bgColor ifTrue:[ |
924 aColor ~~ bgColor ifTrue:[ |
925 bgColor := aColor onDevice:device. |
925 bgColor := aColor. |
|
926 bgColor notNil ifTrue:[ |
|
927 bgColor := bgColor onDevice:device. |
|
928 ]. |
926 self class == Label ifTrue:[ |
929 self class == Label ifTrue:[ |
927 super viewBackground:bgColor |
930 super viewBackground:bgColor |
928 ]. |
931 ]. |
929 self invalidateRepairNow:true |
932 self invalidateRepairNow:true |
930 ] |
933 ] |
1847 ! ! |
1850 ! ! |
1848 |
1851 |
1849 !Label class methodsFor:'documentation'! |
1852 !Label class methodsFor:'documentation'! |
1850 |
1853 |
1851 version |
1854 version |
1852 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.131 2008-02-18 18:04:48 stefan Exp $' |
1855 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.132 2008-04-04 20:10:25 mb Exp $' |
1853 ! ! |
1856 ! ! |