diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 04:10:26 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 04:10:26 +0200 |
commit | 3b6c7895fb2aeff36ca8b652a4f89ec6e41d8c88 (patch) | |
tree | 35ff168ab5cfd8fc91a095e9bbf749079ec5a919 /Main.hs | |
parent | dc49874c83c20b17b5b6ea5ab63e638402ba8f1a (diff) | |
download | xmonad-3b6c7895fb2aeff36ca8b652a4f89ec6e41d8c88.tar.gz xmonad-3b6c7895fb2aeff36ca8b652a4f89ec6e41d8c88.tar.xz xmonad-3b6c7895fb2aeff36ca8b652a4f89ec6e41d8c88.zip |
UPGRADE X11-Extras! Manage iconified windows
darcs-hash:20070630021026-a5988-808741074e4132930b6036826d758b362c498dfc.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -113,8 +113,13 @@ scan dpy rootw = do -- TODO: scan for windows that are either 'IsViewable' or where WM_STATE == -- Iconic where ok w = do wa <- getWindowAttributes dpy w + a <- internAtom dpy "WM_STATE" False + p <- getWindowProperty32 dpy a w + let ic = case p of + Just (3:_) -> True -- 3 for iconified + _ -> False return $ not (wa_override_redirect wa) - && wa_map_state wa == waIsViewable + && (wa_map_state wa == waIsViewable || ic) -- | Grab the keys back grabKeys :: Display -> Window -> IO () |