diff options
author | Stefan O'Rear <stefanor@cox.net> | 2007-06-09 20:58:35 +0200 |
---|---|---|
committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-09 20:58:35 +0200 |
commit | 3584d9a1e298f49c188da8e1a2a34c4cda52a58f (patch) | |
tree | bfc7339ea98da0bab2c4f7881fa8f1c3fa04d83e /Operations.hs | |
parent | 439754046a557ad9e3f6401c1eb38dfa26e46048 (diff) | |
download | xmonad-3584d9a1e298f49c188da8e1a2a34c4cda52a58f.tar.gz xmonad-3584d9a1e298f49c188da8e1a2a34c4cda52a58f.tar.xz xmonad-3584d9a1e298f49c188da8e1a2a34c4cda52a58f.zip |
UNDO: Give refresh sole responsibility for establishing window properties (-3 loc)
darcs-hash:20070609185835-e3110-1eaa534465f66313044477acd9cae1bbbcf61950.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index 2c290f3..0716533 100644 --- a/Operations.hs +++ b/Operations.hs @@ -45,7 +45,7 @@ import Graphics.X11.Xlib.Extras -- manage :: Window -> X () manage w = withDisplay $ \d -> do - setInitialProperties w -- we need this so that the modify below will not capture the wrong border size... + setInitialProperties w >> reveal w -- FIXME: This is pretty awkward. We can't can't let "refresh" happen -- before the call to float, because that will resize the window and @@ -201,7 +201,6 @@ setWMState w v = withDisplay $ \dpy -> do -- | hide. Hide a window by unmapping it, and setting Iconified. hide :: Window -> X () hide w = whenX (gets (S.member w . mapped)) $ withDisplay $ \d -> do - setInitialProperties w io $ do selectInput d w (clientMask .&. complement structureNotifyMask) unmapWindow d w selectInput d w clientMask @@ -215,7 +214,6 @@ hide w = whenX (gets (S.member w . mapped)) $ withDisplay $ \d -> do -- this is harmless if the window was already visible reveal :: Window -> X () reveal w = withDisplay $ \d -> do - setInitialProperties w setWMState w 1 --normal io $ mapWindow d w modify (\s -> s { mapped = S.insert w (mapped s) }) |