racket/gui: gl-config fixes
This commit is contained in:
parent
b3ba324a92
commit
69707c9255
|
@ -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
|
||||
|
|
|
@ -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%))
|
||||
|
|
Loading…
Reference in New Issue
Block a user