diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 01:44:11 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 01:44:11 +0100 |
| commit | 057c2159a12d4342d7ee1d11557fd244f521816c (patch) | |
| tree | ffb139c74cef896eb86b0218642b5cfd997e3ede /XMonad/Layout/Decoration.hs | |
| parent | e14687545013916bfc36815b0b439ad3327d1b20 (diff) | |
| download | XMonadContrib-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
Diffstat (limited to 'XMonad/Layout/Decoration.hs')
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 4 |
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 |