twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

add tracing for kill window

Browse Source
This commit is contained in:
Don Stewart 2007-03-10 06:21:54 +00:00
parent 38afc2327a
commit b5ab851d2b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

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