suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "cocoa: change the way the app is initialied"

Browse Source 
This reverts commit 60101618db.

While this changes fixes a 64-bit Lion problem, it creates a
worse problem of breaking file and print dialogs.
This commit is contained in:
Matthew Flatt 2011-10-07 15:24:42 -06:00
parent 8a60e1816a
commit 9aa93ab5ae
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -78,8 +78,7 @@
(queue-file-event (string->path filename))] (queue-file-event (string->path filename))]
[-a _void (applicationDidFinishLaunching: [_id notification]) [-a _void (applicationDidFinishLaunching: [_id notification])
(unless got-file? (unless got-file?
(queue-start-empty-event)) (queue-start-empty-event))]
(tellv app stop: self)]
[-a _BOOL (applicationShouldHandleReopen: [_id app] hasVisibleWindows: [_BOOL has-visible?]) [-a _BOOL (applicationShouldHandleReopen: [_id app] hasVisibleWindows: [_BOOL has-visible?])
;; If we have any visible windows, return #t to do the default thing. ;; 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. ;; Otherwise return #f, because we don't want any invisible windows resurrected.
@ -133,11 +132,7 @@
(unless (zero? v) (unless (zero? v)
(log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v)))) (log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v))))
;; To make sure that `finishLaunching' is called, call `run' (tellv app finishLaunching)
;; and have `applicationDidFinishLaunching' quit the run loop,
;; which seems to work better than calling `finishLaunching'
;; directly.
(tellv app run)
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Create an event to post when MzScheme has been sleeping but is ;; Create an event to post when MzScheme has been sleeping but is