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

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

@ -110,20 +110,22 @@
(tellv ctx restoreGraphicsState)))
(define (display-bitmap-resolution num fail)
(let ([r (atomically
(with-autorelease
(let ([s (if (zero? num)
(tell NSScreen mainScreen)
(let ([screens (tell NSScreen screens)])
(if (num . < . (tell #:type _NSUInteger screens count))
(tell screens objectAtIndex: #:type _NSUInteger num)
#f)))])
(and s
(tell #:type _CGFloat s backingScaleFactor)))))])
(cond
[(not r) (fail)]
[(zero? r) 1.0]
[else r])))
(if (version-10.7-or-later?)
(let ([r (atomically
(with-autorelease
(let ([s (if (zero? num)
(tell NSScreen mainScreen)
(let ([screens (tell NSScreen screens)])
(if (num . < . (tell #:type _NSUInteger screens count))
(tell screens objectAtIndex: #:type _NSUInteger num)
#f)))])
(and s
(tell #:type _CGFloat s backingScaleFactor)))))])
(cond
[(not r) (fail)]
[(zero? r) 1.0]
[else r]))
1.0))
(define/top (make-screen-bitmap [exact-positive-integer? w]
[exact-positive-integer? h])