WindowsIconReader.st
changeset 18 5a1262eeb9d7
parent 12 6804b4ee340c
child 21 66b31c91177f
equal deleted inserted replaced
17:1990d8455d01 18:5a1262eeb9d7
    23               All Rights Reserved
    23               All Rights Reserved
    24 
    24 
    25 this class provides methods for loading and saving Windows and OS2
    25 this class provides methods for loading and saving Windows and OS2
    26 icon files..
    26 icon files..
    27 
    27 
    28 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.4 1993-12-11 01:35:16 claus Exp $
    28 $Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.5 1994-01-09 21:53:13 claus Exp $
    29 written Jun 93 by claus
    29 written Jun 93 by claus
    30 '!
    30 '!
    31 
    31 
    32 !WindowsIconReader methodsFor:'reading from file'!
    32 !WindowsIconReader methodsFor:'reading from file'!
    33 
    33 
   109 
   109 
   110     "
   110     "
   111      |i f|
   111      |i f|
   112      i := Image fromFile:'/LocalLibrary/Images/WIN_icons/ibm.ico'.
   112      i := Image fromFile:'/LocalLibrary/Images/WIN_icons/ibm.ico'.
   113      f := i asFormOn:Display.
   113      f := i asFormOn:Display.
   114      v drawOpaqueForm:(f ) x:5 y:5.
   114      v displayOpaqueForm:(f ) x:5 y:5.
   115      v drawOpaqueForm:(f magnifyBy:2@2) x:45 y:5
   115      v displayOpaqueForm:(f magnifyBy:2@2) x:45 y:5
   116     "
   116     "
   117 !
   117 !
   118 
   118 
   119 fromOS2File: aFilename 
   119 fromOS2File: aFilename 
   120     | fileSize header inDepth
   120     | fileSize header inDepth
   206 
   206 
   207     "
   207     "
   208      |i f|
   208      |i f|
   209      i := Image fromFile:'/LocalLibrary/Images/OS2/dos3.ico'.
   209      i := Image fromFile:'/LocalLibrary/Images/OS2/dos3.ico'.
   210      f := i asFormOn:Display.
   210      f := i asFormOn:Display.
   211      v drawOpaqueForm:(f magnifyBy:2@2) x:5 y:5
   211      v displayOpaqueForm:(f magnifyBy:2@2) x:5 y:5
   212     "
   212     "
   213 !
   213 !
   214 
   214 
   215 fromWindowsBMPFile: aFilename 
   215 fromWindowsBMPFile: aFilename 
   216     | fileSize header inDepth
   216     | fileSize header inDepth