# HG changeset patch
# User ca
# Date 1075364217 -3600
# Node ID 40819a29fdcd5e8836b35ab0bd5d5adc945f32a4
# Parent  89d9378201b18b4d6e7bce4e808a7de08a380cff
comment

diff -r 89d9378201b1 -r 40819a29fdcd AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Wed Jan 28 21:07:52 2004 +0100
+++ b/AbstractOperatingSystem.st	Thu Jan 29 09:16:57 2004 +0100
@@ -4889,10 +4889,8 @@
 
 millisecondDelay:millis
     "delay execution for millis milliseconds or until the next event arrives.
-     All lower priority threads will also sleep for the duration, 
-     interrupts (and therefore, higher prio processes) are still handled. 
-     Better use a Delay, to only delay the calling thread.
-     (however, a delay cannot be used in the event handler or scheduler)"
+     All other threads proceed as usual. 
+     Better use a Delay, however, a delay cannot be used in the event handler or scheduler."
 
     |now then delta|
 
@@ -4900,13 +4898,13 @@
     then := self millisecondTimeAdd:now and:millis.
 
     [self millisecondTime:then isAfter:now] whileTrue:[
-	delta := self millisecondTimeDeltaBetween:then and:now.
-	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
-	now := self getMillisecondTime.
+        delta := self millisecondTimeDeltaBetween:then and:now.
+        self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
+        now := self getMillisecondTime.
     ]
 
     "
-     OperatingSystem millisecondDelay:2000
+     OperatingSystem millisecondDelay:5000
     "
 !
 
@@ -5522,7 +5520,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.124 2004-01-26 15:09:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.125 2004-01-29 08:16:57 ca Exp $'
 ! !
 
 AbstractOperatingSystem initialize!