ProcessorScheduler.st
changeset 22062 eda26ee1f6f5
parent 22060 19b51303fe00
child 22078 24f52f37b7c0
--- 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