--- a/Toggle.st	Wed May 03 18:30:51 1995 +0200
+++ b/Toggle.st	Sat May 06 16:18:13 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.15 1995-05-03 00:38:26 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.16 1995-05-06 14:18:02 claus Exp $
 '!
 
 !Toggle class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.15 1995-05-03 00:38:26 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.16 1995-05-06 14:18:02 claus Exp $
 "
 !
 
@@ -359,7 +359,8 @@
 
 getValueFromModel
     (model notNil and:[aspectMsg notNil]) ifTrue:[
-	controller pressed:(model perform:aspectMsg)
+	(model perform:aspectMsg) ifTrue:[self turnOn]
+	ifFalse:[self turnOff].
     ].
 !
 
@@ -383,6 +384,16 @@
     ]
 ! !
 
+!Toggle methodsFor:'change & update'!
+
+update:something with:parameter from:changedObject
+    something == aspectMsg ifTrue:[
+	self getValueFromModel.
+	^ self
+    ].
+    super update:something with:parameter from:changedObject
+! !
+
 !Toggle methodsFor:'redrawing'!
 
 drawWith:fg and:bg