# HG changeset patch
# User tz
# Date 895062902 -7200
# Node ID e967a1359d773927eb8d3124d3c4b8ee0dc40a52
# Parent  b48899f22b61e3bf8cc44496149443522b65407d
table columns formatted

diff -r b48899f22b61 -r e967a1359d77 DirectoryView.st
--- a/DirectoryView.st	Mon May 11 10:43:01 1998 +0200
+++ b/DirectoryView.st	Wed May 13 14:35:02 1998 +0200
@@ -70,31 +70,98 @@
 
 !DirectoryView class methodsFor:'interface specs'!
 
-windowSpec
-    "this window spec was automatically generated by the ST/X UIPainter"
+tableColumnsForFileAttributes
+    "This resource specification was automatically generated
+     by the DataSetBuilder of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the DataSetBuilder may not be able to read the specification."
+
+    "
+     DataSetBuilder new openOnClass:DirectoryView andSelector:#tableColumnsForFileAttributes
+    "
+
+    <resource: #tableColumns>
+
 
-    "do not manually edit this - the painter/builder may not be able to
-     handle the specification if its corrupted."
+    ^ #(
+        #(#DataSetColumnSpec
+           #label: ''
+           #width: 30
+           #height: 22
+           #printSelector: #iconOn:
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'File name'
+           #labelAlignment: #left
+           #minWidth: 150
+           #model: #baseName
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'Size'
+           #labelAlignment: #left
+           #width: 70
+           #model: #size
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'Modified'
+           #labelAlignment: #left
+           #model: #modified
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'Permissions'
+           #labelAlignment: #left
+           #width: 85
+           #model: #permissions
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'Owner'
+           #labelAlignment: #left
+           #width: 50
+           #model: #owner
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: 'Group'
+           #labelAlignment: #left
+           #width: 50
+           #model: #group
+           #canSelect: false
+       )
+     )
+!
+
+windowSpec
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
 
     "
      UIPainter new openOnClass:DirectoryView andSelector:#windowSpec
      DirectoryView new openInterface:#windowSpec
+     DirectoryView open
     "
-    "DirectoryView open"
 
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #window: 
            #(#WindowSpec
               #name: 'Directory View'
-              #layout: #(#LayoutFrame 34 0 350 0 433 0 649 0)
+              #layout: #(#LayoutFrame 412 0 367 0 811 0 666 0)
               #label: 'Directory View'
               #min: #(#Point 10 10)
               #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 34 350 434 650)
+              #bounds: #(#Rectangle 412 367 812 667)
               #usePreferredExtent: false
           )
           #component: 
@@ -124,7 +191,7 @@
                     #comboList: #listOfFileFilters
                 )
                  #(#LabelSpec
-                    #name: 'label1'
+                    #name: 'filterLabel'
                     #layout: #(#LayoutFrame 0 0 0 0 62 0 22 0)
                     #label: 'Filter: '
                     #adjust: #right
@@ -132,64 +199,6 @@
               )
           )
       )
-
-!
-
-windowSpecOfFileAttributeColumns
-
-    ^
-     #(
-       #(#DataSetColumnSpec
-          #'label:' ''
-          #'width:' 30
-          #'height:' 22
-          #'printSelector:' #'iconOn:'
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'File name'
-          #'labelAlignment:' #left
-          #'minWidth:' 150
-          #'model:' #baseName
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'Size'
-          #'labelAlignment:' #left
-          #'width:' 70
-          #'model:' #size
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'Modified'
-          #'labelAlignment:' #left
-          #'model:' #modified
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'Permissions'
-          #'labelAlignment:' #left
-          #'width:' 85
-          #'model:' #permissions
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'Owner'
-          #'labelAlignment:' #left
-          #'width:' 50
-          #'model:' #owner
-          #'canSelect:' false
-      )
-       #(#DataSetColumnSpec
-          #'label:' 'Group'
-          #'labelAlignment:' #left
-          #'width:' 50
-          #'model:' #group
-          #'canSelect:' false
-      )
-    )
-
-    "Modified: / 6.2.1998 / 03:40:16 / cg"
 ! !
 
 !DirectoryView methodsFor:'accessing'!
@@ -254,7 +263,7 @@
     (holder := builder bindingAt:#fileAttributeColumns) isNil ifTrue:[
         |fileAttributeColumns|
         builder aspectAt:#fileAttributeColumns put:(holder := List new).
-        fileAttributeColumns := self class windowSpecOfFileAttributeColumns collect: [:i| i decodeAsLiteralArray].
+        fileAttributeColumns := self class tableColumnsForFileAttributes collect: [:i| i decodeAsLiteralArray].
         holder add: fileAttributeColumns first.
         fileAttributeColumns do:
         [:col|
@@ -758,7 +767,7 @@
     (image := aGC registeredImageAt: fileName name asSymbol) isNil
     ifTrue:
     [            
-        size < 5000
+        size < 500000
         ifTrue:
         [     
             Object errorSignal handle: [:ex|]