--- a/Timestamp.st Thu Jun 04 21:18:07 1998 +0200
+++ b/Timestamp.st Fri Jun 05 04:21:40 1998 +0200
@@ -470,7 +470,8 @@
!
millisecondDeltaFrom:anAbsoluteTime
- "return the delta in milliseconds between 2 absolute times."
+ "return the delta in milliseconds between 2 absolute times.
+ The argument is supposed to be AFTER the receiver"
^ (self getSeconds - (anAbsoluteTime getSeconds)) * 1000
+ self milliseconds - anAbsoluteTime milliseconds
@@ -484,7 +485,7 @@
t2 millisecondDeltaFrom:t1
"
- "Modified: 7.5.1997 / 16:38:49 / cg"
+ "Modified: / 5.6.1998 / 04:21:33 / cg"
!
subtractDays:numberOfDays
@@ -700,5 +701,5 @@
!AbsoluteTime class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.35 1998-05-22 11:12:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.36 1998-06-05 02:21:40 cg Exp $'
! !