suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

supporting opengl hires mode

Browse Source
This commit is contained in:
Jay McCarthy 2015-05-03 08:13:22 -04:00
parent 2517366ea3
commit be6bd0160c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wx/cocoa/canvas.rkt
View File

@ -419,6 +419,8 @@
[gl-view (tell (tell RacketGLView alloc) [gl-view (tell (tell RacketGLView alloc)
initWithFrame: #:type _NSRect r initWithFrame: #:type _NSRect r
pixelFormat: pf)]) pixelFormat: pf)])
(when (and gl-config (send gl-config get-hires-mode))
(tellv gl-view setWantsBestResolutionOpenGLSurface: #:type _uint 1))
(when new-context (when new-context
(tellv gl-view setOpenGLContext: new-context) (tellv gl-view setOpenGLContext: new-context)
;; We're supposed to sync via `setView:' but it fails, ;; We're supposed to sync via `setView:' but it fails,