diff options
Diffstat (limited to 'tests/ttk/scale.test')
| -rw-r--r-- | tests/ttk/scale.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/ttk/scale.test b/tests/ttk/scale.test index 0851cb6..08143e2 100644 --- a/tests/ttk/scale.test +++ b/tests/ttk/scale.test @@ -4,7 +4,7 @@ namespace import -force tcltest::* loadTestedCommands test scale-1.0 "Self-destruction" -body { - trace variable v w { destroy .s ;# } + trace add variable v write { destroy .s ;# } ttk::scale .s -variable v pack .s ; update .s set 1 ; update |