--- a/WSensor.st	Sun Jan 10 17:24:35 1999 +0100
+++ b/WSensor.st	Sun Jan 10 18:03:56 1999 +0100
@@ -2556,7 +2556,7 @@
      in future versions. (or the new device may simulate the arrival of
      such an event)"
 
-    |blocked lostExpose device stopPoll endPollTime|
+    |blocked lostExpose device stopPoll endPollTime pollDelay|
 
     device := aView graphicsDevice.
 
@@ -2571,7 +2571,12 @@
     [
         aView flush.
         Processor activeProcessIsSystemProcess ifTrue:[
-            endPollTime := AbsoluteTime now addSeconds:10.
+            device platformName = 'WIN32' ifTrue:[
+                pollDelay := 1.
+            ] ifFalse:[
+                pollDelay := 3.
+            ].
+            endPollTime := AbsoluteTime now addSeconds:pollDelay.
             stopPoll := false.
 
             "/
@@ -2633,8 +2638,8 @@
         eventSemaphore signalOnce
     ].
 
-    "Modified: 20.2.1997 / 09:24:31 / stefan"
-    "Modified: 19.8.1997 / 17:36:20 / cg"
+    "Modified: / 20.2.1997 / 09:24:31 / stefan"
+    "Modified: / 9.1.1999 / 01:58:56 / cg"
 !
 
 waitNoButton
@@ -2652,6 +2657,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.135 1998-12-04 14:35:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.136 1999-01-10 17:03:56 cg Exp $'
 ! !
 WindowSensor initialize!