X.A.WindowNavigation: TODO

This commit is contained in:
Devin Mullins 2008-05-11 22:21:16 +00:00
parent 8f0b9fa066
commit 255a04753e

View File

@ -47,6 +47,7 @@ import Graphics.X11.Xlib
-- - solve the 2+3, middle right to bottom left problem -- - solve the 2+3, middle right to bottom left problem
-- - manageHook to draw window decos? -- - manageHook to draw window decos?
-- TODO: more flexible api
withWindowNavigation :: (KeySym, KeySym, KeySym, KeySym) -> XConfig l -> IO (XConfig l) withWindowNavigation :: (KeySym, KeySym, KeySym, KeySym) -> XConfig l -> IO (XConfig l)
withWindowNavigation (u,l,d,r) conf = do withWindowNavigation (u,l,d,r) conf = do
posRef <- newIORef M.empty posRef <- newIORef M.empty