From be6bd0160ce8c6c1750c35f35d20b07348d1f58e Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sun, 3 May 2015 08:13:22 -0400 Subject: [PATCH] supporting opengl hires mode --- gui-lib/mred/private/wx/cocoa/canvas.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gui-lib/mred/private/wx/cocoa/canvas.rkt b/gui-lib/mred/private/wx/cocoa/canvas.rkt index 642b69d9..c6e439ec 100644 --- 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,