From dd01abc1045a974f417f5d4f39018ae36b7b87d2 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 13 Apr 2019 20:54:50 +0000
Subject: Add test treeview-ce470f20fd checking for non-regression regarding
 [ce470f20fd]

---
 tests/ttk/treeview.test | 10 ++++++++++
 1 file changed, 10 insertions(+)

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
-- 
cgit v0.12