class: DirectoryContentsBrowser
authorClaus Gittinger <cg@exept.de>
Wed, 20 Feb 2013 16:24:21 +0100
changeset 12412 5df92e9efb33
parent 12411 342b4192df01
child 12413 7787a6343ae7
class: DirectoryContentsBrowser changed: #selectedItemsWithoutDotDotDirectory
DirectoryContentsBrowser.st
--- 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 $'
 ! !