FindFileApplication.st
changeset 11423 ba26e541c690
parent 11122 02a57283d491
child 11473 2d838f1ab6e3
--- 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 $'
 ! !