--- a/DirectoryContentsBrowser.st	Tue Oct 15 18:41:05 2002 +0200
+++ b/DirectoryContentsBrowser.st	Tue Oct 15 18:43:23 2002 +0200
@@ -1034,17 +1034,20 @@
 
 selectionChanged
 
-    | selection |
+    | selection newCurrentFilename |
 
     self directory isNil ifTrue:[^ self].   
     selection := self selectedFiles.
     selection remove:('..' asFilename) ifAbsent:[nil].
     selection isEmpty ifTrue:[
-        self currentFileNameHolder value:(OrderedCollection with:self directory) withoutNotifying:self.
+        newCurrentFilename := OrderedCollection with:self directory.
     ] ifFalse:[
         wantSelectFiles := selection.
-        self currentFileNameHolder value:selection withoutNotifying:self.
+        newCurrentFilename := selection.
     ].
+    self currentFileNameHolder value ~= newCurrentFilename ifTrue:[
+         self currentFileNameHolder value:newCurrentFilename withoutNotifying:self
+    ]
 !
 
 setDefaultFilter
@@ -1545,6 +1548,10 @@
         ].
     ].
     ^ files.
+!
+
+hasFilesFiltered
+    ^ allItemsList size ~~ currentItemList size
 ! !
 
 !DirectoryContentsBrowser methodsFor:'selection'!
@@ -2577,5 +2584,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.23 2002-10-15 12:40:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.24 2002-10-15 16:43:04 cg Exp $'
 ! !