From c1cddc538caa7089510b3c0512bb80f3d4bf7860 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 14 Dec 2015 08:55:36 -0500 Subject: [PATCH] Casting flag-x-error-handler in this case too. Necessary for getting GL working on my Linux/Nvidia box to test pict3d --- gui-lib/mred/private/wx/gtk/gl-context.rkt | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/gui-lib/mred/private/wx/gtk/gl-context.rkt b/gui-lib/mred/private/wx/gtk/gl-context.rkt index b0accb32..e406ab43 100644 --- a/gui-lib/mred/private/wx/gtk/gl-context.rkt +++ b/gui-lib/mred/private/wx/gtk/gl-context.rkt @@ -250,9 +250,10 @@ (dynamic-wind (λ () (set! old-handler - (XSetErrorHandler (cast flag-x-error-handler - (_fun #:atomic? #t _Display _XErrorEvent -> _int) - _fpointer)))) + (XSetErrorHandler + (cast flag-x-error-handler + (_fun #:atomic? #t _Display _XErrorEvent -> _int) + _fpointer)))) (λ () (set! create-context-error? #f) (glXCreateNewContext xdisplay cfg GLX_RGBA_TYPE share-gl #t)) @@ -293,7 +294,11 @@ (define gl (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) (glXCreateContextAttribsARB xdisplay cfg share-gl #t context-attribs))