Tk Source Code

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

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

Overview
Comment:Merged core-8-5-branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-438
Files: files | file ages | folders
SHA1:04fc47f2b7165d9b57bd29544165a850aa92cf72
User & Date: fvogel 2015-11-22 20:59:11
Context
2015-11-28
19:45
[.text pendingsync] returns a boolean check-in: c1620a30 user: fvogel tags: tip-438
2015-11-22
20:59
Merged core-8-5-branch check-in: 04fc47f2 user: fvogel tags: tip-438
20:58
Added test textDisp-35.1 to check for regressions against pach [5b11cf19] check-in: 1f922fd3 user: fvogel tags: core-8-5-branch
20:11
Use the new sync command instead of the 'count -update' workaround check-in: 10ad3b21 user: fvogel tags: tip-438
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textDisp.test.

4186
4187
4188
4189
4190
4191
4192
















4193
4194
4195
4196
4197
4198
4199
    wm geometry . "[expr {$width * 2}]x$height+$left+$top"
    update
    .t1 sync
    set negative
} -cleanup {
    destroy .t1
} -result {0}

















deleteWindows
option clear

# cleanup
cleanupTests
return







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
    wm geometry . "[expr {$width * 2}]x$height+$left+$top"
    update
    .t1 sync
    set negative
} -cleanup {
    destroy .t1
} -result {0}

test textDisp-35.1 {Init value of charHeight - Dancing scrollbar bug 1499165} -setup {
    pack [text .t1] -fill both -expand y -side left
    .t insert end "[string repeat a\nb\nc\n 500000]THE END\n"
    set res {}
} -body {
    .t see 10000.0
    after 300 {set fr1 [.t yview] ; set done 1}
    vwait done
    after 300 {set fr2 [.t yview] ; set done 1}
    vwait done
    lappend res [expr {[lindex $fr1 0] == [lindex $fr2 0]}]
    lappend res [expr {[lindex $fr1 1] == [lindex $fr2 1]}]
} -cleanup {
    destroy .t1
} -result {1 1}

deleteWindows
option clear

# cleanup
cleanupTests
return