equal
deleted
inserted
replaced
1215 |
1215 |
1216 "Created: 13.1.1997 / 23:34:30 / cg" |
1216 "Created: 13.1.1997 / 23:34:30 / cg" |
1217 ! |
1217 ! |
1218 |
1218 |
1219 initStyle |
1219 initStyle |
|
1220 "setup viewStyle specifics" |
|
1221 |
1220 super initStyle. |
1222 super initStyle. |
1221 |
1223 |
1222 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1224 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1223 |
1225 |
1224 DefaultBackgroundColor notNil ifTrue:[ |
1226 DefaultBackgroundColor notNil ifTrue:[ |
1230 fgColor := DefaultForegroundColor |
1232 fgColor := DefaultForegroundColor |
1231 ] ifFalse:[ |
1233 ] ifFalse:[ |
1232 fgColor := Black. |
1234 fgColor := Black. |
1233 ] |
1235 ] |
1234 |
1236 |
1235 "Modified: 13.1.1997 / 23:34:43 / cg" |
1237 "Modified: 22.1.1997 / 11:57:19 / cg" |
1236 ! |
1238 ! |
1237 |
1239 |
1238 initialize |
1240 initialize |
1239 super initialize. |
1241 super initialize. |
1240 |
1242 |
1626 ! ! |
1628 ! ! |
1627 |
1629 |
1628 !Label class methodsFor:'documentation'! |
1630 !Label class methodsFor:'documentation'! |
1629 |
1631 |
1630 version |
1632 version |
1631 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.71 1997-01-13 22:37:06 cg Exp $' |
1633 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.72 1997-01-22 17:19:45 cg Exp $' |
1632 ! ! |
1634 ! ! |