474 |
476 |
475 updateStyleCache |
477 updateStyleCache |
476 "extract values from the styleSheet and cache them in class variables" |
478 "extract values from the styleSheet and cache them in class variables" |
477 |
479 |
478 <resource: #style (#'text.foregroundColor' #'text.backgroundColor' |
480 <resource: #style (#'text.foregroundColor' #'text.backgroundColor' |
479 #'text.tabPositions' |
481 #'text.tabPositions' |
480 #'text.font')> |
482 #'text.font')> |
481 |
483 |
482 DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black. |
484 DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black. |
483 DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:White. |
485 DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:White. |
484 DefaultFont := StyleSheet fontAt:'text.font'. |
486 DefaultFont := StyleSheet fontAt:'text.font'. |
485 DefaultTabPositions := StyleSheet at:'text.tabPositions'. |
487 "/ that's not style, but a personal setting |
486 DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions]. |
488 "/ DefaultTabPositions := StyleSheet at:'text.tabPositions'. |
|
489 "/ DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions]. |
487 DefaultLeftMargin := 0.5. |
490 DefaultLeftMargin := 0.5. |
488 DefaultTopMargin := 0.5. |
491 DefaultTopMargin := 0.5. |
489 |
492 |
490 "Modified: 20.10.1997 / 15:05:30 / cg" |
493 "Modified: / 31-03-2016 / 10:49:45 / cg" |
491 ! |
494 ! |
492 |
495 |
493 userDefaultTabPositions |
496 userDefaultTabPositions |
494 "return an array containing the users default tab positions" |
497 "return an array containing the users default tab positions" |
495 |
498 |