summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-11 23:33:27 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-11 23:33:27 +0200
commit1eb1d5c187d9602cb8fd3b9de741053c29010ac2 (patch)
tree544d57860e6d510ddd557a83c1e702e4198d7c32
parentb85876bdae0c61c2e69ab5e9b38ad01a8f7968a3 (diff)
downloadmetatile-1eb1d5c187d9602cb8fd3b9de741053c29010ac2.tar
metatile-1eb1d5c187d9602cb8fd3b9de741053c29010ac2.zip
Set withdrawn state after calling windows
darcs-hash:20070611213327-a5988-11712c7c29061feaa296249679a7cbe7dfe402c0
-rw-r--r--Operations.hs2
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.