Toggle.st
changeset 1470 01dc216e9cee
parent 1464 079d8a07b19c
child 1553 a89b36bd0fd7
--- a/Toggle.st	Mon Mar 09 22:22:56 1998 +0100
+++ b/Toggle.st	Mon Mar 09 22:25:07 1998 +0100
@@ -424,8 +424,7 @@
 
 update:something with:parameter from:changedObject
     something == aspectMsg ifTrue:[
-	self getValueFromModel.
-	^ self
+        self getValueFromModel.
     ].
     super update:something with:parameter from:changedObject
 ! !
@@ -611,5 +610,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.40 1998-03-05 12:35:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.41 1998-03-09 21:25:07 tz Exp $'
 ! !