changeset 1492 | de23c1b76333 |
parent 1458 | 72a40564b16e |
child 1597 | b670ad8c30e1 |
--- a/FileSelectionBrowser.st Fri Sep 14 18:25:38 2001 +0200 +++ b/FileSelectionBrowser.st Fri Sep 14 18:35:39 2001 +0200 @@ -516,7 +516,10 @@ self warn:'No directory selected.'. ^ self ]. - newSubDirName := Dialog request:'Create new directory named:'. + newSubDirName := Dialog + request:(resources + string:'Create new directory named:\\in %1:' + with:(currentDir asFilename pathName)) withCRs. (currentDir asFilename construct:newSubDirName) makeDirectory. self menuUpdate !