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

cocoa: fix save-file dialog when other extensions should be allowed

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-08 07:12:03 -07:00
parent 3747978c1e
commit 83bcdbbd81
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/cocoa/filedialog.rkt
View File

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