From ca24d94cdc2a5cdafa27f7c6e002c3aef2b9e900 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Dec 2015 20:15:24 -0600 Subject: [PATCH] Cocoa: avoid screen sync for GC-blit GL context Affects 10.11 and up --- gui-lib/mred/private/wx/cocoa/canvas.rkt | 3 +++ gui-lib/mred/private/wx/cocoa/dc.rkt | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wx/cocoa/canvas.rkt b/gui-lib/mred/private/wx/cocoa/canvas.rkt index 87416211..f9fa12dc 100644 --- a/gui-lib/mred/private/wx/cocoa/canvas.rkt +++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt @@ -966,6 +966,9 @@ (tell (tell NSImageView alloc) init))]) (cond [gc-via-gl? + (tellv (tell glv openGLContext) setValues: + #:type (_ptr i _long) 0 + forParameter: #:type _int NSOpenGLCPSwapInterval) (tellv win setAcceptsMouseMovedEvents: #:type _BOOL #t) (set-ivar! win wxb (->wxb this)) (set-ivar! glv wxb (->wxb this)) diff --git a/gui-lib/mred/private/wx/cocoa/dc.rkt b/gui-lib/mred/private/wx/cocoa/dc.rkt index 77b784ec..9781cf84 100644 --- a/gui-lib/mred/private/wx/cocoa/dc.rkt +++ b/gui-lib/mred/private/wx/cocoa/dc.rkt @@ -21,7 +21,8 @@ do-backing-flush) display-bitmap-resolution make-screen-bitmap - make-window-bitmap) + make-window-bitmap + NSOpenGLCPSwapInterval) (import-class NSOpenGLContext NSScreen NSGraphicsContext NSWindow)