equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 View subclass:#Label |
13 View subclass:#Label |
14 instanceVariableNames:'logo labelWidth labelHeight labelOriginX labelOriginY adjust |
14 instanceVariableNames:'logo labelWidth labelHeight labelOriginX labelOriginY adjust |
15 hSpace vSpace bgColor fgColor fixSize labelMsg converter |
15 hSpace vSpace bgColor fgColor fixSize labelMsg converter |
16 labelChannel foregroundChannel backgroundChannel' |
16 labelChannel foregroundChannel backgroundChannel' |
17 classVariableNames:'DefaultFont DefaultForegroundColor DefaultBackgroundColor' |
17 classVariableNames:'DefaultFont DefaultForegroundColor DefaultBackgroundColor' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Views-Layout' |
19 category:'Views-Layout' |
20 ! |
20 ! |
21 |
21 |
22 !Label class methodsFor:'documentation'! |
22 !Label class methodsFor:'documentation'! |
23 |
23 |
24 copyright |
24 copyright |
703 ! |
703 ! |
704 |
704 |
705 updateStyleCache |
705 updateStyleCache |
706 DefaultForegroundColor := StyleSheet colorAt:'labelForegroundColor'. |
706 DefaultForegroundColor := StyleSheet colorAt:'labelForegroundColor'. |
707 DefaultForegroundColor isNil ifTrue:[ |
707 DefaultForegroundColor isNil ifTrue:[ |
708 DefaultForegroundColor := StyleSheet colorAt:'foregroundColor' default:Black. |
708 DefaultForegroundColor := StyleSheet colorAt:'foregroundColor' default:Black. |
709 ]. |
709 ]. |
710 DefaultBackgroundColor := StyleSheet colorAt:'labelBackgroundColor'. |
710 DefaultBackgroundColor := StyleSheet colorAt:'labelBackgroundColor'. |
711 DefaultBackgroundColor isNil ifTrue:[ |
711 DefaultBackgroundColor isNil ifTrue:[ |
712 DefaultForegroundColor := StyleSheet colorAt:'backgroundColor'. |
712 DefaultBackgroundColor := StyleSheet colorAt:'backgroundColor'. |
713 ]. |
713 ]. |
714 DefaultFont := StyleSheet fontAt:'labelFont'. |
714 DefaultFont := StyleSheet fontAt:'labelFont'. |
715 |
715 |
716 " |
716 " |
717 self updateStyleCache |
717 self updateStyleCache |
718 " |
718 " |
|
719 |
|
720 "Modified: 14.12.1995 / 14:33:55 / cg" |
719 ! ! |
721 ! ! |
720 |
722 |
721 !Label methodsFor:'accessing-channels'! |
723 !Label methodsFor:'accessing-channels'! |
722 |
724 |
723 backgroundChannel:aValueHolder |
725 backgroundChannel:aValueHolder |
1344 ! ! |
1346 ! ! |
1345 |
1347 |
1346 !Label class methodsFor:'documentation'! |
1348 !Label class methodsFor:'documentation'! |
1347 |
1349 |
1348 version |
1350 version |
1349 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.37 1995-12-11 17:03:18 cg Exp $' |
1351 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.38 1995-12-14 13:56:43 cg Exp $' |
1350 ! ! |
1352 ! ! |