#FEATURE by cg
class: ListView class
changed: #updateStyleCache
margins optionally from styleSheet
--- a/ListView.st Mon Jun 11 09:59:17 2018 +0200
+++ b/ListView.st Tue Jun 12 11:20:31 2018 +0200
@@ -495,8 +495,10 @@
"extract values from the styleSheet and cache them in class variables"
<resource: #style (#'text.foregroundColor' #'text.backgroundColor'
- #'text.tabPositions'
- #'text.font')>
+ #'text.tabPositions'
+ #'text.font'
+ #'text.topMargin'
+ #'text.leftMargin')>
DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Color black.
DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:Color white.
@@ -504,10 +506,11 @@
"/ that's not style, but a personal setting
"/ DefaultTabPositions := StyleSheet at:'text.tabPositions'.
"/ DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions].
- DefaultLeftMargin := 0.5.
- DefaultTopMargin := 0.5.
+ DefaultLeftMargin := StyleSheet at:'text.leftMargin' default:0.5.
+ DefaultTopMargin := StyleSheet at:'text.topMargin' default:0.5.
"Modified: / 31-03-2016 / 10:49:45 / cg"
+ "Modified: / 12-06-2018 / 11:19:36 / Claus Gittinger"
!
userDefaultTabPositions