Tk Source Code

Changes On Branch bug-62c5b7a1d7
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch bug-62c5b7a1d7 Excluding Merge-Ins

This is equivalent to a diff from 68069331 to bda0025e

2017-06-30
20:26
Fix [62c5b7a1d7]: [text] segfaults on replace. Patch from Christian Werner. check-in: 69da0b32 user: fvogel tags: core-8-6-branch
19:55
Cherrypicked test text-8.27 from the legacy text widget (non-regression against [62c5b7a1d7]: [text] segfaults on replace), and renamed the existing text-8.27 to text-8.28 check-in: f0b69837 user: fvogel tags: revised_text, tip-466
18:55
Fix [92e028b41b] and [c5eb909f86]: Theme changes to xpnative after switching user on Windows. Patch from Brad Lanam check-in: e4b22cdb user: fvogel tags: core-8-6-branch
2017-06-26
12:56
Added test text-8.27 for non-regression against the crash [62c5b7a1d7] Closed-Leaf check-in: bda0025e user: fvogel tags: bug-62c5b7a1d7
12:48
Fix [62c5b7a1d7]: [text] segfaults on replace. Patch from Christian Werner. check-in: ba5a2d3b user: fvogel tags: bug-62c5b7a1d7
2017-06-22
14:27
merge 8.6 check-in: 8b2acfe3 user: dgp tags: core-8-6-7-rc
2017-06-21
20:17
Fix [adc028c8d00]: Keyboard menu traversal can generate a global grab that cannot be released. Patch from Keith Nash check-in: 591f38e6 user: fvogel tags: trunk
20:15
Fix [adc028c8d00]: Keyboard menu traversal can generate a global grab that cannot be released. Patch from Keith Nash check-in: 68069331 user: fvogel tags: core-8-6-branch
2017-06-13
03:39
Add "break" to "bind Menu <KeyPress>" in library/menu.tcl. Fixes bug adc028c8d0. Closed-Leaf check-in: 44c5dcda user: kjnash tags: bug-adc028c8d0
2017-06-05
01:52
Fix for 9eab541213, tk_getSave on macOS; thanks to Christian Gollwitzer for patch check-in: a1d1fbc3 user: kevin_walzer tags: core-8-6-branch

Changes to generic/tkText.c.

1487
1488
1489
1490
1491
1492
1493

1494
1495
1496
1497
1498
1499
1500
			indexToPtr, objc, objv, 0);

		if (result == TCL_OK) {
		    /*
		     * Move the insertion position to the correct place.
		     */


		    TkTextIndexForwChars(NULL, indexFromPtr,
			    deleteInsertOffset, &index, COUNT_INDICES);
		    TkBTreeUnlinkSegment(textPtr->insertMarkPtr,
			    textPtr->insertMarkPtr->body.mark.linePtr);
		    TkBTreeLinkSegment(textPtr->insertMarkPtr, &index);
		}
	    } else {







>







1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
			indexToPtr, objc, objv, 0);

		if (result == TCL_OK) {
		    /*
		     * Move the insertion position to the correct place.
		     */

                    indexFromPtr = TkTextGetIndexFromObj(interp, textPtr, objv[2]);
		    TkTextIndexForwChars(NULL, indexFromPtr,
			    deleteInsertOffset, &index, COUNT_INDICES);
		    TkBTreeUnlinkSegment(textPtr->insertMarkPtr,
			    textPtr->insertMarkPtr->body.mark.linePtr);
		    TkBTreeLinkSegment(textPtr->insertMarkPtr, &index);
		}
	    } else {

Changes to tests/text.test.

1570
1571
1572
1573
1574
1575
1576










1577
1578
1579
1580
1581
1582
1583
    destroy .t
} -result {foo 0 1}
test text-8.26 {TextWidgetCmd procedure, "replace" option crash} -setup {
    text .tt
} -body {
    .tt insert 0.0 foo\n
    .tt replace end-1l end bar










} -cleanup {
    destroy .tt
} -result {}


test text-9.1 {TextWidgetCmd procedure, "get" option} -setup {
    text .t







>
>
>
>
>
>
>
>
>
>







1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
    destroy .t
} -result {foo 0 1}
test text-8.26 {TextWidgetCmd procedure, "replace" option crash} -setup {
    text .tt
} -body {
    .tt insert 0.0 foo\n
    .tt replace end-1l end bar
} -cleanup {
    destroy .tt
} -result {}
test text-8.27 {TextWidgetCmd procedure, "replace" option crash} -setup {
    text .tt
} -body {
    .tt insert 0.0 \na
    for {set i 0} {$i < 2} {incr i} {
        .tt replace 2.0 3.0 b
    }
} -cleanup {
    destroy .tt
} -result {}


test text-9.1 {TextWidgetCmd procedure, "get" option} -setup {
    text .t