Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv27364/src/Port
Modified Files:
Canvas.hs
Log Message:
Add definition of dialogPen from HToolkit to Port library. Add instance of Eq for Pen data type.
Index: Canvas.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Canvas.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Canvas.hs 3 Feb 2003 16:53:40 -0000 1.11
--- Canvas.hs 8 Feb 2003 08:36:14 -0000 1.12
***************
*** 42,46 ****
-- * Pen
! , Pen(..), defaultPen
-- ** Font
--- 42,46 ----
-- * Pen
! , Pen(..), defaultPen, dialogPen
-- ** Font
***************
*** 79,89 ****
, penHatchStyle :: !HatchStyle
}
-- | Create a pen with default drawing values. That is:
--
! -- 'Pen'@ 1 @'DrawCopy'@ @'black'@ @'defaultFont'@ @'JoinRound'@ @'CapRound'@ @'LineSolid'@ @'HatchSolid'@ @'white'
defaultPen :: Pen
defaultPen
! = Pen 1 DrawCopy black white False defaultFont JoinRound CapRound LineSolid HatchSolid
--- 79,98 ----
, penHatchStyle :: !HatchStyle
}
+ deriving Eq
-- | Create a pen with default drawing values. That is:
--
! -- @'Pen'@ 1 @'DrawCopy'@ @'black'@ @'white'@ @'False'@ @'defaultFont'@ @'JoinMiter'@ @'CapFlat'@ @'LineSolid'@ @'HatchSolid'@
defaultPen :: Pen
defaultPen
! = Pen 1 DrawCopy black white False defaultFont JoinMiter CapFlat LineSolid HatchSolid
!
! -- | Create a pen with default drawing values for dialogs. That is:
! --
! -- @'Pen'@ 1 @'DrawCopy'@ @'black'@ @'dialoggrey'@ @'False'@ @'dialogFont'@ @'JoinMiter'@ @'CapFlat'@ @'LineSolid'@ @'HatchSolid'@
! dialogPen :: Pen
! dialogPen
! = Pen 1 DrawCopy black dialoggrey False dialogFont JoinMiter CapFlat LineSolid HatchSolid
!
|
