From 03965e79a12d8798bc4612b42eb2d9e82d443488 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Sat, 13 Feb 2010 19:04:33 +0100
Subject: NoBorders: Fixed a bug with fullscreen windows

---
 lib/NoBorders.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/NoBorders.hs b/lib/NoBorders.hs
index 645464e..0920692 100644
--- a/lib/NoBorders.hs
+++ b/lib/NoBorders.hs
@@ -117,7 +117,7 @@ instance (Read p, Show p, SetsAmbiguous p) => LayoutModifier (ConfigurableBorder
 
     redoLayout (ConfigurableBorder p sold) _ mst wrs = do
         wsh <- withWindowSet (\wset -> return (hiddens p wset mst wrs))
-        s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) ws >>= return . M.fromList
+        s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) (ws ++ wsh) >>= return . M.fromList
         let snew = M.mapWithKey (\w bw -> M.findWithDefault bw w sold) s
         
         setBorders $ M.toList $ M.filterWithKey (\w _ -> notElem w wsh) sold
-- 
cgit v1.2.3