suzanne.soy/gui
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 
original commit: 83bcdbbd8122c688f02685d212daa621b86a6174
This commit is contained in:
Matthew Flatt 2010-11-08 07:12:03 -07:00
parent 1a852b22ed
commit dceffd7fee
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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