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

cocoa: one more 10.6-only method

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-20 15:45:28 -07:00
parent bf9b913f33
commit c94df207a4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,9 +66,10 @@
isDirectory: #:type _BOOL #t)) isDirectory: #:type _BOOL #t))
(tellv ns setDirectory: #:type _NSString dir)))) (tellv ns setDirectory: #:type _NSString dir))))
(when filename (when filename
(tellv ns setNameFieldStringValue: #:type _NSString (path->string (when (version-10.6-or-later?)
(file-name-from-path filename)))) (tellv ns setNameFieldStringValue: #:type _NSString (path->string
(file-name-from-path filename)))))
(when (memq 'enter-packages style) (when (memq 'enter-packages style)
(tellv ns setTreatsFilePackagesAsDirectories: #:type _BOOL #t)) (tellv ns setTreatsFilePackagesAsDirectories: #:type _BOOL #t))