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 ()
|
