Ticket #2961: simple.hs

File simple.hs, 718 bytes (added by sjanssen, 5 years ago)

test program

Line 
1import Graphics.X11
2
3mkUnmanagedWindow :: Display -> Screen -> Window -> Position
4                  -> Position -> Dimension -> Dimension -> IO Window
5mkUnmanagedWindow d s rw x y w h = do
6  let visual = defaultVisualOfScreen s
7      attrmask = cWOverrideRedirect
8  allocaSetWindowAttributes $
9         \attributes -> do
10           set_override_redirect attributes True
11           createWindow d rw x y w h 0 (defaultDepthOfScreen s)
12                        inputOutput visual attrmask attributes
13
14
15main = do
16    d <- openDisplay ""
17    rootw <- rootWindow d (defaultScreen d)
18    w <- mkUnmanagedWindow d (defaultScreenOfDisplay d) rootw 0 0 100 100
19    print (w, d, defaultScreenOfDisplay d, rootw)
20    sync d False