diff options
| -rw-r--r-- | Operations.hs | 3 |
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 |