twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

don't try to change the current workspace based on an enterNotify event

Browse Source
This commit is contained in:
Jason Creighton
2007-03-19 03:54:50 +00:00
parent 7d7f0ca721
commit 92a8ad32d4
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Main.hs
View File

@@ -181,11 +181,10 @@ handle e@(MappingNotifyEvent {window = w}) = do
handle e@(CrossingEvent {window = w, event_type = t}) handle e@(CrossingEvent {window = w, event_type = t})
| t == enterNotify && mode e == notifyNormal && detail e /= notifyInferior | t == enterNotify && mode e == notifyNormal && detail e /= notifyInferior
= do ws <- gets workspace = do ws <- gets workspace
case W.lookup w ws of if W.member w ws
Just n -> do setFocus w then setFocus w
windows $ W.view n else do b <- isRoot w
Nothing -> do b <- isRoot w when b setTopFocus
when b setTopFocus
-- left a window, check if we need to focus root -- left a window, check if we need to focus root
handle e@(CrossingEvent {event_type = t}) handle e@(CrossingEvent {event_type = t})