ChckTggle.st
changeset 1169 982c3fd58d67
parent 1154 bb9a71579a88
child 1171 71f7a035396f
--- a/ChckTggle.st	Tue Apr 01 13:28:08 1997 +0200
+++ b/ChckTggle.st	Tue Apr 01 13:28:40 1997 +0200
@@ -396,13 +396,18 @@
 
 drawWith:fg and:bg
     controller pressed ifTrue:[
-	logo := activeLogo.
+        logo := activeLogo.
     ] ifFalse:[
-	logo := passiveLogo.
+        logo := passiveLogo.
     ].
-    super drawWith:fg and:bg
+    controller entered 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"
 !
 
 edgeDrawn:which
@@ -423,5 +428,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.33 1997-03-22 17:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.34 1997-04-01 11:28:40 cg Exp $'
 ! !