ListView.st
changeset 6336 034ad643fe9a
parent 6304 93a632d04f8c
child 6342 fda4ec431379
--- 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