--- a/FileSelectionItem.st	Thu May 28 13:17:22 1998 +0200
+++ b/FileSelectionItem.st	Fri May 29 13:01:26 1998 +0200
@@ -326,6 +326,12 @@
 
 ! !
 
+!FileSelectionItem methodsFor:'protected'!
+
+isVisibleFile:aFilename isDirectory:isDirectory baseName:aBasename
+    ^ matchAction value:aFilename value:isDirectory
+! !
+
 !FileSelectionItem methodsFor:'queries'!
 
 canReleaseChildren
@@ -545,9 +551,9 @@
             ] ifFalse:[
                 modificationTime := directory modificationTime.
 
-                directory contentsAndBaseNamesDo:[:f :n :d|
-                    (matchAction value:f value:d) ifTrue:[
-                        list add:(self class new fileName:f baseName:n parent:self isDirectory:d)
+                directory contentsAndBaseNamesDo:[:file :bname :isDir|
+                    (self isVisibleFile:file isDirectory:isDir baseName:bname) ifTrue:[
+                        list add:(self class new fileName:file baseName:bname parent:self isDirectory:isDir)
                     ]
                 ].
                 showIndicator := list size ~~ 0.
@@ -608,5 +614,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.10 1998-04-08 05:33:46 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.11 1998-05-29 11:01:26 ca Exp $'
 ! !