#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 27 Mar 2018 20:12:11 +0200
changeset 8328 9c4240cfee1a
parent 8327 98509411b62e
child 8329 2151954cfb87
#REFACTORING by cg class: ImageReader changed: #writingFile:for:do: (send #remove instead of #delete)
ImageReader.st
--- a/ImageReader.st	Tue Mar 27 15:42:13 2018 +0200
+++ b/ImageReader.st	Tue Mar 27 20:12:11 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -2833,23 +2831,23 @@
     |stream|
 
     [
-	stream := aFileName asFilename newReadWriteStream.
+        stream := aFileName asFilename newReadWriteStream.
     ] on:FileStream openErrorSignal do:[:ex|
-	^ Image fileCreationErrorSignal
-	    raiseWith:something
-	    errorString:('file creation error: ' , ex description).
+        ^ Image fileCreationErrorSignal
+            raiseWith:something
+            errorString:('file creation error: ' , ex description).
     ].
 
     [
-	[
-	    aBlock value: stream
-	] ensure:[
-	    stream close.
-	].
+        [
+            aBlock value: stream
+        ] ensure:[
+            stream close.
+        ].
     ] ifCurtailed:[
-	OsError catch:[
-	    aFileName asFilename delete.
-	]
+        OsError catch:[
+            aFileName asFilename remove.
+        ]
     ].
 
     "Modified: / 04-08-2017 / 11:28:41 / stefan"