summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-07 08:19:26 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-07 08:19:26 +0100
commit128fe162759c67dae1efd1a16ba9216234f5f543 (patch)
treedf45a75d566c9dfef57ed5638018c0933ebb61a5
parenta049400c271ba2e37b531ba373d9ddcaf3c905d9 (diff)
downloadmetatile-128fe162759c67dae1efd1a16ba9216234f5f543.tar
metatile-128fe162759c67dae1efd1a16ba9216234f5f543.zip
formatting and comments only
darcs-hash:20070307071926-9c5c1-821a08069706ca91115887ff9d841dca834226a2
-rw-r--r--Main.hs17
1 files changed, 8 insertions, 9 deletions
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 ()