diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-07 08:49:41 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-07 08:49:41 +0200 |
| commit | fcc40590bc485db62ece06b245254f8001184fdb (patch) | |
| tree | ee7fd0291a616c183e53cb452ea4cd700cd6bce5 /Decoration.hs | |
| parent | f133862971203d08e8b213e75d91a312c15b40c1 (diff) | |
| download | XMonadContrib-fcc40590bc485db62ece06b245254f8001184fdb.tar.gz XMonadContrib-fcc40590bc485db62ece06b245254f8001184fdb.tar.xz XMonadContrib-fcc40590bc485db62ece06b245254f8001184fdb.zip | |
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
Diffstat (limited to 'Decoration.hs')
| -rw-r--r-- | Decoration.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |