Reduce flicker on workspace change.

This commit is contained in:
Spencer Janssen 2007-03-10 04:10:21 +00:00
parent cf814ea946
commit 5afd9dbc20

View File

@ -285,8 +285,8 @@ view o = do
ws <- gets workspace ws <- gets workspace
let m = W.current ws let m = W.current ws
when (n /= m) $ do when (n /= m) $ do
mapM_ hide (W.index m ws)
mapM_ reveal (W.index n ws) mapM_ reveal (W.index n ws)
mapM_ hide (W.index m ws)
windows $ W.view n windows $ W.view n
where n = o-1 where n = o-1