--- 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.
"