diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 00:35:21 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 00:35:21 +0100 |
commit | e14687545013916bfc36815b0b439ad3327d1b20 (patch) | |
tree | 6abeabca76bdba86f9aa89cbd05ac2f6327e3abf /XMonad/Layout/Decoration.hs | |
parent | 640a6c6ffc4edb3916a0a74ea5fd8221d75a1250 (diff) | |
download | XMonadContrib-e14687545013916bfc36815b0b439ad3327d1b20.tar.gz XMonadContrib-e14687545013916bfc36815b0b439ad3327d1b20.tar.xz XMonadContrib-e14687545013916bfc36815b0b439ad3327d1b20.zip |
Decoration: I forgot we need to release the fontset too!
darcs-hash:20080127233521-32816-d2aab29623d0d5744ebb71ddd4a8c2f82f64c2cb.gz
Diffstat (limited to 'XMonad/Layout/Decoration.hs')
-rw-r--r-- | XMonad/Layout/Decoration.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 89edfcd..88a3a57 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -165,7 +165,8 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d handleMess _ _ = return Nothing - emptyLayoutMod (Decoration (I (Just (DS dwrs _))) sh c) _ _ = do deleteWindows (getDWs dwrs) + emptyLayoutMod (Decoration (I (Just (DS dwrs f))) sh c) _ _ = do deleteWindows (getDWs dwrs) + releaseXMF f return ([], Just $ Decoration (I Nothing) sh c) emptyLayoutMod _ _ _ = return ([], Nothing) |