From fcc40590bc485db62ece06b245254f8001184fdb Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 7 Jul 2007 08:49:41 +0200
Subject: Tabs should stay beneath any floating window

This ifxes the issue reported by Geoffrey Alan Washburn: " Sometimes the
tabs will be drawn on top of floating windows." Not anymore!

darcs-hash:20070707064941-32816-2bbd883d8ca7f890c774f43cc4526bba9dac760e.gz
---
 Decoration.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Decoration.hs')

diff --git a/Decoration.hs b/Decoration.hs
index 8eae4d7..424021c 100644
--- a/Decoration.hs
+++ b/Decoration.hs
@@ -42,6 +42,7 @@ newDecoration decfor (Rectangle x y w h) th fg bg fn draw click l = do
     win <- io $ createSimpleWindow d rt x y w h (fromIntegral th) fg bg
     io $ selectInput d win $ exposureMask .|. buttonPressMask
     io $ mapWindow d win
+    io $ restackWindows d $ decfor : [win]
 
     let hook :: SomeMessage -> X (Maybe (ModLay a))
         hook sm  | Just e <- fromMessage sm           = handle_event e >> return Nothing
-- 
cgit v1.2.3