equal
deleted
inserted
replaced
2232 "helper for save image" |
2232 "helper for save image" |
2233 |
2233 |
2234 |stream| |
2234 |stream| |
2235 |
2235 |
2236 [ |
2236 [ |
2237 stream := aFileName asFilename newReadWriteStream. |
2237 stream := aFileName asFilename newReadWriteStream. |
2238 ] on:FileStream openErrorSignal do:[:ex| |
2238 ] on:FileStream openErrorSignal do:[:ex| |
2239 ^ Image fileCreationErrorSignal |
2239 ^ Image fileCreationErrorSignal |
2240 raiseWith:something |
2240 raiseWith:something |
2241 errorString:('file creation error: ' , aFileName asString). |
2241 errorString:('file creation error: ' , ex description). |
2242 ]. |
2242 ]. |
2243 |
2243 |
2244 [ |
2244 [ |
2245 [ |
2245 [ |
2246 aBlock value: stream |
2246 aBlock value: stream |
2247 ] ensure:[ |
2247 ] ensure:[ |
2248 stream close. |
2248 stream close. |
2249 ]. |
2249 ]. |
2250 ] ifCurtailed:[ |
2250 ] ifCurtailed:[ |
2251 OsError catch:[ |
2251 OsError catch:[ |
2252 aFileName asFilename delete. |
2252 aFileName asFilename delete. |
2253 ] |
2253 ] |
2254 ]. |
2254 ]. |
|
2255 |
|
2256 "Modified: / 04-08-2017 / 11:28:41 / stefan" |
2255 ! ! |
2257 ! ! |
2256 |
2258 |
2257 !ImageReader methodsFor:'initialization'! |
2259 !ImageReader methodsFor:'initialization'! |
2258 |
2260 |
2259 initialize |
2261 initialize |