From abc4a5c1fdbf5c4c50dea3ae319531de4878a857 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 8 Nov 2012 23:57:16 +0100
Subject: Gut H.ICCCMFocus: issue 177 has been merged in core.

Ignore-this: 937fe7f514ea6e36ee529e055e100e7f

Keep the module for now: the LG3D bit might still be useful
and there's no need to break configs unnecessarily.

darcs-hash:20121108225716-1499c-4cc33999ce4d9866d6535fd878f33a8af4bbbc12.gz
---
 XMonad/Hooks/ICCCMFocus.hs | 19 ++-----------------
 1 file changed, 2 insertions(+), 17 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/ICCCMFocus.hs b/XMonad/Hooks/ICCCMFocus.hs
index c059ad2..0761b9f 100644
--- a/XMonad/Hooks/ICCCMFocus.hs
+++ b/XMonad/Hooks/ICCCMFocus.hs
@@ -18,6 +18,7 @@
 -- @
 -----------------------------------------------------------------------------
 module XMonad.Hooks.ICCCMFocus
+{-# DEPRECATED "XMonad.Hooks.ICCCMFocus: xmonad>0.10 core merged issue 177" #-}
 (
   atom_WM_TAKE_FOCUS  
 , takeFocusX
@@ -27,27 +28,11 @@ module XMonad.Hooks.ICCCMFocus
 import XMonad
 import XMonad.Hooks.SetWMName
 import qualified XMonad.StackSet as W
-import Control.Monad
-
-atom_WM_TAKE_FOCUS ::
-  X Atom
-atom_WM_TAKE_FOCUS =
-  getAtom "WM_TAKE_FOCUS"
 
 takeFocusX ::
   Window
   -> X ()
-takeFocusX w =
-  withWindowSet . const $ do
-    dpy       <- asks display
-    wmtakef   <- atom_WM_TAKE_FOCUS
-    wmprot    <- atom_WM_PROTOCOLS
-    protocols <- io $ getWMProtocols dpy w
-    when (wmtakef `elem` protocols) $
-      io . allocaXEvent $ \ev -> do
-          setEventType ev clientMessage
-          setClientMessageEvent ev w wmprot 32 wmtakef currentTime
-          sendEvent dpy w False noEventMask ev
+takeFocusX _w = return ()
 
 -- | The value to add to your log hook configuration.
 takeTopFocus ::
-- 
cgit v1.2.3