From 653bb22d64c87e239fa9db6bb92f6c529296004f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 19 Oct 2007 22:13:10 +0200
Subject: UNDO: setInitialProperties after placing windows

darcs-hash:20071019201310-a5988-397c2af846115b806bd412c88a972f05761184f8
---
 Operations.hs | 3 +--
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3