From a66077bede3c950f48bccce8f2176238d80b85c7 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Fri, 28 Sep 2007 03:16:45 +0200 Subject: NewTabbed: after a ReleaseResources we should return Tabbed Nothing... darcs-hash:20070928011645-32816-65bee6e787843aca95306b592c7f611b1bb1926a.gz --- Tabbed.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Tabbed.hs') diff --git a/Tabbed.hs b/Tabbed.hs index 3e96901..fa200c2 100644 --- a/Tabbed.hs +++ b/Tabbed.hs @@ -2,10 +2,10 @@ ----------------------------------------------------------------------------- -- | -- Module : XMonadContrib.Tabbed --- Copyright : (c) David Roundy +-- Copyright : (c) 2007 David Roundy, Andrea Rossato -- License : BSD-style (see xmonad/LICENSE) -- --- Maintainer : email@address.com +-- Maintainer : droundy@darcs.net, andrea.rossato@unibz.it -- Stability : unstable -- Portability : unportable -- @@ -91,7 +91,7 @@ data TabState = TabState { tabsWindows :: [(Window,Window)] , scr :: Rectangle , fontS :: FontStruct -- FontSet - } + } deriving ( Show , Read ) data Tabbed a = Tabbed (InvisibleMaybe TabState) TConf @@ -137,7 +137,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 $ Just $ Tabbed INothin conf + return Nothing handleMess _ _ = return Nothing handleEvent :: TConf -> TabState -> Event -> X () -- cgit v1.2.3