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

racket/gui cocoa: fix for Mac OS X before 10.7

Browse Source 
I forgot to guard a NSScreen method called for Retina support
with a version check.
This commit is contained in:
Matthew Flatt 2013-11-19 07:16:04 -07:00
parent 8323e679eb
commit b64f74bbed
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt
View File

@ -110,6 +110,7 @@
(tellv ctx restoreGraphicsState))) (tellv ctx restoreGraphicsState)))
(define (display-bitmap-resolution num fail) (define (display-bitmap-resolution num fail)
(if (version-10.7-or-later?)
(let ([r (atomically (let ([r (atomically
(with-autorelease (with-autorelease
(let ([s (if (zero? num) (let ([s (if (zero? num)
@ -123,7 +124,8 @@
(cond (cond
[(not r) (fail)] [(not r) (fail)]
[(zero? r) 1.0] [(zero? r) 1.0]
[else r]))) [else r]))
1.0))
(define/top (make-screen-bitmap [exact-positive-integer? w] (define/top (make-screen-bitmap [exact-positive-integer? w]
[exact-positive-integer? h]) [exact-positive-integer? h])