[htoolkit-cvs] port/src/cbits/GTK Bitmap.c,1.2,1.3

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

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

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/GTK/Bitmap.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Bitmap.c	23 Jan 2003 20:19:32 -0000	1.2
--- Bitmap.c	31 Jan 2003 23:25:37 -0000	1.3
***************
*** 82,89 ****
  }
  
! void osGetBitmapSize (BitmapHandle bitmap, int *width, int *height)
  {
! 	*width  = bitmap->width;
! 	*height = bitmap->height;
  }
  
--- 82,89 ----
  }
  
! void osGetBitmapSize (BitmapHandle bitmap, int *size)
  {
! 	size[0]  = bitmap->width;
! 	size[1] = bitmap->height;
  }