diff -r 29521306c01f -r b46ecc1b4d79 UnixOperatingSystem.st --- a/UnixOperatingSystem.st Thu May 13 20:48:49 2004 +0200 +++ b/UnixOperatingSystem.st Thu May 13 20:50:04 2004 +0200 @@ -8047,6 +8047,8 @@ and evaluate the argument, a 3-arg block with these. Conversion is to localtime including any daylight saving adjustments." + + |year month day osSeconds i| self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'. @@ -8066,16 +8068,16 @@ day = __MKSMALLINT(tmPtr->tm_mday); %}. year isNil ifTrue:[ - i := self computeTimeAndDateFrom:osTime. - year := i year. - month := i month. - day := i day. + i := self computeTimeAndDateFrom:osTime. + year := i year. + month := i month. + day := i day. ]. aBlock value:year value:month value:day " OperatingSystem computeDatePartsOf:0 for:[:y :m :d | - y printCR. m printCR. d printCR + y printCR. m printCR. d printCR ] " ! @@ -8153,6 +8155,8 @@ and evaluate the argument, a 4-arg block with these. Conversion is to localtime including any daylight saving adjustments." + + |hours minutes seconds millis i| self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'. @@ -8167,7 +8171,7 @@ " OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli | - Transcript show:h; space; show:m; space; show:s; space; showCR:milli. + Transcript show:h; space; show:m; space; show:s; space; showCR:milli. ] " ! @@ -10584,7 +10588,7 @@ !UnixOperatingSystem::FileStatusInfo methodsFor:'backward compatibility'! accessed - "return accessed" + self obsoleteMethodWarning:'use #accessTime'. ^ self accessTime @@ -10599,7 +10603,7 @@ ! modified - "return modified" + self obsoleteMethodWarning:'use #modificationTime'. ^ self modificationTime @@ -10612,7 +10616,7 @@ ! statusChanged - "return statusChanged" + self obsoleteMethodWarning:'use #statusChangeTime'. ^ self statusChangeTime @@ -12327,7 +12331,7 @@ !UnixOperatingSystem class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.209 2004-05-09 20:43:21 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.210 2004-05-13 18:50:04 stefan Exp $' ! ! UnixOperatingSystem initialize!