--- a/AbstractFileBrowser.st Wed Oct 28 15:26:37 2009 +0100
+++ b/AbstractFileBrowser.st Wed Oct 28 16:11:22 2009 +0100
@@ -3129,6 +3129,9 @@
!
makeFilterBlock
+ "return a two-arg filterblock on the files path- and base-name. This block should return true for files
+ to be shown"
+
| filterString filterStrings filters showHidden yesOrNo filterBlock ignoreCase|
filterString := self filterModel value.
@@ -3148,23 +3151,24 @@
pattern := pattern copyFrom:2.
].
yesOrNo ifTrue:[
- [:name | pattern match:name ignoreCase:ignoreCase ]
+ [:name :baseName | pattern match:baseName ignoreCase:ignoreCase ]
] ifFalse:[
- [:name | (pattern match:name ignoreCase:ignoreCase) not ]
+ [:name :baseName | (pattern match:baseName ignoreCase:ignoreCase) not ]
].
].
filters size == 1 ifTrue:[
filterBlock := filters first
] ifFalse:[
- filterBlock := [: name | filters contains:[:aFilter | aFilter value:name ]].
+ filterBlock := [:name :baseName | filters contains:[:aFilter | aFilter value:name value:baseName ]].
].
showHidden := self showHiddenFiles value.
showHidden ifTrue:[
^ filterBlock.
].
- ^ [: el | ((el asString startsWith:'.') not) and:[filterBlock value:el]].
+ ^ [:name :baseName | (baseName includesString:'Andwend')ifTrue:[self halt].
+ (name isHidden) not and:[filterBlock value:name value:baseName]].
!
shownFiles
@@ -7851,9 +7855,9 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.419 2009-10-20 21:50:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.420 2009-10-28 15:11:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.419 2009-10-20 21:50:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.420 2009-10-28 15:11:22 cg Exp $'
! !