--- a/WindowSensor.st	Thu Feb 05 09:52:55 2015 +0100
+++ b/WindowSensor.st	Thu Feb 05 09:54:11 2015 +0100
@@ -2962,6 +2962,22 @@
     "Modified: / 18.6.1998 / 08:57:00 / cg"
 !
 
+hasUserEvent:type for:aView withArguments:argsOrNil 
+    "return true, if a specific user event (non damage) is pending in my queues.
+     Type is the type of event, args are the arguments.
+     If the argument, aView is nil, the information is regarding any
+     view (i.e. is there an event for any of my views);
+     otherwise, the information is regarding to that specific view."
+
+    |args|
+
+    args := argsOrNil ? #().
+    ^ self
+        hasUserEvent:type 
+        for:aView 
+        withMatchingArguments:[:evArgs | evArgs = args]
+!
+
 hasUserEvent:type for:aReceiverOrNil withMatchingArguments:argMatchBlock
     "return true, if a specific event is pending in my user event queue.
      Type is the type of event, dType the corresponding device event.
@@ -3322,8 +3338,12 @@
 
 !WindowSensor class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.291 2015-02-05 08:52:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $'
 ! !