Use 'Delay' instead of Process waitForMilliseconds:
authorStefan Vogel <sv@exept.de>
Fri, 18 Apr 1997 15:51:17 +0200
changeset 1150 fc05bbed9e43
parent 1149 33fcc586c309
child 1151 194b10bad6da
Use 'Delay' instead of Process waitForMilliseconds:
CBrowser.st
ChangesBrowser.st
--- a/CBrowser.st	Fri Apr 18 15:25:17 1997 +0200
+++ b/CBrowser.st	Fri Apr 18 15:51:17 1997 +0200
@@ -2396,11 +2396,12 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Created: 8.4.1997 / 11:00:16 / cg"
     "Modified: 8.4.1997 / 11:00:45 / cg"
+    "Modified: 18.4.1997 / 12:47:52 / stefan"
 !
 
 findNextForClass
@@ -2430,10 +2431,11 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Created: 21.1.1997 / 22:28:07 / cg"
+    "Modified: 18.4.1997 / 12:48:18 / stefan"
 !
 
 findPreviousForClass
@@ -2467,10 +2469,11 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Modified: 2.4.1997 / 18:17:02 / cg"
+    "Modified: 18.4.1997 / 12:48:41 / stefan"
 !
 
 noChangesAllowed
@@ -2516,5 +2519,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.109 1997-04-08 09:02:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.110 1997-04-18 13:51:17 stefan Exp $'
 ! !
--- a/ChangesBrowser.st	Fri Apr 18 15:25:17 1997 +0200
+++ b/ChangesBrowser.st	Fri Apr 18 15:51:17 1997 +0200
@@ -2396,11 +2396,12 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Created: 8.4.1997 / 11:00:16 / cg"
     "Modified: 8.4.1997 / 11:00:45 / cg"
+    "Modified: 18.4.1997 / 12:47:52 / stefan"
 !
 
 findNextForClass
@@ -2430,10 +2431,11 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Created: 21.1.1997 / 22:28:07 / cg"
+    "Modified: 18.4.1997 / 12:48:18 / stefan"
 !
 
 findPreviousForClass
@@ -2467,10 +2469,11 @@
 
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
+    Delay waitForMilliseconds:300.
     self cursor:savedCursor
 
     "Modified: 2.4.1997 / 18:17:02 / cg"
+    "Modified: 18.4.1997 / 12:48:41 / stefan"
 !
 
 noChangesAllowed
@@ -2516,5 +2519,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.109 1997-04-08 09:02:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.110 1997-04-18 13:51:17 stefan Exp $'
 ! !