diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-14 21:22:53 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-14 21:22:53 (GMT) |
commit | 667a7fcf4a5f46490e8edf074b9c3fbb25b42215 (patch) | |
tree | 290514c618a668897c0095bdb2fa1d1f915bb8c4 /generic | |
parent | 2a04b9e92b411d6efc8032a2cb348da065d1ace8 (diff) | |
download | tk-667a7fcf4a5f46490e8edf074b9c3fbb25b42215.zip tk-667a7fcf4a5f46490e8edf074b9c3fbb25b42215.tar.gz tk-667a7fcf4a5f46490e8edf074b9c3fbb25b42215.tar.bz2 |
Fix [026e2bb685]: text tag sets bad relief, gets error, but bad relief is saved anyway
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkTextTag.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index 0f70c3e..4126a49 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -392,12 +392,16 @@ TkTextTagCmd( if (tagPtr->reliefString != NULL) { if (Tk_GetRelief(interp, tagPtr->reliefString, &tagPtr->relief) != TCL_OK) { + ckfree(tagPtr->reliefString); + tagPtr->reliefString = NULL; return TCL_ERROR; } } if (tagPtr->justifyString != NULL) { if (Tk_GetJustify(interp, tagPtr->justifyString, &tagPtr->justify) != TCL_OK) { + ckfree(tagPtr->justifyString); + tagPtr->justifyString = NULL; return TCL_ERROR; } } |