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
|
