add tracing for kill window

darcs-hash:20070310062154-9c5c1-b5e2b5a8038107d0039d4b476caef6c19b04f69e.gz

1 files changed, 5 insertions, 1 deletions

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 ()