From 667a7fcf4a5f46490e8edf074b9c3fbb25b42215 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sun, 14 Jan 2024 21:22:53 +0000 Subject: Fix [026e2bb685]: text tag sets bad relief, gets error, but bad relief is saved anyway --- generic/tkTextTag.c | 4 ++++ 1 file changed, 4 insertions(+) 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; } } -- cgit v0.12