--- 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 $'
! !