--- a/ButtonController.st	Thu Aug 24 05:02:53 1995 +0200
+++ b/ButtonController.st	Sun Aug 27 02:35:11 1995 +0200
@@ -40,7 +40,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.14 1995-08-24 03:02:02 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.15 1995-08-27 00:33:47 claus Exp $
 "
 !
 
@@ -418,7 +418,7 @@
 !
 
 performAction
-    |action value channel|
+    |action value|
 
     isToggle ifTrue:[
 	value := pressed
@@ -431,10 +431,8 @@
     "
     pressed ifTrue:[
 	action := pressActionBlock.
-	channel := pressChannel.
     ] ifFalse:[
 	action := releaseActionBlock.
-	channel := releaseChannel.
     ].
     action notNil ifTrue:[
 	active := true.
@@ -445,8 +443,11 @@
 	].
 	active := false.
     ].
-    channel notNil ifTrue:[
-	channel value:true
+    pressChannel notNil ifTrue:[
+	pressChannel value:pressed 
+    ].
+    releaseChannel notNil ifTrue:[
+	releaseChannel value:pressed not
     ].
 
     "