aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-19 22:13:10 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-19 22:13:10 +0200
commit2e5c09e6001b4104792cbf77c327672753658632 (patch)
tree6ca7770c15d350783dcdc8cee488d5410e08716b
parent73ebf072f14b882b62dedbdf21093a92191c8e6f (diff)
downloadxmonad-2e5c09e6001b4104792cbf77c327672753658632.tar.gz
xmonad-2e5c09e6001b4104792cbf77c327672753658632.tar.xz
xmonad-2e5c09e6001b4104792cbf77c327672753658632.zip
UNDO: setInitialProperties after placing windows
darcs-hash:20071019201310-a5988-397c2af846115b806bd412c88a972f05761184f8.gz
-rw-r--r--Operations.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs
index 4d3be6e..6081775 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -121,6 +121,7 @@ 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 })
@@ -166,8 +167,6 @@ 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