aboutsummaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-04-05 23:58:32 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-04-05 23:58:32 +0200
commita3bb7a2bb0998516c7056eed8c1bd15e4d6af1bb (patch)
treeb4a6739bd43924ea38070ddd88b4ce2222e6c253 /Operations.hs
parent302d3f3a95f9d4e6164e800d4a41da5b548f9735 (diff)
downloadxmonad-a3bb7a2bb0998516c7056eed8c1bd15e4d6af1bb.tar.gz
xmonad-a3bb7a2bb0998516c7056eed8c1bd15e4d6af1bb.tar.xz
xmonad-a3bb7a2bb0998516c7056eed8c1bd15e4d6af1bb.zip
Remove redundant setFocus, setFocus is called by refresh which is called by windows
darcs-hash:20070405215832-a5988-87a975ad9fcea125d7d8ba3497d7bc0289a3f158.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs
index 41a4616..132c959 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -125,14 +125,11 @@ moveWindowInside d w r = do
-- | manage. Add a new window to be managed in the current workspace. Bring it into focus.
-- If the window is already under management, it is just raised.
--
--- When we start to manage a window, it gains focus.
---
manage :: Window -> X ()
manage w = do
withDisplay $ \d -> io $ do
selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
mapWindow d w
- setFocus w
windows $ W.push w
-- | unmanage. A window no longer exists, remove it from the window