equal
deleted
inserted
replaced
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 |