--- a/ButtonController.st	Tue Nov 14 21:29:41 1995 +0100
+++ b/ButtonController.st	Tue Nov 14 22:44:34 1995 +0100
@@ -39,7 +39,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.20 1995-11-11 16:19:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.21 1995-11-14 21:44:27 cg Exp $'
 !
 
 documentation
@@ -136,8 +136,17 @@
     active := aBoolean
 !
 
+setPressed:aBoolean
+    pressed := aBoolean.
+
+    "Created: 14.11.1995 / 21:37:08 / cg"
+!
+
 pressed:aBoolean
-    pressed := aBoolean
+    pressed ~~ aBoolean ifTrue:[
+	pressed := aBoolean.
+	self performAction.
+    ].
 ! !
 
 !ButtonController methodsFor:'accessing-channels'!