# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 905616684 -7200
# Node ID 9454c462dad433f2292ef3e0dc37c17e5b5f3998
# Parent  4303f0064410cd891bcad0d4d6bc20b88f204962
fixed file filter (must use selected filter; not all filters)

diff -r 4303f0064410 -r 9454c462dad4 DirectoryView.st
--- a/DirectoryView.st	Thu Sep 10 16:51:59 1998 +0200
+++ b/DirectoryView.st	Sat Sep 12 18:11:24 1998 +0200
@@ -376,7 +376,9 @@
 
     allFiles := Set new.
     foundFiles := Set new.
-    filterList := self listOfFileFilters value.
+    "/ filterList := self listOfFileFilters value.
+    filterList := self selectedFileFilter asCollectionOfSubstringsSeparatedBy:$;.
+    filterList := filterList collect:[:pattern | pattern withoutSeparators].
 
     Cursor wait showWhile: 
     [ 
@@ -392,6 +394,7 @@
             dir filesAndBasenamesDo:[:file :name|      
                 allFiles add: name
             ].
+
             filterList do:[:filter|
                 foundFiles addAll:(allFiles select:[:name | filter match:name]).
             ].
@@ -402,7 +405,7 @@
         ]
     ]
 
-    "Modified: / 18.5.1998 / 13:02:47 / cg"
+    "Modified: / 12.9.1998 / 17:25:25 / cg"
 !
 
 readMonitoringDirectory