equal
deleted
inserted
replaced
2921 |
2921 |
2922 ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new] |
2922 ^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new] |
2923 ! |
2923 ! |
2924 |
2924 |
2925 makeFilterBlock |
2925 makeFilterBlock |
2926 | filterString filterStrings filters showHidden yesOrNo filterBlock| |
2926 | filterString filterStrings filters showHidden yesOrNo filterBlock ignoreCase| |
2927 |
2927 |
2928 filterString := self filterModel value. |
2928 filterString := self filterModel value. |
2929 filterString = '' ifTrue:[filterString := '*']. |
2929 filterString = '' ifTrue:[filterString := '*']. |
|
2930 ignoreCase := "ignoreCaseInPattern ? "(Filename isCaseSensitive not). |
2930 |
2931 |
2931 filterStrings := filterString asCollectionOfSubstringsSeparatedBy:$;. |
2932 filterStrings := filterString asCollectionOfSubstringsSeparatedBy:$;. |
2932 filters := filterStrings |
2933 filters := filterStrings |
2933 collect:[:eachPattern | |
2934 collect:[:eachPattern | |
2934 |
2935 |
2939 (pattern startsWith:'~') ifTrue:[ |
2940 (pattern startsWith:'~') ifTrue:[ |
2940 yesOrNo := false. |
2941 yesOrNo := false. |
2941 pattern := pattern copyFrom:2. |
2942 pattern := pattern copyFrom:2. |
2942 ]. |
2943 ]. |
2943 yesOrNo ifTrue:[ |
2944 yesOrNo ifTrue:[ |
2944 [:name | pattern match:name ] |
2945 [:name | pattern match:name ignoreCase:ignoreCase ] |
2945 ] ifFalse:[ |
2946 ] ifFalse:[ |
2946 [:name | (pattern match:name) not ] |
2947 [:name | (pattern match:name ignoreCase:ignoreCase) not ] |
2947 ]. |
2948 ]. |
2948 ]. |
2949 ]. |
2949 |
2950 |
2950 filters size == 1 ifTrue:[ |
2951 filters size == 1 ifTrue:[ |
2951 filterBlock := filters first |
2952 filterBlock := filters first |
7150 ! ! |
7151 ! ! |
7151 |
7152 |
7152 !AbstractFileBrowser class methodsFor:'documentation'! |
7153 !AbstractFileBrowser class methodsFor:'documentation'! |
7153 |
7154 |
7154 version |
7155 version |
7155 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.347 2006-12-04 12:17:30 cg Exp $' |
7156 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.348 2006-12-06 10:14:23 fm Exp $' |
7156 ! ! |
7157 ! ! |