From 057c2159a12d4342d7ee1d11557fd244f521816c Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 28 Jan 2008 01:44:11 +0100 Subject: 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 --- XMonad/Layout/Decoration.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'XMonad/Layout/Decoration.hs') 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 -- cgit v1.2.3