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 | f6da1483a4c8fe4cf474e0d25e7b83863d0c39b0 (patch) | |
| tree | 4cadabf4ba6ec520f3829b5bb7b903350c5b8e69 | |
| parent | cc2699f7a9d57ed5935ed7ea1ebf38733bb5264d (diff) | |
| download | metatile-f6da1483a4c8fe4cf474e0d25e7b83863d0c39b0.tar metatile-f6da1483a4c8fe4cf474e0d25e7b83863d0c39b0.zip | |
Set the border color of new windows, nice catch by mauke
darcs-hash:20071011021627-a5988-b42096c70dc2069bd2a3de553ef052ec1968783f
| -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. |