Simplify #accessTime and #modificationTime
authorStefan Vogel <sv@exept.de>
Tue, 30 Sep 1997 11:36:17 +0200
changeset 2987 87a7ad1f4519
parent 2986 c6957cf6128f
child 2988 c6550b3e9b3c
Simplify #accessTime and #modificationTime
Filename.st
--- 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!