cocoa: fix put-file extension handling when no extensions are supplied
This commit is contained in:
parent
6c844ec415
commit
f050f28d2b
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user