From 16d6698f0ccd9de9c840e60f3a93dea4fb64fc22 Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Sat, 16 Jan 2010 12:20:54 +0100 Subject: X.L.Decoration: avoid flicker by not showing decowins without rectangles Ignore-this: 6f38634706c3f35272670b969fc6cc96 These would be hidden by updateDecos immediately after being shown. This caused flicker with simpleTabbed and only one window on a workspace. darcs-hash:20100116112054-c9ff5-f60e6a241273df4bcfa4a12a5ae1740f9555e8cb.gz --- XMonad/Layout/Decoration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad') diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index afb2ad6..07b15dc 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -362,7 +362,7 @@ createDecoWindow t r = let mask = Just (exposureMask .|. buttonPressMask) in createNewWindow r mask (inactiveColor t) True showDecos :: [DecoWin] -> X () -showDecos = showWindows . catMaybes . map fst +showDecos = showWindows . catMaybes . map fst . filter (isJust . snd) hideDecos :: [DecoWin] -> X () hideDecos = hideWindows . catMaybes . map fst -- cgit v1.2.3