From dd5e04aa7344bdd47610405194fba7df6dbbc783 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Fri, 28 Sep 2007 10:55:13 +0200
Subject: Tabbed: removed two little bugs due to the mess during the transition
 (my fault, sorry ;)

darcs-hash:20070928085513-32816-3b1aec5f65f3077eee240e4ecf9eec1c379d46ec.gz
---
 Tabbed.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Tabbed.hs')

diff --git a/Tabbed.hs b/Tabbed.hs
index 268f13a..513421a 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -92,7 +92,7 @@ data TabState =
     TabState { tabsWindows :: [(Window,Window)]
              , scr         :: Rectangle
              , fontS       :: FontStruct -- FontSet
-    } deriving ( Show , Read )
+    }
 
 data Tabbed a = 
     Tabbed (InvisibleMaybe TabState) TConf
@@ -139,7 +139,7 @@ handleMess (Tabbed (IJus st@(TabState {tabsWindows = tws}))  conf) m
     | Just ReleaseResources == fromMessage m = do d <- asks display
                                                   destroyTabs $ map fst tws
                                                   io $ freeFont d (fontS st)
-                                                  return Nothing
+                                                  return $ Just $ Tabbed INothin conf
 handleMess _ _  = return Nothing
 
 handleEvent :: TConf -> TabState -> Event -> X ()
-- 
cgit v1.2.3