protect -insertborderwidth/-insertwidth/-selborderwidth, which cannot…

… be negative
tcltk · Sep 29, 2024 · b5775ed · b5775ed
1 parent 575910a
commit b5775ed
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
@@ -2357,6 +2357,15 @@ ConfigureCanvas(
 	canvasPtr->yScrollIncrement = 0;
     }
     canvasPtr->inset = canvasPtr->borderWidth + canvasPtr->highlightWidth;
+    if (canvasPtr->textInfo.insertBorderWidth < 0) {
+	canvasPtr->textInfo.insertBorderWidth = 0;
+    }
+    if (canvasPtr->textInfo.insertWidth < 0) {
+	canvasPtr->textInfo.insertWidth = 0;
+    }
+    if (canvasPtr->textInfo.selBorderWidth < 0) {
+	canvasPtr->textInfo.selBorderWidth = 0;
+    }
 
     gcValues.function = GXcopy;
     gcValues.graphics_exposures = False;