--- a/Filename.st Thu Sep 25 14:58:16 1997 +0200
+++ b/Filename.st Tue Sep 30 11:36:17 1997 +0200
@@ -1395,7 +1395,7 @@
accessTime
"return a timeStamp containing the files last access time."
- ^ self dates at:#accessed
+ ^ self info accessed
"
Filename currentDirectory accessTime
@@ -1403,6 +1403,7 @@
"Created: 9.7.1996 / 10:19:15 / cg"
"Modified: 9.7.1996 / 10:19:27 / cg"
+ "Modified: 26.9.1997 / 13:05:51 / stefan"
!
dates
@@ -1636,13 +1637,14 @@
modificationTime
"return a timeStamp containing the files modification time."
- ^ self dates at:#modified
+ ^ self info modified
"
Filename currentDirectory modificationTime
"
"Created: 9.7.1996 / 10:18:59 / cg"
+ "Modified: 26.9.1997 / 13:05:39 / stefan"
!
type
@@ -2462,6 +2464,14 @@
"Modified: 29.2.1996 / 20:21:25 / cg"
!
+localPathName
+ "return the full pathname of the file represented by the receiver,
+ but without any volume information.
+ Only makes a difference on MSDOS & VMS systems."
+
+ ^ self pathName
+!
+
name
"return the name of the file represented by the receiver as a string.
This may or may not be a relative name (i.e. include ..'s).
@@ -2490,14 +2500,6 @@
"Modified: 18.1.1996 / 21:36:27 / cg"
!
-localPathName
- "return the full pathname of the file represented by the receiver,
- but without any volume information.
- Only makes a difference on MSDOS & VMS systems."
-
- ^ self pathName
-!
-
pathName
"return the full pathname of the file represented by the receiver,
as a string. This will not include ..'s.
@@ -2752,6 +2754,6 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.107 1997-09-24 03:45:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.108 1997-09-30 09:36:17 stefan Exp $'
! !
Filename initialize!