Lower the window, so as not to cover other windows

darcs-hash:20080918213721-a5988-11e892754faa3a2d0f940e8ae695f5e09416befd.gz

1 files changed, 1 insertions, 0 deletions

diff --git a/Xmobar.hs b/Xmobar.hs
index 1e7c932..48d3fae 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -135,6 +135,7 @@ createWin d fs c = do
   win <- newWindow  d (defaultScreenOfDisplay d) rootw r o
   selectInput       d win (exposureMask .|. structureNotifyMask)
   setProperties r c d win srs
+  lowerWindow       d win
   mapWindow         d win
   return (r,win)