--- 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 $'
! !