--- a/CheckToggle.st	Thu Oct 16 17:51:00 2008 +0200
+++ b/CheckToggle.st	Fri Oct 17 17:02:48 2008 +0200
@@ -594,7 +594,8 @@
     (condition value:self) ifTrue:[
         (activeLogo notNil 
         and:[activeLogo depth > 1
-        and:[styleSheet name ~~ #iris]]) ifTrue:[
+        and:[styleSheet name ~~ #iris
+        and:[styleSheet name ~~ #winXP]]]) ifTrue:[
             self viewBackground:something.
             self backgroundColor:something.
             enteredBgColor := activeBgColor := something.
@@ -608,8 +609,11 @@
     "setup viewStyle specifics"
 
     <resource: #style (#'checkToggle.disabledForegroundColor'
+                       #'checkToggle.enabledBackgroundColor' 
                        )>
 
+    |enabledBgColor|
+
     super initStyle.
 
     onLevel := offLevel.
@@ -641,7 +645,8 @@
         self foregroundColor:DefaultFGColor
     ].
     DefaultBGColor notNil ifTrue:[
-        self backgroundColor:DefaultBGColor
+        self backgroundColor:DefaultBGColor.
+        self viewBackground:DefaultBGColor.
     ].
 
     showLamp := false.
@@ -650,6 +655,11 @@
 
     offLevel ~~ level ifTrue:[self level:offLevel].
 
+"/    enabledBgColor := styleSheet at:#'checkToggle.enabledBackgroundColor' default:nil.
+"/    enabledBgColor notNil ifTrue:[
+"/        bgColor := enabledBgColor.
+"/    ].
+
     "Modified: / 19.5.1998 / 15:50:29 / cg"
 !
 
@@ -763,5 +773,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.63 2008-10-16 08:17:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.64 2008-10-17 15:02:48 cg Exp $'
 ! !