XPMReader.st
changeset 693 e228da8c7ddf
parent 668 2c741725cc08
child 817 dec0b7b06c79
equal deleted inserted replaced
692:e6af4c70e066 693:e228da8c7ddf
   448     nColors > map size ifTrue:[
   448     nColors > map size ifTrue:[
   449 "/        ^ Image cannotRepresentImageSignal 
   449 "/        ^ Image cannotRepresentImageSignal 
   450 "/            raiseWith:image
   450 "/            raiseWith:image
   451 "/            errorString:('XPMReader cannot represent this image (too many colors)').
   451 "/            errorString:('XPMReader cannot represent this image (too many colors)').
   452         map := OrderedCollection new.
   452         map := OrderedCollection new.
   453         ($a to: $j) do:[:c1 |
   453         $a to: $j do:[:c1 |
   454             map addAll:(($a to: $z) collect:[:c2 | c1 asString , c2 asString]).
   454             map addAll:(($a to: $z) collect:[:c2 | c1 asString , c2 asString]).
   455         ].
   455         ].
   456         nChars := 2.
   456         nChars := 2.
   457     ].
   457     ].
   458 
   458 
   519 ! !
   519 ! !
   520 
   520 
   521 !XPMReader class methodsFor:'documentation'!
   521 !XPMReader class methodsFor:'documentation'!
   522 
   522 
   523 version
   523 version
   524     ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.35 1997-07-22 08:33:03 cg Exp $'
   524     ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.36 1997-09-15 13:33:06 stefan Exp $'
   525 ! !
   525 ! !
   526 XPMReader initialize!
   526 XPMReader initialize!