diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-04 09:40:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-04 09:40:32 (GMT) |
| commit | 811e0efd13a92519b09618284f33379e40d2cb21 (patch) | |
| tree | 4221a09d18ddf1b17170c05bfdd96c634552508b /library/fontchooser.tcl | |
| parent | 2d70b4e0bae02e025fe1deb18a142a138364aa0c (diff) | |
| download | tk-811e0efd13a92519b09618284f33379e40d2cb21.zip tk-811e0efd13a92519b09618284f33379e40d2cb21.tar.gz tk-811e0efd13a92519b09618284f33379e40d2cb21.tar.bz2 | |
Make Tk work with TIP #673: Remove deprecated [trace] subcommands
Diffstat (limited to 'library/fontchooser.tcl')
| -rw-r--r-- | library/fontchooser.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl index 7cd01fb..3aaa6b7 100644 --- a/library/fontchooser.tcl +++ b/library/fontchooser.tcl @@ -321,11 +321,11 @@ proc ::tk::fontchooser::Done {ok} { if {! $ok} { set S(result) "" } - trace vdelete S(size) w [namespace code [list Tracer]] - trace vdelete S(style) w [namespace code [list Tracer]] - trace vdelete S(font) w [namespace code [list Tracer]] - trace vdelete S(strike) w [namespace code [list Tracer]] - trace vdelete S(under) w [namespace code [list Tracer]] + trace remove variable S(size) write [namespace code [list Tracer]] + trace remove variable S(style) write [namespace code [list Tracer]] + trace remove variable S(font) write [namespace code [list Tracer]] + trace remove variable S(strike) write [namespace code [list Tracer]] + trace remove variable S(under) write [namespace code [list Tracer]] destroy $S(W) if {$ok} { if {$S(-command) ne ""} { |