--- a/DirectoryTreeBrowser.st	Tue Apr 08 10:20:43 2003 +0200
+++ b/DirectoryTreeBrowser.st	Tue Apr 08 14:01:58 2003 +0200
@@ -476,6 +476,18 @@
     model value:sel withoutNotifying:self.
 !
 
+expandSelectedItems
+" expand the selected item if one directory selected"
+
+    | items |
+
+    items := self selectedDirectoryItems.
+    Transcript showCR:(items printString).
+    items do:[:aItem |
+        aItem expand
+    ].
+!
+
 setMatchBlockForList:list
 
     | selection matchBlock filterBlock viewFiles|
@@ -1242,5 +1254,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.58 2003-04-02 21:48:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.59 2003-04-08 12:01:58 penk Exp $'
 ! !