Decouple the concepts of focus and window order. First step to tiling!

This commit is contained in:
Spencer Janssen
2007-03-20 05:11:24 +00:00
parent 226f2012cb
commit f1a0796da3
2 changed files with 25 additions and 10 deletions

View File

@@ -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)