diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-01-13 21:39:57 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-01-13 21:39:57 (GMT) |
| commit | ec7fa44b858fba47fd4f601ad9c75833d277e628 (patch) | |
| tree | 02cfe2cbd7b8f8226a8afa77f1da9adabbe88bd5 /library | |
| parent | 4335dc81a4357850f1e259ba2b6719f137acd94e (diff) | |
| download | tk-ec7fa44b858fba47fd4f601ad9c75833d277e628.zip tk-ec7fa44b858fba47fd4f601ad9c75833d277e628.tar.gz tk-ec7fa44b858fba47fd4f601ad9c75833d277e628.tar.bz2 | |
Let existing fontchooser tests pass. This also fixes the 'can't read S(nstate)' error reported in the ticket.
Diffstat (limited to 'library')
| -rw-r--r-- | library/fontchooser.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl index 506935c..9e5ecc8 100644 --- a/library/fontchooser.tcl +++ b/library/fontchooser.tcl @@ -304,10 +304,10 @@ proc ::tk::fontchooser::Create {} { write [namespace code [list Tracer]] trace add variable [namespace which -variable S](under) \ write [namespace code [list Tracer]] - } else { - Init $S(-font) } + Init $S(-font) + return } |