diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 10:55:13 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 10:55:13 +0200 |
commit | dd5e04aa7344bdd47610405194fba7df6dbbc783 (patch) | |
tree | 2f90b8bab933dab9b88860c04bb8fe1f9171655e /Tabbed.hs | |
parent | 50867d1beaa4471bd4dc3be809e5aabe7dd865b5 (diff) | |
download | XMonadContrib-dd5e04aa7344bdd47610405194fba7df6dbbc783.tar.gz XMonadContrib-dd5e04aa7344bdd47610405194fba7df6dbbc783.tar.xz XMonadContrib-dd5e04aa7344bdd47610405194fba7df6dbbc783.zip |
Tabbed: removed two little bugs due to the mess during the transition (my fault, sorry ;)
darcs-hash:20070928085513-32816-3b1aec5f65f3077eee240e4ecf9eec1c379d46ec.gz
Diffstat (limited to 'Tabbed.hs')
-rw-r--r-- | Tabbed.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 () |