--- a/FindFileApplication.st	Fri Dec 16 17:17:56 2005 +0100
+++ b/FindFileApplication.st	Wed Dec 21 13:43:48 2005 +0100
@@ -25,7 +25,8 @@
 		contentsInfoCacheAccessLock autoSelectInBrowserHolder
 		fileSizeOperatorHolder fileSizeHolder enableFileSizeFilter
 		fileSizeUnitHolder'
-	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache'
+	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache
+		LastSearchIgnoredCaseInContents LastSearchIgnoredCaseInFilename'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
 !
@@ -674,7 +675,10 @@
         Dialog warn:('No such directory: ''%1''' bindWith:dir asString allBold).
         ^ self.
     ].
-    
+
+    LastSearchIgnoredCaseInFilename := ignoreCaseInName value.
+    LastSearchIgnoredCaseInContents := ignoreCaseInContents value.
+
     searchTask notNil ifTrue:[
         (Dialog 
             confirm:(resources stringWithCRs:'There is already another find-file task running !!')
@@ -947,7 +951,9 @@
 
 ignoreCaseInContents
     ignoreCaseInContents isNil ifTrue:[
-        ignoreCaseInContents := false asValue.
+        ignoreCaseInContents := (LastSearchIgnoredCaseInContents 
+                                ? TextView lastSearchIgnoredCase 
+                                ? true) asValue.
     ].
     ^ ignoreCaseInContents.
 !
@@ -955,14 +961,17 @@
 ignoreCaseInName
 
     ignoreCaseInName isNil ifTrue:[
-        ignoreCaseInName := false asValue.
+        ignoreCaseInName := (LastSearchIgnoredCaseInFilename 
+                             ? OperatingSystem caseSensitiveFilenames not) asValue.
     ].
     ^ ignoreCaseInName.
 !
 
 ignoreCaseInNotContents
     ignoreCaseInNotContents isNil ifTrue:[
-        ignoreCaseInNotContents := false asValue.
+        ignoreCaseInNotContents := (LastSearchIgnoredCaseInContents 
+                                    ? TextView lastSearchIgnoredCase 
+                                    ? true) asValue.
     ].
     ^ ignoreCaseInNotContents.
 !
@@ -1715,5 +1724,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.72 2005-07-13 15:48:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.73 2005-12-21 12:43:48 cg Exp $'
 ! !