home directory selection
authorpenk
Thu, 27 Nov 2003 13:39:33 +0100
changeset 5381 a9ce3fe323c6
parent 5380 2f738f3a34b1
child 5382 b0e14816aa25
home directory selection
DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Wed Nov 26 18:37:33 2003 +0100
+++ b/DirectoryTreeBrowser.st	Thu Nov 27 13:39:33 2003 +0100
@@ -747,13 +747,13 @@
         self selectFiles:selectFiles.
 
         "/ cg: why was this done
-false ifTrue:[
-        self selectedItems do:[:item|
-            (item isDirectory and:[item isExpanded not]) ifTrue:[
-                item enforcedExpand "/ expand.
-            ]
-        ].
-].
+"/false ifTrue:[
+"/        self selectedItems do:[:item|
+"/            (item isDirectory and:[item isExpanded not]) ifTrue:[
+"/                item enforcedExpand "/ expand.
+"/            ]
+"/        ].
+"/].
         ^ self
     ].
 !
@@ -1302,5 +1302,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.80 2003-11-24 20:04:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.81 2003-11-27 12:39:33 penk Exp $'
 ! !