ComboListView.st
changeset 5166 a9334ae0d171
parent 4846 eab231df5ba4
child 5172 d7c0d7d31e73
--- a/ComboListView.st	Wed Jul 20 11:35:35 2016 +0200
+++ b/ComboListView.st	Wed Jul 20 11:35:38 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
               All Rights Reserved
@@ -550,7 +552,7 @@
 
     super enableStateChanged.
     self enabled ifTrue:[
-        fieldBG := (styleSheet colorAt:#'comboList.backgroundColor' default:Color white).
+        fieldBG := (styleSheet colorAt:#'comboList.backgroundColor' default:self whiteColor).
         fieldFG := Button defaultForegroundColor
     ] ifFalse:[
         fieldBG := View defaultViewBackgroundColor.
@@ -657,7 +659,7 @@
     field borderWidth:0.
     field adjust:#left.
     field delegate:self.    "delegate mouseWheel events to myself"
-    field backgroundColor:(styleSheet colorAt:#'comboList.backgroundColor' default:Color white).
+    field backgroundColor:(styleSheet colorAt:#'comboList.backgroundColor' default:self whiteColor).
     field font:self font.
 
     "