AbstractFileBrowser.st
changeset 4000 31abf5426b87
parent 3989 7eec3cb5bce6
child 4004 f97168a68093
--- a/AbstractFileBrowser.st	Tue Oct 15 14:40:01 2002 +0200
+++ b/AbstractFileBrowser.st	Tue Oct 15 14:49:08 2002 +0200
@@ -3861,7 +3861,7 @@
         info := filename info
     ].
     
-    text add:('size:   ', (info size) printString).
+    text add:('size:   ', (info fileSize) printString).
 
     modeBits := info mode.
     modeString := self getModeString:modeBits.
@@ -3876,10 +3876,10 @@
         text add:('group:  ',
                    (OperatingSystem getGroupNameFromID:(info gid))).
 
-        ts := info accessed.
+        ts := info accessTime.
         text add:('last access:       ',ts asTime printString ,' ', ts asDate printString). 
 
-        ts := (info modified).
+        ts := info modificationTime.
         text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
     ].
     ^ text asString
@@ -4700,5 +4700,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.19 2002-10-14 16:02:37 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.20 2002-10-15 12:49:08 cg Exp $'
 ! !