Add missing event mask fields to WindowAttributes

This is a prerequisite to fix a recent xmonad-contrib regression
caused by X.H.ManageDocks overriding the event mask (selectInput) of
a decoration window. The proposed fix is to first obtain the current
event mask, set the required bits in it only then reset the mask.

Related: xmonad/xmonad-contrib#517
Related: xmonad/xmonad-contrib#545

CHANGES.md

@@ -12,6 +12,8 @@
 
   * Added `setClassHint` (#76)
 
+  * Added a few missing event mask fields to `WindowAttributes` (#77)
+
 ## 1.9.2 (2020-08-25)
 
   * Make sure that X11 search paths determined by autoconf are actually passed

Graphics/X11/Xlib/Extras.hsc

@@ -957,6 +957,9 @@ data WindowAttributes = WindowAttributes
             , wa_colormap :: Colormap
             , wa_map_installed :: Bool
             , wa_map_state :: CInt
+            , wa_all_event_masks :: EventMask
+            , wa_your_event_mask :: EventMask
+            , wa_do_not_propagate_mask :: EventMask
             , wa_override_redirect :: Bool
             }
 
@@ -981,6 +984,9 @@ instance Storable WindowAttributes where
                 `ap` (#{peek XWindowAttributes, colormap         } p)
                 `ap` (#{peek XWindowAttributes, map_installed    } p)
                 `ap` (#{peek XWindowAttributes, map_state        } p)
+                `ap` (#{peek XWindowAttributes, all_event_masks  } p)
+                `ap` (#{peek XWindowAttributes, your_event_mask  } p)
+                `ap` (#{peek XWindowAttributes, do_not_propagate_mask } p)
                 `ap` (#{peek XWindowAttributes, override_redirect} p)
     poke p wa = do
         #{poke XWindowAttributes, x                } p $ wa_x wa
@@ -991,6 +997,9 @@ instance Storable WindowAttributes where
         #{poke XWindowAttributes, colormap         } p $ wa_colormap wa
         #{poke XWindowAttributes, map_installed    } p $ wa_map_installed wa
         #{poke XWindowAttributes, map_state        } p $ wa_map_state wa
+        #{poke XWindowAttributes, all_event_masks  } p $ wa_all_event_masks wa
+        #{poke XWindowAttributes, your_event_mask  } p $ wa_your_event_mask wa
+        #{poke XWindowAttributes, do_not_propagate_mask } p $ wa_do_not_propagate_mask wa
         #{poke XWindowAttributes, override_redirect} p $ wa_override_redirect wa
 
 foreign import ccall unsafe "XlibExtras.h XGetWindowAttributes"