--- 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 $'
 ! !