equal
deleted
inserted
replaced
151 #'width:' 50 |
151 #'width:' 50 |
152 #'model:' #size |
152 #'model:' #size |
153 #'canSelect:' false |
153 #'canSelect:' false |
154 ) |
154 ) |
155 #(#DataSetColumnSpec |
155 #(#DataSetColumnSpec |
156 #'label:' ' Modified' |
156 #'label:' 'Modified' |
157 #'labelAlignment:' #left |
157 #'labelAlignment:' #left |
158 #'model:' #modified |
158 #'model:' #modified |
159 #'canSelect:' false |
159 #'canSelect:' false |
160 ) |
160 ) |
161 #(#DataSetColumnSpec |
161 #(#DataSetColumnSpec |
339 |
339 |
340 super initialize. |
340 super initialize. |
341 |
341 |
342 directory := directory ? '.' asFilename asAbsoluteFilename directoryName. |
342 directory := directory ? '.' asFilename asAbsoluteFilename directoryName. |
343 monitoring := false. |
343 monitoring := false. |
344 fileAttributes := #('File name' 'Size'). |
344 fileAttributes := #('File name' 'Size' 'Modified'). |
345 self selectionOfFileFilter value: (self listOfFileFilters at: 1 ifAbsent: [nil]). |
345 self selectionOfFileFilter value: (self listOfFileFilters at: 1 ifAbsent: [nil]). |
346 |
346 |
347 ! ! |
347 ! ! |
348 |
348 |
349 !DirectoryView methodsFor:'private'! |
349 !DirectoryView methodsFor:'private'! |
713 ^permissions |
713 ^permissions |
714 ! |
714 ! |
715 |
715 |
716 size |
716 size |
717 |
717 |
718 ^size |
718 size < 1024 ifTrue: [^size printString, ' B']. |
|
719 size < 1048576 ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' KB']. |
|
720 ^(((size/1048576) * 10) asInteger/10) asFloat printString, ' MB' |
|
721 |
|
722 |
|
723 |
|
724 |
719 ! ! |
725 ! ! |
720 |
726 |
721 !DirectoryView::FileRow methodsFor:'private'! |
727 !DirectoryView::FileRow methodsFor:'private'! |
722 |
728 |
723 validateAttributes |
729 validateAttributes |