--- a/Toggle.st	Wed Apr 07 14:52:44 2004 +0200
+++ b/Toggle.st	Wed Apr 07 14:59:26 2004 +0200
@@ -507,10 +507,6 @@
 
 !Toggle methodsFor:'private'!
 
-asBoolean:aModelValue
-    ^ aModelValue
-!
-
 computeLabelOrigin
     "compute the origin of the form/text.
      redefined to move label to the right if there is a lamp."
@@ -547,7 +543,7 @@
         ] ifFalse:[
             val := model perform:aspectMsg withOptionalArgument:self.
         ].
-        (self asBoolean:val) == true ifTrue:[  "allowing nil - treat as false"
+        val asBoolean ifTrue:[  "allowing nil - treat as false"
             self turnOn
         ] ifFalse:[
             self turnOff
@@ -644,5 +640,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.50 2004-04-07 12:52:44 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.51 2004-04-07 12:59:26 werner Exp $'
 ! !