twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Tabs should stay beneath any floating window

Browse Source 
This ifxes the issue reported by Geoffrey Alan Washburn: " Sometimes the
tabs will be drawn on top of floating windows." Not anymore!
This commit is contained in:
Andrea Rossato 2007-07-07 06:49:41 +00:00
parent 5f827b68e7
commit 2e6bf5e5ed
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Decoration.hs
View File

@ -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 win <- io $ createSimpleWindow d rt x y w h (fromIntegral th) fg bg
io $ selectInput d win $ exposureMask .|. buttonPressMask io $ selectInput d win $ exposureMask .|. buttonPressMask
io $ mapWindow d win io $ mapWindow d win
io $ restackWindows d $ decfor : [win]
let hook :: SomeMessage -> X (Maybe (ModLay a)) let hook :: SomeMessage -> X (Maybe (ModLay a))
hook sm | Just e <- fromMessage sm = handle_event e >> return Nothing hook sm | Just e <- fromMessage sm = handle_event e >> return Nothing