--- a/WSensor.st	Fri Apr 04 13:50:21 1997 +0200
+++ b/WSensor.st	Fri Apr 04 13:55:40 1997 +0200
@@ -2139,12 +2139,13 @@
 !
 
 pollForActivity
-    "ST-80 compatibility: wait for some activity (i.e. event) "
+    "ST-80 compatibility: wait for some activity (i.e. poll for an event) "
 
     "/ should add a buttonStateChangeSemaphore and wait on this ...
-    Delay waitForSeconds:0.01.
-
-    "Modified: 10.2.1997 / 13:30:29 / cg"
+"/    Delay waitForSeconds:0.01.
+    Processor yield.
+
+    "Modified: 12.2.1997 / 12:46:09 / cg"
 !
 
 waitButton
@@ -2261,6 +2262,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.95 1997-04-04 11:50:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.96 1997-04-04 11:55:40 cg Exp $'
 ! !
 WindowSensor initialize!

--- a/WindowSensor.st	Fri Apr 04 13:50:21 1997 +0200
+++ b/WindowSensor.st	Fri Apr 04 13:55:40 1997 +0200
@@ -2139,12 +2139,13 @@
 !
 
 pollForActivity
-    "ST-80 compatibility: wait for some activity (i.e. event) "
+    "ST-80 compatibility: wait for some activity (i.e. poll for an event) "
 
     "/ should add a buttonStateChangeSemaphore and wait on this ...
-    Delay waitForSeconds:0.01.
-
-    "Modified: 10.2.1997 / 13:30:29 / cg"
+"/    Delay waitForSeconds:0.01.
+    Processor yield.
+
+    "Modified: 12.2.1997 / 12:46:09 / cg"
 !
 
 waitButton
@@ -2261,6 +2262,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.95 1997-04-04 11:50:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.96 1997-04-04 11:55:40 cg Exp $'
 ! !
 WindowSensor initialize!