--- a/AbstractTime.st Wed Jan 29 18:03:09 1997 +0100
+++ b/AbstractTime.st Wed Jan 29 19:01:17 1997 +0100
@@ -17,7 +17,7 @@
category:'Magnitude-General'
!
-!AbstractTime class methodsFor:'documentation'!
+!AbstractTime class methodsFor:'documentation'!
copyright
"
@@ -49,7 +49,7 @@
"
! !
-!AbstractTime class methodsFor:'instance creation'!
+!AbstractTime class methodsFor:'instance creation'!
dateAndTimeNow
"return an array filled with the current date and time.
@@ -77,7 +77,7 @@
"Modified: 1.7.1996 / 15:20:10 / cg"
! !
-!AbstractTime class methodsFor:'ST-80 compatibility'!
+!AbstractTime class methodsFor:'ST-80 compatibility'!
totalSeconds
"returns an internal second clock. Dont interpret the returned
@@ -87,7 +87,7 @@
^ self secondClock
! !
-!AbstractTime class methodsFor:'private instance creation'!
+!AbstractTime class methodsFor:'private instance creation'!
fromOSTime:osTime
"return a time, representing the time given by the operatingSystem time.
@@ -120,7 +120,7 @@
"Modified: 1.7.1996 / 13:39:30 / cg"
! !
-!AbstractTime class methodsFor:'queries'!
+!AbstractTime class methodsFor:'queries'!
millisecondClockValue
"return the millisecond clock - since this one overruns
@@ -146,7 +146,7 @@
"Modified: 1.7.1996 / 15:20:14 / cg"
! !
-!AbstractTime class methodsFor:'timing evaluations'!
+!AbstractTime class methodsFor:'timing evaluations'!
millisecondsToRun:aBlock
"evaluate the argument, aBlock; return the number of milliseconds it took"
@@ -204,7 +204,7 @@
"
!
-secondDay
+secondInDay
"return the seconds (0..59)"
^ self seconds
@@ -213,6 +213,8 @@
AbsoluteTime now secondInDay
Time now seconds
"
+
+ "Created: 22.10.1996 / 09:27:47 / stefan"
! !
!AbstractTime methodsFor:'arithmetic'!
@@ -342,14 +344,6 @@
"Modified: 1.7.1996 / 15:09:44 / cg"
!
-fromOSTimeTimeLow:lowTime and:hiTime
- "set my time, from operatingSystems time parts.
- Since I am abstract (not knowing how the time is actually
- represented), this must be done by a concrete class."
-
- ^ self subclassResponsibility
-!
-
getMilliseconds
"get the milliseconds.
Since I am abstract (not knowing how the time is actually
@@ -386,8 +380,8 @@
^ self subclassResponsibility
! !
-!AbstractTime class methodsFor:'documentation'!
+!AbstractTime class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.13 1996-07-01 13:31:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.14 1997-01-29 18:01:17 stefan Exp $'
! !