GIFReader.st
changeset 1811 d3fabf23f595
parent 1805 93f557cbe600
child 1813 aa74c7bd22ad
equal deleted inserted replaced
1810:61452e83a4e1 1811:d3fabf23f595
   754 
   754 
   755     |aStream convertedImage|
   755     |aStream convertedImage|
   756 
   756 
   757     image depth ~~ 8 ifTrue:[
   757     image depth ~~ 8 ifTrue:[
   758         Image errorSignal handle:[:ex |
   758         Image errorSignal handle:[:ex |
   759             ex return.
   759             ^ Image cannotRepresentImageSignal 
       
   760                 raiseWith:image
       
   761                 errorString:('GIF failed to convert image to depth8: ', ex description).
       
   762             "/ ex return.
   760         ] do:[
   763         ] do:[
   761             convertedImage := Image newForDepth:8.
   764             convertedImage := Image newForDepth:8.
   762             convertedImage fromImage:image photometric:#palette.
   765             convertedImage fromImage:image photometric:#palette.
   763         ].
   766         ].
   764         convertedImage notNil ifTrue:[
   767         convertedImage notNil ifTrue:[
   983 ! !
   986 ! !
   984 
   987 
   985 !GIFReader class methodsFor:'documentation'!
   988 !GIFReader class methodsFor:'documentation'!
   986 
   989 
   987 version
   990 version
   988     ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.86 2003-09-01 14:47:30 cg Exp $'
   991     ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.87 2003-09-09 11:30:24 penk Exp $'
   989 ! !
   992 ! !
   990 
   993 
   991 GIFReader initialize!
   994 GIFReader initialize!