From 9aa93ab5aebed19cd571f18d1580884030f3b9b8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Oct 2011 15:24:42 -0600 Subject: [PATCH] Revert "cocoa: change the way the app is initialied" This reverts commit 60101618db61c347a3477b0ced4e42e0d50d6fb2. While this changes fixes a 64-bit Lion problem, it creates a worse problem of breaking file and print dialogs. --- collects/mred/private/wx/cocoa/queue.rkt | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt index c3c3b16b31..d0ac5d21a3 100644 --- a/collects/mred/private/wx/cocoa/queue.rkt +++ b/collects/mred/private/wx/cocoa/queue.rkt @@ -78,8 +78,7 @@ (queue-file-event (string->path filename))] [-a _void (applicationDidFinishLaunching: [_id notification]) (unless got-file? - (queue-start-empty-event)) - (tellv app stop: self)] + (queue-start-empty-event))] [-a _BOOL (applicationShouldHandleReopen: [_id app] hasVisibleWindows: [_BOOL has-visible?]) ;; If we have any visible windows, return #t to do the default thing. ;; Otherwise return #f, because we don't want any invisible windows resurrected. @@ -133,11 +132,7 @@ (unless (zero? v) (log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v)))) -;; To make sure that `finishLaunching' is called, call `run' -;; and have `applicationDidFinishLaunching' quit the run loop, -;; which seems to work better than calling `finishLaunching' -;; directly. -(tellv app run) +(tellv app finishLaunching) ;; ------------------------------------------------------------ ;; Create an event to post when MzScheme has been sleeping but is