[htoolkit-cvs] port/src/Port Canvas.hs,1.9,1.10

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv12527/src/Port

Modified Files:
	Canvas.hs 
Log Message:
Comments


Index: Canvas.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Canvas.hs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Canvas.hs	30 Jan 2003 21:56:14 -0000	1.9
--- Canvas.hs	30 Jan 2003 23:07:23 -0000	1.10
***************
*** 53,56 ****
--- 53,57 ----
               , setPenLineStyle
               , setPenHatchStyle
+              , setPenBackDrawMode
  
               -- ** Font
***************
*** 66,70 ****
               -- * Deprecated ?  (undraw\/erase)
               , setPenBackColor
-              , setPenBackDrawMode
               , undrawRect
               , eraseRect
--- 67,70 ----
***************
*** 93,97 ****
              , penLineStyle  :: LineStyle
              , penHatchStyle :: HatchStyle
!             , penBackColor  :: Color        -- ^ Deprecated?
              }
  
--- 93,97 ----
              , penLineStyle  :: LineStyle
              , penHatchStyle :: HatchStyle
!             , penBackColor  :: Color
              }
  
***************
*** 189,192 ****
--- 189,195 ----
  foreign import ccall "osSetPenFunction" osSetDrawMode :: CInt -> CanvasHandle -> IO ()
  
+ -- | When back draw mode is set to @True@ and the hatch style is not solid then
+ -- off segments are drawn with background color. When the mode is @False@ then
+ -- off segments are trasparent.
  setPenBackDrawMode :: Bool -> CanvasHandle -> IO ()
  setPenBackDrawMode mode canvas