modified -> modificationTime
authorClaus Gittinger <cg@exept.de>
Tue, 08 Oct 2002 21:28:46 +0200
changeset 6793 0d3e3fd18a70
parent 6792 ebd0bc1c5c6d
child 6794 498d85323172
modified -> modificationTime accessed -> accessTime
AbstractOperatingSystem.st
Filename.st
--- a/AbstractOperatingSystem.st	Tue Oct 08 21:24:45 2002 +0200
+++ b/AbstractOperatingSystem.st	Tue Oct 08 21:28:46 2002 +0200
@@ -2396,14 +2396,14 @@
     "return the time, when the file was last accessed.
      For nonexistent files, nil is returned."
 
-    ^ (self infoOf:aPathName) accessed 
+    ^ (self infoOf:aPathName) accessTime 
 !
 
 timeOfLastChange:aPathName
     "return the time, when the file was last changed. 
      For nonexistent files, nil is returned."
 
-    ^ (self infoOf:aPathName) modified
+    ^ (self infoOf:aPathName) modificationTime
 !
 
 typeOf:aPathName
@@ -4436,7 +4436,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.76 2002-09-27 12:01:15 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.77 2002-10-08 19:28:29 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!
--- a/Filename.st	Tue Oct 08 21:24:45 2002 +0200
+++ b/Filename.st	Tue Oct 08 21:28:46 2002 +0200
@@ -2489,7 +2489,7 @@
     | i |
 
     (i := self info) isNil ifTrue:[^ nil].
-    ^ i accessed
+    ^ i accessTime
 
     "
      Filename currentDirectory accessTime 
@@ -2510,15 +2510,15 @@
     osName := self osNameForAccess.
     info := OperatingSystem infoOf:osName.
     info isNil ifTrue:[
-	info := OperatingSystem linkInfoOf:osName.
-	info isNil ifTrue:[
-	    ^ nil
-	]
+        info := OperatingSystem linkInfoOf:osName.
+        info isNil ifTrue:[
+            ^ nil
+        ]
     ].
     dates := IdentityDictionary new.
-    dates at:#modified put:(info modified).
-    dates at:#accessed put:(info accessed).
-    dates at:#statusChanged put:(info statusChanged).
+    dates at:#modified put:(info modificationTime).
+    dates at:#accessed put:(info accessTime).
+    dates at:#statusChanged put:(info statusChangeTime).
     ^ dates
 
     "
@@ -2758,7 +2758,7 @@
     |i|
 
     (i := self info) isNil ifTrue:[^ nil].      "/ non-existing
-    ^ i modified
+    ^ i modificationTime
 
     "
      Filename currentDirectory modificationTime
@@ -4445,7 +4445,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.224 2002-09-26 19:11:49 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.225 2002-10-08 19:28:46 cg Exp $'
 ! !
 
 Filename initialize!