diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-11 04:16:27 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-11 04:16:27 +0200 |
| commit | 0bc82d4c38101414430ec3d5055106f355d1d540 (patch) | |
| tree | 4cadabf4ba6ec520f3829b5bb7b903350c5b8e69 | |
| parent | 5b4641b77ee582261e433d2d96927f6952e43367 (diff) | |
| download | xmonad-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.hs | 5 |
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. |