summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--GLX.hs13
1 files changed, 7 insertions, 6 deletions
diff --git a/GLX.hs b/GLX.hs
index 8a1c52d..3dbb362 100644
--- a/GLX.hs
+++ b/GLX.hs
@@ -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