--- a/Time.st Sat Mar 20 16:26:02 2004 +0100
+++ b/Time.st Sat Mar 20 16:29:29 2004 +0100
@@ -42,7 +42,7 @@
they cannot be used to compare times across midnight
(i.e. they should not be used as timeStamps).
- Use instances of AbsoluteTime (and read the comment there) to do this.
+ Use instances of Timestamp (and read the comment there) to do this.
Examples:
|t|
@@ -62,7 +62,7 @@
Claus Gittinger
[see also:]
- Date AbsoluteTime AbstractTime OperatingSystem
+ Date Timestamp AbstractTime OperatingSystem
Filename
"
! !
@@ -81,7 +81,7 @@
hour:h minutes:m seconds:s
"return an instance of Time representing the given time.
- See also Time now / Date today / AbsoluteTime now.
+ See also Time now / Date today / Timestamp now.
Obsolete: please use #hours:minutes:seconds:"
<resource:#obsolete>
@@ -102,7 +102,7 @@
hours:h minutes:m seconds:s
"return an instance of Time representing the given time.
- See also Time now / Date today / AbsoluteTime now."
+ See also Time now / Date today / Timestamp now."
^ self basicNew setHours:h minutes:m seconds:s
@@ -368,7 +368,7 @@
milliseconds
"time does not keep milliseconds
- - for compatibility with absoluteTime"
+ - for compatibility with Timestamp"
^ 0
!
@@ -437,23 +437,6 @@
!Time methodsFor:'converting'!
-asAbsoluteTime
- "return an AbsoluteTime object from the receiver.
- The date components are taken from today."
-
- |today|
-
- today := Date today.
- ^ AbsoluteTime year:today year month:today month day:today day
- hour:(self hours) minute:(self minutes) second:(self seconds)
- millisecond:(self milliseconds)
- "
- Time now asAbsoluteTime
- "
-
- "Modified: / 13.7.1999 / 12:32:08 / stefan"
-!
-
asSeconds
"return the number of seconds elapsed since midnight"
@@ -468,6 +451,23 @@
"return a Time object from the receiver - thats the receiver."
^ self
+!
+
+asTimeStamp
+ "return an TimeStamp object from the receiver.
+ The date components are taken from today."
+
+ |today|
+
+ today := Date today.
+ ^ Timestamp year:today year month:today month day:today day
+ hour:(self hours) minute:(self minutes) second:(self seconds)
+ millisecond:(self milliseconds)
+ "
+ Time now asTimeStamp
+ "
+
+ "Modified: / 13.7.1999 / 12:32:08 / stefan"
! !
!Time methodsFor:'printing & storing'!
@@ -675,5 +675,5 @@
!Time class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.73 2004-03-19 08:18:50 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.74 2004-03-20 15:29:29 stefan Exp $'
! !