diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-10-22 20:45:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-10-22 20:45:11 (GMT) |
| commit | c7a7046bd0dbb6f570e1d5a5076bb654f1946a23 (patch) | |
| tree | c519c9857285dcfc15b09ee93657e30e660a2903 /tests | |
| parent | e9eb4fec4431e0edf6242aaa62a9196d2bfced0c (diff) | |
| parent | 9425ddcb57a98e497b37a6167b687c77fb1e975a (diff) | |
| download | tk-c7a7046bd0dbb6f570e1d5a5076bb654f1946a23.zip tk-c7a7046bd0dbb6f570e1d5a5076bb654f1946a23.tar.gz tk-c7a7046bd0dbb6f570e1d5a5076bb654f1946a23.tar.bz2 | |
Add test textDisp-24.25 exercising a basic testcase for Tablelist (see [1c8aad0efa]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 6e861b1..b74fc4a 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -3374,6 +3374,16 @@ test textDisp-24.24 {TkTextCharLayoutProc, justification and tabs} {textfonts} { .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 |