--- a/Toggle.st	Wed Feb 22 04:41:31 1995 +0100
+++ b/Toggle.st	Mon Feb 27 11:41:57 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.12 1995-02-16 03:13:03 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.13 1995-02-27 10:41:35 claus Exp $
 '!
 
 !Toggle class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.12 1995-02-16 03:13:03 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.13 1995-02-27 10:41:35 claus Exp $
 "
 !
 
@@ -235,7 +235,7 @@
     lampHeight := (device verticalPixelPerMillimeter * 3.5) rounded.
 !
 
-defaultController
+defaultControllerClass
     ^ ToggleController
 ! !
 
@@ -326,11 +326,7 @@
 	    action := controller releaseAction
 	].
 	action notNil ifTrue:[action value].
-	model notNil ifTrue:[
-	    (sym := changeSymbol) notNil ifTrue:[
-		model perform:sym with:pressed
-	    ].
-	].
+	self sendChangeMessageWith:pressed.
 	self changed
     ]
 ! !