From 691b4c33ce313f8905e933148160c20ee05b4091 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 10 Sep 2011 10:20:37 -0600 Subject: [PATCH] better fix for TransformProcessType issue GRacket registers witht a global table to indicate that no transform is needed. (This change was intended to address a 64-bit problem on Lion. It didn't help, but this seems better than ignoring an error.) original commit: 9d4fcd8e84e8663526420ff2de4b8b67869442c9 --- collects/mred/private/wx/cocoa/queue.rkt | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt index 00c363ab..d0ac5d21 100644 --- a/collects/mred/private/wx/cocoa/queue.rkt +++ b/collects/mred/private/wx/cocoa/queue.rkt @@ -106,15 +106,11 @@ (define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer _uint32 -> _OSStatus)) -(let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess) - kProcessTransformToForegroundApplication)]) - (unless (or (zero? v) - ;; As of Mac OS X 10.7, TransformProcessType() complains - ;; if the application is already a foreground application, - ;; so just ignore that error (even though it correctly flagged - ;; a bug in the `_ProcessSerialNumber' definition at one point). - (= v -50)) - (log-error (format "error from TransformProcessType: ~a" v)))) +(unless (scheme_register_process_global "PLT_IS_FOREGROUND_APP" #f) + (let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess) + kProcessTransformToForegroundApplication)]) + (unless (zero? v) + (log-error (format "error from TransformProcessType: ~a" v))))) (define app-delegate (tell (tell MyApplicationDelegate alloc) init)) (tellv app setDelegate: app-delegate)