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

Andrea Rossato mailing_list at istitutocolli.org
Sat Jun 16 17:39:51 EDT 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.


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

More information about the Haskell-Cafe mailing list