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.
#-, #< and #> moved to AbstractTime
authorClaus Gittinger <cg@exept.de>
Thu, 31 Aug 2000 16:26:11 +0200
changeset 5572 121e985bc542
parent 5571 1c522f744719
child 5573 efd0dc6578ac
#-, #< and #> moved to AbstractTime
AbsoluteTime.st file | annotate | diff | comparison | revisions
Timestamp.st file | annotate | diff | comparison | revisions 
--- a/AbsoluteTime.st	Thu Aug 31 12:04:54 2000 +0200
+++ b/AbsoluteTime.st	Thu Aug 31 16:26:11 2000 +0200
@@ -640,12 +640,6 @@
 
 !AbsoluteTime methodsFor:'arithmetic'!
 
-- aTime
-    "return the delta in seconds between 2 times."
-
-    ^ self getSeconds - (aTime getSeconds)
-!
-
 addDays:numberOfDays
     "return a new instance of myself, numberOfDays afterwards."
 
@@ -712,14 +706,6 @@
 
 !AbsoluteTime methodsFor:'comparing'!
 
-< aTime
-    "return true if the receiver is before the argument"
-
-    ^ self getMilliseconds < aTime getMilliseconds
-
-    "Modified: 3.7.1996 / 13:10:17 / cg"
-!
-
 = aTime
     "return true if the argument, aTime represents the same time"
 
@@ -729,14 +715,6 @@
     "Modified: 3.7.1996 / 13:10:24 / cg"
 !
 
-> aTime
-    "return true if the receiver is after the argument"
-
-    ^ self getMilliseconds > aTime getMilliseconds
-
-    "Modified: 1.7.1996 / 15:24:38 / cg"
-!
-
 hash
     "return an integer useful for hashing on times"
 
@@ -1013,9 +991,8 @@
     "Modified: 1.7.1996 / 14:34:10 / cg"
 ! !
 
-
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.53 2000-07-18 09:05:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.54 2000-08-31 14:26:11 cg Exp $'
 ! !
--- a/Timestamp.st	Thu Aug 31 12:04:54 2000 +0200
+++ b/Timestamp.st	Thu Aug 31 16:26:11 2000 +0200
@@ -640,12 +640,6 @@
 
 !AbsoluteTime methodsFor:'arithmetic'!
 
-- aTime
-    "return the delta in seconds between 2 times."
-
-    ^ self getSeconds - (aTime getSeconds)
-!
-
 addDays:numberOfDays
     "return a new instance of myself, numberOfDays afterwards."
 
@@ -712,14 +706,6 @@
 
 !AbsoluteTime methodsFor:'comparing'!
 
-< aTime
-    "return true if the receiver is before the argument"
-
-    ^ self getMilliseconds < aTime getMilliseconds
-
-    "Modified: 3.7.1996 / 13:10:17 / cg"
-!
-
 = aTime
     "return true if the argument, aTime represents the same time"
 
@@ -729,14 +715,6 @@
     "Modified: 3.7.1996 / 13:10:24 / cg"
 !
 
-> aTime
-    "return true if the receiver is after the argument"
-
-    ^ self getMilliseconds > aTime getMilliseconds
-
-    "Modified: 1.7.1996 / 15:24:38 / cg"
-!
-
 hash
     "return an integer useful for hashing on times"
 
@@ -1013,9 +991,8 @@
     "Modified: 1.7.1996 / 14:34:10 / cg"
 ! !
 
-
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.53 2000-07-18 09:05:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.54 2000-08-31 14:26:11 cg Exp $'
 ! !
hg/stx-libbasic