[htoolkit-cvs] port/src/Port Bitmap.hs,1.2,1.3

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

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.