--- a/KeyboardProcessor.st	Fri Aug 17 14:43:50 2001 +0200
+++ b/KeyboardProcessor.st	Tue Aug 21 01:19:33 2001 +0200
@@ -197,6 +197,7 @@
         (globalAccelerators notNil
         and:[(action := globalAccelerators at:key ifAbsent:nil) notNil])
         ifTrue:[
+            event consumed:true.
             action isSymbol ifTrue:[
                 app notNil ifTrue:[
                     action numArgs == 1 ifTrue:[
@@ -212,7 +213,8 @@
                     action value
                 ]
             ].
-            ^ true
+            "/ ^ true
+            ^ event consumed
         ].
 
         topView isModal ifTrue:[
@@ -303,5 +305,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.22 2001-08-02 09:58:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.23 2001-08-20 23:19:33 cg Exp $'
 ! !