DirectoryTreeBrowser.st
changeset 11593 4d7eb0d9a9ef
parent 10685 541db7087fe5
child 12101 39ef9fd5fbbf
--- a/DirectoryTreeBrowser.st	Thu Jul 12 12:17:19 2012 +0200
+++ b/DirectoryTreeBrowser.st	Thu Jul 12 13:08:30 2012 +0200
@@ -1188,14 +1188,16 @@
                     item := item detect:[:el| el fileName = file ] ifNone:item.
                 ].
             ].
-            "if it is a directory it should be expanded"
-            "/ item enforcedExpand.
-            items add:item.
+            item notNil ifTrue:[
+                "if it is a directory it should be expanded"
+                "/ item enforcedExpand.
+                items add:item.
+            ].
         ].
     ].
     self selectItems:items
 
-    "Modified: / 08-09-2011 / 03:59:11 / cg"
+    "Modified: / 12-07-2012 / 11:31:20 / cg"
 !
 
 selectItems:aColOfItems
@@ -1388,9 +1390,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011-09-08 02:03:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.120 2012-07-12 11:08:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011-09-08 02:03:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.120 2012-07-12 11:08:30 cg Exp $'
 ! !