--- a/CheckToggle.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/CheckToggle.st	Thu Jul 08 15:55:57 1999 +0200
@@ -425,9 +425,13 @@
 allViewBackground:something
     "redefined here"
 
-    self viewBackground:something.
-    self backgroundColor:something.
-
+    (activeLogo notNil 
+    and:[activeLogo depth > 1
+    and:[styleSheet name ~~ #iris]]) ifTrue:[
+        self viewBackground:something.
+        self backgroundColor:something.
+        enteredBgColor := activeBgColor := something.
+    ]
 ! !
 
 !CheckToggle methodsFor:'event handling'!
@@ -567,5 +571,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.50 1999-07-08 09:30:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.51 1999-07-08 13:55:21 cg Exp $'
 ! !