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, KeyReleaseMask, ButtonPressMask, ButtonReleaseMask, EnterWindowMask,
     LeaveWindowMask, PointerMotionMask, PointerMotionHintMask, Button1MotionMask,
     Button2MotionMask, Button3MotionMask, Button4MotionMask, Button5MotionMask,
     ButtonMotionMask, KeymapStateMask, ExposureMask, VisibilityChangeMask, StructureNotifyMask,
     ResizeRedirectMask, SubstructureNotifyMask, SubstructureRedirectMask, FocusChangeMask,
     PropertyChangeMask, ColormapChangeMask, OwnerGrabButtonMask]