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
|
