FileSelectionBrowser.st
changeset 1915 6c4fc06faadb
parent 1854 e7586b506654
child 2027 56ea6e57b771
equal deleted inserted replaced
1914:229b3e455c98 1915:6c4fc06faadb
   514         self warn:'No directory selected.'.
   514         self warn:'No directory selected.'.
   515         ^ self
   515         ^ self
   516     ].
   516     ].
   517     newSubDirName := Dialog 
   517     newSubDirName := Dialog 
   518                         request:(resources 
   518                         request:(resources 
   519                                     string:'Create new directory named:\\in %1:' 
   519                                     stringWithCRs:'Create new directory in\\%1: ' 
   520                                     with:(currentDir asFilename pathName)) withCRs.
   520                                     with:(currentDir asFilename pathName allBold)).
   521     (currentDir asFilename construct:newSubDirName) makeDirectory.
   521     (currentDir asFilename construct:newSubDirName) makeDirectory.
   522     self menuUpdate
   522     self menuUpdate
   523 !
   523 !
   524 
   524 
   525 menuGotoDefaultDirectory
   525 menuGotoDefaultDirectory