From d39d0313a88ce33f1bdfe5a5ae3e65ed688a19b0 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Thu, 6 Jan 2011 20:20:52 +0100 Subject: H.ICCCMFocus had atom_WM_TAKE_FOCUS incorrectly removed Ignore-this: c566320f252d9fe717080e2da37ff262 It is possible that this atom should be defined in the X11 library, but fix the build of contrib for now. In any case, this would have to wait for a change and release of the X11 binding. rolling back: Wed Jan 5 22:38:39 EST 2011 Adam Vogt * Remove accidental atom_WM_TAKE_FOCUS from H.ICCCMFocus The XMonad module exports this already M ./XMonad/Hooks/ICCCMFocus.hs -7 +1 darcs-hash:20110106192052-1499c-00f08381db873f22c3b4b213f2ee81d4e38ee5a4.gz --- XMonad/Hooks/ICCCMFocus.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'XMonad/Hooks/ICCCMFocus.hs') diff --git a/XMonad/Hooks/ICCCMFocus.hs b/XMonad/Hooks/ICCCMFocus.hs index 43e302a..c059ad2 100644 --- a/XMonad/Hooks/ICCCMFocus.hs +++ b/XMonad/Hooks/ICCCMFocus.hs @@ -19,7 +19,8 @@ ----------------------------------------------------------------------------- module XMonad.Hooks.ICCCMFocus ( - takeFocusX + atom_WM_TAKE_FOCUS +, takeFocusX , takeTopFocus ) where @@ -28,6 +29,11 @@ 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 () -- cgit v1.2.3