FileSelectionBrowser.st
changeset 622 e5bc12d7af16
parent 619 36c9d07f7dc3
child 626 402a50b931d5
equal deleted inserted replaced
621:9041bf2ae467 622:e5bc12d7af16
   347             directoriesOnly:true 
   347             directoriesOnly:true 
   348             filesOnly:false 
   348             filesOnly:false 
   349             ifMultiple:
   349             ifMultiple:
   350             [:dir | 
   350             [:dir | 
   351                 self directoryTreeView selection notNil ifTrue: [
   351                 self directoryTreeView selection notNil ifTrue: [
   352                     self directoryTreeView nodeAt: self directoryTreeView selection expand:true]
   352                     self directoryTreeView selectedNodeExpand: true]
   353             ]) asFilename exists
   353             ]) asFilename exists
   354         ifTrue:
   354         ifTrue:
   355         [
   355         [
   356             self directoryInputField contents: completedDirectory.
   356             self directoryInputField contents: completedDirectory.
   357             self directoryTreeView selectPathname: completedDirectory.
   357             self directoryTreeView selectPathname: completedDirectory.