racket/gui: fix for Mac OS X 10.6

Closes PR 14482

original commit: afe06ed070577fad6eb74bf27717ce5337ff2b48
This commit is contained in:
Matthew Flatt 2014-05-02 15:14:25 -06:00
parent 59e634dbdb
commit e1aed6f3ea

View File

@ -123,7 +123,7 @@
(unless (scheme_register_process_global "Racket-GUI-no-front" #f) (unless (scheme_register_process_global "Racket-GUI-no-front" #f)
(tellv app activateIgnoringOtherApps: #:type _BOOL #t) (tellv app activateIgnoringOtherApps: #:type _BOOL #t)
;; It may not be that easy... ;; It may not be that easy...
(when (version-10.6-or-later?) (when (version-10.7-or-later?)
(with-autorelease (with-autorelease
(import-class NSRunningApplication) (import-class NSRunningApplication)
(unless (tell #:type _BOOL (tell NSRunningApplication currentApplication) ownsMenuBar) (unless (tell #:type _BOOL (tell NSRunningApplication currentApplication) ownsMenuBar)