diff options
Diffstat (limited to 'tests/bind.test')
-rw-r--r-- | tests/bind.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/bind.test b/tests/bind.test index 7c5ccf1..981ba32 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -5938,7 +5938,7 @@ test bind-28.8 {keysym names} -setup { } -result {X x {keysym X}} -test bind-29.1 {Tk_BackgroundError procedure} -setup { +test bind-29.1 {Tcl_BackgroundError procedure} -setup { proc bgerror msg { global x errorInfo set x [list $msg $errorInfo] @@ -5962,7 +5962,7 @@ test bind-29.1 {Tk_BackgroundError procedure} -setup { "error "This is a test"" (command bound to event)}} -test bind-29.2 {Tk_BackgroundError procedure} -setup { +test bind-29.2 {Tcl_BackgroundError procedure} -setup { proc do {} { event generate .t.f <Button> event generate .t.f <ButtonRelease> |