tests/fontchooser.test, library/fontchooser.tcl: adapt to change in previous commit

1minus1is0 · 1minus1is0 · commit a09f789f6420 · 2025-01-22T13:40:01.000Z
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl
@@ -172,7 +172,7 @@ proc ::tk::fontchooser::Create {} {
     if {![winfo exists $S(W)]} {
 	toplevel $S(W) -class TkFontDialog
 	if {[package provide tcltest] ne {}} {
-	    set ::tk_dialog $S(W)
+	    set ::tk::test::dialog::tk_dialog $S(W)
 	}
 	wm withdraw $S(W)
 	wm title $S(W) $S(-title)
diff --git a/tests/fontchooser.test b/tests/fontchooser.test
@@ -8,6 +8,7 @@ tcltest::loadTestedCommands
 
 # Import utility procs for specific functional areas
 namespace import -force ::tk::test::dialog::*
+upvar #0 ::tk::test::dialog::tk_dialog tk_dialog
 set applyFontCmd [list testDialogFont set]
 
 proc Click {button} {

Original file line number	Diff line number	Diff line change
`@@ -172,7 +172,7 @@ proc ::tk::fontchooser::Create {} {`
`172`	`172`	`if {![winfo exists $S(W)]} {`
`173`	`173`	`toplevel $S(W) -class TkFontDialog`
`174`	`174`	`if {[package provide tcltest] ne {}} {`
`175`		`- set ::tk_dialog $S(W)`
	`175`	`+ set ::tk::test::dialog::tk_dialog $S(W)`
`176`	`176`	`}`
`177`	`177`	`wm withdraw $S(W)`
`178`	`178`	`wm title $S(W) $S(-title)`