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

cocoa app file handler

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-17 21:10:24 -06:00
parent 83a00c66ec
commit 4c22197dee
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:) (if (ptr-equal? (selector openPreferences:)
(tell #:type _SEL menuItem action)) (tell #:type _SEL menuItem action))
(not (eq? (application-pref-handler) nothing-application-pref-handler)) (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) (tellv app finishLaunching)

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

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