cocoa: restore "New Folder" button in put-file' and get-directory'

Closes PR 11784
2011-03-08 08:42:03 -06:00 · 2011-03-08 08:42:03 -06:00 · a1b79387b9
commit a1b79387b9
parent 5f797b8f0b
1 changed files with 4 additions and 0 deletions
--- a/collects/mred/private/wx/cocoa/filedialog.rkt
+++ b/collects/mred/private/wx/cocoa/filedialog.rkt
@ -57,6 +57,10 @@
      (tellv ns setCanChooseDirectories: #:type _BOOL #t)
      (tellv ns setCanChooseFiles: #:type _BOOL #f)])

+    (when (or (memq 'put style)
+              (memq 'dir style))
+      (tellv ns setCanCreateDirectories: #:type _BOOL #t))
+
    (when message
      (tellv ns setMessage: #:type _NSString message))
    (when directory