XBMReader.st
changeset 1710 ad35e6a18e98
parent 1521 3c54279a418c
child 1745 4fa0fad2a463
equal deleted inserted replaced
1709:fc33be8aaa9c 1710:ad35e6a18e98
   299         Image informationLostQuerySignal
   299         Image informationLostQuerySignal
   300             raiseWith:image
   300             raiseWith:image
   301             errorString:('XBM format does not support an imageMask').
   301             errorString:('XBM format does not support an imageMask').
   302     ].
   302     ].
   303 
   303 
   304     outStream := FileStream newFileNamed:aFileName.
   304     [
   305     outStream isNil ifTrue:[
   305         outStream := aFileName asFilename newReadWriteStream.
       
   306     ] on:FileStream openErrorSignal do:[:ex|
   306         ^ Image fileCreationErrorSignal 
   307         ^ Image fileCreationErrorSignal 
   307             raiseWith:image
   308             raiseWith:image
   308             errorString:('file creation error: ' , aFileName asString).
   309             errorString:('file creation error: ' , aFileName asString).
   309     ].
   310     ].
   310 
   311 
   362 ! !
   363 ! !
   363 
   364 
   364 !XBMReader class methodsFor:'documentation'!
   365 !XBMReader class methodsFor:'documentation'!
   365 
   366 
   366 version
   367 version
   367     ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.45 2001-10-16 11:25:48 cg Exp $'
   368     ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.46 2003-03-02 18:39:33 stefan Exp $'
   368 ! !
   369 ! !
       
   370 
   369 XBMReader initialize!
   371 XBMReader initialize!