equal
deleted
inserted
replaced
2514 self withWaitCursorDo:[ |
2514 self withWaitCursorDo:[ |
2515 result := Dictionary new. |
2515 result := Dictionary new. |
2516 |
2516 |
2517 dir := currentDirectory asFilename. |
2517 dir := currentDirectory asFilename. |
2518 self label:myName , '- gathering file names ...'. |
2518 self label:myName , '- gathering file names ...'. |
2519 fileNames := dir recursiveDirectoryContentsAsFilenames select:[:fn | fn isDirectory not]. |
2519 fileNames := dir recursiveDirectoryContentsAsFilenames reject:[:fn | fn isDirectory ]. |
2520 |
2520 |
2521 self label:myName , '- gathering sizes ...'. |
2521 self label:myName , '- gathering sizes ...'. |
2522 infoDir := Dictionary new. |
2522 infoDir := Dictionary new. |
2523 fileNames do:[:fn | |
2523 fileNames do:[:fn | |
2524 infoDir at:fn put:(fn fileSize) |
2524 infoDir at:fn put:(fn fileSize) |
2614 |
2614 |
2615 self withWaitCursorDo:[ |
2615 self withWaitCursorDo:[ |
2616 result := Dictionary new. |
2616 result := Dictionary new. |
2617 |
2617 |
2618 dir := currentDirectory asFilename. |
2618 dir := currentDirectory asFilename. |
2619 fileNames := dir directoryContentsAsFilenames select:[:fn | fn isDirectory not]. |
2619 fileNames := dir directoryContentsAsFilenames reject:[:fn | fn isDirectory ]. |
2620 |
2620 |
2621 infoDir := Dictionary new. |
2621 infoDir := Dictionary new. |
2622 fileNames do:[:fn | |
2622 fileNames do:[:fn | |
2623 infoDir at:fn put:(fn info) |
2623 infoDir at:fn put:(fn info) |
2624 ]. |
2624 ]. |
7503 ! ! |
7503 ! ! |
7504 |
7504 |
7505 !FileBrowser class methodsFor:'documentation'! |
7505 !FileBrowser class methodsFor:'documentation'! |
7506 |
7506 |
7507 version |
7507 version |
7508 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.647 2013-04-27 13:01:21 cg Exp $' |
7508 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.648 2013-06-04 10:15:39 cg Exp $' |
7509 ! |
7509 ! |
7510 |
7510 |
7511 version_CVS |
7511 version_CVS |
7512 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.647 2013-04-27 13:01:21 cg Exp $' |
7512 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.648 2013-06-04 10:15:39 cg Exp $' |
7513 ! ! |
7513 ! ! |
7514 |
7514 |