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)
--------------------------------------------------------------------
|
