From e6eb5e25a70b6be61f489d273ba58b144cd13f31 Mon Sep 17 00:00:00 2001 From: Jason Creighton Date: Mon, 11 Jun 2007 04:14:08 +0200 Subject: redraw decorations on PropertyNotify newDecoration now takes a Window parameter, which is the window the decoration is "for". If there is a PropertyNotify for that window, the decoration is redrawn. darcs-hash:20070611021408-b9aa7-b01860371ef9e47a06ab4541aee09422c8f19865.gz --- Tabbed.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Tabbed.hs') diff --git a/Tabbed.hs b/Tabbed.hs index d88077a..c85f224 100644 --- a/Tabbed.hs +++ b/Tabbed.hs @@ -29,7 +29,7 @@ dolay sc [w] = return [(w,sc)] dolay sc@(Rectangle x y wid _) ws = do let ts = gentabs x y wid (length ws) tws = zip ts ws - maketab (t,w) = newDecoration t 1 0x000000 0x777777 (drawtab t w) (focus w) + maketab (t,w) = newDecoration w t 1 0x000000 0x777777 (drawtab t w) (focus w) drawtab r@(Rectangle _ _ wt ht) w d w' gc = do nw <- getName w tabcolor <- (maybe 0x888888 (\focusw -> if focusw == w then 0xBBBBBB else 0x888888) . W.peek) `liftM` gets windowset -- cgit v1.2.3