This commit is contained in:
Spencer Janssen
2008-05-06 20:38:40 +00:00
parent 5a19425e79
commit ba3987f299

View File

@@ -107,7 +107,7 @@ windows f = do
ws = f old
XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask
mapM_ setInitialProperties (W.allWindows ws \\ W.allWindows old)
mapM_ setInitialProperties newwindows
whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc
modify (\s -> s { windowset = ws })