diff -r 9d0fafbb5855 -r 2cb1366e0eb3 AbstractTime.st --- 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 $' ! !