Make sure accessibility.tcl loads on macOS under Aqua

codebykevin · codebykevin · commit 56a2ca5cd5a6 · 2025-11-09T02:35:45.000Z
diff --git a/library/tk.tcl b/library/tk.tcl
@@ -538,7 +538,7 @@ if {$::tk_library ne ""} {
 	# Do not load accessibility under XQuartz on macOS. There are too many
 	# conflicts between macOS accessibility and what standard X11 expects,
 	# and this causes crashes on Darwin/XQuartz. 
-	if {![interp issafe] &&$::tcl_platform(os) ne "Darwin" && [tk windowingsystem] ne "x11"} {
+	if {![interp issafe] && !($::tcl_platform(os) eq "Darwin" && [tk windowingsystem] eq "x11")} {
 	    SourceLibFile accessibility
 	}
 	SourceLibFile icons

Original file line number	Diff line number	Diff line change
`@@ -538,7 +538,7 @@ if {$::tk_library ne ""} {`
`538`	`538`	`# Do not load accessibility under XQuartz on macOS. There are too many`
`539`	`539`	`# conflicts between macOS accessibility and what standard X11 expects,`
`540`	`540`	`# and this causes crashes on Darwin/XQuartz.`
`541`		`- if {![interp issafe] &&$::tcl_platform(os) ne "Darwin" && [tk windowingsystem] ne "x11"} {`
	`541`	`+ if {![interp issafe] && !($::tcl_platform(os) eq "Darwin" && [tk windowingsystem] eq "x11")} {`
`542`	`542`	`SourceLibFile accessibility`
`543`	`543`	`}`
`544`	`544`	`SourceLibFile icons`