mnemonic key handling
authorab
Tue, 26 Feb 2008 22:38:58 +0100
changeset 2397 6892d0f7ba04
parent 2396 3202bf0d2ded
child 2398 d74cf11e61d5
mnemonic key handling
KeyboardProcessor.st
--- a/KeyboardProcessor.st	Tue Feb 26 11:47:52 2008 +0100
+++ b/KeyboardProcessor.st	Tue Feb 26 22:38:58 2008 +0100
@@ -107,7 +107,8 @@
     |rawKey|
 
     rawKey := aKeyEvent rawKey.
-    ^ rawKey size > 3 and:[rawKey startsWith:'Cmd']
+    ^ rawKey size == 4                   "/ only CMD-single letter !!
+        and:[rawKey startsWith:'Cmd']    "/ CmdMenu for right-alt in vmware ???
 ! !
 
 !KeyboardProcessor methodsFor:'Compatibility-VW'!
@@ -196,7 +197,8 @@
         key := event key.
         rawKey := event rawKey.
         topView := modalTopOrNil ? view topView.
-
+Transcript showCR:key.
+Transcript showCR:rawKey; cr.
         wg := topView windowGroup.
         app := topView application.
 
@@ -331,5 +333,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.40 2008-02-11 14:23:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.41 2008-02-26 21:38:58 ab Exp $'
 ! !