UnixOperatingSystem.st
changeset 8355 b46ecc1b4d79
parent 8337 1168b3ff3cdc
child 8469 928145276114
--- 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!