# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 897013300 -7200
# Node ID 75824285fe74ed9105cdd65726f6d8d1056b0c2d
# Parent  167b22eeac33864c9fa0fb60156f33672da9dd45
comment

diff -r 167b22eeac33 -r 75824285fe74 AbsTime.st
--- a/AbsTime.st	Thu Jun 04 21:18:07 1998 +0200
+++ b/AbsTime.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/Attic/AbsTime.st,v 1.35 1998-05-22 11:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.36 1998-06-05 02:21:40 cg Exp $'
 ! !
diff -r 167b22eeac33 -r 75824285fe74 AbsoluteTime.st
--- a/AbsoluteTime.st	Thu Jun 04 21:18:07 1998 +0200
+++ b/AbsoluteTime.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/Attic/AbsoluteTime.st,v 1.35 1998-05-22 11:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.36 1998-06-05 02:21:40 cg Exp $'
 ! !
diff -r 167b22eeac33 -r 75824285fe74 Timestamp.st
--- 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 $'
 ! !