equal
deleted
inserted
replaced
563 | selection matchBlock filterBlock viewFiles| |
563 | selection matchBlock filterBlock viewFiles| |
564 |
564 |
565 selection := self selectedItems. |
565 selection := self selectedItems. |
566 filterBlock := self filterBlockHolder value. |
566 filterBlock := self filterBlockHolder value. |
567 viewFiles := self viewFilesInDirectoryTree value. |
567 viewFiles := self viewFilesInDirectoryTree value. |
|
568 |
568 matchBlock := |
569 matchBlock := |
569 [:fileName :isDir| |
570 [:fileName :isDir| |
570 (isDir |
571 (isDir |
571 or:[viewFiles |
572 or:[viewFiles and:[filterBlock value:fileName baseName]]) |
572 and:[filterBlock value:fileName baseName]]) |
|
573 ]. |
573 ]. |
574 list matchBlock:matchBlock. |
574 list matchBlock:matchBlock. |
575 ! |
575 ! |
576 |
576 |
577 sortFileListsBy:instanceName |
577 sortFileListsBy:instanceName |
1340 ! ! |
1340 ! ! |
1341 |
1341 |
1342 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1342 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1343 |
1343 |
1344 version |
1344 version |
1345 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.105 2007-01-12 17:41:11 cg Exp $' |
1345 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.106 2007-03-06 15:39:01 cg Exp $' |
1346 ! ! |
1346 ! ! |