equal
deleted
inserted
replaced
481 | selection matchBlock filterBlock viewFiles| |
481 | selection matchBlock filterBlock viewFiles| |
482 |
482 |
483 selection := self selectedItems. |
483 selection := self selectedItems. |
484 filterBlock := self filterBlockHolder value. |
484 filterBlock := self filterBlockHolder value. |
485 viewFiles := self viewFilesInDirectoryTree value. |
485 viewFiles := self viewFilesInDirectoryTree value. |
486 matchBlock := [:fileName :isDir| |
486 matchBlock := |
487 (isDir |
487 [:fileName :isDir| |
488 or:[viewFiles |
488 (isDir |
489 and:[filterBlock value:fileName baseName]]) |
489 or:[viewFiles |
490 ]. |
490 and:[filterBlock value:fileName baseName]]) |
|
491 ]. |
491 list matchBlock:matchBlock. |
492 list matchBlock:matchBlock. |
492 ! |
493 ! |
493 |
494 |
494 sortFileListsBy:instanceName |
495 sortFileListsBy:instanceName |
495 |
496 |
1239 ! ! |
1240 ! ! |
1240 |
1241 |
1241 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1242 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1242 |
1243 |
1243 version |
1244 version |
1244 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.56 2003-03-30 13:07:54 cg Exp $' |
1245 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.57 2003-04-01 14:58:39 cg Exp $' |
1245 ! ! |
1246 ! ! |