--- 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!