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