#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Sun, 05 Jan 2020 17:26:45 +0100
changeset 5420 ed59dfaab1a8
parent 5419 012b0bf375d0
child 5421 9249f574dc60
#REFACTORING by exept class: DirectoryContents changed: #directory: class: DirectoryContents class changed: #directoryNamed:detect:onOpenErrorDo:
DirectoryContents.st
--- a/DirectoryContents.st	Sat Jan 04 18:04:53 2020 +0100
+++ b/DirectoryContents.st	Sun Jan 05 17:26:45 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -338,7 +340,7 @@
                         ^ true
                     ]
                 ].
-            ] on:(FileStream openErrorSignal, StreamIOError) do:[:ex|
+            ] on:(OpenError, StreamIOError) do:[:ex|
                 isReadable := false.
             ].
         ].
@@ -552,7 +554,7 @@
                 ].
                 isReadable := true.
             ].
-        ] on:(FileStream openErrorSignal , StreamError) do:[:ex | isReadable := false. ].
+        ] on:(OpenError , StreamError) do:[:ex | isReadable := false. ].
     ] ensure:[
         stream notNil ifTrue:[
             stream close