equal
deleted
inserted
replaced
222 s next. "skip quote" |
222 s next. "skip quote" |
223 charsPerPixel ~~ 1 ifTrue:[ |
223 charsPerPixel ~~ 1 ifTrue:[ |
224 key := s next:charsPerPixel. |
224 key := s next:charsPerPixel. |
225 characterTranslation at:key put:colorIndex - 1. |
225 characterTranslation at:key put:colorIndex - 1. |
226 ] ifFalse:[ |
226 ] ifFalse:[ |
227 index := s next asciiValue. |
227 index := s next codePoint. |
228 characterTranslation at:index put:colorIndex - 1. |
228 characterTranslation at:index put:colorIndex - 1. |
229 ]. |
229 ]. |
230 |
230 |
231 lineDone := false. |
231 lineDone := false. |
232 state := nil. |
232 state := nil. |
445 charsPerPixel == 1 ifTrue:[ |
445 charsPerPixel == 1 ifTrue:[ |
446 srcIndex := 2. "skip dquote" |
446 srcIndex := 2. "skip dquote" |
447 1 to:width do:[:col | |
447 1 to:width do:[:col | |
448 key := line at:srcIndex. |
448 key := line at:srcIndex. |
449 key ~~ lastKey ifTrue:[ |
449 key ~~ lastKey ifTrue:[ |
450 lastXLation := characterTranslation at:key asciiValue. |
450 lastXLation := characterTranslation at:key codePoint. |
451 lastKey := key |
451 lastKey := key |
452 ]. |
452 ]. |
453 data at:dstIndex put:lastXLation. |
453 data at:dstIndex put:lastXLation. |
454 srcIndex := srcIndex + 1. |
454 srcIndex := srcIndex + 1. |
455 dstIndex := dstIndex + 1 |
455 dstIndex := dstIndex + 1 |
632 ! ! |
632 ! ! |
633 |
633 |
634 !XPMReader class methodsFor:'documentation'! |
634 !XPMReader class methodsFor:'documentation'! |
635 |
635 |
636 version |
636 version |
637 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.61 2004-02-12 23:25:34 cg Exp $' |
637 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.62 2004-03-05 19:04:29 stefan Exp $' |
638 ! ! |
638 ! ! |
639 |
639 |
640 XPMReader initialize! |
640 XPMReader initialize! |