summaryrefslogtreecommitdiffstats
path: root/tests/button.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/button.test')
-rw-r--r--tests/button.test38
1 files changed, 19 insertions, 19 deletions
diff --git a/tests/button.test b/tests/button.test
index b15614f..260cd95 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -2910,7 +2910,7 @@ test button-3.23 {ButtonWidgetCmd procedure, "deselect" option} -body {
test button-3.24 {ButtonWidgetCmd procedure, "deselect" option} -body {
checkbutton .c -variable checkvar -onvalue 1 -offvalue 0
set checkvar 1
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
.c deselect
} -cleanup {
destroy .c
@@ -2919,7 +2919,7 @@ test button-3.24 {ButtonWidgetCmd procedure, "deselect" option} -body {
test button-3.25 {ButtonWidgetCmd procedure, "deselect" option} -body {
checkbutton .c -variable checkvar -onvalue 1 -offvalue 0
set checkvar 1
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
catch {.c deselect}
list $errorInfo $checkvar
} -cleanup {
@@ -2932,7 +2932,7 @@ test button-3.25 {ButtonWidgetCmd procedure, "deselect" option} -body {
test button-3.26 {ButtonWidgetCmd procedure, "deselect" option} -body {
radiobutton .r -variable radiovar -value red
set radiovar red
- trace variable radiovar w bogusTrace
+ trace add variable radiovar write bogusTrace
.r deselect
} -cleanup {
destroy .r
@@ -2941,7 +2941,7 @@ test button-3.26 {ButtonWidgetCmd procedure, "deselect" option} -body {
test button-3.27 {ButtonWidgetCmd procedure, "deselect" option} -body {
radiobutton .r -variable radiovar -value red
set radiovar red
- trace variable radiovar w bogusTrace
+ trace add variable radiovar write bogusTrace
catch {.r deselect}
list $errorInfo $radiovar
} -cleanup {
@@ -3070,7 +3070,7 @@ test button-3.43 {ButtonWidgetCmd procedure, "select" option} -body {
test button-3.44 {ButtonWidgetCmd procedure, "select" option} -body {
radiobutton .r -variable radiovar -value red
set radiovar yellow
- trace variable radiovar w bogusTrace
+ trace add variable radiovar write bogusTrace
.r select
} -cleanup {
destroy .r
@@ -3079,7 +3079,7 @@ test button-3.44 {ButtonWidgetCmd procedure, "select" option} -body {
test button-3.45 {ButtonWidgetCmd procedure, "select" option} -body {
radiobutton .r -variable radiovar -value red
set radiovar yellow
- trace variable radiovar w bogusTrace
+ trace add variable radiovar write bogusTrace
catch {.r select}
list $errorInfo $radiovar
} -cleanup {
@@ -3131,7 +3131,7 @@ test button-3.50 {ButtonWidgetCmd procedure, "toggle" option} -body {
test button-3.51 {ButtonWidgetCmd procedure, "toggle" option} -body {
checkbutton .c -variable checkvar -onvalue xyz -offvalue abc
set checkvar xyz
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
.c toggle
} -cleanup {
destroy .c
@@ -3140,7 +3140,7 @@ test button-3.51 {ButtonWidgetCmd procedure, "toggle" option} -body {
test button-3.52 {ButtonWidgetCmd procedure, "toggle" option} -body {
checkbutton .c -variable checkvar -onvalue xyz -offvalue abc
set checkvar xyz
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
catch {.c toggle}
list $errorInfo $checkvar
} -cleanup {
@@ -3153,7 +3153,7 @@ test button-3.52 {ButtonWidgetCmd procedure, "toggle" option} -body {
test button-3.53 {ButtonWidgetCmd procedure, "toggle" option} -body {
checkbutton .c -variable checkvar -onvalue xyz -offvalue abc
set checkvar abc
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
.c toggle
} -cleanup {
trace vdelete checkvar w bogusTrace
@@ -3162,7 +3162,7 @@ test button-3.53 {ButtonWidgetCmd procedure, "toggle" option} -body {
test button-3.54 {ButtonWidgetCmd procedure, "toggle" option} -body {
checkbutton .c -variable checkvar -onvalue xyz -offvalue abc
set checkvar abc
- trace variable checkvar w bogusTrace
+ trace add variable checkvar write bogusTrace
catch {.c toggle}
list $errorInfo $checkvar
} -cleanup {
@@ -3304,7 +3304,7 @@ test button-5.9 {ConfigureButton - setting selected state from variable} -setup
test button-5.10 {ConfigureButton - error in setting variable} -setup {
unset -nocomplain x
} -body {
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
radiobutton .r -variable x
} -cleanup {
destroy .r
@@ -3337,7 +3337,7 @@ test button-5.13 {ConfigureButton - using current value of variable} -body {
test button-5.14 {ConfigureButton - variable handling} -setup {
unset -nocomplain x
} -body {
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
radiobutton .r -text foo -textvariable x
} -cleanup {
trace vdelete x w bogusTrace
@@ -3346,7 +3346,7 @@ test button-5.14 {ConfigureButton - variable handling} -setup {
test button-5.15 {ConfigureButton - variable handling} -setup {
unset -nocomplain x
} -body {
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
catch {radiobutton .r -text foo -textvariable x}
return $x
} -cleanup {
@@ -3538,7 +3538,7 @@ test button-8.2 {TkInvokeButton procedure} -setup {
set x 0
} -body {
checkbutton .c -variable x
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
.c invoke
} -cleanup {
destroy .c
@@ -3548,7 +3548,7 @@ test button-8.3 {TkInvokeButton procedure} -setup {
set x 0
} -body {
checkbutton .c -variable x
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
catch {.c invoke}
return $x
} -cleanup {
@@ -3559,7 +3559,7 @@ test button-8.4 {TkInvokeButton procedure} -setup {
set x 1
} -body {
checkbutton .c -variable x
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
.c invoke
} -cleanup {
destroy .c
@@ -3569,7 +3569,7 @@ test button-8.5 {TkInvokeButton procedure} -setup {
set x 1
} -body {
checkbutton .c -variable x
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
catch {.c invoke}
return $x
} -cleanup {
@@ -3593,7 +3593,7 @@ test button-8.6 {TkInvokeButton procedure} -setup {
test button-8.7 {TkInvokeButton procedure} -body {
radiobutton .r -variable x -value red
set x green
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
.r invoke
} -cleanup {
destroy .r
@@ -3602,7 +3602,7 @@ test button-8.7 {TkInvokeButton procedure} -body {
test button-8.8 {TkInvokeButton procedure} -body {
radiobutton .r -variable x -value red
set x green
- trace variable x w bogusTrace
+ trace add variable x write bogusTrace
catch {.r invoke}
list $errorInfo $x
} -cleanup {
generated by cgit v0.12 at 2024-11-10 10:51:43 (GMT)