From e9b14d2488675a40d95d19f2f1d64d55b2aa71fa Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Mon, 19 Mar 2007 04:54:50 +0100
Subject: don't try to change the current workspace based on an enterNotify
 event

darcs-hash:20070319035450-b9aa7-d3541941daa816d0599dfa19e18718fa1c99e9b1
---
 Main.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'Main.hs')

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