equal
deleted
inserted
replaced
423 (i.e. very simple images)" |
423 (i.e. very simple images)" |
424 |
424 |
425 |usedColors nColorsUsed nColors nChars baseName map maskColorIndex |
425 |usedColors nColorsUsed nColors nChars baseName map maskColorIndex |
426 isMasked imageMask| |
426 isMasked imageMask| |
427 |
427 |
428 usedColors := image usedColors. |
428 usedColors := image usedColors asArray. |
429 nColors := nColorsUsed := usedColors size. |
429 nColors := nColorsUsed := usedColors size. |
430 (imageMask := image mask) notNil ifTrue:[ |
430 (imageMask := image mask) notNil ifTrue:[ |
431 nColors := nColors + 1. |
431 nColors := nColors + 1. |
432 maskColorIndex := nColors. |
432 maskColorIndex := nColors. |
433 ]. |
433 ]. |
511 outStream nextPutLine:'",'. |
511 outStream nextPutLine:'",'. |
512 ]. |
512 ]. |
513 outStream nextPutLine:'};'. |
513 outStream nextPutLine:'};'. |
514 outStream close. |
514 outStream close. |
515 |
515 |
516 "Modified: 22.7.1997 / 10:30:27 / cg" |
516 "Modified: / 28.7.1998 / 21:52:13 / cg" |
517 ! ! |
517 ! ! |
518 |
518 |
519 !XPMReader class methodsFor:'documentation'! |
519 !XPMReader class methodsFor:'documentation'! |
520 |
520 |
521 version |
521 version |
522 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.40 1998-07-27 18:02:13 cg Exp $' |
522 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.41 1998-07-28 20:06:10 cg Exp $' |
523 ! ! |
523 ! ! |
524 XPMReader initialize! |
524 XPMReader initialize! |