[htoolkit-cvs] gio/src/Graphics/UI/GIO Canvas.hs,1.11,1.12

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

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

Modified Files:
	Canvas.hs 
Log Message:
Add drawPoint primitive


Index: Canvas.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Canvas.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Canvas.hs	31 May 2003 19:08:37 -0000	1.11
--- Canvas.hs	1 Jun 2003 14:04:12 -0000	1.12
***************
*** 35,38 ****
--- 35,39 ----
  
                -- * Drawing primitives
+               , drawPoint
                , drawString
                , drawLine
***************
*** 158,161 ****
--- 159,166 ----
  -- Drawing primitives
  --------------------------------------------------------------------
+ 
+ -- | Draws a point at the specified location.
+ drawPoint :: Point -> Canvas -> IO ()
+ drawPoint p can = Port.drawPoint p (hcanvas can)
  
  -- | Draws the specified text string at the specified location.