removed refocus; moved functionality to setFocus

This commit is contained in:
Jason Creighton
2007-03-31 00:34:42 +00:00
parent 207bd516e1
commit e743ef0c2d
2 changed files with 9 additions and 16 deletions

View File

@@ -127,7 +127,6 @@ safeFocus w = do ws <- gets workspace
then setFocus w
else do b <- isRoot w
when b setTopFocus
refocus
handle :: Event -> X ()