From a1b79387b9fa5a7ddd959d71c6d68843d632449f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 8 Mar 2011 08:42:03 -0600
Subject: [PATCH] cocoa: restore "New Folder" button in `put-file' and
 `get-directory'  Closes PR 11784

---
 collects/mred/private/wx/cocoa/filedialog.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/mred/private/wx/cocoa/filedialog.rkt b/collects/mred/private/wx/cocoa/filedialog.rkt
index 662bad58ca..cf20e36e09 100644
--- 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