--- a/DirectoryContentsBrowser.st Wed Feb 20 16:21:11 2013 +0100
+++ b/DirectoryContentsBrowser.st Wed Feb 20 16:24:21 2013 +0100
@@ -1996,6 +1996,8 @@
selection isSequenceable ifFalse:[
selection := OrderedCollection with:selection.
].
+ selection := selection reject:[:e | e isNil].
+ selection isEmpty ifTrue:[ ^ #()].
selection := selection copyAsOrderedCollection.
(self viewDirsInContentsBrowser value and:[browserItemList notEmpty]) ifTrue:[
selection removeIdentical:(browserItemList first) ifAbsent:[nil]
@@ -3422,10 +3424,10 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.253 2013-01-29 10:49:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.254 2013-02-20 15:24:21 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.253 2013-01-29 10:49:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.254 2013-02-20 15:24:21 cg Exp $'
! !