Tcl Source Code

Artifact 8d22c168759e667295f700251e10dae74aefd7be:

Attachment "tkCanvPoly.diff" to ticket [733911ffff] added by nobody 2003-05-07 21:33:46.

---

--- tk8.3.5/generic/tkCanvPoly.c.org	2003-05-07 16:07:47.000000000 +0200
+++ tk8.3.5/generic/tkCanvPoly.c	2003-05-07 16:08:21.000000000 +0200
@@ -1852,6 +1852,9 @@
     }
     if (polyPtr->numPoints==2) {
 	char string[128];
+        if (color==NULL)
+            return TCL_OK;
+            
 	sprintf(string, "%.15g %.15g translate %.15g %.15g",
 		polyPtr->coordPtr[0], Tk_CanvasPsY(canvas, polyPtr->coordPtr[1]),
 		width/2.0, width/2.0);