WinIconRdr.st
changeset 53 4f5e734bc59f
parent 41 66edc847b9c8
child 83 97fd04d167c8
equal deleted inserted replaced
52:6dc870beba69 53:4f5e734bc59f
    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/Attic/WinIconRdr.st,v 1.11 1995-02-18 15:52:37 claus Exp $
    24 $Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.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/Attic/WinIconRdr.st,v 1.11 1995-02-18 15:52:37 claus Exp $
    45 $Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.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.