bpo-44828: Avoid leaving a zombie Save panel (GH-29372)

Patch by Marc Culler of the Tk project.

diff --git a/Mac/BuildScript/bpo-44828-filedialog-crash-monterey.patch b/Mac/BuildScript/bpo-44828-filedialog-crash-monterey.patch
index 1d06329fff3fbbcc69ba0d5ff3aa1bc3449be219..059149250f8c865e1f6a6251b90056c6f5a74830 100644 (file)
--- a/Mac/BuildScript/bpo-44828-filedialog-crash-monterey.patch
+++ b/Mac/BuildScript/bpo-44828-filedialog-crash-monterey.patch
@@ -18,7 +18,7 @@
  
      if (returnCode >= NSAlertFirstButtonReturn) {
        Tcl_Obj *resultObj = Tcl_NewStringObj(alertButtonStrings[
-@@ -350,49 +350,41 @@
+@@ -350,49 +350,42 @@
      FilePanelCallbackInfo *callbackInfo)
  {
      NSInteger modalReturnCode;
@@ -85,6 +85,7 @@
 -          [panel close];
 +                        returnCode:modalReturnCode
 +                       contextInfo:callbackInfo ];
++              [parent endSheet:panel];
        }
 +    } else {
 +      modalReturnCode = [panel runModal];