# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1397686214 -7200
# Node ID 901dae758e608f3f082dd65c5e65aa9ad30cd724
# Parent  6b039dc97aa2a181182eb0c7520430c7a72e5c66
class: Delay
changed: #until:

diff -r 6b039dc97aa2 -r 901dae758e60 Delay.st
--- a/Delay.st	Thu Apr 17 00:07:55 2014 +0200
+++ b/Delay.st	Thu Apr 17 00:10:14 2014 +0200
@@ -166,7 +166,8 @@
 
     |numberOfMilliseconds|
 
-    numberOfMilliseconds := aTimeStamp getMilliseconds - Timestamp now getMilliseconds.
+    "/ numberOfMilliseconds := aTimeStamp getMilliseconds - Timestamp now getMilliseconds.
+    numberOfMilliseconds := aTimeStamp millisecondDeltaFrom:Timestamp now.
     ^ self new delay:numberOfMilliseconds
 !
 
@@ -358,10 +359,10 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.49 2014-03-28 13:40:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.50 2014-04-16 22:10:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.49 2014-03-28 13:40:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.50 2014-04-16 22:10:14 cg Exp $'
 ! !