--- a/WSensor.st	Mon Feb 08 15:24:11 1999 +0100
+++ b/WSensor.st	Mon Feb 08 15:24:17 1999 +0100
@@ -2308,7 +2308,10 @@
 hasEvents 
     "return true, if any mouse/keyboard events are pending"
 
-    ^ mouseAndKeyboard size ~~ 0
+    mouseAndKeyboard size ~~ 0 ifTrue:[^ true].
+    ^ damage size ~~ 0
+
+    "Modified: / 5.2.1999 / 22:30:23 / cg"
 !
 
 hasExposeEventFor:aView 
@@ -2402,6 +2405,14 @@
     "Modified: 1.11.1996 / 17:12:21 / cg"
 !
 
+hasUserEvents 
+    "return true, if any mouse/keyboard events are pending"
+
+    ^ mouseAndKeyboard size ~~ 0
+
+    "Created: / 5.2.1999 / 22:29:11 / cg"
+!
+
 motionEventPending 
     "return true, if any buttonMotion events are pending."
 
@@ -2715,6 +2726,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.141 1999-02-05 20:25:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.142 1999-02-08 14:24:17 cg Exp $'
 ! !
 WindowSensor initialize!

--- a/WindowSensor.st	Mon Feb 08 15:24:11 1999 +0100
+++ b/WindowSensor.st	Mon Feb 08 15:24:17 1999 +0100
@@ -2308,7 +2308,10 @@
 hasEvents 
     "return true, if any mouse/keyboard events are pending"
 
-    ^ mouseAndKeyboard size ~~ 0
+    mouseAndKeyboard size ~~ 0 ifTrue:[^ true].
+    ^ damage size ~~ 0
+
+    "Modified: / 5.2.1999 / 22:30:23 / cg"
 !
 
 hasExposeEventFor:aView 
@@ -2402,6 +2405,14 @@
     "Modified: 1.11.1996 / 17:12:21 / cg"
 !
 
+hasUserEvents 
+    "return true, if any mouse/keyboard events are pending"
+
+    ^ mouseAndKeyboard size ~~ 0
+
+    "Created: / 5.2.1999 / 22:29:11 / cg"
+!
+
 motionEventPending 
     "return true, if any buttonMotion events are pending."
 
@@ -2715,6 +2726,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.141 1999-02-05 20:25:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.142 1999-02-08 14:24:17 cg Exp $'
 ! !
 WindowSensor initialize!