cocoa: fix put-file extension handling when no extensions are supplied

This commit is contained in:
Matthew Flatt 2010-11-15 19:46:41 -07:00
parent 6c844ec415
commit f050f28d2b

View File

@ -41,11 +41,11 @@
(let ([a (tell NSArray
arrayWithObjects: #:type (_list i _NSString) extensions
count: #:type _NSUInteger (length extensions))])
(tellv ns setAllowedFileTypes: a))))
(let ([others? (ormap (lambda (e)
(equal? (cadr e) "*.*"))
filters)])
(tellv ns setAllowsOtherFileTypes: #:type _BOOL others?))
(tellv ns setAllowedFileTypes: a))
(let ([others? (ormap (lambda (e)
(equal? (cadr e) "*.*"))
filters)])
(tellv ns setAllowsOtherFileTypes: #:type _BOOL others?))))
(cond
[(memq 'multi style)