twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-22 15:33:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Decoration: the fontset must be released even when we don't decorate the first window

Browse Source 
This is quite an old bug! It affected Tabbed since the very beginning..;)
This commit is contained in:
Andrea Rossato
2008-01-28 00:44:11 +00:00
parent beea8ab5d8
commit 97acd14ed5
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/Decoration.hs
View File

@@ -118,7 +118,9 @@ defaultDeConfig = mkDefaultDeConfig DefaultStyle
instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration ds s) Window where instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration ds s) Window where
redoLayout (Decoration st sh c) sc stack wrs 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) return (wrs, Just $ Decoration (I Nothing) sh c)
| I Nothing <- st = initState c wrs >>= processState | I Nothing <- st = initState c wrs >>= processState
| I (Just s) <- st = do let dwrs = decos s | I (Just s) <- st = do let dwrs = decos s