--- a/ListView.st	Wed Jan 17 12:18:40 1996 +0100
+++ b/ListView.st	Wed Jan 17 13:06:35 1996 +0100
@@ -1714,7 +1714,7 @@
     "show contents in reverse colors for a moment - to wakeup the user :-)"
 
     self redrawInverted.
-    (Delay forSeconds:0.1) wait.
+    Delay waitForSeconds:0.1.
     self redraw
 
     "
@@ -2770,5 +2770,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.56 1996-01-16 19:07:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.57 1996-01-17 12:06:28 cg Exp $'
 ! !

--- a/TextView.st	Wed Jan 17 12:18:40 1996 +0100
+++ b/TextView.st	Wed Jan 17 13:06:35 1996 +0100
@@ -475,13 +475,13 @@
 					  "/ undo scroll operation ...
 					  (')]}>' includes:(sel at:1)) ifTrue:[
 					       (firstLineShown ~~ prevLine or:[prevCol ~~ leftOffset]) ifTrue:[
-						   (Delay forSeconds:MatchDelayTime) wait. 
+						   Delay waitForSeconds:MatchDelayTime. 
 						   self scrollToLine:prevLine; scrollToCol:prevCol.
 					       ] 
 					  ] ifFalse:[
 					       selectionEndLine > (firstLineShown + nFullLinesShown) ifTrue:[
 						   self makeLineVisible:selectionEndLine.
-						   (Delay forSeconds:MatchDelayTime) wait. 
+						   Delay waitForSeconds:MatchDelayTime. 
 						   self scrollToLine:prevLine; scrollToCol:prevCol.
 					       ]
 					  ]
@@ -1854,5 +1854,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.31 1995-12-16 12:24:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.32 1996-01-17 12:06:35 cg Exp $'
 ! !