--- a/DirectoryTreeBrowser.st	Fri Jul 30 17:27:09 2004 +0200
+++ b/DirectoryTreeBrowser.st	Tue Aug 03 11:30:12 2004 +0200
@@ -487,7 +487,7 @@
         (anItem fileName directory asString startsWith:(indicatorItem fileName asString)) not] 
         ifNone:[nil].
     selectedItemNotUnderIndicatorItem isNil ifTrue:[
-        self currentFileNameHolder value:(OrderedCollection with:indicatorItem fileName).
+        self setCurrentFileName:(indicatorItem fileName).
     ].
     self toggleExpand:indicatorItem.
 !
@@ -499,7 +499,7 @@
     selDir notNil ifTrue:[
         self rootHolder value asFilename = selDir ifTrue:[ ^ self].
         self rootHolder value:selDir.
-        self currentFileNameHolder value:(OrderedCollection with:selDir).
+        self setCurrentFileName:selDir.
     ].
 !
 
@@ -801,7 +801,7 @@
             ].
         ].
     ].
-    self currentFileNameHolder value:sel.
+    self setCurrentFileNames:sel.
 !
 
 update:something with:aParameter from:aModel 
@@ -1312,5 +1312,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.88 2004-06-23 07:52:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.89 2004-08-03 09:30:09 cg Exp $'
 ! !