--- 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|]