Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv11500/port/src/Port
Modified Files:
Bitmap.hs
Log Message:
Change the definition of osGetBitmapSize. The new definition allows using of withCSizeResult function at Haskell level
Index: Bitmap.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Bitmap.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Bitmap.hs 21 Jan 2003 22:01:08 -0000 1.2
--- Bitmap.hs 31 Jan 2003 23:25:37 -0000 1.3
***************
*** 96,106 ****
getBitmapSize bitmap
= withCBitmap bitmap $ \bh ->
! alloca $ \pw ->
! alloca $ \ph ->
! do osGetBitmapSize bh pw ph
! w <- peek pw
! h <- peek ph
! return (fromCSize w h)
! foreign import ccall osGetBitmapSize :: BitmapHandle -> Ptr CInt -> Ptr CInt -> IO ()
-- | Stretch a bitmap to a different size.
--- 96,101 ----
getBitmapSize bitmap
= withCBitmap bitmap $ \bh ->
! withCSizeResult (osGetBitmapSize bh)
! foreign import ccall osGetBitmapSize :: BitmapHandle -> Ptr CInt -> IO ()
-- | Stretch a bitmap to a different size.
|
