aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Decoration.hs1
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