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

cocoa: get file-dialog results atomically

Browse Source 
Otherwise, the NSURL object that is returned from the dialog can
be relased before we get the result.
This commit is contained in:
Matthew Flatt 2015-01-23 15:37:37 -07:00
parent 027ce3bdc2
commit 99a04d5f52
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gui-lib/mred/private/wx/cocoa/filedialog.rkt
View File

@ -103,11 +103,12 @@
(begin0 (begin0
(if (zero? result) (if (zero? result)
#f #f
(atomically
(if (memq 'multi style) (if (memq 'multi style)
(let ([urls (tell ns URLs)]) (let ([urls (tell ns URLs)])
(for/list ([i (in-range (tell #:type _NSUInteger urls count))]) (for/list ([i (in-range (tell #:type _NSUInteger urls count))])
(nsurl->string (tell urls objectAtIndex: #:type _NSUInteger i)))) (nsurl->string (tell urls objectAtIndex: #:type _NSUInteger i))))
(let ([url (tell ns URL)]) (let ([url (tell ns URL)])
(nsurl->string url)))) (nsurl->string url)))))
(release ns))))) (release ns)))))