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

cocoa app file handler

Browse Source 
original commit: 4c22197dee2228714d64d79a5312594833df24f4
This commit is contained in:
Matthew Flatt 2010-09-17 21:10:24 -06:00
parent f8c7790afb
commit 2a3bdeb69b
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,7 +45,9 @@
(if (ptr-equal? (selector openPreferences:)
(tell #:type _SEL menuItem action))
(not (eq? (application-pref-handler) nothing-application-pref-handler))
(super-tell #:type _BOOL validateMenuItem: menuItem))])
(super-tell #:type _BOOL validateMenuItem: menuItem))]
[-a _BOOL (application: [_id theApplication] openFile: [_NSString filename])
(queue-file-event (string->path filename))])
(tellv app finishLaunching)

7
collects/mred/private/wx/common/queue.rkt
View File

@ -44,6 +44,7 @@
queue-quit-event
queue-prefs-event
queue-file-event
begin-busy-cursor
end-busy-cursor
@ -450,6 +451,12 @@
;; called in event-pump thread
(queue-event main-eventspace (application-pref-handler) 'med))
(define (queue-file-event file)
;; called in event-pump thread
(queue-event main-eventspace (lambda ()
((application-file-handler) file))
'med))
(define (begin-busy-cursor)
(let ([e (current-eventspace)])
(atomically