Remove 'temporary work around' in 'windows'

darcs-hash:20070614211450-a5988-1116cd4386c60525f13afca3527951cc5a1b6c58

1 files changed, 0 insertions, 23 deletions

diff --git a/Operations.hs b/Operations.hs
index f569c08..3ce16f6 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -165,30 +165,7 @@ windows f = do
                 (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
                 (floor (toRational sw*rw)) (floor (toRational sh*rh))
 
-        -- TODO temporary work around!
-        --
-        -- fullscreen mode requires that the focused window in 
-        -- the tiled layer is raised to the top, just under the floating
-        -- layer. now we don't get 'real unmap' events, unfortunately we
-        -- get a focus enter event if we delete a window. in fullscreen
-        -- mode, this will move focus to the next window down in the
-        -- stack order
-        --
-        -- the 'true' solution is to hide windows not visible on the
-        -- screen, so they don't get enter events.
-        -- to do that, doLayout needs to return a list of windows to
-        -- raise, and a list to hide.
-        --
-        -- and the only way to remember where focus is on the tiled
-        -- layer appears to be to track the floating and tiled layers as
-        -- separate stacks.
-        --
         whenJust (W.peek this) $ io . raiseWindow d
-        io $ mapM_ (raiseWindow d) (reverse flt)
-        -- 
-        -- this code will cause a delete on the raiseWindow to 
-        -- pass to the last tiled window that had focus. 
-        -- urgh : not our delete policy, but close.
 
         -- return the visible windows for this workspace:
         return (map fst rs ++ flt)