class: FindFileApplication
changed: #doFindFileNamed:directories:ignoreCaseInName:excludeFilesNamed:ignoreCaseInExcludedName:containingString:ignoreCaseInContents:notContainingString:ignoreCaseInNotContents:sameContentsAsFile:sameContentsAs:in:
--- 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 $'
! !