checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 01 Apr 1997 13:36:24 +0200
changeset 1171 71f7a035396f
parent 1170 5864abd318f6
child 1172 d10e4627b0e3
checkin from browser
ChckTggle.st
CheckToggle.st
--- a/ChckTggle.st	Tue Apr 01 13:29:38 1997 +0200
+++ b/ChckTggle.st	Tue Apr 01 13:36:24 1997 +0200
@@ -400,14 +400,16 @@
     ] ifFalse:[
         logo := passiveLogo.
     ].
-    controller entered ifTrue:[
+
+    (controller entered 
+    and:[enteredBgColor notNil]) ifTrue:[
         super drawWith:fg and:enteredBgColor
     ] ifFalse:[
         super drawWith:fg and:bgColor "/ bg
     ]
 
     "Modified: 22.9.1995 / 15:45:02 / claus"
-    "Modified: 1.4.1997 / 13:26:56 / cg"
+    "Modified: 1.4.1997 / 13:35:48 / cg"
 !
 
 edgeDrawn:which
@@ -428,5 +430,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.34 1997-04-01 11:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.35 1997-04-01 11:36:24 cg Exp $'
 ! !
--- a/CheckToggle.st	Tue Apr 01 13:29:38 1997 +0200
+++ b/CheckToggle.st	Tue Apr 01 13:36:24 1997 +0200
@@ -400,14 +400,16 @@
     ] ifFalse:[
         logo := passiveLogo.
     ].
-    controller entered ifTrue:[
+
+    (controller entered 
+    and:[enteredBgColor notNil]) ifTrue:[
         super drawWith:fg and:enteredBgColor
     ] ifFalse:[
         super drawWith:fg and:bgColor "/ bg
     ]
 
     "Modified: 22.9.1995 / 15:45:02 / claus"
-    "Modified: 1.4.1997 / 13:26:56 / cg"
+    "Modified: 1.4.1997 / 13:35:48 / cg"
 !
 
 edgeDrawn:which
@@ -428,5 +430,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.34 1997-04-01 11:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.35 1997-04-01 11:36:24 cg Exp $'
 ! !