DirectoryContentsBrowser.st
changeset 12412 5df92e9efb33
parent 12342 78b5ffcbccc3
child 12435 1f1faf35be04
child 12605 5d99a8699e48
--- 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 $'
 ! !