From 28e0aa541629abe5d29f3be1c5223ae1c32e7de1 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 20 Jun 2007 17:04:19 +0200
Subject: Stack windows in the order they are returned by doLayout

darcs-hash:20070620150419-a5988-6efb2349de03bdbb9575eae07ca85c69cc5c9996
---
 Operations.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Operations.hs')

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
-- 
cgit v1.2.3