From 73663ae6b15c8e234bd2120889bc6d0f135cdd56 Mon Sep 17 00:00:00 2001
From: "fvogelnew1@free.fr" <fvogel>
Date: Fri, 19 Aug 2016 21:47:34 +0000
Subject: Fixed [2cf3d6942c] - Test button-5.24 fails. First, use {Helvetica
 -12} as font for the button text instead of {Helvetica -12 bold} since it's
 the former and not the latter that is tested against in constraints.tcl
 regarding the 'font' constraint. Second, don't force -width to a fixed value,
 otherwise width results can be wrong. Third, adjust the test results in width
 according to the two previous changes.

---
 tests/button.test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/button.test b/tests/button.test
index 708fc30..194e877 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -3435,15 +3435,15 @@ test button-5.23 {ConfigureButton - -height option} -constraints {
 test button-5.24 {ConfigureButton - computing geometry} -constraints {
     fonts
 } -body {
-    button .b -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
-    .b configure -text "Sample text" -width 10 -height 2
+    button .b -borderwidth 2 -highlightthickness 2 -font {Helvetica -12}
+    .b configure -text "Sample text" -height 2
     pack .b
     set result "[winfo reqwidth .b] [winfo reqheight .b]"
     .b configure -bitmap questhead
     lappend result [winfo reqwidth .b] [winfo reqheight .b]
 } -cleanup {
     destroy .b
-} -result {104 46 20 12}
+} -result {96 46 30 12}
 
 test button-5.25 {ConfigureButton - computing geometry} -setup {
     button .b -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
-- 
cgit v0.12