From fd12ac51ea6250e79fde59401f9515b705cd5b24 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Fri, 30 Mar 2007 05:54:54 +0200
Subject: refactored "focus changed" code into "refocus"

darcs-hash:20070330035454-b9aa7-54e1b09c030cec67d02902847258a2a14dcdc409.gz
---
 Main.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index bfa6247..0524fc7 100644
--- a/Main.hs
+++ b/Main.hs
@@ -127,6 +127,7 @@ safeFocus w = do ws <- gets workspace
                     then setFocus w
                     else do b <- isRoot w
                             when b setTopFocus
+                 refocus
 
 handle :: Event -> X ()
 
-- 
cgit v1.2.3