aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-11 04:16:27 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-11 04:16:27 +0200
commit0bc82d4c38101414430ec3d5055106f355d1d540 (patch)
tree4cadabf4ba6ec520f3829b5bb7b903350c5b8e69
parent5b4641b77ee582261e433d2d96927f6952e43367 (diff)
downloadxmonad-0bc82d4c38101414430ec3d5055106f355d1d540.tar.gz
xmonad-0bc82d4c38101414430ec3d5055106f355d1d540.tar.xz
xmonad-0bc82d4c38101414430ec3d5055106f355d1d540.zip
Set the border color of new windows, nice catch by mauke
darcs-hash:20071011021627-a5988-b42096c70dc2069bd2a3de553ef052ec1968783f.gz
-rw-r--r--Operations.hs5
1 files changed, 4 insertions, 1 deletions
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.