--- a/FindFileApplication.st Mon May 09 10:05:25 2016 +0200
+++ b/FindFileApplication.st Mon May 09 10:05:28 2016 +0200
@@ -1528,7 +1528,7 @@
contentsMatches := true.
(f exists and:[f isReadable]) ifFalse:[
showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- resultList add: (('*** "',f pathName,'" skipped - unreadable or bad symbolic link ***') colorizeAllWith:(Color red darkened)).
+ resultList add: (('*** "',f pathName,'" skipped - unreadable or bad symbolic link ***') withColor:(Color red darkened)).
].
contentsMatches := false.
] ifTrue:[
@@ -1538,7 +1538,7 @@
realFile := f linkInfo linkTargetPath asFilename.
(realFile exists and:[realFile isReadable]) ifFalse:[
showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- resultList add: (('*** "',f pathName,'"->"',realFile pathName,'" skipped - unreadable or bad symbolic link destination ***') colorizeAllWith:(Color red darkened)).
+ resultList add: (('*** "',f pathName,'"->"',realFile pathName,'" skipped - unreadable or bad symbolic link destination ***') withColor:(Color red darkened)).
].
contentsMatches := false.
isBadFile := true.
@@ -1557,7 +1557,7 @@
hugeFile ifTrue:[
showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+ resultList add: (('*** ' , f pathName , ' skipped - too large ***') withColor:(Color red darkened)).
].
contentsMatches := false.
] ifFalse:[
@@ -1566,14 +1566,14 @@
"/ "/ this typically happens, when a binary file is read linewise ...
showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- resultList add: (('*** ' , f pathName , ' skipped - binary/long line ***') colorizeAllWith:(Color red darkened)).
+ resultList add: (('*** ' , f pathName , ' skipped - binary/long line ***') withColor:(Color red darkened)).
].
contentsMatches := false.
] do:[
bigFile ifTrue:[
Stream lineTooLongErrorSignal handle:[:ex |
showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+ resultList add: (('*** ' , f pathName , ' skipped - too large ***') withColor:(Color red darkened)).
].
contentsMatches := false.
] do:[
@@ -1775,7 +1775,7 @@
directoryContents := dir directoryContents.
] on:FileStream openErrorSignal do:[:ex|
self showUnreadableFilesAndDirectoriesHolder value ifTrue:[
- list add:((ex pathName , ' -> ' , ex description) colorizeAllWith:Color red darkened).
+ list add:((ex pathName , ' -> ' , ex description) withColor:Color red darkened).
].
"/ self warn:('Cannot access %1\(%2)'
"/ bindWith:ex parameter printString