diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 23:33:27 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 23:33:27 +0200 |
commit | 1eb1d5c187d9602cb8fd3b9de741053c29010ac2 (patch) | |
tree | 544d57860e6d510ddd557a83c1e702e4198d7c32 | |
parent | b85876bdae0c61c2e69ab5e9b38ad01a8f7968a3 (diff) | |
download | metatile-1eb1d5c187d9602cb8fd3b9de741053c29010ac2.tar metatile-1eb1d5c187d9602cb8fd3b9de741053c29010ac2.zip |
Set withdrawn state after calling windows
darcs-hash:20070611213327-a5988-11712c7c29061feaa296249679a7cbe7dfe402c0
-rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index fb6c788..d51b1e2 100644 --- a/Operations.hs +++ b/Operations.hs @@ -70,8 +70,8 @@ manage w = withDisplay $ \d -> do -- unmanage :: Window -> X () unmanage w = do - setWMState w 0 {-withdrawn-} windows (W.sink w . W.delete w) + setWMState w 0 {-withdrawn-} modify (\s -> s {mapped = S.delete w (mapped s), waitingUnmap = M.delete w (waitingUnmap s)}) -- | focus. focus window up or down. or swap various windows. |