--- a/ButtonController.st Mon Mar 03 18:12:23 1997 +0100
+++ b/ButtonController.st Tue Mar 04 17:22:38 1997 +0100
@@ -512,10 +512,14 @@
ST/X style actionBlock evaluation & channel notification ...
"
pressChannel notNil ifTrue:[
- pressChannel value:pressed
+ pressed ifTrue:[
+ pressChannel value:true
+ ]
].
releaseChannel notNil ifTrue:[
- releaseChannel value:pressed not
+ pressed ifFalse:[
+ releaseChannel value:true
+ ]
].
pressed ifTrue:[
@@ -640,5 +644,5 @@
!ButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.41 1997-03-03 09:59:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.42 1997-03-04 16:22:38 ca Exp $'
! !