# HG changeset patch # User Claus Gittinger # Date 1459438330 -7200 # Node ID 5d91923f148e29290207cedcb02cb871715cb594 # Parent 881147bd562bf0ae45cb39931eb5a46e886ecec1 #UI_ENHANCEMENT class: ListView changed: #updateStyleCache tab setting is user- not style specific diff -r 881147bd562b -r 5d91923f148e ListView.st --- a/ListView.st Fri Mar 25 22:48:57 2016 +0100 +++ b/ListView.st Thu Mar 31 17:32:10 2016 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved @@ -476,18 +478,19 @@ "extract values from the styleSheet and cache them in class variables" + #'text.tabPositions' + #'text.font')> DefaultForegroundColor := StyleSheet colorAt:'text.foregroundColor' default:Black. DefaultBackgroundColor := StyleSheet colorAt:'text.backgroundColor' default:White. DefaultFont := StyleSheet fontAt:'text.font'. - DefaultTabPositions := StyleSheet at:'text.tabPositions'. - DefaultTabPositions isNil ifTrue:[DefaultTabPositions := self defaultTabPositions]. + "/ 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. - "Modified: 20.10.1997 / 15:05:30 / cg" + "Modified: / 31-03-2016 / 10:49:45 / cg" ! userDefaultTabPositions