diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 2 | ||||
| -rw-r--r-- | tests/textWind.test | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index b4891e4..a017dad 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -4198,7 +4198,7 @@ test textDisp-33.2 {one line longer than fits in the widget} { .tt debug 1 set tk_textHeightCalc "" .tt insert 1.0 [string repeat "more wrap + " 1] - after 100 ; update idletasks + update idletasks # Nothing should have been recalculated. set tk_textHeightCalc } {} diff --git a/tests/textWind.test b/tests/textWind.test index 938357b..f2daaca 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -751,15 +751,17 @@ test textWind-10.5 {EmbWinLayoutProc procedure, error in creating window} -setup destroy .t.f proc bgerror args { global msg - lappend msg $args + if {$msg == ""} { + lappend msg $args + } } } -body { .t insert 1.0 "Some sample text" + set msg {} .t window create 1.5 -create { frame .t.f frame .t.f.f -width 10 -height 20 -bg $color } - set msg {} update idletasks lappend msg [winfo exists .t.f.f] } -cleanup { |