equal
deleted
inserted
replaced
564 header := ByteArray uninitializedNew:(6 + 16 + 40). |
564 header := ByteArray uninitializedNew:(6 + 16 + 40). |
565 aStream nextBytes:(6 + 16 + 40) into:header. |
565 aStream nextBytes:(6 + 16 + 40) into:header. |
566 width := header at:(6+1). |
566 width := header at:(6+1). |
567 height := header at:(7+1). |
567 height := header at:(7+1). |
568 nColor := header at:(8+1). |
568 nColor := header at:(8+1). |
569 "10, 11, 12, 13, 14 ? (reserve)" |
569 "/ reserved := header at:(9+1). |
570 "15, 16, 17, 18 pixel array size" |
570 "/ nPlanes := header wordAt:(10+1). |
571 "19, 20, 21, 22 offset " |
571 "/ nBitsPerPel := header wordAt:(12+1). |
|
572 "/ nBytesInResource := header doubleWordAt:(14+1). |
|
573 "/ ordinal := header wordAt:(18+1). |
|
574 "21, 22 ?" |
572 "23, ... , 62 ?" |
575 "23, ... , 62 ?" |
573 |
576 |
574 inDepth := header at:16r25. |
577 inDepth := header at:16r25. |
575 |
578 |
576 "read the colormap" |
579 "read the colormap" |
637 |
640 |
638 " |
641 " |
639 WindowsIconReader new fromWindowsICOFile:'/phys/clam2//LocalLibrary/Images/WIN_icons/ibm.ico'. |
642 WindowsIconReader new fromWindowsICOFile:'/phys/clam2//LocalLibrary/Images/WIN_icons/ibm.ico'. |
640 " |
643 " |
641 |
644 |
642 "Modified: 7.6.1996 / 15:46:30 / cg" |
645 "Modified: 15.2.1997 / 13:52:52 / cg" |
643 ! ! |
646 ! ! |
644 |
647 |
645 !WindowsIconReader class methodsFor:'documentation'! |
648 !WindowsIconReader class methodsFor:'documentation'! |
646 |
649 |
647 version |
650 version |
648 ^ '$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.28 1997-02-01 14:07:04 cg Exp $' |
651 ^ '$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.29 1997-02-17 10:10:50 cg Exp $' |
649 ! ! |
652 ! ! |
650 WindowsIconReader initialize! |
653 WindowsIconReader initialize! |