From 158d119b12a0fe1a41211dcc7152a705c1935c37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 17 Sep 2010 21:17:02 -0600 Subject: [PATCH] cocoa get-display-size: use screen with menu bar --- collects/mred/private/wx/cocoa/procs.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wx/cocoa/procs.rkt b/collects/mred/private/wx/cocoa/procs.rkt index 483e1121c3..22f38a0f22 100644 --- a/collects/mred/private/wx/cocoa/procs.rkt +++ b/collects/mred/private/wx/cocoa/procs.rkt @@ -103,9 +103,12 @@ (set-box! xb 0) (set-box! yb 0)) (define (display-size xb yb v) - (let ([f (tell #:type _NSRect (tell NSScreen mainScreen) frame)]) - (set-box! xb (->long (NSSize-width (NSRect-size f)))) - (set-box! yb (->long (NSSize-height (NSRect-size f)))))) + (atomically + (with-autorelease + (let* ([screen (tell (tell NSScreen screens) objectAtIndex: #:type _NSUInteger 0)] + [f (tell #:type _NSRect screen frame)]) + (set-box! xb (->long (NSSize-width (NSRect-size f)))) + (set-box! yb (->long (NSSize-height (NSRect-size f)))))))) (define-appkit NSBeep (_fun -> _void)) (define (bell) (NSBeep))