FileSelectionBrowser.st
changeset 1260 6f81c1d73e75
parent 1144 480d64f9ad81
child 1353 701e41f8ff9f
equal deleted inserted replaced
1259:34812b09585e 1260:6f81c1d73e75
   173      FileSelectionBrowser open
   173      FileSelectionBrowser open
   174     "
   174     "
   175 
   175 
   176     <resource: #canvas>
   176     <resource: #canvas>
   177 
   177 
   178     ^
   178     ^ 
   179      
   179      #(#FullSpec
   180        #(#FullSpec
   180         #name: #windowSpec
   181           #window: 
   181         #window: 
   182            #(#WindowSpec
   182        #(#WindowSpec
   183               #name: 'File Selection Browser'
   183           #label: 'File Selection Browser'
   184               #layout: #(#LayoutFrame 379 0 259 0 978 0 608 0)
   184           #name: 'File Selection Browser'
   185               #label: 'File Selection Browser'
   185           #min: #(#Point 10 10)
   186               #min: #(#Point 10 10)
   186           #max: #(#Point 1152 900)
   187               #max: #(#Point 1152 900)
   187           #bounds: #(#Rectangle 18 51 618 401)
   188               #bounds: #(#Rectangle 379 259 979 609)
   188         )
   189               #usePreferredExtent: false
   189         #component: 
   190           )
   190        #(#SpecCollection
   191           #component: 
   191           #collection: #(
   192            #(#SpecCollection
   192            #(#VariableHorizontalPanelSpec
   193               #collection: 
   193               #name: 'panel'
   194                #(
   194               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
   195                  #(#VariableHorizontalPanelSpec
   195               #component: 
   196                     #name: 'panel'
   196              #(#SpecCollection
   197                     #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
   197                 #collection: #(
       
   198                  #(#ViewSpec
       
   199                     #name: 'view1'
   198                     #component: 
   200                     #component: 
   199                      #(#SpecCollection
   201                    #(#SpecCollection
   200                         #collection: 
   202                       #collection: #(
   201                          #(
   203                        #(#FileSelectionTreeSpec
   202                            #(#ViewSpec
   204                           #name: 'directoryTreeView'
   203                               #name: 'view1'
   205                           #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   204                               #component: 
   206                           #model: #selectionOfDirectory
   205                                #(#SpecCollection
   207                           #hasHorizontalScrollBar: true
   206                                   #collection: 
   208                           #hasVerticalScrollBar: true
   207                                    #(
   209                           #miniScrollerHorizontal: true
   208                                      #(#FileSelectionTreeSpec
   210                           #showDirectoryIndicatorForRoot: false
   209                                         #name: 'directoryTreeView'
   211                           #showDirectoryIndicator: true
   210                                         #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   212                           #valueChangeSelector: #readDirectory
   211                                         #model: #selectionOfDirectory
   213                           #hierarchicalList: #rootOfDirectory
   212                                         #hasHorizontalScrollBar: true
   214                           #highlightMode: #line
   213                                         #hasVerticalScrollBar: true
   215                           #itemClass: 'Directory'
   214                                         #miniScrollerHorizontal: true
       
   215                                         #showDirectoryIndicatorForRoot: false
       
   216                                         #showDirectoryIndicator: true
       
   217                                         #valueChangeSelector: #readDirectory
       
   218                                         #hierarchicalList: #rootOfDirectory
       
   219                                         #itemClass: 'Directory'
       
   220                                     )
       
   221                                      #(#InputFieldSpec
       
   222                                         #name: 'directoryInputField'
       
   223                                         #layout: #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
       
   224                                         #model: #selectionOfDirectory
       
   225                                         #immediateAccept: false
       
   226                                     )
       
   227                                   )
       
   228                               )
       
   229                           )
       
   230                            #(#ViewSpec
       
   231                               #name: 'view2'
       
   232                               #component: 
       
   233                                #(#SpecCollection
       
   234                                   #collection: 
       
   235                                    #(
       
   236                                      #(#InputFieldSpec
       
   237                                         #name: 'EditField'
       
   238                                         #layout: #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
       
   239                                         #model: #valueOfFileName
       
   240                                         #acceptOnReturn: false
       
   241                                         #acceptOnTab: false
       
   242                                     )
       
   243                                      #(#SubCanvasSpec
       
   244                                         #name: 'subCanvas1'
       
   245                                         #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
       
   246                                         #clientHolder: #directoryView
       
   247                                     )
       
   248                                   )
       
   249                               )
       
   250                           )
       
   251                         )
   216                         )
       
   217                        #(#InputFieldSpec
       
   218                           #name: 'directoryInputField'
       
   219                           #layout: #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
       
   220                           #model: #selectionOfDirectory
       
   221                           #immediateAccept: false
       
   222                           #acceptOnPointerLeave: false
       
   223                         )
       
   224                        )
       
   225                      
   252                     )
   226                     )
   253                     #handles: #(#Any 0.5 1.0)
   227                   )
   254                 )
   228                  #(#ViewSpec
   255                  #(#UISubSpecification
   229                     #name: 'view2'
   256                     #name: 'SubSpecification'
   230                     #component: 
   257                     #layout: #(#LayoutFrame 2 0.0 -32 1 0 1.0 -8 1.0)
   231                    #(#SpecCollection
   258                     #majorKey: #ToolApplicationModel
   232                       #collection: #(
   259                     #minorKey: #windowSpecForCommitWithoutChannels
   233                        #(#InputFieldSpec
   260                 )
   234                           #name: 'EditField'
       
   235                           #layout: #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
       
   236                           #model: #valueOfFileName
       
   237                           #acceptOnReturn: false
       
   238                           #acceptOnTab: false
       
   239                           #acceptOnPointerLeave: false
       
   240                         )
       
   241                        #(#SubCanvasSpec
       
   242                           #name: 'subCanvas1'
       
   243                           #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -25 1.0)
       
   244                           #clientHolder: #directoryView
       
   245                         )
       
   246                        )
       
   247                      
       
   248                     )
       
   249                   )
       
   250                  )
       
   251                
   261               )
   252               )
   262           )
   253               #handles: #(#Any 0.5 1.0)
       
   254             )
       
   255            #(#UISubSpecification
       
   256               #name: 'SubSpecification'
       
   257               #layout: #(#LayoutFrame 2 0.0 -32 1 0 1.0 0 1.0)
       
   258               #majorKey: #ToolApplicationModel
       
   259               #minorKey: #windowSpecForCommitWithoutChannels
       
   260             )
       
   261            )
       
   262          
       
   263         )
   263       )
   264       )
   264 ! !
   265 ! !
   265 
   266 
   266 !FileSelectionBrowser methodsFor:'accessing'!
   267 !FileSelectionBrowser methodsFor:'accessing'!
   267 
   268