summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Window.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Window.hs b/src/Window.hs
index e7dc9e6..ec50883 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -1,7 +1,7 @@
-----------------------------------------------------------------------------
-- |
-- Module : Window
--- Copyright : (c) 2011-12 Jose A. Ortega Ruiz
+-- Copyright : (c) 2011-13 Jose A. Ortega Ruiz
-- : (c) 2012 Jochen Keil
-- License : BSD-style (see LICENSE)
--
@@ -39,9 +39,9 @@ createWin d fs c = do
let ht = as + ds + 4
(r,o) = setPosition (position c) srs (fi ht)
win <- newWindow d (defaultScreenOfDisplay d) rootw r o
- setProperties r c d win srs
when (lowerOnStart c) (lowerWindow d win)
when (not $ hideOnStart c) $ showWindow r c d win
+ setProperties r c d win srs
return (r,win)
-- | Updates the size and position of the window
@@ -86,7 +86,8 @@ setPosition p rs ht =
ny' h' = ry + fi (rh - mh h')
safeIndex i = lookup i . zip [0..]
-setProperties :: Rectangle -> Config -> Display -> Window -> [Rectangle] -> IO ()
+setProperties :: Rectangle -> Config -> Display -> Window -> [Rectangle]
+ -> IO ()
setProperties r c d w srs = do
a1 <- internAtom d "_NET_WM_STRUT_PARTIAL" False
c1 <- internAtom d "CARDINAL" False