--- a/CheckToggle.st	Fri Apr 02 00:00:19 2004 +0200
+++ b/CheckToggle.st	Fri Apr 02 14:49:26 2004 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libwidg' }"
 
 Toggle subclass:#CheckToggle
-	instanceVariableNames:''
+	instanceVariableNames:'isFlat'
 	classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor
 		DefaultActiveBGColor DefaultFGColor DefaultBGColor
 		DefaultActiveLevel DefaultPassiveLevel DefaultBorderWidth
@@ -553,6 +553,19 @@
     "Modified: / 6.9.1998 / 21:24:48 / cg"
 ! !
 
+!CheckToggle methodsFor:'accessing'!
+
+isFlat
+    isFlat isNil ifTrue:[
+        isFlat := false
+    ].
+    ^ isFlat
+!
+
+isFlat:something
+    isFlat := something.
+! !
+
 !CheckToggle methodsFor:'accessing-look'!
 
 allViewBackground:something
@@ -652,6 +665,12 @@
 !CheckToggle methodsFor:'redrawing'!
 
 drawEdges
+
+    self isFlat ifTrue:[
+        self paint: Color black.
+        self displayRectangleX:0 y:0 width:width height:height.
+        ^self.
+    ].
     LabelOverMargin ifTrue:[
         (logo isNil or:[logo isImageOrForm not]) ifTrue:[
             self deviceClippingRectangle:nil.
@@ -659,8 +678,6 @@
         ].
     ].
     super drawEdges.
-
-
 !
 
 drawWith:fg and:bg
@@ -670,7 +687,11 @@
 
     controller pressed ifTrue:[
         logo := activeLogo.
-        bgColorUsed := activeBgColor.
+        self isFlat ifTrue:[
+            bgColorUsed := bgColor.
+        ] ifFalse:[
+            bgColorUsed := activeBgColor
+        ].
     ] ifFalse:[
         logo := passiveLogo.
         bgColorUsed := bgColor.
@@ -706,5 +727,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.57 2003-07-16 12:57:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.58 2004-04-02 12:49:26 werner Exp $'
 ! !