Tk Source Code

Check-in [90c629e2]
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:Add test textDisp-24.25 exercising a basic testcase for Tablelist (see [1c8aad0efa]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:90c629e2b62748b88e0af12e26c99f6b2a08f039a1f6e5e9475ecb3b9ddd984f
User & Date: fvogel 2018-10-22 20:45:11
Context
2018-10-24
20:47
Some more internal use of TkSizeT (improvement of older code). No longer test for TCL_TYPE_I, since it's not in an accepted TIP yet. check-in: e4606c52 user: jan.nijtmans tags: trunk
2018-10-22
20:53
merge trunk check-in: 58aefded user: jan.nijtmans tags: revised_text, tip-466
20:45
Add test textDisp-24.25 exercising a basic testcase for Tablelist (see [1c8aad0efa] check-in: 90c629e2 user: fvogel tags: trunk
20:42
Add test textDisp-24.25 exercising a basic testcase for Tablelist (see [1c8aad0efa] check-in: f6ab49c4 user: fvogel tags: core-8-6-branch
17:58
Fix PTR2INT/PTR2UINT, so they no longer are restricted to the "int" range. Make TCL_Z_MODIFIER available in Tk (even when compiled with Tcl 8.6), and use it. More size_t/clientData related improvements check-in: ab506ffe user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textDisp.test.

3370
3371
3372
3373
3374
3375
3376










3377
3378
3379
3380
3381
3382
3383
test textDisp-24.24 {TkTextCharLayoutProc, justification and tabs} {textfonts} {
    .t delete 1.0 end
    .t tag configure x -justify center
    .t insert 1.0 aa\tbb\tcc\tdd\t
    .t tag add x 1.0 end
    list [.t bbox 1.0] [.t bbox 1.10]
} [list [list 45 3 7 $fixedHeight] [list 94 3 7 $fixedHeight]]











.t configure -width 40 -bd 0 -relief flat -highlightthickness 0 -padx 0 \
    -tabs 100
update
test textDisp-25.1 {CharBboxProc procedure, check tab width} {textfonts} {
    .t delete 1.0 end
    .t insert 1.0 abc\td\tfgh







>
>
>
>
>
>
>
>
>
>







3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
test textDisp-24.24 {TkTextCharLayoutProc, justification and tabs} {textfonts} {
    .t delete 1.0 end
    .t tag configure x -justify center
    .t insert 1.0 aa\tbb\tcc\tdd\t
    .t tag add x 1.0 end
    list [.t bbox 1.0] [.t bbox 1.10]
} [list [list 45 3 7 $fixedHeight] [list 94 3 7 $fixedHeight]]
test textDisp-24.25 {TkTextCharLayoutProc, justification and tabs} -constraints {textfonts} -setup {
    text .tt -tabs {40 right} -wrap none -font $fixedFont
    pack .tt
} -body {
    .tt insert end \t9\n\t99\n\t999
    update
    list [.tt bbox 1.1] [.tt bbox 2.2] [.tt bbox 3.3]
} -cleanup {
    destroy .tt
} -result [list [list 38 5 7 $fixedHeight] [list 38 20 7 $fixedHeight] [list 38 35 7 $fixedHeight]]

.t configure -width 40 -bd 0 -relief flat -highlightthickness 0 -padx 0 \
    -tabs 100
update
test textDisp-25.1 {CharBboxProc procedure, check tab width} {textfonts} {
    .t delete 1.0 end
    .t insert 1.0 abc\td\tfgh