diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-05-01 08:23:57 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-05-01 08:23:57 +0200 |
| commit | 3b06802b38a232d990d3bf5ff6d31e902e7c3b51 (patch) | |
| tree | 6d7bd3859411444c87665883aa2aff07eef94ebb /XMonad/Layout/Decoration.hs | |
| parent | 5dec760f86d6329e6fc495b0e7a49272bb01c303 (diff) | |
| download | XMonadContrib-3b06802b38a232d990d3bf5ff6d31e902e7c3b51.tar.gz XMonadContrib-3b06802b38a232d990d3bf5ff6d31e902e7c3b51.tar.xz XMonadContrib-3b06802b38a232d990d3bf5ff6d31e902e7c3b51.zip | |
Fix issue #179 by handling events correctly
darcs-hash:20080501062357-32816-96fa4684d1a2aa862ff3ad07490ce45832d61a2f.gz
Diffstat (limited to 'XMonad/Layout/Decoration.hs')
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 8f6ec21..2fad139 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -276,9 +276,9 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d handleEvent :: Shrinker s => s -> Theme -> DecorationState -> Event -> X () handleEvent sh t (DS dwrs fs) e | PropertyEvent {ev_window = w} <- e - , w `elem` (map (fst . fst) dwrs) = updateDecos sh t fs dwrs + , Just i <- w `elemIndex` (map (fst . fst) dwrs) = updateDeco sh t fs (dwrs !! i) | ExposeEvent {ev_window = w} <- e - , w `elem` (catMaybes $ map (fst . snd) dwrs) = updateDecos sh t fs dwrs + , Just i <- w `elemIndex` (catMaybes $ map (fst . snd) dwrs) = updateDeco sh t fs (dwrs !! i) handleEvent _ _ _ _ = return () -- | Mouse focus and mouse drag are handled by the same function, this |