data GCFunction = GXclear | GXand | GXandReverse | GXcopy | GXandInverted | GXnoop | GXxor | GXor | GXnor | GXequiv | GXinvert | GXorReverse | GXCopyInverted | GXorInverted | GXnand | GXset instance Bounded GCFunction instance Enum GCFunction instance Eq GCFunction instance Ord GCFunction instance Read GCFunction instance Show GCFunction data GCLineStyle = LineSolid | LineDoubleDash | LineOnOffDash instance Bounded GCLineStyle instance Enum GCLineStyle instance Eq GCLineStyle instance Ord GCLineStyle instance Read GCLineStyle instance Show GCLineStyle data GCCapStyle = CapNotLast | CapButt | CapRound | CapProjecting instance Bounded GCCapStyle instance Enum GCCapStyle instance Eq GCCapStyle instance Ord GCCapStyle instance Read GCCapStyle instance Show GCCapStyle data GCJoinStyle = JoinMiter | JoinRound | JoinBevel instance Bounded GCJoinStyle instance Enum GCJoinStyle instance Eq GCJoinStyle instance Ord GCJoinStyle instance Read GCJoinStyle instance Show GCJoinStyle data GCFillStyle = FillSolid | FillTiled | FillStippled | FillOpaqueStippled instance Bounded GCFillStyle instance Enum GCFillStyle instance Eq GCFillStyle instance Ord GCFillStyle instance Read GCFillStyle instance Show GCFillStyle data GCSubwindowMode = ClipByChildren | IncludeInferiors instance Bounded GCSubwindowMode instance Enum GCSubwindowMode instance Eq GCSubwindowMode instance Ord GCSubwindowMode instance Read GCSubwindowMode instance Show GCSubwindowMode data GCAttributes a b = GCFunction GCFunction | GCForeground a | GCBackground a | GCLineWidth Width | GCLineStyle GCLineStyle | GCFont b | GCCapStyle GCCapStyle | GCSubwindowMode GCSubwindowMode | GCGraphicsExposures Bool | GCFillStyle GCFillStyle | GCTile PixmapId | GCStipple PixmapId | GCJoinStyle GCJoinStyle instance (Eq a, Eq b) => Eq (GCAttributes a b) instance (Ord a, Ord b) => Ord (GCAttributes a b) instance (Read a, Read b) => Read (GCAttributes a b) instance (Show a, Show b) => Show (GCAttributes a b) type GCAttributeList = [GCAttributes Pixel FontId]