DirectoryContentsBrowser.st
branchjv
changeset 12262 d25ef6bb0ef3
parent 12229 5c129972b1fd
child 12308 5d9291c0fc27
--- a/DirectoryContentsBrowser.st	Wed Jul 18 10:57:46 2012 +0100
+++ b/DirectoryContentsBrowser.st	Wed Jul 18 18:00:57 2012 +0100
@@ -2505,7 +2505,7 @@
     showDir := self viewDirsInContentsBrowser value.
     showFiles := self viewFilesInContentsBrowser value.
     
-    filterBlock := self matchBlock.
+    filterBlock := self matchBlock ? [:v1 :v2 | true ].
     newItemList := anItemsList 
                         select:[:eachItem |
                             |isDir showIt|
@@ -2528,7 +2528,7 @@
     self noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles.
     ^ newItemList
 
-    "Modified: / 20-03-2012 / 12:09:10 / cg"
+    "Modified: / 12-07-2012 / 11:56:59 / cg"
 !
 
 filterChanged
@@ -3425,13 +3425,13 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.247 2012/03/23 13:51:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012/07/12 10:17:19 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.247 2012/03/23 13:51:09 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012/07/12 10:17:19 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: DirectoryContentsBrowser.st 7978 2012-04-13 13:15:47Z vranyj1 $'
+    ^ '$Id: DirectoryContentsBrowser.st 8018 2012-07-18 17:00:57Z vranyj1 $'
 ! !