--- a/ProcessorScheduler.st Thu Jul 20 12:14:14 2017 +0200
+++ b/ProcessorScheduler.st Thu Jul 20 16:44:13 2017 +0200
@@ -2893,9 +2893,11 @@
executing; if it is suspended, it will be resumed).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:activeProcess afterMilliseconds:timeDuration getMilliseconds
+
+ "Modified (comment): / 20-07-2017 / 16:43:12 / cg"
!
addTimedBlock:aBlock afterMilliseconds:delta
@@ -2906,11 +2908,12 @@
executing; if it is suspended, it will be resumed).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:activeProcess afterMilliseconds:delta
- "Modified: 23.9.1996 / 14:33:59 / cg"
+ "Modified: / 23-09-1996 / 14:33:59 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:17 / cg"
!
addTimedBlock:aBlock afterSeconds:delta
@@ -2921,11 +2924,12 @@
executing; if it is suspended, it will be resumed).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:activeProcess afterMilliseconds:(delta * 1000) rounded
- "Modified: 23.9.1996 / 14:34:04 / cg"
+ "Modified: / 23-09-1996 / 14:34:04 / cg"
+ "Modified (comment): / 20-07-2017 / 16:42:54 / cg"
!
addTimedBlock:aBlock atMilliseconds:aMillisecondTime
@@ -2937,11 +2941,12 @@
executing; if it is suspended, it will be resumed).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:activeProcess atMilliseconds:aMillisecondTime
- "Modified: 23.9.1996 / 14:34:09 / cg"
+ "Modified: / 23-09-1996 / 14:34:09 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:22 / cg"
!
addTimedBlock:aBlock for:aProcess after:timeDuration
@@ -2954,11 +2959,12 @@
(which is dangerous - the block should not raise any error conditions).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:aProcess afterMilliseconds:timeDuration getMilliseconds
- "Modified: 23.9.1996 / 14:34:18 / cg"
+ "Modified: / 23-09-1996 / 14:34:18 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:26 / cg"
!
addTimedBlock:aBlock for:aProcess afterMilliseconds:delta
@@ -2971,7 +2977,7 @@
(which is dangerous - the block should not raise any error conditions).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
|now then id|
@@ -2981,6 +2987,7 @@
^ id
"Modified: / 18-07-2017 / 14:04:31 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:29 / cg"
!
addTimedBlock:aBlock for:aProcess afterSeconds:delta
@@ -2993,11 +3000,12 @@
(which is dangerous - the block should not raise any error conditions).
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
^ self addTimedBlock:aBlock for:aProcess afterMilliseconds:(delta * 1000) rounded
- "Modified: 23.9.1996 / 14:34:18 / cg"
+ "Modified: / 23-09-1996 / 14:34:18 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:32 / cg"
!
addTimedBlock:aBlock for:aProcess atMilliseconds:aMillisecondTime
@@ -3014,7 +3022,7 @@
if suspended at trigger time, it will be resumed.
The block will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
|index "{ Class: SmallInteger }"
wasBlocked|
@@ -3043,7 +3051,8 @@
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
^ index
- "Modified: 23.9.1996 / 14:34:23 / cg"
+ "Modified: / 23-09-1996 / 14:34:23 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:36 / cg"
!
addTimeoutFunctionCall:anExternalFunction for:aProcess afterMilliseconds:delta with:argument
@@ -3054,7 +3063,7 @@
in this processes context.
The callBack will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
|now then wasBlocked id|
@@ -3063,16 +3072,16 @@
then := OperatingSystem millisecondTimeAdd:now and:delta.
id := self
- addTimeoutFunctionCall:anExternalFunction
- for:aProcess
- atMilliseconds:then
- with:argument.
+ addTimeoutFunctionCall:anExternalFunction
+ for:aProcess
+ atMilliseconds:then
+ with:argument.
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
^ id
- "Created: 23.9.1996 / 14:28:27 / cg"
- "Modified: 23.9.1996 / 14:34:42 / cg"
+ "Created: / 23-09-1996 / 14:28:27 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:39 / cg"
!
addTimeoutFunctionCall:anExternalFunction for:aProcess atMilliseconds:milliTime with:argument
@@ -3083,18 +3092,18 @@
in this processes context.
The callBack will be removed from the timed-block list after evaluation
(i.e. it will trigger only once).
- Returns an ID, which can be used in #removeTimeoutWidthID:"
+ Returns an ID, which can be used in #removeTimeoutWithID:"
|action|
action := [anExternalFunction callWith:argument].
^ self
- addTimedBlock:action
- for:aProcess
- atMilliseconds:milliTime.
-
- "Created: 23.9.1996 / 14:29:30 / cg"
- "Modified: 23.9.1996 / 14:34:57 / cg"
+ addTimedBlock:action
+ for:aProcess
+ atMilliseconds:milliTime.
+
+ "Created: / 23-09-1996 / 14:29:30 / cg"
+ "Modified (comment): / 20-07-2017 / 16:43:42 / cg"
!
evaluateTimeouts