comment
authorClaus Gittinger <cg@exept.de>
Fri, 05 Jun 1998 04:21:40 +0200
changeset 3510 75824285fe74
parent 3509 167b22eeac33
child 3511 ec09a15de9df
comment
AbsTime.st
AbsoluteTime.st
Timestamp.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 $'
 ! !
--- 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 $'
 ! !
--- 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 $'
 ! !