DirectoryView.st
changeset 823 47e7d348e01a
parent 820 e967a1359d77
child 828 12090f74be53
equal deleted inserted replaced
822:be574ef48217 823:47e7d348e01a
    67 
    67 
    68     "Modified: / 28.1.1998 / 15:44:53 / stefan"
    68     "Modified: / 28.1.1998 / 15:44:53 / stefan"
    69 ! !
    69 ! !
    70 
    70 
    71 !DirectoryView class methodsFor:'interface specs'!
    71 !DirectoryView class methodsFor:'interface specs'!
       
    72 
       
    73 windowSpec
       
    74     "This resource specification was automatically generated
       
    75      by the UIPainter of ST/X."
       
    76 
       
    77     "Do not manually edit this!! If it is corrupted,
       
    78      the UIPainter may not be able to read the specification."
       
    79 
       
    80     "
       
    81      UIPainter new openOnClass:DirectoryView andSelector:#windowSpec
       
    82      DirectoryView new openInterface:#windowSpec
       
    83      DirectoryView open
       
    84     "
       
    85 
       
    86     <resource: #canvas>
       
    87 
       
    88     ^
       
    89      
       
    90        #(#FullSpec
       
    91           #window: 
       
    92            #(#WindowSpec
       
    93               #name: 'Directory View'
       
    94               #layout: #(#LayoutFrame 412 0 367 0 811 0 666 0)
       
    95               #label: 'Directory View'
       
    96               #min: #(#Point 10 10)
       
    97               #max: #(#Point 1152 900)
       
    98               #bounds: #(#Rectangle 412 367 812 667)
       
    99               #usePreferredExtent: false
       
   100           )
       
   101           #component: 
       
   102            #(#SpecCollection
       
   103               #collection: 
       
   104                #(
       
   105                  #(#DataSetSpec
       
   106                     #name: 'filesDataSetView'
       
   107                     #layout: #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
       
   108                     #model: #selectionOfFile
       
   109                     #hasHorizontalScrollBar: true
       
   110                     #hasVerticalScrollBar: true
       
   111                     #miniScrollerHorizontal: true
       
   112                     #dataList: #listOfFiles
       
   113                     #useIndex: false
       
   114                     #doubleClickSelector: #fileDoubleClicked
       
   115                     #columnHolder: #fileAttributeColumns
       
   116                     #valueChangeSelector: #fileSelected
       
   117                     #verticalSpacing: 1
       
   118                 )
       
   119                  #(#ComboBoxSpec
       
   120                     #name: 'formatComboBox'
       
   121                     #layout: #(#LayoutFrame 63 0.0 0 0 0 1.0 22 0)
       
   122                     #model: #selectionOfFileFilter
       
   123                     #immediateAccept: false
       
   124                     #acceptOnTab: false
       
   125                     #comboList: #listOfFileFilters
       
   126                 )
       
   127                  #(#LabelSpec
       
   128                     #name: 'filterLabel'
       
   129                     #layout: #(#LayoutFrame 0 0 0 0 62 0 22 0)
       
   130                     #label: 'Filter: '
       
   131                     #adjust: #right
       
   132                 )
       
   133               )
       
   134           )
       
   135       )
       
   136 ! !
       
   137 
       
   138 !DirectoryView class methodsFor:'list specs'!
    72 
   139 
    73 tableColumnsForFileAttributes
   140 tableColumnsForFileAttributes
    74     "This resource specification was automatically generated
   141     "This resource specification was automatically generated
    75      by the DataSetBuilder of ST/X."
   142      by the DataSetBuilder of ST/X."
    76 
   143 
   132            #width: 50
   199            #width: 50
   133            #model: #group
   200            #model: #group
   134            #canSelect: false
   201            #canSelect: false
   135        )
   202        )
   136      )
   203      )
   137 !
       
   138 
       
   139 windowSpec
       
   140     "This resource specification was automatically generated
       
   141      by the UIPainter of ST/X."
       
   142 
       
   143     "Do not manually edit this!! If it is corrupted,
       
   144      the UIPainter may not be able to read the specification."
       
   145 
       
   146     "
       
   147      UIPainter new openOnClass:DirectoryView andSelector:#windowSpec
       
   148      DirectoryView new openInterface:#windowSpec
       
   149      DirectoryView open
       
   150     "
       
   151 
       
   152     <resource: #canvas>
       
   153 
       
   154     ^
       
   155      
       
   156        #(#FullSpec
       
   157           #window: 
       
   158            #(#WindowSpec
       
   159               #name: 'Directory View'
       
   160               #layout: #(#LayoutFrame 412 0 367 0 811 0 666 0)
       
   161               #label: 'Directory View'
       
   162               #min: #(#Point 10 10)
       
   163               #max: #(#Point 1152 900)
       
   164               #bounds: #(#Rectangle 412 367 812 667)
       
   165               #usePreferredExtent: false
       
   166           )
       
   167           #component: 
       
   168            #(#SpecCollection
       
   169               #collection: 
       
   170                #(
       
   171                  #(#DataSetSpec
       
   172                     #name: 'filesDataSetView'
       
   173                     #layout: #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
       
   174                     #model: #selectionOfFile
       
   175                     #hasHorizontalScrollBar: true
       
   176                     #hasVerticalScrollBar: true
       
   177                     #miniScrollerHorizontal: true
       
   178                     #dataList: #listOfFiles
       
   179                     #useIndex: false
       
   180                     #doubleClickSelector: #fileDoubleClicked
       
   181                     #columnHolder: #fileAttributeColumns
       
   182                     #valueChangeSelector: #fileSelected
       
   183                     #verticalSpacing: 1
       
   184                 )
       
   185                  #(#ComboBoxSpec
       
   186                     #name: 'formatComboBox'
       
   187                     #layout: #(#LayoutFrame 63 0.0 0 0 0 1.0 22 0)
       
   188                     #model: #selectionOfFileFilter
       
   189                     #immediateAccept: false
       
   190                     #acceptOnTab: false
       
   191                     #comboList: #listOfFileFilters
       
   192                 )
       
   193                  #(#LabelSpec
       
   194                     #name: 'filterLabel'
       
   195                     #layout: #(#LayoutFrame 0 0 0 0 62 0 22 0)
       
   196                     #label: 'Filter: '
       
   197                     #adjust: #right
       
   198                 )
       
   199               )
       
   200           )
       
   201       )
       
   202 ! !
   204 ! !
   203 
   205 
   204 !DirectoryView methodsFor:'accessing'!
   206 !DirectoryView methodsFor:'accessing'!
   205 
   207 
   206 directory: aDirectory
   208 directory: aDirectory