# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1523346683 -7200
# Node ID 992198b2f87649992593da70103f4b330578fb63
# Parent  185f2775c1ca2eeeea10a2dbe6ded29a0af59925
#BUGFIX by stefan
class: TimedPromise
changed: #startup (send #forMilliseconds: instead of #waitForMilliseconds:)
   do not wait when initializing the delay

diff -r 185f2775c1ca -r 992198b2f876 TimedPromise.st
--- a/TimedPromise.st	Thu Mar 29 13:05:22 2018 +0200
+++ b/TimedPromise.st	Tue Apr 10 09:51:23 2018 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Promise subclass:#TimedPromise
 	instanceVariableNames:'delay ms'
 	classVariableNames:''
@@ -123,12 +125,14 @@
 startup
     "Wait for data arrival or alarm expiry."
 
-    ms notNil ifTrue:[delay := Delay waitForMilliseconds: ms]
+    ms notNil ifTrue:[delay := Delay forMilliseconds:ms]
+
+    "Modified: / 10-04-2018 / 09:49:01 / stefan"
 ! !
 
 !TimedPromise class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TimedPromise.st,v 1.3 2014-02-28 13:14:59 mb Exp $'
+    ^ '$Header$'
 ! !