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 (Eq, Ord, Show, Read, Bounded, Enum)

clEventMask = [KeyPressMask .. OwnerGrabButtonMask]