module EventMask where

-- Same order as in X
data EventMask = KeyPressMask |
                 KeyReleaseMask |
                 ButtonPressMask |
                 ButtonReleaseMask |
                 EnterWindowMask |
                 LeaveWindowMask |
                 PointerMotionMask |
                 PointerMotionHintMask |
                 Button1MotionMask |
                 Button2MotionMask |
                 Button3MotionMask |
                 Button4MotionMask |
                 Button5MotionMask |
                 ButtonMotionMask |
                 KeymapStateMask |
                 ExposureMask |
                 VisibilityChangeMask |
                 StructureNotifyMask |
                 ResizeRedirectMask |
                 SubstructureNotifyMask |
                 SubstructureRedirectMask |
                 FocusChangeMask |
                 PropertyChangeMask |
                 ColormapChangeMask |
                 OwnerGrabButtonMask 
                 deriving (EventMask -> EventMask -> Bool
(EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> Bool) -> Eq EventMask
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventMask -> EventMask -> Bool
$c/= :: EventMask -> EventMask -> Bool
== :: EventMask -> EventMask -> Bool
$c== :: EventMask -> EventMask -> Bool
Eq, Eq EventMask
Eq EventMask
-> (EventMask -> EventMask -> Ordering)
-> (EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> Bool)
-> (EventMask -> EventMask -> EventMask)
-> (EventMask -> EventMask -> EventMask)
-> Ord EventMask
EventMask -> EventMask -> Bool
EventMask -> EventMask -> Ordering
EventMask -> EventMask -> EventMask
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EventMask -> EventMask -> EventMask
$cmin :: EventMask -> EventMask -> EventMask
max :: EventMask -> EventMask -> EventMask
$cmax :: EventMask -> EventMask -> EventMask
>= :: EventMask -> EventMask -> Bool
$c>= :: EventMask -> EventMask -> Bool
> :: EventMask -> EventMask -> Bool
$c> :: EventMask -> EventMask -> Bool
<= :: EventMask -> EventMask -> Bool
$c<= :: EventMask -> EventMask -> Bool
< :: EventMask -> EventMask -> Bool
$c< :: EventMask -> EventMask -> Bool
compare :: EventMask -> EventMask -> Ordering
$ccompare :: EventMask -> EventMask -> Ordering
$cp1Ord :: Eq EventMask
Ord, Int -> EventMask -> ShowS
[EventMask] -> ShowS
EventMask -> String
(Int -> EventMask -> ShowS)
-> (EventMask -> String)
-> ([EventMask] -> ShowS)
-> Show EventMask
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EventMask] -> ShowS
$cshowList :: [EventMask] -> ShowS
show :: EventMask -> String
$cshow :: EventMask -> String
showsPrec :: Int -> EventMask -> ShowS
$cshowsPrec :: Int -> EventMask -> ShowS
Show, ReadPrec [EventMask]
ReadPrec EventMask
Int -> ReadS EventMask
ReadS [EventMask]
(Int -> ReadS EventMask)
-> ReadS [EventMask]
-> ReadPrec EventMask
-> ReadPrec [EventMask]
-> Read EventMask
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EventMask]
$creadListPrec :: ReadPrec [EventMask]
readPrec :: ReadPrec EventMask
$creadPrec :: ReadPrec EventMask
readList :: ReadS [EventMask]
$creadList :: ReadS [EventMask]
readsPrec :: Int -> ReadS EventMask
$creadsPrec :: Int -> ReadS EventMask
Read, EventMask
EventMask -> EventMask -> Bounded EventMask
forall a. a -> a -> Bounded a
maxBound :: EventMask
$cmaxBound :: EventMask
minBound :: EventMask
$cminBound :: EventMask
Bounded, Int -> EventMask
EventMask -> Int
EventMask -> [EventMask]
EventMask -> EventMask
EventMask -> EventMask -> [EventMask]
EventMask -> EventMask -> EventMask -> [EventMask]
(EventMask -> EventMask)
-> (EventMask -> EventMask)
-> (Int -> EventMask)
-> (EventMask -> Int)
-> (EventMask -> [EventMask])
-> (EventMask -> EventMask -> [EventMask])
-> (EventMask -> EventMask -> [EventMask])
-> (EventMask -> EventMask -> EventMask -> [EventMask])
-> Enum EventMask
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: EventMask -> EventMask -> EventMask -> [EventMask]
$cenumFromThenTo :: EventMask -> EventMask -> EventMask -> [EventMask]
enumFromTo :: EventMask -> EventMask -> [EventMask]
$cenumFromTo :: EventMask -> EventMask -> [EventMask]
enumFromThen :: EventMask -> EventMask -> [EventMask]
$cenumFromThen :: EventMask -> EventMask -> [EventMask]
enumFrom :: EventMask -> [EventMask]
$cenumFrom :: EventMask -> [EventMask]
fromEnum :: EventMask -> Int
$cfromEnum :: EventMask -> Int
toEnum :: Int -> EventMask
$ctoEnum :: Int -> EventMask
pred :: EventMask -> EventMask
$cpred :: EventMask -> EventMask
succ :: EventMask -> EventMask
$csucc :: EventMask -> EventMask
Enum)

clEventMask :: [EventMask]
clEventMask =
    [EventMask
KeyPressMask, EventMask
KeyReleaseMask, EventMask
ButtonPressMask, EventMask
ButtonReleaseMask, EventMask
EnterWindowMask,
     EventMask
LeaveWindowMask, EventMask
PointerMotionMask, EventMask
PointerMotionHintMask, EventMask
Button1MotionMask,
     EventMask
Button2MotionMask, EventMask
Button3MotionMask, EventMask
Button4MotionMask, EventMask
Button5MotionMask,
     EventMask
ButtonMotionMask, EventMask
KeymapStateMask, EventMask
ExposureMask, EventMask
VisibilityChangeMask, EventMask
StructureNotifyMask,
     EventMask
ResizeRedirectMask, EventMask
SubstructureNotifyMask, EventMask
SubstructureRedirectMask, EventMask
FocusChangeMask,
     EventMask
PropertyChangeMask, EventMask
ColormapChangeMask, EventMask
OwnerGrabButtonMask]