Set _NET_WM_STRUT_PARTIAL instead of _NET_WM_STRUT and change mkUnmanageWindow to newWindow

darcs-hash:20080329103834-d6583-b2da6a8a6770e13a2d2598debea5e93e48eee713.gz

1 files changed, 4 insertions, 12 deletions

diff --git a/XUtil.hsc b/XUtil.hsc
index 0271f89..0fde3d6 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -21,7 +21,7 @@ module XUtil
     , textWidth
     , printString
     , initColor
-    , mkUnmanagedWindow
+    , newWindow
     , nextEvent'
     , readFileSafe
     , hGetLineSafe
@@ -38,7 +38,7 @@ import qualified Graphics.X11.Xlib as Xlib (textExtents, textWidth)
 import Graphics.X11.Xlib.Extras
 import System.Posix.Types (Fd(..))
 import System.IO
-#if defined XFT || defined UTF8
+#if defined XFT || defined UTF_8
 import Foreign.C
 import qualified System.IO.UTF8 as UTF8 (readFile,hGetLine)
 #endif
@@ -186,16 +186,8 @@ initColor' dpy c = (color_pixel . fst) `liftM` allocNamedColor dpy colormap c
 
 -- | Creates a window with the attribute override_redirect set to True.
 -- Windows Managers should not touch this kind of windows.
-mkUnmanagedWindow :: Display
-                  -> Screen
-                  -> Window
-                  -> Position
-                  -> Position
-                  -> Dimension
-                  -> Dimension
-                  -> Bool
-                  -> IO Window
-mkUnmanagedWindow dpy scr rw x y w h o = do
+newWindow :: Display -> Screen -> Window -> Rectangle -> Bool -> IO Window
+newWindow dpy scr rw (Rectangle x y w h) o = do
   let visual   = defaultVisualOfScreen scr
       attrmask = cWOverrideRedirect
   allocaSetWindowAttributes $