[htoolkit-cvs] gio/src/Graphics/UI/GIO Canvas.hs,1.14,1.15

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv30350/src/Graphics/UI/GIO

Modified Files:
	Canvas.hs 
Log Message:
rename drawInBitmap to paintInBitmap


Index: Canvas.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Canvas.hs,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Canvas.hs	24 Aug 2003 19:02:45 -0000	1.14
--- Canvas.hs	7 Oct 2003 20:09:10 -0000	1.15
***************
*** 32,36 ****
                , setCanvasPen, getCanvasPen
                
!               , drawInBitmap
  
                -- * Drawing primitives
--- 32,36 ----
                , setCanvasPen, getCanvasPen
                
!               , paintInBitmap
  
                -- * Drawing primitives
***************
*** 150,158 ****
         Port.withCanvas pen bmode handle (f (Canvas handle vpen bmode))
  
! -- | The drawInBitmap executes the given function with canvas
  -- associated with given Bitmap.
! drawInBitmap :: BufferMode -> Pen -> Bitmap -> (Canvas -> IO a) -> IO a
! drawInBitmap bmode pen bmp f = do
!    Port.drawInBitmap bmp (\hcanvas -> withCanvas bmode pen hcanvas f)
  
  --------------------------------------------------------------------
--- 150,158 ----
         Port.withCanvas pen bmode handle (f (Canvas handle vpen bmode))
  
! -- | The paintInBitmap executes the given function with canvas
  -- associated with given Bitmap.
! paintInBitmap :: Bitmap -> Pen -> (Canvas -> IO a) -> IO a
! paintInBitmap bmp pen f = do
!    Port.drawInBitmap bmp (\hcanvas -> withCanvas UnBuffered pen hcanvas f)
  
  --------------------------------------------------------------------