# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1173195541 -3600
# Node ID 51deb2240d1f55e794d894c7fde0097a5109d71c
# Parent  3ac0b3a853976c5a777012ec81c84e7f71cb626c
slight tuning

diff -r 3ac0b3a85397 -r 51deb2240d1f DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Tue Mar 06 16:38:30 2007 +0100
+++ b/DirectoryTreeBrowser.st	Tue Mar 06 16:39:01 2007 +0100
@@ -565,11 +565,11 @@
     selection := self selectedItems.
     filterBlock := self filterBlockHolder value.
     viewFiles := self viewFilesInDirectoryTree value.
+
     matchBlock := 
         [:fileName :isDir|
             (isDir 
-            or:[viewFiles
-                and:[filterBlock value:fileName baseName]])
+            or:[viewFiles and:[filterBlock value:fileName baseName]])
         ].
     list matchBlock:matchBlock.
 !
@@ -1342,5 +1342,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.105 2007-01-12 17:41:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.106 2007-03-06 15:39:01 cg Exp $'
 ! !