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

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

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