equal
deleted
inserted
replaced
514 currentDir := self selectionOfDirectory value. |
514 currentDir := self selectionOfDirectory value. |
515 currentDir isNil ifTrue:[ |
515 currentDir isNil ifTrue:[ |
516 self warn:'No directory selected.'. |
516 self warn:'No directory selected.'. |
517 ^ self |
517 ^ self |
518 ]. |
518 ]. |
519 newSubDirName := Dialog request:'Create new directory named:'. |
519 newSubDirName := Dialog |
|
520 request:(resources |
|
521 string:'Create new directory named:\\in %1:' |
|
522 with:(currentDir asFilename pathName)) withCRs. |
520 (currentDir asFilename construct:newSubDirName) makeDirectory. |
523 (currentDir asFilename construct:newSubDirName) makeDirectory. |
521 self menuUpdate |
524 self menuUpdate |
522 ! |
525 ! |
523 |
526 |
524 menuGotoDefaultDirectory |
527 menuGotoDefaultDirectory |