--- a/DirectoryTreeBrowser.st	Mon Dec 04 13:17:40 2006 +0100
+++ b/DirectoryTreeBrowser.st	Mon Dec 04 13:17:50 2006 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 AbstractDirectoryBrowser subclass:#DirectoryTreeBrowser
@@ -769,13 +768,15 @@
 
     viewFiles:= self viewFilesInDirectoryTree value.
     viewFiles ifTrue:[
-        filesToSelect := self currentFileNameHolder value.
+        filesToSelect := self currentSelectedObjects.
     ] ifFalse:[
         filesToSelect := self currentSelectedDirectories.
     ].
     self rootHolder notNil ifTrue:[
         self selectFiles:filesToSelect.
     ].
+
+    "Modified: / 04-12-2006 / 13:15:42 / cg"
 !
 
 rootHolderChanged
@@ -806,14 +807,16 @@
     sel := self selectedFiles.
     self viewFilesInDirectoryTree value ifFalse:[
         (self currentFilesAreInSameDirectory 
-         and:[sel size == 1 and:[self currentFileNameHolder value notEmpty]]) ifTrue:[
-            currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first).
+         and:[sel size == 1 and:[self currentSelectedObjects notEmpty]]) ifTrue:[
+            currentFileDir := self getDirWithoutFileName:(self currentSelectedObjects first).
             sel first = currentFileDir ifTrue:[
                 ^ self.
             ].
         ].
     ].
     self setCurrentFileNames:sel.
+
+    "Modified: / 04-12-2006 / 13:15:51 / cg"
 !
 
 update:something with:aParameter from:aModel 
@@ -1339,5 +1342,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.103 2006-09-08 11:32:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.104 2006-12-04 12:17:50 cg Exp $'
 ! !