--- a/WindowSensor.st	Wed Jan 17 11:49:44 1996 +0100
+++ b/WindowSensor.st	Wed Jan 17 13:03:04 1996 +0100
@@ -1584,7 +1584,7 @@
      bad style."
 
     [self anyButtonPressed] whileFalse:[
-	(Delay forSeconds:0.01) wait.
+	Delay waitForSeconds:0.01.
     ].
 
 "/    (leftButtonPressed
@@ -1658,7 +1658,7 @@
      bad style."
 
     [self anyButtonPressed] whileTrue:[
-	(Delay forSeconds:0.01) wait.
+	Delay waitForSeconds:0.01.
     ].
 "/    (leftButtonPressed
 "/    or:[middleButtonPressed
@@ -1672,6 +1672,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.41 1995-12-16 01:27:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.42 1996-01-17 12:03:04 cg Exp $'
 ! !
 WindowSensor initialize!