Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Delay
authorClaus Gittinger <cg@exept.de>
Thu, 17 Apr 2014 00:10:14 +0200
changeset 16351 901dae758e60
parent 16350 6b039dc97aa2
child 16352 7b53da3d7431
class: Delay changed: #until:
Delay.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
hg/stx-libbasic