From f6da1483a4c8fe4cf474e0d25e7b83863d0c39b0 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 11 Oct 2007 04:16:27 +0200
Subject: Set the border color of new windows, nice catch by mauke

darcs-hash:20071011021627-a5988-b42096c70dc2069bd2a3de553ef052ec1968783f
---
 Operations.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Operations.hs b/Operations.hs
index fe83754..dd03b54 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -210,9 +210,12 @@ clientMask = structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
 
 -- | Set some properties when we initially gain control of a window
 setInitialProperties :: Window -> X ()
-setInitialProperties w = withDisplay $ \d -> io $ do
+setInitialProperties w = asks normalBorder >>= \nb -> withDisplay $ \d -> io $ do
     selectInput d w $ clientMask
     setWindowBorderWidth d w borderWidth
+    -- we must initially set the color of new windows, to maintain invariants
+    -- required by the border setting in 'windows'
+    setWindowBorder d w nb
 
 -- | refresh. Render the currently visible workspaces, as determined by
 -- the StackSet. Also, set focus to the focused window.
-- 
cgit v1.2.3