From b48bf85e2ca0510ddd6f77d3baddb17f1541b294 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 30 Sep 2017 17:32:47 +0000
Subject: Use interp bgerror instead of old proc bgerror.

---
 tests/text.test | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/tests/text.test b/tests/text.test
index d9af434..cb9e962 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -7306,7 +7306,8 @@ test text-35.3 {widget dump -command destroys widget} -setup {
 
 
 test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup {
-    proc bgerror {m} {set ::my_error $m}
+    interp bgerror {} returnerror-36.1
+    proc returnerror-36.1 {m opts} {set ::my_error $m}
     set ::my_error {}
     pack [set w [text .t-1]]
 } -body {
@@ -7317,10 +7318,11 @@ test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup {
     set ::my_error
 } -cleanup {
     destroy .t-1
-    rename bgerror ""
+    rename returnerror-36.1 ""
 } -result {}
 test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup {
-    proc bgerror {m} {set ::my_error $m}
+    interp bgerror {} returnerror-36.2
+    proc returnerror-36.2 {m opts} {set ::my_error $m}
     set ::my_error {}
     pack [set w [text .t+1]]
 } -body {
@@ -7331,10 +7333,11 @@ test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup {
     set ::my_error
 } -cleanup {
     destroy $w
-    rename bgerror ""
+    rename returnerror-36.2 ""
 } -result {}
 test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup {
-    proc bgerror {m} {set ::my_error $m}
+    interp bgerror {} returnerror-36.3
+    proc returnerror-36.3 {m opts} {set ::my_error $m}
     set ::my_error {}
     pack [set w [text .t*1]]
 } -body {
@@ -7345,12 +7348,13 @@ test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup {
     set ::my_error
 } -cleanup {
     destroy $w
-    rename bgerror ""
+    rename returnerror-36.3 ""
 } -result {}
 
 
 test text-37.1 "bug #dd9667635d: text anchor not set" -setup {
-    proc bgerror {m} {set ::my_error $m}
+    interp bgerror {} returnerror-37.1
+    proc returnerror-37.1 {m opts} {set ::my_error $m}
     destroy .t
     pack [text .t]
 } -body {
@@ -7363,7 +7367,7 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup {
     set ::my_error
 } -cleanup {
     destroy .t
-    rename bgerror ""
+    rename returnerror-37.1 ""
 } -result {}
 
 # cleanup
-- 
cgit v0.12