From b0dad4c5111b0ade11cffad90286ae02a4afca60 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 14 Jun 2007 23:14:50 +0200 Subject: Remove 'temporary work around' in 'windows' darcs-hash:20070614211450-a5988-1116cd4386c60525f13afca3527951cc5a1b6c58 --- Operations.hs | 23 ----------------------- 1 file changed, 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) -- cgit v1.2.3