diff options
| author | Stefan O'Rear <stefanor@cox.net> | 2007-06-04 03:39:38 +0200 |
|---|---|---|
| committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-04 03:39:38 +0200 |
| commit | 912f4f963746b3d30cf13823fe0ed25d4b61daee (patch) | |
| tree | 87f7c9dfae0cc1597d9151974dccff52f7c45f86 /Operations.hs | |
| parent | 848f4abe7f8ed9fd304e68dac87cf7a30f828f17 (diff) | |
| download | xmonad-912f4f963746b3d30cf13823fe0ed25d4b61daee.tar.gz xmonad-912f4f963746b3d30cf13823fe0ed25d4b61daee.tar.xz xmonad-912f4f963746b3d30cf13823fe0ed25d4b61daee.zip | |
do not cache atom values within Xmonad, instead let Xlib worry about caching (a documented feature)
darcs-hash:20070604013938-e3110-8dc84f03278c55076a5cf83013974689c4861ffc.gz
Diffstat (limited to '')
| -rw-r--r-- | Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index 81df02a..ab99946 100644 --- a/Operations.hs +++ b/Operations.hs @@ -98,7 +98,8 @@ modifyGap f = do -- kill :: X () kill = withDisplay $ \d -> withFocused $ \w -> do - XConf {wmdelete = wmdelt, wmprotocols = wmprot} <- ask + wmdelt <- atom_WM_DELETE_WINDOW ; wmprot <- atom_WM_PROTOCOLS + protocols <- io $ getWMProtocols d w io $ if wmdelt `elem` protocols then allocaXEvent $ \ev -> do |