--- a/DirectoryTreeBrowser.st Tue Apr 01 16:58:28 2003 +0200
+++ b/DirectoryTreeBrowser.st Tue Apr 01 16:58:39 2003 +0200
@@ -483,11 +483,12 @@
selection := self selectedItems.
filterBlock := self filterBlockHolder value.
viewFiles := self viewFilesInDirectoryTree value.
- matchBlock := [:fileName :isDir|
- (isDir
- or:[viewFiles
- and:[filterBlock value:fileName baseName]])
- ].
+ matchBlock :=
+ [:fileName :isDir|
+ (isDir
+ or:[viewFiles
+ and:[filterBlock value:fileName baseName]])
+ ].
list matchBlock:matchBlock.
!
@@ -1241,5 +1242,5 @@
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.56 2003-03-30 13:07:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.57 2003-04-01 14:58:39 cg Exp $'
! !