--- a/ButtonController.st	Wed Feb 22 04:41:31 1995 +0100
+++ b/ButtonController.st	Mon Feb 27 11:41:57 1995 +0100
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.3 1995-02-17 13:22:26 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.4 1995-02-27 10:38:07 claus Exp $
 "
 !
 
@@ -256,9 +256,7 @@
 
 	    triggerOnDown ifTrue:[
 		"the ST-80 way of doing things"
-		(model notNil and:[(sym := view changeSymbol) notNil]) ifTrue:[
-		    model perform:sym
-		].
+		view sendChangeMessageWith:true
 	    ].
 
 	    active := false.
@@ -308,9 +306,7 @@
 		].
 		triggerOnDown ifFalse:[
 		    "the ST-80 way of doing things"
-		    (model notNil and:[(sym := view changeSymbol) notNil]) ifTrue:[
-			model perform:sym 
-		    ].
+		    view sendChangeMessageWith:false.
 		].
 
 		active := false.