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. original commit: 9aa93ab5aebed19cd571f18d1580884030f3b9b8
This commit is contained in:
parent
94cf73432e
commit
1d81935cf9
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user