racket/gui: gl-config fixes

This commit is contained in:
Matthew Flatt 2013-04-12 18:20:07 -06:00
parent b3ba324a92
commit 69707c9255
2 changed files with 2 additions and 2 deletions

View File

@ -371,7 +371,7 @@
(tell (tell (if is-combo? RacketComboBox RacketView)
alloc)
initWithFrame: #:type _NSRect r)
(let* ([share-context (send gl-config get-share-context)]
(let* ([share-context (and gl-config (send gl-config get-share-context))]
[context-handle (and share-context (send share-context get-handle))]
[pf (gl-config->pixel-format gl-config)]
[new-context (and

View File

@ -148,7 +148,7 @@
(define (prepare-widget-gl-context gtk config)
(init!)
(let ([share-context (send config get-share-context)]
(let ([share-context (and config (send config get-share-context))]
[config (config->GdkGLConfig #f ; (gtk_widget_get_screen gtk)
(or config
(new gl-config%))