Remove useless option database entries

1 files changed, 8 insertions, 14 deletions

diff --git a/tests/textWind.test b/tests/textWind.test
index 3899ab5..5f0c9b0 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -11,28 +11,22 @@ namespace import ::tcltest::*
 tcltest::configure {*}$argv
 tcltest::loadTestedCommands
 
-# Create entries in the option database to be sure that geometry options
-# like border width have predictable values.
-
-option add *Text.borderWidth 2
-option add *Text.highlightThickness 2
-option add *Text.font {"Courier New" -12}
+deleteWindows
 
+set fixedFont {"Courier New" -12}
+set fixedHeight [font metrics $fixedFont -linespace]
+set fixedWidth [font measure $fixedFont m]
+set fixedAscent [font metrics $fixedFont -ascent]
 
-deleteWindows
-# Widget used in tests 1.* - 16.*
+# Widget used in almost all tests
 set tWidth 30
 set tHeight 6
-text .t -width $tWidth -height $tHeight -bd 2 -highlightthickness 2
+text .t -width $tWidth -height $tHeight -bd 2 -highlightthickness 2 \
+        -font $fixedFont
 pack .t -expand 1 -fill both
 update
 .t debug on
 
-set fixedFont {"Courier New" -12}
-set fixedHeight [font metrics $fixedFont -linespace]
-set fixedWidth [font measure $fixedFont m]
-set fixedAscent [font metrics $fixedFont -ascent]
-
 set color [expr {[winfo depth .t] > 1 ? "green" : "black"}]
 
 wm geometry . {}