[htoolkit-cvs] port/src/Port Types.hs,1.28,1.29

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

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

Modified Files:
	Types.hs 
Log Message:
A bit of formatting and derive instences of Eq and Show for PositionType


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Types.hs	23 Aug 2003 12:01:18 -0000	1.28
--- Types.hs	23 Aug 2003 16:10:47 -0000	1.29
***************
*** 708,713 ****
        DrawXor       -> 2
  
  
! data PositionType = PosLeft | PosTop | PosRight | PosBottom
  
  toCPositionType :: PositionType -> CInt
--- 708,720 ----
        DrawXor       -> 2
  
+ -----------------------------------------------------------------------------------------
+ --  Drawmode
+ -----------------------------------------------------------------------------------------
  
! data PositionType = PosLeft 
!                   | PosTop
!                   | PosRight
!                   | PosBottom
!                   deriving (Eq,Show)
  
  toCPositionType :: PositionType -> CInt