diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/treeview.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index 43a6527..c9dcf52 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -692,7 +692,7 @@ test treeview-368fa4561e "indicators cannot be clicked on leafs" -setup { destroy .tv } -result {0 0 0} -test treeview-ce470f20fd-1 "dragging further than the right edge of the treeview is forbidden" -setup { +test treeview-ce470f20fd-1 "dragging further than the right edge of the treeview is allowed" -setup { pack [ttk::treeview .tv] .tv heading #0 -text "Drag my right edge -->" update @@ -702,7 +702,7 @@ test treeview-ce470f20fd-1 "dragging further than the right edge of the treeview lappend res [expr {[.tv column #0 -width] > $res}] } -cleanup { destroy .tv -} -result {200 0} +} -result {200 1} proc nostretch {tv} { foreach col [$tv cget -columns] { |