--- a/ModalBox.st	Wed Jan 17 11:49:44 1996 +0100
+++ b/ModalBox.st	Wed Jan 17 13:03:04 1996 +0100
@@ -401,7 +401,7 @@
     "the implementation is simple: just fork of a process
      to hide me."
     [
-	(Delay forSeconds:seconds) wait.
+	Delay waitForSeconds:seconds.
 	self shown ifTrue:[
 	    self hide. 
 	    anAction notNil ifTrue:[anAction value]
@@ -456,7 +456,7 @@
 	 We need a short delay here, since at this time, the expose event has
 	 not yet arrived.
 	"
-	(Delay forSeconds:0.1) wait.
+	Delay waitForSeconds:0.1.
 	p processExposeEvents   
     ].
 !
@@ -740,6 +740,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.33 1995-12-10 15:21:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.34 1996-01-17 12:02:48 cg Exp $'
 ! !
 ModalBox initialize!