From 81b0ea5483e860091598d443df0d277a4663b3fc Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Sun, 5 Oct 2008 02:25:33 +0200
Subject: Kill window without focusing it first
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This patch requires the patch "add killWindow function" in xmonad.
Before this patch, people would experience “workspace flicker” when closing
a window via EWMH that is not on the current workspace, for example when
quitting pidgin via the panel icon.

darcs-hash:20081005002533-23c07-4eac68cd4dcb7de2333276b875023ea4e4ee42d7.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index 6eec3bf..f107c13 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -151,8 +151,7 @@ handle ClientMessageEvent {
         else if mt == a_aw then do
                windows $ W.focusWindow w
         else if mt == a_cw then do
-               windows $ W.focusWindow w
-               kill
+               killWindow w
         else trace $ "Unknown ClientMessageEvent " ++ show mt
 handle _ = undefined -- does not happen, as otherwise ewmhDesktopsHook would not match
 
-- 
cgit v1.2.3