--- a/DirectoryTreeBrowser.st	Tue Apr 08 14:03:59 2003 +0200
+++ b/DirectoryTreeBrowser.st	Tue Apr 08 15:38:56 2003 +0200
@@ -699,7 +699,7 @@
         self selectFiles:selectFiles.
         self selectedItems do:[:item|
             (item isDirectory and:[item isExpanded not]) ifTrue:[
-                item expand.
+                item enforcedExpand "/ expand.
             ]
         ].
         ^ self
@@ -1103,16 +1103,10 @@
 !
 
 selectedFilenameDirectories
+    |selectedItems|
 
-    | selectedItems setOfDirectories|
     selectedItems := self selectedItems.
-    setOfDirectories := Set new.
-    selectedItems do:[:item|
-        | filename|
-        filename := self getDirWithoutFileName:(item fileName).
-        setOfDirectories add:filename.
-    ].
-    ^ setOfDirectories.
+    ^ (selectedItems collect:[:item | self getDirWithoutFileName:(item fileName)]) asSet
 !
 
 selectedItems
@@ -1253,5 +1247,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.60 2003-04-08 12:02:24 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.61 2003-04-08 13:38:56 cg Exp $'
 ! !