suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement GL screen sync for X11 canvases

Browse Source
This commit is contained in:
Matthew Flatt 2015-10-18 18:08:05 -06:00
parent 4daafb2357
commit 5a1d5557c4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui-lib/mred/private/wx/gtk/gl-context.rkt
View File

@ -144,6 +144,9 @@
(define-gtk gtk_widget_get_display (_fun _GtkWidget -> _GdkDisplay))
(define-gtk gtk_widget_get_screen (_fun _GtkWidget -> _GdkScreen))
(define-glx glXSwapIntervalEXT (_fun _Display _XID _int -> _void)
#:fail (lambda () void))
;; ===================================================================================================
;; GLX versions and extensions queries
@ -419,6 +422,9 @@
;; The above will return a direct rendering context when it can
;; If it doesn't, the context will be version 1.4 or lower, unless GLX is implemented with
;; proprietary extensions (NVIDIA's drivers sometimes do this)
(when (and widget (send conf get-sync-swap))
(glXSwapIntervalEXT xdisplay (gdk_x11_drawable_get_xid drawable) 1))
;; Now wrap the GLX context in a gl-context%
(cond