Tabbed: updated to the last (unannounced) API changes

darcs-hash:20071007072018-32816-e982babac787e3d32c24cb407475fb8c56e89f9e.gz

1 files changed, 5 insertions, 1 deletions

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