--- 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 $'
! !