--- a/DirectoryTreeBrowser.st	Mon Oct 14 21:32:20 2002 +0200
+++ b/DirectoryTreeBrowser.st	Mon Oct 14 21:33:02 2002 +0200
@@ -1,20 +1,20 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractFileBrowser subclass:#DirectoryTreeBrowser
-        instanceVariableNames:'rootHolder dirBrowser updateToExternFileHolderLock oldDropItem
-                expandItemTimedBlock updateTreeSelection inDropMode canDropItem
-                doubleClickAction newVisibilityHolder allowFileOperations
-                multipleSelect treeSelectionHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-Tools-File'
+	instanceVariableNames:'rootHolder dirBrowser updateToExternFileHolderLock oldDropItem
+		expandItemTimedBlock updateTreeSelection inDropMode canDropItem
+		doubleClickAction newVisibilityHolder allowFileOperations
+		multipleSelect treeSelectionHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Tools-File'
 !
 
 HierarchicalFileList subclass:#DirTreeBrowserHFL
-        instanceVariableNames:'draggedItem grayDirectoryIcon'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:DirectoryTreeBrowser
+	instanceVariableNames:'draggedItem grayDirectoryIcon'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DirectoryTreeBrowser
 !
 
 !DirectoryTreeBrowser class methodsFor:'documentation'!
@@ -574,11 +574,11 @@
 
 selectionChanged
 
-    | sel currentFileDir|
+    |sel currentFileDir|
 
-    " if viewFiles is false i cant take my 
-      selction to overwrite currentFileNameHolder
-    "        
+    " if viewFiles is false i can't take my 
+      selection to overwrite currentFileNameHolder"
+
     sel := self selectedFiles.
     (self viewFilesInDirectoryTree value not) ifTrue:[
         (self currentFilesAreInSameDirectory and:[sel size == 1]) ifTrue:[
@@ -1060,6 +1060,7 @@
 
     selection := self treeSelectionHolder value.
     selection isNil ifTrue:[ ^ #() ].
+    selection size == 0 ifTrue:[^ Array with:selection]. "Wrap single value into Array"
     ^ selection
 ! !
 
@@ -1192,5 +1193,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.19 2002-10-14 16:02:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.20 2002-10-14 19:33:02 stefan Exp $'
 ! !