--- a/KeyboardProcessor.st	Wed Jan 17 12:15:58 2001 +0100
+++ b/KeyboardProcessor.st	Wed Jan 17 13:14:28 2001 +0100
@@ -87,7 +87,8 @@
     "/ ignore cursor keys
     (#(
         Up Down Left Right 
-        CursorUp CursorDown CursorLeft CursorRight 
+        CursorUp CursorDown CursorLeft CursorRight
+        Shift
     ) includes:rawKey) ifTrue:[^ true].
 
     "/ ignore some meta keys
@@ -98,7 +99,7 @@
     ^ false
 
     "Created: / 17.1.2001 / 11:57:07 / cg"
-    "Modified: / 17.1.2001 / 12:03:03 / cg"
+    "Modified: / 17.1.2001 / 13:05:46 / cg"
 !
 
 isMnemonicKeyEvent:aKeyEvent
@@ -291,5 +292,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.19 2001-01-17 11:15:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.20 2001-01-17 12:14:28 cg Exp $'
 ! !