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

TODO for scan

Browse Source
This commit is contained in:
Spencer Janssen 2007-06-11 21:42:17 +00:00
parent 4b9bacb1f9
commit d21e61a315
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@ -112,6 +112,8 @@ scan :: Display -> Window -> IO [Window]
scan dpy rootw = do scan dpy rootw = do
(_, _, ws) <- queryTree dpy rootw (_, _, ws) <- queryTree dpy rootw
filterM ok ws filterM ok ws
-- TODO: scan for windows that are either 'IsViewable' or where WM_STATE ==
-- Iconic
where ok w = do wa <- getWindowAttributes dpy w where ok w = do wa <- getWindowAttributes dpy w
return $ not (wa_override_redirect wa) return $ not (wa_override_redirect wa)
&& wa_map_state wa == waIsViewable && wa_map_state wa == waIsViewable