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

Complain visibly when cannot load GL shared libs, instead of swallowing error.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2013-04-18 12:39:30 -04:00 committed by Matthew Flatt
parent 57516164de
commit 38fffd3582
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mred/private/wx/gtk/gl-context.rkt
View File

@ -16,12 +16,15 @@
get-gdk-pixmap get-gdk-pixmap
install-gl-context)) install-gl-context))
(define gdkglext-lib (define (ffi-lib/complaint-on-failure name vers)
(with-handlers ([exn:fail? (lambda (exn) #f)]) (ffi-lib name vers
(ffi-lib "libgdkglext-x11-1.0" '("0")))) #:fail (lambda ()
(define gtkglext-lib (log-warning "could not load GL library ~a ~a"
(with-handlers ([exn:fail? (lambda (exn) #f)]) name vers)
(ffi-lib "libgtkglext-x11-1.0" '("0")))) #f)))
(define gdkglext-lib (ffi-lib/complaint-on-failure "libgdkglext-x11-1.0" '("0")))
(define gtkglext-lib (ffi-lib/complaint-on-failure "libgtkglext-x11-1.0" '("0")))
(define-ffi-definer define-gdkglext gdkglext-lib (define-ffi-definer define-gdkglext gdkglext-lib
#:default-make-fail make-not-available) #:default-make-fail make-not-available)