summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-11 23:42:17 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-11 23:42:17 +0200
commite0d7522a1b78f03346efa22b0e2c6dd997e1b030 (patch)
tree38168ccabb1d01527bd9e1a04f5e53f15cc8eb1e /Main.hs
parent1eb1d5c187d9602cb8fd3b9de741053c29010ac2 (diff)
downloadmetatile-e0d7522a1b78f03346efa22b0e2c6dd997e1b030.tar
metatile-e0d7522a1b78f03346efa22b0e2c6dd997e1b030.zip
TODO for scan
darcs-hash:20070611214217-a5988-ac16c4939111434a06ed5b080a82abd1d6e86c28
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index ddcd79e..ca6f5ad 100644
--- a/Main.hs
+++ b/Main.hs
@@ -112,6 +112,8 @@ scan :: Display -> Window -> IO [Window]
scan dpy rootw = do
(_, _, ws) <- queryTree dpy rootw
filterM ok ws
+ -- TODO: scan for windows that are either 'IsViewable' or where WM_STATE ==
+ -- Iconic
where ok w = do wa <- getWindowAttributes dpy w
return $ not (wa_override_redirect wa)
&& wa_map_state wa == waIsViewable