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