From dccc5d7f95a3a0f6219edbbd4868fefdf68234d6 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sat, 10 Mar 2007 07:21:54 +0100
Subject: add tracing for kill window

darcs-hash:20070310062154-9c5c1-b5e2b5a8038107d0039d4b476caef6c19b04f69e.gz
---
 Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 807ea1a..d1e50aa 100644
--- a/Main.hs
+++ b/Main.hs
@@ -23,6 +23,7 @@ import System.Exit
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Extras
 
+import Numeric
 import Control.Monad.State
 
 import WMonad
@@ -242,6 +243,7 @@ windows f = do
 --
 manage :: Window -> W ()
 manage w = do
+    trace ("Managing window: 0x" ++ showHex w (", " ++ show w))
     withDisplay $ \d -> io $ do
         selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
         mapWindow d w
@@ -266,7 +268,9 @@ raise = windows . W.rotate
 kill :: W ()
 kill = withDisplay $ \d -> do
     ws <- gets workspace
-    whenJust (W.peek ws) $ \w -> io (killClient d w) >> return ()
+    whenJust (W.peek ws) $ \w -> do
+        trace ("Attempting to kill window: 0x" ++ showHex w (", " ++ show w))
+        io (killClient d w) >> return ()
 
 -- | tag. Move a window to a new workspace
 tag :: Int -> W ()
-- 
cgit v1.2.3