--- a/DirectoryContentsBrowser.st	Fri Jun 13 10:08:10 2003 +0200
+++ b/DirectoryContentsBrowser.st	Fri Jun 13 13:17:46 2003 +0200
@@ -1264,7 +1264,11 @@
     |newDir currentDir aColOfFiles|
 
     aColOfFiles := self currentFileNameHolder value.
-    (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[
+    aColOfFiles isEmpty ifTrue:[
+        "/ selection is gone keep the current directory list
+        ^ self
+    ].
+    (self currentFilesAreInSameDirectory not) ifTrue:[
         self directory:nil.
         ^ self
     ].
@@ -1755,6 +1759,11 @@
     ^ self selectedFileItems collect:[:item| item fileName].
 !
 
+selectedFiles
+
+    ^ self selectedItemsWithoutDotDotDirectory collect:[:item| item fileName].
+!
+
 selectedItems
     | selection |
 
@@ -2996,5 +3005,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.120 2003-06-13 07:21:49 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.121 2003-06-13 11:17:46 penk Exp $'
 ! !