class: SelectionInListModelView
authorClaus Gittinger <cg@exept.de>
Fri, 11 Jul 2014 01:33:11 +0200
changeset 4652 1a4f9ee861c1
parent 4651 b3cbf605203d
child 4653 e760275fb093
class: SelectionInListModelView changed: #initStyle
SelectionInListModelView.st
--- a/SelectionInListModelView.st	Wed Jul 09 19:18:45 2014 +0200
+++ b/SelectionInListModelView.st	Fri Jul 11 01:33:11 2014 +0200
@@ -2077,12 +2077,15 @@
     ].
 
     hilightFgColorNoFocus isNil ifTrue:[
-        hilightFgColorNoFocus := DefaultHilightForegroundColorNoFocus ? hilightFgColor.
+        hilightFgColorNoFocus := DefaultHilightForegroundColorNoFocus.
+        hilightFgColorNoFocus isNil ifTrue:[
+            hilightFgColorNoFocus := hilightFgColor slightlyLightened.
+        ]
     ].
     hilightBgColorNoFocus isNil ifTrue:[
         hilightBgColorNoFocus := DefaultHilightBackgroundColorNoFocus.
         hilightBgColorNoFocus isNil ifTrue:[ 
-            hilightBgColorNoFocus := hilightBgColor lightened.
+            hilightBgColorNoFocus := hilightBgColor slightlyLightened.
         ].
     ].
 
@@ -2819,10 +2822,10 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.172 2014-07-08 22:04:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.173 2014-07-10 23:33:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.172 2014-07-08 22:04:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.173 2014-07-10 23:33:11 cg Exp $'
 ! !