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

Adding legacy/core decision in gl-config/canvas

Browse Source 
original commit: 31001f3484c3d379a2c85b5c5974283d3f909d61
This commit is contained in:
Jay McCarthy 2014-07-22 19:45:47 -04:00
parent 4c71b5d039
commit a74928552b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,12 +192,22 @@
(define NSOpenGLPFASampleBuffers 55)
(define NSOpenGLPFASamples 56)
(define NSOpenGLPFAMultisample 59)
(define NSOpenGLPFAOpenGLProfile 99)
(define NSOpenGLProfileVersionLegacy #x1000)
(define NSOpenGLProfileVersion3_2Core #x3200)
(define (gl-config->pixel-format conf)
(let ([conf (or conf (new gl-config%))])
(tell (tell NSOpenGLPixelFormat alloc)
initWithAttributes: #:type (_list i _int)
(append
(if (version-10.7-or-later?)
(list NSOpenGLPFAOpenGLProfile
(if (send conf get-legacy?)
NSOpenGLProfileVersionLegacy
NSOpenGLProfileVersion3_2Core))
null)
(if (send conf get-double-buffered) (list NSOpenGLPFADoubleBuffer) null)
(if (send conf get-stereo) (list NSOpenGLPFAStereo) null)
(list