aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-01-28 01:44:11 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-01-28 01:44:11 +0100
commit057c2159a12d4342d7ee1d11557fd244f521816c (patch)
treeffb139c74cef896eb86b0218642b5cfd997e3ede
parente14687545013916bfc36815b0b439ad3327d1b20 (diff)
downloadXMonadContrib-057c2159a12d4342d7ee1d11557fd244f521816c.tar.gz
XMonadContrib-057c2159a12d4342d7ee1d11557fd244f521816c.tar.xz
XMonadContrib-057c2159a12d4342d7ee1d11557fd244f521816c.zip
Decoration: the fontset must be released even when we don't decorate the first window
This is quite an old bug! It affected Tabbed since the very beginning..;) darcs-hash:20080128004411-32816-b633765bec3bc29b61a79f1dbc900dec48246368.gz
-rw-r--r--XMonad/Layout/Decoration.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs
index 88a3a57..c830e6c 100644
--- a/XMonad/Layout/Decoration.hs
+++ b/XMonad/Layout/Decoration.hs
@@ -118,7 +118,9 @@ defaultDeConfig = mkDefaultDeConfig DefaultStyle
instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration ds s) Window where
redoLayout (Decoration st sh c) sc stack wrs
- | decorate_first = do whenIJust st $ \s -> deleteWindows (getDWs $ decos s)
+ | decorate_first = do whenIJust st $ \s -> do
+ deleteWindows (getDWs $ decos s)
+ releaseXMF (font s)
return (wrs, Just $ Decoration (I Nothing) sh c)
| I Nothing <- st = initState c wrs >>= processState
| I (Just s) <- st = do let dwrs = decos s