diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-02 08:27:09 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-02 08:27:09 +0200 |
commit | a4353f3924bf17dbce0422c928c8ac01d0b2e6ac (patch) | |
tree | 61b89ac652e142887da3356cd2ca7e27cc726775 /Tabbed.hs | |
parent | 026a1a36b85fe2e424562f5f32fc00ebc281d856 (diff) | |
download | XMonadContrib-a4353f3924bf17dbce0422c928c8ac01d0b2e6ac.tar.gz XMonadContrib-a4353f3924bf17dbce0422c928c8ac01d0b2e6ac.tar.xz XMonadContrib-a4353f3924bf17dbce0422c928c8ac01d0b2e6ac.zip |
Make Tabbed use XUtils.releaseFont
darcs-hash:20071002062709-32816-5d0465f61bcd76ad587e0a2d0e06b9097fac4e38.gz
Diffstat (limited to '')
-rw-r--r-- | Tabbed.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -128,9 +128,8 @@ handleMess :: Tabbed Window -> SomeMessage -> X (Maybe (Tabbed Window)) handleMess (Tabbed (I (Just st@(TabState {tabsWindows = tws}))) ishr conf) m | Just e <- fromMessage m :: Maybe Event = handleEvent ishr conf st e >> return Nothing | Just Hide == fromMessage m = mapM_ hideWindow (map fst tws) >> return Nothing - | Just ReleaseResources == fromMessage m = do d <- asks display - mapM_ deleteWindow $ map fst tws - io $ freeFont d (fontS st) + | Just ReleaseResources == fromMessage m = do mapM_ deleteWindow $ map fst tws + releaseFont (fontS st) return $ Just $ Tabbed (I Nothing) (I Nothing) conf handleMess _ _ = return Nothing |