diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-09-30 17:32:47 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-09-30 17:32:47 (GMT) |
| commit | b48bf85e2ca0510ddd6f77d3baddb17f1541b294 (patch) | |
| tree | e3b613fb9ab244bafee8b98aec7fdeec97f10203 | |
| parent | 98a0a78086c2eb26ce3a0a351e4baf3938f56512 (diff) | |
| download | tk-b48bf85e2ca0510ddd6f77d3baddb17f1541b294.zip tk-b48bf85e2ca0510ddd6f77d3baddb17f1541b294.tar.gz tk-b48bf85e2ca0510ddd6f77d3baddb17f1541b294.tar.bz2 | |
Use interp bgerror instead of old proc bgerror.bug_dd9667635d
| -rw-r--r-- | tests/text.test | 20 |
1 files 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 |