Tk Source Code

Check-in [d0203d44]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Add (currently crashing) test text-8.28 to demonstrate [de01e24aa1]: Text replace command involving selection crashes
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-de01e24aa1
Files: files | file ages | folders
SHA3-256: d0203d44a7e610299c15deaaf1c175c7e0712375c773f196c1147dd2c717a0a8
User & Date: fvogel 2018-06-13 11:19:28
Context
2018-06-13
20:27
Fix [de01e24aa1]: Text replace command involving selection crashes Closed-Leaf check-in: e73b162c user: fvogel tags: bug-de01e24aa1
11:19
Add (currently crashing) test text-8.28 to demonstrate [de01e24aa1]: Text replace command involving selection crashes check-in: d0203d44 user: fvogel tags: bug-de01e24aa1
2018-06-12
19:35
Further fix for [1821174fff], by Christian Werner. Also, remove or replace deprecated calls in the macOS implementation (by Marc Culler). check-in: 349f9323 user: fvogel tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/text.test.

1581
1582
1583
1584
1585
1586
1587









1588
1589
1590
1591
1592
1593
1594
    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
} -body {






>
>
>
>
>
>
>
>
>







1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
    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-8.28 {TextWidgetCmd procedure, "replace" option crash} -setup {
    text .tt
} -body {
    .tt insert end "foo\n"
    .tt tag add sel 1.0 end
    .tt replace sel.first sel.last "bar"
} -cleanup {
    destroy .tt
} -result {}


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