From a4353f3924bf17dbce0422c928c8ac01d0b2e6ac Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Tue, 2 Oct 2007 08:27:09 +0200
Subject: Make Tabbed use XUtils.releaseFont

darcs-hash:20071002062709-32816-5d0465f61bcd76ad587e0a2d0e06b9097fac4e38.gz
---
 Tabbed.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Tabbed.hs')

diff --git a/Tabbed.hs b/Tabbed.hs
index 5783fd7..b4d006e 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -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
 
-- 
cgit v1.2.3