diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-03-16 19:25:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-03-16 19:25:46 (GMT) |
| commit | a2249b9e3f14b8f661492d96612656e9c37dbe50 (patch) | |
| tree | 99d637db705d6572cdd340a1134bc407891bbdae | |
| parent | 1ae85e4478032e462e4e93246165f3cb57767cdc (diff) | |
| download | tk-a2249b9e3f14b8f661492d96612656e9c37dbe50.zip tk-a2249b9e3f14b8f661492d96612656e9c37dbe50.tar.gz tk-a2249b9e3f14b8f661492d96612656e9c37dbe50.tar.bz2 | |
[787adc5ed7] The workaround for Tk 8.5.* was still never quite right, and
was continuing to crash in the Tk test suite. Do not know why it took 4 years
to notice.
| -rw-r--r-- | generic/tkWindow.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 9751881..11d9445 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -3176,6 +3176,7 @@ Initialize( TkpGetAppName(interp, &class); offset = Tcl_DStringLength(&class)+1; Tcl_DStringSetLength(&class, 2*offset); + Tcl_DStringSetLength(&class, offset-1); Tcl_DStringAppend(&class, Tcl_DStringValue(&class), offset-1); name = Tcl_DStringValue(&class) + offset; } else { |