diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-05 23:58:32 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-05 23:58:32 +0200 |
| commit | 27517ed0d7763bfa2f16af7a7488a3b4208d105a (patch) | |
| tree | b4a6739bd43924ea38070ddd88b4ce2222e6c253 | |
| parent | b4f358f9339d77b83a0faceb7892f27f49382e4b (diff) | |
| download | metatile-27517ed0d7763bfa2f16af7a7488a3b4208d105a.tar metatile-27517ed0d7763bfa2f16af7a7488a3b4208d105a.zip | |
Remove redundant setFocus, setFocus is called by refresh which is called by windows
darcs-hash:20070405215832-a5988-87a975ad9fcea125d7d8ba3497d7bc0289a3f158
| -rw-r--r-- | Operations.hs | 3 |
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 |