From b8cf77207eb7dfa99f842f5b7e63fee95efe3796 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Mon, 13 Aug 2012 07:28:55 +0200
Subject: Revert lowerOnStart to its original behaviour

I misunderstood the intention of lowerOnStart and changed the
implementation to what I thought it would have to do. This was wrong
indeed, so back to original behaviour.
---
 src/Window.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Window.hs')

diff --git a/src/Window.hs b/src/Window.hs
index 9024fff..50bfc56 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -24,6 +24,7 @@ createWin d fs c = do
       (r,o) = setPosition (position c) srs (fi ht)
   win <- newWindow  d (defaultScreenOfDisplay d) rootw r o
   setProperties r c d win srs
+  when (lowerOnStart c) (lowerWindow d win)
   mapWindow         d win
   return (r,win)
 
-- 
cgit v1.2.3