[htoolkit-cvs] port/src/Port Bitmap.hs,1.4,1.5

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv10179/src/Port

Modified Files:
	Bitmap.hs 
Log Message:
Rename resizeBitmap function to setBitmapSize


Index: Bitmap.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Bitmap.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Bitmap.hs	23 Mar 2003 10:17:54 -0000	1.4
--- Bitmap.hs	7 Apr 2003 20:58:48 -0000	1.5
***************
*** 21,25 ****
             -- * Operations
             , getBitmapSize
!            , resizeBitmap
             , drawInBitmap
  
--- 21,25 ----
             -- * Operations
             , getBitmapSize
!            , setBitmapSize
             , drawInBitmap
  
***************
*** 100,109 ****
  
  -- | Stretch a bitmap to a different size.
! resizeBitmap :: Bitmap -> Size -> IO ()
! resizeBitmap bitmap size
    = withCBitmap bitmap$ \bh ->
      withCSize size    $ \cw ch ->
!     osResizeBitmap bh cw ch
! foreign import ccall osResizeBitmap :: BitmapHandle -> CInt -> CInt -> IO ()
  
  
--- 100,109 ----
  
  -- | Stretch a bitmap to a different size.
! setBitmapSize :: Bitmap -> Size -> IO ()
! setBitmapSize bitmap size
    = withCBitmap bitmap$ \bh ->
      withCSize size    $ \cw ch ->
!     osSetBitmapSize bh cw ch
! foreign import ccall osSetBitmapSize :: BitmapHandle -> CInt -> CInt -> IO ()