[3.14] gh-159517: Modernize tkinter.simpledialog (GH-159518) (#159522)

[3.15] gh-159517: Modernize tkinter.simpledialog (GH-159518)

gh-159517: Modernize tkinter.simpledialog

No longer call ::tk::unsupported::MacWindowStyle on Tcl 9.1 and
newer.
(cherry picked from commit 173dabe)

Co-authored-by: Victor Stinner <vstinner@python.org>
Co-authored-by: Serhiy Storchaka <storchaka@gmail.com>

Author: 3 people

Lib/tkinter/simpledialog.py

@@ -259,8 +259,11 @@ def _place_window(w, parent=None):
 
 def _setup_dialog(w):
     if w._windowingsystem == "aqua":
-        w.tk.call("::tk::unsupported::MacWindowStyle", "style",
-                  w, "moveableModal", "")
+        if w.info_patchlevel() >= (9, 1):
+            w.wm_attributes(stylemask='titled')
+        else:
+            w.tk.call('::tk::unsupported::MacWindowStyle', 'style',
+                      w, 'moveableModal', '')
     elif w._windowingsystem == "x11":
         w.wm_attributes(type="dialog")