hg/stx-libtool2: comparison DirectoryView.st

equal deleted inserted replaced

-:bf51357a8917
+:8b6cd53f93b8
 #(#FullSpec
 #'window:'
 #(#WindowSpec
 #'name:' 'Directory View'
-#'layout:' #(#LayoutFrame 194 0 152 0 593 0 451 0)
+#'layout:' #(#LayoutFrame 64 0 703 0 463 0 1002 0)
 #'label:' 'Directory View'
 #'min:' #(#Point 10 10)
 #'max:' #(#Point 1152 900)
-#'bounds:' #(#Rectangle 194 152 594 452)
+#'bounds:' #(#Rectangle 64 703 464 1003)
 #'usePreferredExtent:' false
 )
 #'component:'
 #(#SpecCollection
 #'collection:'
 #(
 #(#DataSetSpec
 #'name:' 'filesDataSetView'
-#'layout:' #(#LayoutFrame 0 0.0 22 0.0 0 1.0 0 1.0)
+#'layout:' #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
 #'model:' #selectionOfFile
 #'hasHorizontalScrollBar:' true
 #'hasVerticalScrollBar:' true
 #'miniScrollerHorizontal:' true
 #'dataList:' #listOfFiles
 #'comboList:' #listOfFileFilters
 )
 )
 )
 )
+"Modified: / 6.2.1998 / 03:42:15 / cg"
 !
 windowSpecOfFileAttributeColumns
 ^
 #'canSelect:' false
 )
 #(#DataSetColumnSpec
 #'label:' 'File name'
 #'labelAlignment:' #left
-#'minWidth:' 100
+#'minWidth:' 150
 #'model:' #baseName
 #'canSelect:' false
 )
 #(#DataSetColumnSpec
 #'label:' 'Size'
 #'labelAlignment:' #left
-#'width:' 50
+#'width:' 70
 #'model:' #size
 #'canSelect:' false
 )
 #(#DataSetColumnSpec
 #'label:' 'Modified'
 #'model:' #group
 #'canSelect:' false
 )
 )
+"Modified: / 6.2.1998 / 03:40:16 / cg"
 ! !
 !DirectoryView methodsFor:'accessing'!
 directory: aDirectory
 ^permissions
 !
 size
+size isNumber ifFalse:[^ size].
-size < 1024    ifTrue: [^size printString, ' B'].
+size < 1000        ifTrue: [^ size printString].
-size < 1048576 ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' KB'].
+size < (100*1024)  ifTrue: [^(((size/1024) * 10) asInteger/10) asFloat printString, ' Kb'].
-^(((size/1048576) * 10) asInteger/10) asFloat printString, ' MB'
+size < (1000*1024) ifTrue: [^(((size/1024)) asInteger) printString, ' Kb'].
+^(((size/1048576) * 10) asInteger/10) asFloat printString, ' Mb'
+"Modified: / 6.2.1998 / 03:38:45 / cg"
 ! !
 !DirectoryView::FileRow methodsFor:'private'!
 validateAttributes

changeset 607	8b6cd53f93b8
parent 593	17f3d679fa72
child 614	41cd940faa45