diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-04-13 20:54:50 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-04-13 20:54:50 (GMT) |
| commit | dd01abc1045a974f417f5d4f39018ae36b7b87d2 (patch) | |
| tree | 4a58d245531a1dbc99ccd361fe0a38af0ed22b9d /tests | |
| parent | 7a5c4c251176f7d527f292f21e9048da93fbc4c9 (diff) | |
| download | tk-dd01abc1045a974f417f5d4f39018ae36b7b87d2.zip tk-dd01abc1045a974f417f5d4f39018ae36b7b87d2.tar.gz tk-dd01abc1045a974f417f5d4f39018ae36b7b87d2.tar.bz2 | |
Add test treeview-ce470f20fd checking for non-regression regarding [ce470f20fd]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/treeview.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index aa7e64a..b9fcd1e 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -636,4 +636,14 @@ test treeview-3085489-2 "tag remove, no -tags" -setup { destroy .tv } -result [list] +test treeview-ce470f20fd "dragging further than the right edge of the treeview is forbidden" -setup { + pack [ttk::treeview .tv] + .tv heading #0 -text "Drag my right edge -->" + update +} -body { + set res [.tv column #0 -width] + .tv drag #0 400 + lappend res [expr {[.tv column #0 -width] > $res}] +} -result {200 0} + tcltest::cleanupTests |