Move safeFocus from Main to Operations

This commit is contained in:
Spencer Janssen
2007-03-31 01:00:24 +00:00
parent e743ef0c2d
commit 3303b4a101
2 changed files with 7 additions and 7 deletions

View File

@@ -121,13 +121,6 @@ grabKeys dpy rootw = do
-- override_redirect member is True.
--
safeFocus :: Window -> X ()
safeFocus w = do ws <- gets workspace
if W.member w ws
then setFocus w
else do b <- isRoot w
when b setTopFocus
handle :: Event -> X ()
-- run window manager command