diff -r b7084e3e20fd -r ba26e541c690 FindFileApplication.st --- a/FindFileApplication.st Thu Mar 15 14:46:15 2012 +0100 +++ b/FindFileApplication.st Fri Mar 16 10:10:56 2012 +0100 @@ -743,7 +743,8 @@ ! doSearch - |namePatterns excludedNamePatterns contentsPattern notContentsPattern dir fileToCompareAgainst ignoreCaseInName ignoreCaseInExcludedName ignoreCaseInContents| + |namePatterns excludedNamePatterns contentsPattern notContentsPattern dir fileToCompareAgainst ignoreCaseInName ignoreCaseInExcludedName + ignoreCaseInContents ignoreCaseInNotContents| "/ self changeExtentToSeeSearchResult. @@ -760,6 +761,7 @@ LastSearchIgnoredCaseInFilename := ignoreCaseInName := self ignoreCaseInName value. LastSearchIgnoredCaseInExcludedFilename := ignoreCaseInExcludedName := self ignoreCaseInExcludedName value. LastSearchIgnoredCaseInContents := ignoreCaseInContents := self ignoreCaseInContents value. + ignoreCaseInNotContents := self ignoreCaseInNotContents value. self stopSearchTaskOrAbort. @@ -779,7 +781,7 @@ notContentsPattern size == 0 ifTrue:[ notContentsPattern := nil ] ifFalse:[ - self ignoreCaseInNotContents value ifTrue:[ + ignoreCaseInNotContents ifTrue:[ notContentsPattern := notContentsPattern asLowercase ] ]. @@ -813,7 +815,7 @@ containingString:contentsPattern ignoreCaseInContents:ignoreCaseInContents notContainingString:notContentsPattern - ignoreCaseInNotContents:(self ignoreCaseInNotContents value) + ignoreCaseInNotContents:ignoreCaseInNotContents sameContentsAsFile:fileToCompareAgainst sameContentsAs:nil in:(self searchDirectoryHolder value). @@ -821,7 +823,7 @@ ] name:('FindFile[', self searchDirectoryHolder value asFilename baseName, ']') - "Modified: / 12-01-2012 / 01:54:27 / cg" + "Modified: / 16-03-2012 / 09:37:13 / cg" ! fileInInBrowser @@ -1681,9 +1683,9 @@ !FindFileApplication class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.100 2012-01-13 13:44:18 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.101 2012-03-16 09:10:56 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.100 2012-01-13 13:44:18 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.101 2012-03-16 09:10:56 cg Exp $' ! !