diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-04 10:05:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-04 10:05:04 (GMT) |
| commit | 9dab97c810595239cdb0f30da35df964460e9e40 (patch) | |
| tree | d42ef6138614c58cad9fc33d8b7feaff693f118c /library | |
| parent | 9cb2bf85a216438da3de2e9e6be6abd774d51f1f (diff) | |
| download | tk-9dab97c810595239cdb0f30da35df964460e9e40.zip tk-9dab97c810595239cdb0f30da35df964460e9e40.tar.gz tk-9dab97c810595239cdb0f30da35df964460e9e40.tar.bz2 | |
Remove use of deprecated [trace] subcommands
Diffstat (limited to 'library')
| -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 27c8def..8c036ad 100644 --- a/library/fontchooser.tcl +++ b/library/fontchooser.tcl @@ -324,11 +324,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 ""} { |