Tk Source Code

	    || !objc || objc&1) {
	return;
    }
    length = 2*(polyPtr->numPoints - polyPtr->autoClosed);
    if (length == 0) {
	beforeThis = 0;
    }
    while (beforeThis > length) {
	beforeThis -= length;
    }
    while (beforeThis < 0) {
	beforeThis += length;
    }
    newCoordPtr = ckalloc(sizeof(double) * (length + 2 + objc));
    for (i=0; i<beforeThis; i++) {
	newCoordPtr[i] = polyPtr->coordPtr[i];
    }
    for (i=0; i<objc; i++) {
	if (Tcl_GetDoubleFromObj(NULL, objv[i],

    int count, i;
    int length = 2*(polyPtr->numPoints - polyPtr->autoClosed);

    if (length == 0) {
	first = 0;
	last = 0;
    } else {
	while (first >= length) {
	    first -= length;
	}
	while (first < 0) {
	    first += length;
	}
	while (last >= length) {
	    last -= length;
	}
	while (last < 0) {
	    last += length;
	}
    }

    first &= -2;
    last &= -2;

    count = last + 2 - first;

    }

    if (last >= first) {
	for (i=last+2; i<length; i++) {
	    polyPtr->coordPtr[i-count] = polyPtr->coordPtr[i];
	}
    } else {
	for (i=last; i<=first; i++) {
	    polyPtr->coordPtr[i-last] = polyPtr->coordPtr[i];
	}
    }
    polyPtr->coordPtr[length-count] = polyPtr->coordPtr[0];
    polyPtr->coordPtr[length-count+1] = polyPtr->coordPtr[1];
    polyPtr->numPoints -= count/2;
    ComputePolygonBbox(canvas, polyPtr);
}

test canvas-11.3 {canvas poly dchars, bug 3291543} {
    # This would crash
    destroy .c
    pack [canvas .c]
    .c create polygon 0 0 0 10 10 0
    .c dchars 1 2 end
    .c coords 1
} {}

test canvas-12.1 {canvas mm obj, patch SF-403327, 102471} -setup {
    destroy .c
    pack [canvas .c]
} -body {
    set qx [expr {1.+1.}] 
    # qx has type double and no string representation 

    canvas .c
} -body {
    set id [.c create polygon 0 0 1 1 2 2 3 3]
    .c imove $id end 4 4
    .c coords $id
} -cleanup {
    destroy .c
    # PS: Most definitely a bug. Caused by end!=last
    # Also affected by the inconsistenecy between insert and delete in polygon
    # imove should be changed to interpret anything > last
    # as last, to give "end" a reasonable meaning.
} -result {1.0 1.0 4.0 4.0 2.0 2.0 3.0 3.0}
test canvas-18.9 {imove method - errors} -setup {
    canvas .c
} -body {
    set id [.c create line 0 0 1 1 2 2 3 3]
    .c imove $id foobar 4 4
} -cleanup {
    destroy .c

    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5 6 7]
    .c rchars $id 2 end {10 11 12 13 14 15}
    .c coords $id
} -cleanup {
    destroy .c
    # PS: Since "dchars 2 end" deletes all, 0.0 1.0 is missing
} -result {10.0 11.0 12.0 13.0 14.0 15.0}
test canvas-19.7 {rchars method - text} -setup {
    canvas .c
} -body {
    set id [.c create text 0 0 -text abcde]
    .c rchars $id 1 3 XYZ
    .c itemcget $id -text
} -cleanup {

    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5]
    .c dchars $id 2 6
    .c coords $id
} -cleanup {
    destroy .c
    # PS: This should keep 0 1, dchars wrapping semantics removes all
} -result {}

test canvas-22.10 {dchars method - polygon} -setup {
    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5]
    .c dchars $id 4 end
    .c coords $id
} -cleanup {
    destroy .c
    # PS: This should also keep 2 3, dchars wrapping semantics disturbs
} -result {0.0 1.0}

test canvas-22.11 {dchars method - polygon} -setup {
    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5]
    .c dchars $id end end
    .c coords $id
} -cleanup {
    destroy .c
    # PS: Wrapping causes "end" to point at beginning.
} -result {2.0 3.0 4.0 5.0}

test canvas-22.12 {dchars method - polygon} -setup {
    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5 6 7 8 9]
    .c dchars $id 8 4
    .c coords $id
} -cleanup {
    destroy .c
    # PS: WTF? Even if this is considered to be wrapping past
    # end, 6.0 7.0 should be the result
} -result {4.0 5.0}

test canvas-22.13 {dchars method - polygon} -setup {
    canvas .c
} -body {
    set id [.c create polygon 0 1 2 3 4 5 6 7 8 9 10 11]
    .c dchars $id 8 2
    .c coords $id
} -cleanup {
    destroy .c
    # PS: WTF? Even if this is considered to be wrapping past
    # end, 4.0 5.0 6.0 7.0 should be the result
} -result {2.0 3.0 4.0 5.0}

test canvas-22.14 {dchars method - text} -setup {
    canvas .c
} -body {
    set id [.c create text 0 0 -text "012"]
    .c dchars $id 0 1
    .c itemcget $id -text