--- a/DirectoryTreeBrowser.st	Thu Dec 16 17:12:34 2004 +0100
+++ b/DirectoryTreeBrowser.st	Thu Dec 30 13:58:25 2004 +0100
@@ -1101,6 +1101,7 @@
         file exists ifTrue:[
             item := self fileList findLastForFile:file.
             item isNil ifTrue:[
+                "/ set a new root directory
                 newRoot := self commonPrefixOfSelectedFiles.
                 newRoot := self getDirWithoutFileName:newRoot.
                 self rootHolder value:newRoot asAbsoluteFilename.
@@ -1113,7 +1114,8 @@
                     item := item detect:[:el| el fileName = file ] ifNone:item.
                 ].
             ].
-            "/ set a new root directory
+            "if it is a directory it should be expanded"
+            item enforcedExpand.
             items add:item.
         ].
     ].
@@ -1316,5 +1318,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.92 2004-12-10 15:53:54 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.93 2004-12-30 12:58:25 penk Exp $'
 ! !