[htoolkit-cvs] port/src/cbits/Win32 Bitmap.c,1.1,1.2

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

Update of /cvsroot/htoolkit/port/src/cbits/Win32
In directory sc8-pr-cvs1:/tmp/cvs-serv11500/port/src/cbits/Win32

Modified Files:
	Bitmap.c 
Log Message:
Change the definition of osGetBitmapSize. The new definition allows using of withCSizeResult function at Haskell level


Index: Bitmap.c
===================================================================
RCS file: /cvsroot/htoolkit/port/src/cbits/Win32/Bitmap.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Bitmap.c	21 Jan 2003 22:01:10 -0000	1.1
--- Bitmap.c	31 Jan 2003 23:25:37 -0000	1.2
***************
*** 273,280 ****
  }
  
! void osGetBitmapSize (BitmapHandle bitmap, int *width, int *height)
  {
! 	*width  = bitmap->destsize.cx;
! 	*height = bitmap->destsize.cy;
  }
  
--- 273,280 ----
  }
  
! void osGetBitmapSize (BitmapHandle bitmap, int *size)
  {
! 	size[0] = bitmap->destsize.cx;
! 	size[1] = bitmap->destsize.cy;
  }