FileSelectionBrowser.st
changeset 607 8b6cd53f93b8
parent 605 62efcf9d43a4
child 615 47f5ba2850d1
equal deleted inserted replaced
606:bf51357a8917 607:8b6cd53f93b8
   130      
   130      
   131        #(#FullSpec
   131        #(#FullSpec
   132           #'window:' 
   132           #'window:' 
   133            #(#WindowSpec
   133            #(#WindowSpec
   134               #'name:' 'File Selection Browser'
   134               #'name:' 'File Selection Browser'
   135               #'layout:' #(#LayoutFrame 106 0 175 0 605 0 524 0)
   135               #'layout:' #(#LayoutFrame 230 0 472 0 897 0 821 0)
   136               #'label:' 'File Selection Browser'
   136               #'label:' 'File Selection Browser'
   137               #'min:' #(#Point 10 10)
   137               #'min:' #(#Point 10 10)
   138               #'max:' #(#Point 1152 900)
   138               #'max:' #(#Point 1152 900)
   139               #'bounds:' #(#Rectangle 106 175 606 525)
   139               #'bounds:' #(#Rectangle 230 472 898 822)
   140               #'usePreferredExtent:' false
   140               #'usePreferredExtent:' false
   141           )
   141           )
   142           #'component:' 
   142           #'component:' 
   143            #(#SpecCollection
   143            #(#SpecCollection
   144               #'collection:' 
   144               #'collection:' 
   169                                         #'hierarchicalList:' #rootOfDirectory
   169                                         #'hierarchicalList:' #rootOfDirectory
   170                                         #'itemClass:' 'Directory'
   170                                         #'itemClass:' 'Directory'
   171                                     )
   171                                     )
   172                                      #(#InputFieldSpec
   172                                      #(#InputFieldSpec
   173                                         #'name:' 'directoryInputField'
   173                                         #'name:' 'directoryInputField'
   174                                         #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1)
   174                                         #'layout:' #(#LayoutFrame 2 0.0 -22 1 0 1.0 0 1)
   175                                         #'model:' #selectionOfDirectory
   175                                         #'model:' #selectionOfDirectory
   176                                         #'immediateAccept:' false
   176                                         #'immediateAccept:' false
   177                                     )
   177                                     )
   178                                   )
   178                                   )
   179                               )
   179                               )
   184                                #(#SpecCollection
   184                                #(#SpecCollection
   185                                   #'collection:' 
   185                                   #'collection:' 
   186                                    #(
   186                                    #(
   187                                      #(#InputFieldSpec
   187                                      #(#InputFieldSpec
   188                                         #'name:' 'EditField'
   188                                         #'name:' 'EditField'
   189                                         #'layout:' #(#LayoutFrame 1 0.0 -22 1 0 1.0 0 1)
   189                                         #'layout:' #(#LayoutFrame 1 0.0 -22 1 -2 1.0 0 1)
   190                                         #'model:' #valueOfFileName
   190                                         #'model:' #valueOfFileName
   191                                         #'acceptOnReturn:' false
   191                                         #'acceptOnReturn:' false
   192                                         #'acceptOnTab:' false
   192                                         #'acceptOnTab:' false
   193                                     )
   193                                     )
   194                                      #(#SubCanvasSpec
   194                                      #(#SubCanvasSpec
   203                     )
   203                     )
   204                     #'handles:' #(#Any 0.5 1.0)
   204                     #'handles:' #(#Any 0.5 1.0)
   205                 )
   205                 )
   206                  #(#UISubSpecification
   206                  #(#UISubSpecification
   207                     #'name:' 'SubSpecification'
   207                     #'name:' 'SubSpecification'
   208                     #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
   208                     #'layout:' #(#LayoutFrame 2 0.0 -32 1 0 1.0 -8 1.0)
   209                     #'majorKey:' #ToolApplicationModel
   209                     #'majorKey:' #ToolApplicationModel
   210                     #'minorKey:' #windowSpecForCommitWithoutChannels
   210                     #'minorKey:' #windowSpecForCommitWithoutChannels
   211                 )
   211                 )
   212               )
   212               )
   213           )
   213           )
   214       )
   214       )
       
   215 
       
   216     "Modified: / 6.2.1998 / 03:42:48 / cg"
   215 ! !
   217 ! !
   216 
   218 
   217 !FileSelectionBrowser methodsFor:'accessing'!
   219 !FileSelectionBrowser methodsFor:'accessing'!
   218 
   220 
   219 directory: aDirectory
   221 directory: aDirectory