diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-10 07:21:54 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-10 07:21:54 +0100 |
commit | dccc5d7f95a3a0f6219edbbd4868fefdf68234d6 (patch) | |
tree | 7fd395bddae7118d95f7ca3ffdadf6e1d1d4ef42 | |
parent | 90a7ac8205634661849671f143cbd4c79193c502 (diff) | |
download | xmonad-dccc5d7f95a3a0f6219edbbd4868fefdf68234d6.tar.gz xmonad-dccc5d7f95a3a0f6219edbbd4868fefdf68234d6.tar.xz xmonad-dccc5d7f95a3a0f6219edbbd4868fefdf68234d6.zip |
add tracing for kill window
darcs-hash:20070310062154-9c5c1-b5e2b5a8038107d0039d4b476caef6c19b04f69e.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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 () |