--- a/WindowEvent.st	Sat Apr 12 11:13:50 1997 +0200
+++ b/WindowEvent.st	Sat Apr 12 11:31:08 1997 +0200
@@ -521,6 +521,14 @@
     "Created: 12.4.1997 / 11:04:16 / cg"
 !
 
+hasShift
+    "return true, if this is a keyboard event, with SHIFT pressed"
+
+    ^ false
+
+    "Created: 12.4.1997 / 11:30:59 / cg"
+!
+
 isButtonEvent
     "return true, if this event is a button event"
 
@@ -764,5 +772,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.41 1997-04-12 09:12:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.42 1997-04-12 09:31:08 cg Exp $'
 ! !