diff options
Diffstat (limited to 'library/fontchooser.tcl')
| -rw-r--r-- | library/fontchooser.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl index c53d1d6..8fcf0e0 100644 --- 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::testDialog $S(W) } wm withdraw $S(W) wm title $S(W) $S(-title) |