Stack windows in the order they are returned by doLayout

darcs-hash:20070620150419-a5988-6efb2349de03bdbb9575eae07ca85c69cc5c9996

1 files changed, 3 insertions, 4 deletions

diff --git a/Operations.hs b/Operations.hs
index 4eaf3e2..f1a7eb1 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -167,11 +167,10 @@ windows f = do
                 (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
                 (floor (toRational sw*rw)) (floor (toRational sh*rh))
 
-        io $ restackWindows d (flt ++
-            maybe [] (\s@(W.Stack foc _ _) -> foc : delete foc (W.integrate s)) tiled)
-
+        let vs = flt ++ map fst rs
+        io $ restackWindows d vs
         -- return the visible windows for this workspace:
-        return (map fst rs ++ flt)
+        return vs
 
     setTopFocus
     logHook