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