supporting opengl hires mode

2015-05-03 08:13:22 -04:00 · 2015-05-03 08:13:22 -04:00 · be6bd0160c
commit be6bd0160c
parent 2517366ea3
1 changed files with 2 additions and 0 deletions
--- a/gui-lib/mred/private/wx/cocoa/canvas.rkt
+++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt
@ -419,6 +419,8 @@
                     [gl-view (tell (tell RacketGLView alloc)
                                    initWithFrame: #:type _NSRect r
                                    pixelFormat: pf)])
+                (when (and gl-config (send gl-config get-hires-mode))
+                  (tellv gl-view setWantsBestResolutionOpenGLSurface: #:type _uint 1))
                (when new-context
                  (tellv gl-view setOpenGLContext: new-context)
                  ;; We're supposed to sync via `setView:' but it fails,