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

Casting flag-x-error-handler in this case too. Necessary for getting GL working on my Linux/Nvidia box to test pict3d

Browse Source
This commit is contained in:
Jay McCarthy 2015-12-14 08:55:36 -05:00
parent 6e97d0bc9d
commit c1cddc538c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -250,7 +250,8 @@
(dynamic-wind (dynamic-wind
(λ () (λ ()
(set! old-handler (set! old-handler
(XSetErrorHandler (cast flag-x-error-handler (XSetErrorHandler
(cast flag-x-error-handler
(_fun #:atomic? #t _Display _XErrorEvent -> _int) (_fun #:atomic? #t _Display _XErrorEvent -> _int)
_fpointer)))) _fpointer))))
(λ () (λ ()
@ -293,7 +294,11 @@
(define gl (define gl
(dynamic-wind (dynamic-wind
(λ () (λ ()
(set! old-handler (XSetErrorHandler flag-x-error-handler))) (set! old-handler
(XSetErrorHandler
(cast flag-x-error-handler
(_fun #:atomic? #t _Display _XErrorEvent -> _int)
_fpointer))))
(λ () (λ ()
(set! create-context-error? #f) (set! create-context-error? #f)
(glXCreateContextAttribsARB xdisplay cfg share-gl #t context-attribs)) (glXCreateContextAttribsARB xdisplay cfg share-gl #t context-attribs))