Use double buffers fbconfig

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