# HG changeset patch
# User ab
# Date 1204061938 -3600
# Node ID 6892d0f7ba04416503658bd431fc09c648a36ae0
# Parent  3202bf0d2ded65b75896c5cd7cbf64c9f9e27e93
mnemonic key handling

diff -r 3202bf0d2ded -r 6892d0f7ba04 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 $'
 ! !