#REFACTORING by exept
class: FindFileApplication
changed: #doFindFileNamed:directories:nameMatch:contentsMatch:in:
--- a/FindFileApplication.st Sun Jan 05 17:28:45 2020 +0100
+++ b/FindFileApplication.st Sun Jan 05 17:28:56 2020 +0100
@@ -2008,7 +2008,7 @@
[
directoryContents := dir directoryContents.
- ] on:FileStream openErrorSignal do:[:ex|
+ ] on:OpenError do:[:ex|
self showUnreadableFilesAndDirectoriesHolder value ifTrue:[
list add:((ex pathName , ' -> ' , ex description) withColor:Color darkRed).
].