diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-07-28 22:18:02 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-07-28 22:18:02 (GMT) |
| commit | 711293f0de32d7ac484234fbafab614b20898d7e (patch) | |
| tree | 6ff0aa82c683d9f3b3df55809cf240124b4033f8 | |
| parent | b9956dbf40df0456a972263dd768f2b890ce3eb5 (diff) | |
| parent | 5da8b2cf18ec7d214d94b627b90307d055afd46f (diff) | |
| download | tk-711293f0de32d7ac484234fbafab614b20898d7e.zip tk-711293f0de32d7ac484234fbafab614b20898d7e.tar.gz tk-711293f0de32d7ac484234fbafab614b20898d7e.tar.bz2 | |
Made textDisp-4.9 more robust to font variations across platforms, so that it passes on Linux Debian 6.0
| -rw-r--r-- | tests/textDisp.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index dbfeb95..a6bbfd7 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -615,6 +615,10 @@ catch {destroy .f2} .t configure -borderwidth 0 -wrap char wm geom . {} update +set bw [.t cget -borderwidth] +set px [.t cget -padx] +set py [.t cget -pady] +set hlth [.t cget -highlightthickness] test textDisp-4.7 {UpdateDisplayInfo, filling in extra vertical space} { # This test was failing on Windows because the title bar on . # was a certain minimum size and it was interfering with the size @@ -653,7 +657,7 @@ test textDisp-4.9 {UpdateDisplayInfo, filling in extra vertical space} {textfont update .t delete 15.0 end list [.t bbox 7.0] [.t bbox 12.0] -} [list [list 3 [expr {2*$fixedDiff + 14}] 7 $fixedHeight] [list 3 [expr {7*$fixedDiff + 79}] 7 $fixedHeight]] +} [list [list [expr {$hlth + $px + $bw}] [expr {$hlth + $py + $bw + $fixedHeight}] $fixedWidth $fixedHeight] [list [expr {$hlth + $px + $bw}] [expr {$hlth + $py + $bw + 6 * $fixedHeight}] $fixedWidth $fixedHeight]] test textDisp-4.10 {UpdateDisplayInfo, filling in extra vertical space} { .t delete 1.0 end .t insert end "1\n2\n3\n4\n5\nLine 6 is such a long line that it wraps around.\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" |