Revert "cocoa: change the way the app is initialied"
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:
parent
8a60e1816a
commit
9aa93ab5ae
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user