class: FindFileApplication
authorClaus Gittinger <cg@exept.de>
Wed, 27 Feb 2013 12:21:35 +0100
changeset 12425 27c5915a7e3a
parent 12424 861c95eda0e4
child 12426 700b06622522
class: FindFileApplication changed: #doFindFileNamed:directories:ignoreCaseInName:excludeFilesNamed:ignoreCaseInExcludedName:containingString:ignoreCaseInContents:notContainingString:ignoreCaseInNotContents:sameContentsAsFile:sameContentsAs:in:
FindFileApplication.st
--- a/FindFileApplication.st	Sun Feb 24 21:22:33 2013 +0100
+++ b/FindFileApplication.st	Wed Feb 27 12:21:35 2013 +0100
@@ -1453,14 +1453,14 @@
                     [:f |
                         |contentsMatches contentsNotMatches hugeFile bigFile|
 
-                        hugeFile := f fileSize > (4024*1024).
-                        bigFile := f fileSize > (512*1024).
-
                         "/ string search ...
                         contentsMatches := true.
                         (f exists and:[f isReadable]) ifFalse:[
                             resultList add: (('*** ' , f pathName , ' skipped - unreadable or bad symbolic link ***') colorizeAllWith:(Color red darkened)).
                         ] ifTrue:[
+                            hugeFile := f fileSize > (4024*1024).
+                            bigFile := f fileSize > (512*1024).
+
                             hugeFile ifTrue:[
                                 resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
                             ] ifFalse:[
@@ -1818,10 +1818,10 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.105 2013-02-01 23:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.106 2013-02-27 11:21:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.105 2013-02-01 23:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.106 2013-02-27 11:21:35 cg Exp $'
 ! !