--- 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."
+ <resource:#obsolete>
+
|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."
+ <resource:#obsolete>
+
|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"
+ <resource:#obsolete>
self obsoleteMethodWarning:'use #accessTime'.
^ self accessTime
@@ -10599,7 +10603,7 @@
!
modified
- "return modified"
+ <resource:#obsolete>
self obsoleteMethodWarning:'use #modificationTime'.
^ self modificationTime
@@ -10612,7 +10616,7 @@
!
statusChanged
- "return statusChanged"
+ <resource:#obsolete>
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!