# HG changeset patch
# User tz
# Date 886694575 -3600
# Node ID 17f3d679fa72ef61a8ffba8a70dcc66f30cc1ba1
# Parent  0383cd70fe797fae475084b5cc883fa18371e0c8
better size info

diff -r 0383cd70fe79 -r 17f3d679fa72 DirectoryView.st
--- a/DirectoryView.st	Thu Feb 05 16:50:03 1998 +0100
+++ b/DirectoryView.st	Thu Feb 05 17:02:55 1998 +0100
@@ -153,7 +153,7 @@
           #'canSelect:' false
       )
        #(#DataSetColumnSpec
-          #'label:' ' Modified'
+          #'label:' 'Modified'
           #'labelAlignment:' #left
           #'model:' #modified
           #'canSelect:' false
@@ -341,7 +341,7 @@
 
     directory :=  directory ? '.' asFilename asAbsoluteFilename directoryName.
     monitoring := false.
-    fileAttributes := #('File name' 'Size').
+    fileAttributes := #('File name' 'Size' 'Modified').
     self selectionOfFileFilter value: (self listOfFileFilters at: 1 ifAbsent: [nil]).
 
 ! !
@@ -715,7 +715,13 @@
 
 size
 
-    ^size
+    size < 1024    ifTrue: [^size printString, ' B'].
+    size < 1048576 ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' KB'].
+    ^(((size/1048576) * 10) asInteger/10) asFloat printString, ' MB'
+
+
+
+
 ! !
 
 !DirectoryView::FileRow methodsFor:'private'!