diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-19 22:13:10 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-19 22:13:10 +0200 |
| commit | 73ebf072f14b882b62dedbdf21093a92191c8e6f (patch) | |
| tree | 9d9fd408d31d45522a2880a3882e6b5c9d4de5f2 /Operations.hs | |
| parent | 6955ec7416ad01ecf1c064ead409aed6c07f9080 (diff) | |
| download | xmonad-73ebf072f14b882b62dedbdf21093a92191c8e6f.tar.gz xmonad-73ebf072f14b882b62dedbdf21093a92191c8e6f.tar.xz xmonad-73ebf072f14b882b62dedbdf21093a92191c8e6f.zip | |
setInitialProperties after placing windows
darcs-hash:20071019201310-a5988-fffe26f15c9395316acfd9b27dbd6a6c5e9a530f.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index 6081775..4d3be6e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -121,7 +121,6 @@ windows f = do let oldvisible = concatMap (W.integrate' . W.stack . W.workspace) $ W.current old : W.visible old ws = f old XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask - mapM_ setInitialProperties (W.allWindows ws \\ W.allWindows old) whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc modify (\s -> s { windowset = ws }) @@ -167,6 +166,8 @@ windows f = do -- return the visible windows for this workspace: return vs + mapM_ setInitialProperties (W.allWindows ws \\ W.allWindows old) + whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc setTopFocus userCode logHook |