--- a/ButtonController.st	Thu Nov 09 13:48:58 2000 +0100
+++ b/ButtonController.st	Thu Nov 09 16:26:41 2000 +0100
@@ -592,6 +592,22 @@
     "Modified: 24.1.1997 / 11:38:20 / cg"
 !
 
+performShortcutAction
+    enableChannel value ifTrue:[
+        isToggle ifTrue:[
+            self toggle.
+            ^ self
+        ].
+        isRadio ifTrue:[
+            pressed ifFalse:[
+                self toggle
+            ].
+            ^ self
+        ].
+
+        self performAction.
+    ]!
+
 pointerEnter:state x:x y:y
     "mouse pointer entered my view.
      Redraw with enteredColors if they differ from the normal colors"
@@ -740,5 +756,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.61 2000-09-27 07:48:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.62 2000-11-09 15:26:41 ca Exp $'
 ! !