summaryrefslogtreecommitdiffstats
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
commit792e97653618ec74cc6eb53a7339db3e638d95f3 (patch)
tree9d9fd408d31d45522a2880a3882e6b5c9d4de5f2
parentd3eee284916cfb34882943024f0c5c8b03c2d49d (diff)
downloadmetatile-792e97653618ec74cc6eb53a7339db3e638d95f3.tar
metatile-792e97653618ec74cc6eb53a7339db3e638d95f3.zip
setInitialProperties after placing windows
darcs-hash:20071019201310-a5988-fffe26f15c9395316acfd9b27dbd6a6c5e9a530f
-rw-r--r--Operations.hs3
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