--- 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!