From 2e6bf5e5ed6569601e295087fa504a460df19c9b Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sat, 7 Jul 2007 06:49:41 +0000 Subject: [PATCH] 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! --- Decoration.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Decoration.hs b/Decoration.hs index 8eae4d7b..424021c6 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