[htoolkit-cvs] port/src/Port Canvas.hs,1.11,1.12

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

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
!