Tk Source Code

Check-in [1f922fd3]
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:Added test textDisp-35.1 to check for regressions against pach [5b11cf19]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1:1f922fd34a9fff4f3559200b1c8ffa0333cad37c
User & Date: fvogel 2015-11-22 20:58:13
Original Comment: Added text textDisp-35.1 to check for regressions against pach [5b11cf19]
References
2015-11-22
21:11 Closed ticket [1499165f]: 8.5 text widget slow to update scrollbar plus 6 other changes artifact: e7cf65bb user: fvogel
Context
2015-11-25
03:19
Remove multiple deprecated internal API calls on OS X; streamline Apple Events implementation; thanks to Marc Culler for extensive patches check-in: 55ad8ff2 user: kevin_walzer tags: core-8-5-branch
2015-11-22
21:10
Added test textDisp-35.1 to check for regressions against pach [5b11cf19] check-in: 2f487e41 user: fvogel tags: trunk
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
2015-11-16
13:26
Improve user experience related to dancing scrollbars. Patch by Koen Danckaert. check-in: 5b11cf19 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textDisp.test.

4181
4182
4183
4184
4185
4186
4187
















4188
4189
4190
4191
4192
4193
4194
    after 0 {lappend result [.sy get]}
    after 1000 {lappend result [.sy get]}
    vwait result;vwait result
    return $result
} -cleanup {
    destroy .t1 .sy
} -result {{0.0 0.24} {0.0 0.24} {0.0 0.24} {0.0 0.24}}

















deleteWindows
option clear

# cleanup
cleanupTests
return







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







4181
4182
4183
4184
4185
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
    after 0 {lappend result [.sy get]}
    after 1000 {lappend result [.sy get]}
    vwait result;vwait result
    return $result
} -cleanup {
    destroy .t1 .sy
} -result {{0.0 0.24} {0.0 0.24} {0.0 0.24} {0.0 0.24}}

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