diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 03:16:45 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 03:16:45 +0200 |
| commit | a66077bede3c950f48bccce8f2176238d80b85c7 (patch) | |
| tree | 69c580543239a7efe083a1bacfc15c32fa44f79d | |
| parent | 4b4ed66605baf04744aa2876878a0270ca62213c (diff) | |
| download | XMonadContrib-a66077bede3c950f48bccce8f2176238d80b85c7.tar.gz XMonadContrib-a66077bede3c950f48bccce8f2176238d80b85c7.tar.xz XMonadContrib-a66077bede3c950f48bccce8f2176238d80b85c7.zip | |
NewTabbed: after a ReleaseResources we should return Tabbed Nothing...
darcs-hash:20070928011645-32816-65bee6e787843aca95306b592c7f611b1bb1926a.gz
| -rw-r--r-- | Tabbed.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 () |