--- a/AbstractFileBrowser.st	Mon Dec 04 13:31:15 2006 +0100
+++ b/AbstractFileBrowser.st	Wed Dec 06 11:14:23 2006 +0100
@@ -2923,10 +2923,11 @@
 !
 
 makeFilterBlock
-    | filterString filterStrings filters showHidden yesOrNo filterBlock|
+    | filterString filterStrings filters showHidden yesOrNo filterBlock ignoreCase|
 
     filterString := self filterModel value.
     filterString = '' ifTrue:[filterString := '*'].
+    ignoreCase := "ignoreCaseInPattern ? "(Filename isCaseSensitive not).
 
     filterStrings := filterString asCollectionOfSubstringsSeparatedBy:$;.
     filters := filterStrings
@@ -2941,9 +2942,9 @@
                                 pattern := pattern copyFrom:2.
                             ].
                             yesOrNo ifTrue:[
-                                [:name | pattern match:name ]
+                                [:name | pattern match:name ignoreCase:ignoreCase ]
                             ] ifFalse:[
-                                [:name | (pattern match:name) not ]
+                                [:name | (pattern match:name ignoreCase:ignoreCase) not ]
                             ].
                         ].
 
@@ -7152,5 +7153,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.347 2006-12-04 12:17:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.348 2006-12-06 10:14:23 fm Exp $'
 ! !