From 1a21281b26e3638b5cce74eb5f07c0b8a690ba2a Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sun, 7 Oct 2007 09:20:18 +0200 Subject: Tabbed: updated to the last (unannounced) API changes darcs-hash:20071007072018-32816-e982babac787e3d32c24cb407475fb8c56e89f9e.gz --- Tabbed.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Tabbed.hs') diff --git a/Tabbed.hs b/Tabbed.hs index a93f7b4..53bc5eb 100644 --- a/Tabbed.hs +++ b/Tabbed.hs @@ -150,8 +150,12 @@ handleEvent ishr conf (TabState {tabsWindows = tws, scr = screen, fo -- expose | thisw `elem` (map fst tws) && t == expose = do updateTab ishr conf fs width (thisw, fromJust $ lookup thisw tws) + where + width = rect_width screen`div` fromIntegral (length tws) +handleEvent ishr conf (TabState {tabsWindows = tws, scr = screen, fontS = fs }) + (PropertyEvent {ev_window = thisw }) -- propertyNotify - | thisw `elem` (map snd tws) && t == propertyNotify = do + | thisw `elem` (map snd tws) = do let tabwin = (fst $ fromJust $ find ((== thisw) . snd) tws, thisw) updateTab ishr conf fs width tabwin where -- cgit v1.2.3