Re: [Haskell-cafe] Xlib: problem creating a window with override_redirect set

16 Jun 2007

      On Sat, Jun 16, 2007 at 07:03:24PM +0200, Andrea Rossato wrote:
...
Hi,
I'm trying, without success, to create a window with the attribute
override_redirect set to True (this way the window manager should not
take care of it). Obviously with Xlib (X11-1.2.2).
just for the sake of documentation, this is the solution I've been able to
find thans to the help of the guys of the xmonad comunity.

thanks for your kind attentions.

andrea

the bits:

module Main where

import Graphics.X11.Xlib
import Graphics.X11.Xlib.Misc

import Control.Concurrent
import Data.Bits

main = test

test = do
  dpy   <- openDisplay ""
  let dflt = defaultScreen dpy
  rootw  <- rootWindow dpy dflt
  win <- mkUnmanagedWindow dpy (defaultScreenOfDisplay dpy) rootw 0 0 100 100 0x000000
  mapWindow dpy win
  sync dpy True
  threadDelay $ 2 * 1000000

mkUnmanagedWindow dpy scr rw x y h w bgcolor = do
  let visual = defaultVisualOfScreen scr
      attrmask = cWBackPixel 
                 .|. cWOverrideRedirect
  window <- allocaSetWindowAttributes $ 
            \attributes -> do
              set_background_pixel attributes bgcolor
              set_override_redirect attributes True
              createWindow dpy rw x y w h 0 (defaultDepthOfScreen scr)
  inputOutput visual attrmask attributes                                
  return window