neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use double buffers fbconfig

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-02 03:48:03 +01:00
parent b9b5f03a32
commit 6a381a238a
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
GLX.hs
View file

@ -49,12 +49,13 @@ instance Driver GLX where
disp <- openDisplay ""
delwnd <- internAtom disp "WM_DELETE_WINDOW" False
fbconfigs <- chooseFBConfig disp (fromIntegral . defaultScreen $ disp)
[(renderType, rgbaBit)
, (drawableType, windowBit)
, (xRenderable, 1)
, (depthSize, 1)
, (stencilSize, 1)
]
[ (renderType, rgbaBit)
, (drawableType, windowBit)
, (doublebuffer, 1)
, (xRenderable, 1)
, (depthSize, 1)
, (stencilSize, 1)
]
visualinfo <- getVisualFromFBConfig disp (head fbconfigs)
rootwindow <- rootWindow disp (fromIntegral $ viScreen visualinfo)
cmap <- createColormap disp rootwindow (viVisual visualinfo) allocNone