--- a/WindowSensor.st	Fri Mar 22 19:40:11 1996 +0100
+++ b/WindowSensor.st	Sat Mar 23 15:54:22 1996 +0100
@@ -1570,6 +1570,17 @@
     ^ mouseAndKeyboard size ~~ 0
 !
 
+hasKeyPressEventsFor:aView 
+    "return true, if any keyPress events are pending.
+     If the argument, aView is nil, the information is regarding any
+     view (i.e. is there a motion event for any of my views);
+     otherwise, the information is regrding that specific view."
+
+    ^ self hasEvent:#keyPress:x:y: orPendingDeviceEvent:#keyPress for:aView
+
+    "Created: 23.3.1996 / 14:16:50 / cg"
+!
+
 leftButtonPressed
     "return true, if the left mouse button is pressed.
      This has been added to support ST-80 style button polling;
@@ -1747,6 +1758,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.48 1996-03-07 12:52:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.49 1996-03-23 14:54:22 cg Exp $'
 ! !
 WindowSensor initialize!