From a3bb7a2bb0998516c7056eed8c1bd15e4d6af1bb Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 5 Apr 2007 23:58:32 +0200 Subject: Remove redundant setFocus, setFocus is called by refresh which is called by windows darcs-hash:20070405215832-a5988-87a975ad9fcea125d7d8ba3497d7bc0289a3f158.gz --- Operations.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'Operations.hs') 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 -- cgit v1.2.3