Excess spacing in test-suite

1 files changed, 114 insertions, 114 deletions

diff --git a/tests/textTag.test b/tests/textTag.test
index fed073a..08a9455 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -23,7 +23,7 @@ update
 
 wm geometry . {}
 set bigFont {Helvetica 24}
-  
+
 # The statements below reset the main window;  it's needed if the window
 # manager is mwm, to make mwm forget about a previous minimum size setting.
 
@@ -306,32 +306,32 @@ test textTag-1.35 {configuration options} -constraints {
 
 
 test textTag-2.1 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag
 } -returnCodes error -result {wrong # args: should be ".t tag option ?arg ...?"}
 test textTag-2.2 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag gorp
 } -returnCodes error -result {bad tag option "gorp": must be add, bind, cget, configure, delete, lower, names, nextrange, prevrange, raise, ranges, or remove}
 test textTag-2.3 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag add foo
 } -returnCodes error -result {wrong # args: should be ".t tag add tagName index1 ?index2 index1 index2 ...?"}
 test textTag-2.4 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag add x gorp
 } -returnCodes error -result {bad text index "gorp"}
 test textTag-2.5 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag add x 1.2 gorp
 } -returnCodes error -result {bad text index "gorp"}
 test textTag-2.6 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -setup {
     .t tag delete sel
 } -body {
@@ -340,7 +340,7 @@ test textTag-2.6 {TkTextTagCmd - "add" option} -constraints {
     .t tag ranges sel
 } -result {3.2 3.4}
 test textTag-2.7 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -350,7 +350,7 @@ test textTag-2.7 {TkTextTagCmd - "add" option} -constraints {
     .t tag delete x
 } -result {1.0 1.6}
 test textTag-2.8 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -setup {
     .t tag remove x 1.0 end
 } -body {
@@ -360,7 +360,7 @@ test textTag-2.8 {TkTextTagCmd - "add" option} -constraints {
     .t tag delete x
 } -result {1.2 1.3}
 test textTag-2.9 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -setup {
     destroy .t.e
 } -body {
@@ -374,7 +374,7 @@ test textTag-2.9 {TkTextTagCmd - "add" option} -constraints {
     destroy .t.e
 } -result 34
 test textTag-2.10 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -setup {
     destroy .t.e
 } -body {
@@ -389,14 +389,14 @@ test textTag-2.10 {TkTextTagCmd - "add" option} -constraints {
     destroy .t.e
 }  -result {Text}
 test textTag-2.11 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag remove sel 1.0 end
     .t tag add sel 1.1 1.5 2.4 3.1 4.2 4.4
     .t tag ranges sel
 } -result {1.1 1.5 2.4 3.1 4.2 4.4}
 test textTag-2.12 {TkTextTagCmd - "add" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag remove sel 1.0 end
     .t tag add sel 1.1 1.5 2.4
@@ -420,17 +420,17 @@ test textTag-2.14 {tag add before -startline - Bug 1615425} haveCourier12 {
 
 
 test textTag-3.1 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag bind
 } -returnCodes error -result {wrong # args: should be ".t tag bind tagName ?sequence? ?command?"}
 test textTag-3.2 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag bind 1 2 3 4
 } -returnCodes error -result {wrong # args: should be ".t tag bind tagName ?sequence? ?command?"}
 test textTag-3.3 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag bind x <Enter> script1
     .t tag bind x <Enter>
@@ -438,12 +438,12 @@ test textTag-3.3 {TkTextTagCmd - "bind" option} -constraints {
     .t tag delete x
 } -result {script1}
 test textTag-3.4 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag bind x <Gorp> script2
 } -returnCodes error -result {bad event type or keysym "Gorp"}
 test textTag-3.5 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <Enter> script1
@@ -452,17 +452,17 @@ test textTag-3.5 {TkTextTagCmd - "bind" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {requested illegal events; only key, button, motion, enter, leave, and virtual events may be used}
 test textTag-3.6 {TkTextTagCmd - "bind" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <Enter> script1
-    catch {.t tag bind x <FocusIn> script2} 
+    catch {.t tag bind x <FocusIn> script2}
     .t tag bind x
 } -cleanup {
     .t tag delete x
 } -result {<Enter>}
 test textTag-3.7 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <Enter> script1
@@ -473,7 +473,7 @@ test textTag-3.7 {TkTextTagCmd - "bind" option} -constraints {
     .t tag delete x
 } -result {{<Enter> <Leave> a} script1 xyzzy}
 test textTag-3.8 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <Enter> script1
@@ -484,7 +484,7 @@ test textTag-3.8 {TkTextTagCmd - "bind" option} -constraints {
 } -result {script1
 script2}
 test textTag-3.9 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <Enter>
@@ -492,7 +492,7 @@ test textTag-3.9 {TkTextTagCmd - "bind" option} -constraints {
     .t tag delete x
 } -returnCodes ok -result {}
 test textTag-3.10 {TkTextTagCmd - "bind" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag bind x <
@@ -502,28 +502,28 @@ test textTag-3.10 {TkTextTagCmd - "bind" option} -constraints {
 
 
 test textTag-4.1 {TkTextTagCmd - "cget" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag cget a
 } -returnCodes error -result {wrong # args: should be ".t tag cget tagName option"}
 test textTag-4.2 {TkTextTagCmd - "cget" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag cget a b c
 } -returnCodes error -result {wrong # args: should be ".t tag cget tagName option"}
 test textTag-4.3 {TkTextTagCmd - "cget" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete foo
     .t tag cget foo bar
 } -returnCodes error -result {tag "foo" isn't defined in text widget}
 test textTag-4.4 {TkTextTagCmd - "cget" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag cget sel bogus
 } -returnCodes error -result {unknown option "bogus"}
 test textTag-4.5 {TkTextTagCmd - "cget" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -background red
@@ -534,24 +534,24 @@ test textTag-4.5 {TkTextTagCmd - "cget" option} -constraints {
 
 
 test textTag-5.1 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag configure
 } -returnCodes error -result {wrong # args: should be ".t tag configure tagName ?-option? ?value? ?-option value ...?"}
 test textTag-5.2 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag configure x -foo
 } -returnCodes error -result {unknown option "-foo"}
 test textTag-5.3 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag configure x -background red -underline
 } -cleanup {
     .t tag delete x
 } -returnCodes error -result {value for "-underline" missing}
 test textTag-5.4 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -underline yes
@@ -560,7 +560,7 @@ test textTag-5.4 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {-underline {} {} {} yes}
 test textTag-5.5 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -overstrike on
@@ -569,14 +569,14 @@ test textTag-5.5 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {on}
 test textTag-5.6 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag configure x -overstrike foo
 } -cleanup {
     .t tag delete x
 } -returnCodes error -result {expected boolean value but got "foo"}
 test textTag-5.7 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -underline stupid
@@ -584,7 +584,7 @@ test textTag-5.7 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {expected boolean value but got "stupid"}
 test textTag-5.8 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -justify left
@@ -593,7 +593,7 @@ test textTag-5.8 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {-justify {} {} {} left}
 test textTag-5.9 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -justify bogus
@@ -601,7 +601,7 @@ test textTag-5.9 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad justification "bogus": must be left, right, or center}
 test textTag-5.10 {TkTextTagCmd - "configure" option} -constraints {
-	haveCourier12 
+	haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -justify fill
@@ -609,7 +609,7 @@ test textTag-5.10 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad justification "fill": must be left, right, or center}
 test textTag-5.11 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -offset 2
@@ -618,7 +618,7 @@ test textTag-5.11 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {-offset {} {} {} 2}
 test textTag-5.12 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -offset 1.0q
@@ -626,7 +626,7 @@ test textTag-5.12 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "1.0q"}
 test textTag-5.13 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -lmargin1 2 -lmargin2 4 -rmargin 5
@@ -636,7 +636,7 @@ test textTag-5.13 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {{-lmargin1 {} {} {} 2} {-lmargin2 {} {} {} 4} {-rmargin {} {} {} 5}}
 test textTag-5.14 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -lmargin1 2.0x
@@ -644,7 +644,7 @@ test textTag-5.14 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "2.0x"}
 test textTag-5.15 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -lmargin2 gorp
@@ -652,7 +652,7 @@ test textTag-5.15 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "gorp"}
 test textTag-5.16 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -rmargin 140.1.1
@@ -661,7 +661,7 @@ test textTag-5.16 {TkTextTagCmd - "configure" option} -constraints {
 } -returnCodes error -result {bad screen distance "140.1.1"}
 .t tag delete x
 test textTag-5.17 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -spacing1 2 -spacing2 4 -spacing3 6
@@ -671,7 +671,7 @@ test textTag-5.17 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -result {{-spacing1 {} {} {} 2} {-spacing2 {} {} {} 4} {-spacing3 {} {} {} 6}}
 test textTag-5.18 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -spacing1 2.0x
@@ -679,7 +679,7 @@ test textTag-5.18 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "2.0x"}
 test textTag-5.19 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -spacing1 lousy
@@ -687,7 +687,7 @@ test textTag-5.19 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "lousy"}
 test textTag-5.20 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag configure x -spacing1 4.2.3
@@ -695,7 +695,7 @@ test textTag-5.20 {TkTextTagCmd - "configure" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad screen distance "4.2.3"}
 test textTag-5.21 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t configure -selectborderwidth 2 -selectforeground blue \
         -selectbackground black
@@ -707,7 +707,7 @@ test textTag-5.21 {TkTextTagCmd - "configure" option} -constraints {
     return $x
 } -result {4 green yellow}
 test textTag-5.22 {TkTextTagCmd - "configure" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t configure -selectborderwidth 20
     .t tag configure sel -borderwidth {}
@@ -716,17 +716,17 @@ test textTag-5.22 {TkTextTagCmd - "configure" option} -constraints {
 
 
 test textTag-6.1 {TkTextTagCmd - "delete" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete
 } -returnCodes error -result {wrong # args: should be ".t tag delete tagName ?tagName ...?"}
 test textTag-6.2 {TkTextTagCmd - "delete" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete zork
 } -returnCodes ok -result {}
 test textTag-6.3 {TkTextTagCmd - "delete" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
 } -body {
@@ -739,7 +739,7 @@ test textTag-6.3 {TkTextTagCmd - "delete" option} -constraints {
     .t tag delete x
 } -result {sel x}
 test textTag-6.4 {TkTextTagCmd - "delete" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
 } -body {
@@ -750,7 +750,7 @@ test textTag-6.4 {TkTextTagCmd - "delete" option} -constraints {
     .t tag names
 } -result {sel}
 test textTag-6.5 {TkTextTagCmd - "delete" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag bind x <Enter> foo
     .t tag delete x
@@ -762,22 +762,22 @@ test textTag-6.5 {TkTextTagCmd - "delete" option} -constraints {
 
 
 test textTag-7.1 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag lower
 } -returnCodes error -result {wrong # args: should be ".t tag lower tagName ?belowThis?"}
 test textTag-7.2 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag lower foo
 } -returnCodes error -result {tag "foo" isn't defined in text widget}
 test textTag-7.3 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag lower sel bar
 } -returnCodes error -result {tag "bar" isn't defined in text widget}
 test textTag-7.4 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -791,7 +791,7 @@ test textTag-7.4 {TkTextTagCmd - "lower" option} -constraints {
     .t tag delete {*}[.t tag names]
 } -result {c sel a b d}
 test textTag-7.5 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -805,7 +805,7 @@ test textTag-7.5 {TkTextTagCmd - "lower" option} -constraints {
     .t tag delete {*}[.t tag names]
 } -result {sel a d b c}
 test textTag-7.6 {TkTextTagCmd - "lower" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -821,14 +821,14 @@ test textTag-7.6 {TkTextTagCmd - "lower" option} -constraints {
 
 
 test textTag-8.1 {TkTextTagCmd - "names" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag names a b
 } -cleanup {
     .t tag delete {*}[.t tag names]
 } -returnCodes error -result {wrong # args: should be ".t tag names ?index?"}
 test textTag-8.2 {TkTextTagCmd - "names" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -841,7 +841,7 @@ test textTag-8.2 {TkTextTagCmd - "names" option} -constraints {
     .t tag delete {*}[.t tag names]
 } -result {sel a b c d}
 test textTag-8.3 {TkTextTagCmd - "names" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -858,22 +858,22 @@ test textTag-8.3 {TkTextTagCmd - "names" option} -constraints {
 
 
 test textTag-9.1 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag nextrange x
 } -returnCodes error -result {wrong # args: should be ".t tag nextrange tagName index1 ?index2?"}
 test textTag-9.2 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag nextrange x 1 2 3
 } -returnCodes error -result {wrong # args: should be ".t tag nextrange tagName index1 ?index2?"}
 test textTag-9.3 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag nextrange foo 1.0
 } -returnCodes ok -result {}
 test textTag-9.4 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -883,7 +883,7 @@ test textTag-9.4 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad text index "foo"}
 test textTag-9.5 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -895,7 +895,7 @@ test textTag-9.5 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad text index "bar"}
 test textTag-9.6 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -907,7 +907,7 @@ test textTag-9.6 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-9.7 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -919,7 +919,7 @@ test textTag-9.7 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-9.8 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -931,7 +931,7 @@ test textTag-9.8 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-9.9 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -943,7 +943,7 @@ test textTag-9.9 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.9 3.1}
 test textTag-9.10 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -955,7 +955,7 @@ test textTag-9.10 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {}
 test textTag-9.11 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -967,7 +967,7 @@ test textTag-9.11 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.9 3.1}
 test textTag-9.12 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -979,7 +979,7 @@ test textTag-9.12 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {2.9 3.1}
 test textTag-9.13 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -991,7 +991,7 @@ test textTag-9.13 {TkTextTagCmd - "nextrange" option} -constraints {
     .t tag delete x
 } -result {7.2 7.3}
 test textTag-9.14 {TkTextTagCmd - "nextrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1005,17 +1005,17 @@ test textTag-9.14 {TkTextTagCmd - "nextrange" option} -constraints {
 
 
 test textTag-10.1 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag prevrange x
 } -returnCodes error -result {wrong # args: should be ".t tag prevrange tagName index1 ?index2?"}
 test textTag-10.2 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag prevrange x 1 2 3
 } -returnCodes error -result {wrong # args: should be ".t tag prevrange tagName index1 ?index2?"}
 test textTag-10.3 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1024,7 +1024,7 @@ test textTag-10.3 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -returnCodes ok -result {}
 test textTag-10.4 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1036,7 +1036,7 @@ test textTag-10.4 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad text index "foo"}
 test textTag-10.5 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1048,7 +1048,7 @@ test textTag-10.5 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -returnCodes error -result {bad text index "bar"}
 test textTag-10.6 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1060,7 +1060,7 @@ test textTag-10.6 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {7.2 7.3}
 test textTag-10.7 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1072,7 +1072,7 @@ test textTag-10.7 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-10.8 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1084,7 +1084,7 @@ test textTag-10.8 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-10.9 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1096,7 +1096,7 @@ test textTag-10.9 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-10.10 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1108,7 +1108,7 @@ test textTag-10.10 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {}
 test textTag-10.11 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1120,7 +1120,7 @@ test textTag-10.11 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {}
 test textTag-10.12 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1132,7 +1132,7 @@ test textTag-10.12 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {2.3 2.5}
 test textTag-10.13 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1144,7 +1144,7 @@ test textTag-10.13 {TkTextTagCmd - "prevrange" option} -constraints {
     .t tag delete x
 } -result {2.9 3.1}
 test textTag-10.14 {TkTextTagCmd - "prevrange" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1158,22 +1158,22 @@ test textTag-10.14 {TkTextTagCmd - "prevrange" option} -constraints {
 
 
 test textTag-11.1 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag raise
 } -returnCodes error -result {wrong # args: should be ".t tag raise tagName ?aboveThis?"}
 test textTag-11.2 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag raise foo
 } -returnCodes error -result {tag "foo" isn't defined in text widget}
 test textTag-11.3 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag raise sel bar
 } -returnCodes error -result {tag "bar" isn't defined in text widget}
 test textTag-11.4 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -1187,7 +1187,7 @@ test textTag-11.4 {TkTextTagCmd - "raise" option} -constraints {
     .t tag delete {*}[.t tag names]
 } -result {sel a b d c}
 test textTag-11.5 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -1201,7 +1201,7 @@ test textTag-11.5 {TkTextTagCmd - "raise" option} -constraints {
     .t tag delete {*}[.t tag names]
 } -result {sel a b d c}
 test textTag-11.6 {TkTextTagCmd - "raise" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     .t tag remove sel 1.0 end
@@ -1217,18 +1217,18 @@ test textTag-11.6 {TkTextTagCmd - "raise" option} -constraints {
 
 
 test textTag-12.1 {TkTextTagCmd - "ranges" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag ranges
 } -returnCodes error -result {wrong # args: should be ".t tag ranges tagName"}
 test textTag-12.2 {TkTextTagCmd - "ranges" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag delete x
     .t tag ranges x
 } -result {}
 test textTag-12.3 {TkTextTagCmd - "ranges" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1240,7 +1240,7 @@ test textTag-12.3 {TkTextTagCmd - "ranges" option} -constraints {
     .t tag delete x
 } -result {2.2 2.3 2.7 4.6 5.2 5.5}
 test textTag-12.4 {TkTextTagCmd - "ranges" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1253,12 +1253,12 @@ test textTag-12.4 {TkTextTagCmd - "ranges" option} -constraints {
 
 
 test textTag-13.1 {TkTextTagCmd - "remove" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -body {
     .t tag remove
 } -returnCodes error -result {wrong # args: should be ".t tag remove tagName index1 ?index2 index1 index2 ...?"}
 test textTag-13.2 {TkTextTagCmd - "remove" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete x
 } -body {
@@ -1269,7 +1269,7 @@ test textTag-13.2 {TkTextTagCmd - "remove" option} -constraints {
     .t tag delete x
 } -result {2.2 2.3 2.7 2.11}
 test textTag-13.3 {TkTextTagCmd - "remove" option} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     destroy .t.e
 } -body {
@@ -1433,7 +1433,7 @@ test textTag-15.3 {TkTextBindProc} -constraints haveCourier12 -setup {
 
 
 test textTag-16.1 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
@@ -1455,7 +1455,7 @@ test textTag-16.1 {TkTextPickCurrent procedure} -constraints {
 } -result {2.1 3.2 3.2 3.2 3.2 3.2 4.3}
 
 test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     .t tag delete {*}[.t tag names]
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
@@ -1472,7 +1472,7 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
 } -result {3.2 3.1}
 
 test textTag-16.3 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     foreach i {a b c d} {
         .t tag remove $i 1.0 end
@@ -1501,7 +1501,7 @@ test textTag-16.3 {TkTextPickCurrent procedure} -constraints {
 } -result {enter-a enter-b | leave-b enter-c | leave-a leave-c}
 
 test textTag-16.4 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     foreach i {a b c d} {
         .t tag remove $i 1.0 end
@@ -1529,7 +1529,7 @@ test textTag-16.4 {TkTextPickCurrent procedure} -constraints {
 } -result {enter-a enter-b enter-c | leave-c leave-b}
 
 test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
@@ -1547,7 +1547,7 @@ test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
 } -result {3.2}
 
 test textTag-16.6 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
@@ -1566,7 +1566,7 @@ test textTag-16.6 {TkTextPickCurrent procedure} -constraints {
 } -result {3.1}
 
 test textTag-16.7 {TkTextPickCurrent procedure} -constraints {
-    haveCourier12 
+    haveCourier12
 } -setup {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
@@ -1606,7 +1606,7 @@ test textTag-18.1 {TkTextPickCurrent tag bindings} -setup {
     text .t -width 30 -height 4 -relief sunken -borderwidth 10 \
       -highlightthickness 10 -pady 2
     pack .t
-    
+
     .t insert end " Tag here " TAG " no tag here"
     .t tag configure TAG -borderwidth 4 -relief raised
     .t tag bind TAG <Enter>  {lappend res "%x %y tag-Enter"}