From 128fe162759c67dae1efd1a16ba9216234f5f543 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 7 Mar 2007 08:19:26 +0100
Subject: formatting and comments only

darcs-hash:20070307071926-9c5c1-821a08069706ca91115887ff9d841dca834226a2
---
 Main.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index a332401..0be2e34 100644
--- a/Main.hs
+++ b/Main.hs
@@ -104,13 +104,13 @@ handle e@(ConfigureRequestEvent {}) = do
     dpy <- gets display
     io $ configureWindow dpy (window e) (value_mask e) $
         WindowChanges
-            { wcX = x e
-            , wcY = y e
-            , wcWidth = width e
-            , wcHeight = height e
+            { wcX           = x e
+            , wcY           = y e
+            , wcWidth       = width e
+            , wcHeight      = height e
             , wcBorderWidth = border_width e
-            , wcSibling = above e
-            , wcStackMode = detail e
+            , wcSibling     = above e
+            , wcStackMode   = detail e
             }
     io $ sync dpy False
 
@@ -141,13 +141,12 @@ withWindows f = do
     modifyWindows f
     refresh
 
--- | manage. Add a new window to be managed
+-- | manage. Add a new window to be managed. Bring it into focus.
 manage :: Window -> W ()
 manage w = do
-    trace "manage"
     d  <- gets display
-    withWindows (nub . (w :))
     io $ mapWindow d w
+    withWindows (nub . (w :))
 
 -- | unmanage, a window no longer exists, remove it from the stack
 unmanage :: Window -> W ()
-- 
cgit v1.2.3