From 954d42e47de744904aac4b8d78c7f7b4048e8a17 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Fri, 2 Dec 2016 06:35:22 +0000
Subject: Remove superfluous lines (the default font of the text widget is
 already saved in $curFont before the tests start).

---
 tests/textTag.test | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/tests/textTag.test b/tests/textTag.test
index ca34bc7..93feb27 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -1342,7 +1342,6 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
 } -setup {
     .t tag delete {*}[.t tag names]
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
-    set curFont [.t cget -font]
     .t configure -font $textWidgetFont -wrap none
 } -body {
     .t tag configure big -font $bigFont
@@ -1417,7 +1416,6 @@ test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
         .t tag remove $i 1.0 end
     }
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
-    set curFont [.t cget -font]
     .t configure -font $textWidgetFont -wrap none
 } -body {
     .t tag configure big -font $bigFont
@@ -1438,7 +1436,6 @@ test textTag-16.6 {TkTextPickCurrent procedure} -constraints {
         .t tag remove $i 1.0 end
     }
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
-    set curFont [.t cget -font]
     .t configure -font $textWidgetFont -wrap none
 } -body {
     .t tag configure big -font $bigFont
@@ -1460,7 +1457,6 @@ test textTag-16.7 {TkTextPickCurrent procedure} -constraints {
         .t tag remove $i 1.0 end
     }
     event generate {} <Motion> -warp 1 -x -1 -y -1; update
-    set curFont [.t cget -font]
     .t configure -font $textWidgetFont -wrap none
 } -body {
     .t tag configure big -font $bigFont
-- 
cgit v0.12