Tk Source Code

Check-in [6e37e626]
Login

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

Overview
Comment:Re-added constraint textfont to textDisp-16.25, because scrolling by pages depends on the font height when the widget height is very small, which is the case in this test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | revised_text | tip-466
Files: files | file ages | folders
SHA1: 6e37e6267787496a34d468eb2e91159bc2b5476a
User & Date: fvogel 2017-04-26 08:53:31
Context
2017-04-26
09:04
Changed expected results for textDisp-4.9. Actually deletion at end of text is now different in the revised version of the text widget. This is explained at http://scidb.sourceforge.net/tk/delete-index-range.html and more highlight is available in function TkTextGetUndeletableNewline() in tkText.c. Strictly speaking this is an incompatibility with the legacy text widget, but it's intended for the better. check-in: 031f51c7 user: fvogel tags: revised_text, tip-466
08:53
Re-added constraint textfont to textDisp-16.25, because scrolling by pages depends on the font height when the widget height is very small, which is the case in this test. check-in: 6e37e626 user: fvogel tags: revised_text, tip-466
08:50
Fix in function TriggerWatchEdit(). check-in: 14b751ce user: gcramer tags: revised_text, tip-466
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textDisp.test.

2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
} {26.0}
test textDisp-16.24 {TkTextYviewCmd procedure, "scroll" option, back pages} {
    .t yview 5.0
    update
    .t yview scroll -3 pa
    .t index @0,0
} {1.0}
test textDisp-16.25 {TkTextYviewCmd procedure, "scroll" option, back pages} -body {
    .t configure -height 1
    update
    .t yview 50.0
    update
    .t yview scroll -1 pages
    set x [.t index @0,0]
    .t configure -height 10







|







2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
} {26.0}
test textDisp-16.24 {TkTextYviewCmd procedure, "scroll" option, back pages} {
    .t yview 5.0
    update
    .t yview scroll -3 pa
    .t index @0,0
} {1.0}
test textDisp-16.25 {TkTextYviewCmd procedure, "scroll" option, back pages} -constraints textfonts -body {
    .t configure -height 1
    update
    .t yview 50.0
    update
    .t yview scroll -1 pages
    set x [.t index @0,0]
    .t configure -height 10