summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-10 07:21:54 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-10 07:21:54 +0100
commit4fd3777615fe81f1b140acbe26ee7f0e4af244d2 (patch)
tree7fd395bddae7118d95f7ca3ffdadf6e1d1d4ef42
parent131760c9fc48256c048cb5397194431f67e2f77f (diff)
downloadmetatile-4fd3777615fe81f1b140acbe26ee7f0e4af244d2.tar
metatile-4fd3777615fe81f1b140acbe26ee7f0e4af244d2.zip
add tracing for kill window
darcs-hash:20070310062154-9c5c1-b5e2b5a8038107d0039d4b476caef6c19b04f69e
-rw-r--r--Main.hs6
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 ()