--- 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.