equal
deleted
inserted
replaced
19 |
19 |
20 WindowsIconReader comment:' |
20 WindowsIconReader comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.11 1995-02-18 15:52:37 claus Exp $ |
24 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.12 1995-03-25 22:15:59 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !WindowsIconReader class methodsFor:'documentation'! |
27 !WindowsIconReader class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.11 1995-02-18 15:52:37 claus Exp $ |
45 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.12 1995-03-25 22:15:59 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
58 initialize |
58 initialize |
59 Image fileFormats at:'.bmp' put:self. |
59 Image fileFormats at:'.bmp' put:self. |
60 Image fileFormats at:'.ico' put:self. |
60 Image fileFormats at:'.ico' put:self. |
61 ! ! |
61 ! ! |
62 |
62 |
63 !WindowsIconReader class methodsFor:'reading from file'! |
63 !WindowsIconReader methodsFor:'reading from file'! |
64 |
64 |
65 fromOS2File: aFilename |
65 fromOS2File: aFilename |
66 |reader stream| |
66 |reader stream| |
67 |
67 |
68 stream := self streamReadingFile:aFilename. |
68 stream := self streamReadingFile:aFilename. |