equal
deleted
inserted
replaced
4253 |img fn e| |
4253 |img fn e| |
4254 |
4254 |
4255 fn := self fileName. |
4255 fn := self fileName. |
4256 Image badImageFormatQuerySignal handle:[:ex | |
4256 Image badImageFormatQuerySignal handle:[:ex | |
4257 e := ex description. |
4257 e := ex description. |
4258 ex mayProceed ifTrue:[ ex proceed ]. |
4258 "/ ex mayProceed ifTrue:[ ex proceed ]. |
4259 ] do:[ |
4259 ] do:[ |
4260 img := Image fromFile:fn. |
4260 img := Image fromFile:fn. |
4261 ]. |
4261 ]. |
4262 img isNil ifTrue:[ |
4262 img isNil ifTrue:[ |
4263 e isNil ifTrue:[ |
4263 e isNil ifTrue:[ |
4265 e := 'Unknown/unsupported image format' |
4265 e := 'Unknown/unsupported image format' |
4266 ] ifFalse:[ |
4266 ] ifFalse:[ |
4267 e := 'No such image' |
4267 e := 'No such image' |
4268 ]. |
4268 ]. |
4269 ]. |
4269 ]. |
4270 Dialog warn:e. |
4270 Dialog warn:('Error while reading image:\n%s' printfWith:e). |
4271 ^ nil |
4271 ^ nil |
4272 ]. |
4272 ]. |
4273 e notNil ifTrue:[ |
4273 e notNil ifTrue:[ |
4274 Dialog information:'An error occurred while decoding some parts of the image.\However, some image data was retrieved...' withCRs. |
4274 Dialog information:'An error occurred while decoding some parts of the image.\However, some image data was retrieved...' withCRs. |
4275 ]. |
4275 ]. |