aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorClemens Fruhwirth <clemens@endorphin.org>2009-08-09 15:10:55 +0200
committerClemens Fruhwirth <clemens@endorphin.org>2009-08-09 15:10:55 +0200
commitbc953a7e66fad3430db8be04916015f845bab79a (patch)
tree6f69305cef136a3f05ae26f35e051b9f7018ce6d
parentf57adbf07b6a6b0fb6b8ac2ac6b6f2d81d5b22f0 (diff)
downloadXMonadContrib-bc953a7e66fad3430db8be04916015f845bab79a.tar.gz
XMonadContrib-bc953a7e66fad3430db8be04916015f845bab79a.tar.xz
XMonadContrib-bc953a7e66fad3430db8be04916015f845bab79a.zip
Replace nextEvent with maskEvent to prevent GridSelect from swallowing unrelated events (such as map/unmap)
Ignore-this: 6c3bc2487e4f011e0febe0935c223f2 darcs-hash:20090809131055-ed0c4-983bd18467496e2736ef99904d8fdb5392855517.gz
-rw-r--r--XMonad/Actions/GridSelect.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index b69671e..84c8b4f 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -179,7 +179,7 @@ updateElements elementmap = do
eventLoop :: TwoD a (Maybe a)
eventLoop = do
(keysym,string,event) <- liftX $ withDisplay $ \d -> liftIO $ allocaXEvent $ \e -> do
- nextEvent d e
+ maskEvent d (exposureMask .|. keyPressMask .|. buttonReleaseMask) e
ev <- getEvent e
(ks,s) <- if ev_event_type ev == keyPress
then lookupString $ asKeyEvent e