diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-20 06:11:24 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-20 06:11:24 +0100 |
commit | 6c92eaa391732f083be0cd0f3eff7972d00ec4d0 (patch) | |
tree | 02b0391b2f43a121a54f555c8a079bc3edeb4b5c /Main.hs | |
parent | e40322a9fb6d76770254fe5332ba6ff45d80cf47 (diff) | |
download | metatile-6c92eaa391732f083be0cd0f3eff7972d00ec4d0.tar metatile-6c92eaa391732f083be0cd0f3eff7972d00ec4d0.zip |
Decouple the concepts of focus and window order. First step to tiling!
darcs-hash:20070320051124-a5988-5127c4860ce23d6eb569f6145cd592fe26689061
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -225,7 +225,7 @@ refresh = do ws2sc <- gets wsOnScreen xinesc <- gets xineScreens forM_ (M.assocs ws2sc) $ \(n, scn) -> - whenJust (listToMaybe $ W.index n ws) $ \w -> withDisplay $ \d -> do + whenJust (W.peekStack n ws) $ \w -> withDisplay $ \d -> do let sc = xinesc !! scn io $ do moveResizeWindow d w (fromIntegral $ xsi_x_org sc) (fromIntegral $ xsi_y_org sc) |