class: AbstractFileBrowser
authorClaus Gittinger <cg@exept.de>
Tue, 04 Jun 2013 12:10:15 +0200
changeset 12824 2cdd97a7d9d3
parent 12823 50a3b78ef6e7
child 12825 5984b1e444d9
class: AbstractFileBrowser changed: #currentSelectedFiles
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Tue Jun 04 12:09:56 2013 +0200
+++ b/AbstractFileBrowser.st	Tue Jun 04 12:10:15 2013 +0200
@@ -8674,7 +8674,7 @@
 !
 
 currentSelectedFiles
-    ^ self currentSelectedObjects select:[:file | file isDirectory not].
+    ^ self currentSelectedObjects reject:[:file | file isDirectory].
 
     "Modified: / 04-12-2006 / 13:14:39 / cg"
 !
@@ -9192,10 +9192,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.522 2013-06-03 10:52:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.523 2013-06-04 10:10:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.522 2013-06-03 10:52:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.523 2013-06-04 10:10:15 cg Exp $'
 ! !