twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-08 16:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Tabbed: removed two little bugs due to the mess during the transition (my fault, sorry ;)

Browse Source
This commit is contained in:
Andrea Rossato
2007-09-28 08:55:13 +00:00
parent 2fc9428df1
commit 285ade1cbe
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Tabbed.hs
View File

@@ -92,7 +92,7 @@ data TabState =
TabState { tabsWindows :: [(Window,Window)] TabState { tabsWindows :: [(Window,Window)]
, scr :: Rectangle , scr :: Rectangle
, fontS :: FontStruct -- FontSet , fontS :: FontStruct -- FontSet
} deriving ( Show , Read ) }
data Tabbed a = data Tabbed a =
Tabbed (InvisibleMaybe TabState) TConf 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 | Just ReleaseResources == fromMessage m = do d <- asks display
destroyTabs $ map fst tws destroyTabs $ map fst tws
io $ freeFont d (fontS st) io $ freeFont d (fontS st)
return Nothing return $ Just $ Tabbed INothin conf
handleMess _ _ = return Nothing handleMess _ _ = return Nothing
handleEvent :: TConf -> TabState -> Event -> X () handleEvent :: TConf -> TabState -> Event -> X ()