summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2008-12-27 18:54:55 (GMT)
committerjenglish <jenglish@flightlab.com>2008-12-27 18:54:55 (GMT)
commit524849f8a339db0114288b50f88c5ffa24415c9a (patch)
tree2399d45b587906aca18401ed2c6232830e930ca7 /tests/ttk
parente67ffd1afa937d41e028f872f7f1fd5db0f58233 (diff)
downloadtk-524849f8a339db0114288b50f88c5ffa24415c9a.zip
tk-524849f8a339db0114288b50f88c5ffa24415c9a.tar.gz
tk-524849f8a339db0114288b50f88c5ffa24415c9a.tar.bz2
ttk::treeview: Fix inconsistent use of treeArea / headingArea;
fixes [#2381555] ([$tv identify] didn't work when horizontally scrolled).
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/treeview.test21
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test
index bf5f8ec..a56f778 100644
--- a/tests/ttk/treeview.test
+++ b/tests/ttk/treeview.test
@@ -1,5 +1,5 @@
#
-# $Id: treeview.test,v 1.5 2008/08/19 14:47:55 jenglish Exp $
+# $Id: treeview.test,v 1.6 2008/12/27 18:54:56 jenglish Exp $
#
# [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do
# what it currently does)
@@ -571,6 +571,25 @@ test treeview-identify-8 "identify element" -body {
} -match glob -result [list \
branch $disclosure branch2 $disclosure branch3 $disclosure]
+# See #2381555
+test treeview-identify-9 "identify works when horizontally scrolled" -setup {
+ .tv configure -show {tree headings}
+ foreach column {#0 A B C} {
+ .tv column $column -stretch 0 -width 50
+ }
+ place .tv -x 0 -y 0 -width 100
+} -body {
+ set result [list]
+ foreach xoffs {0 50 100} {
+ .tv xview $xoffs ; update
+ lappend result [identify* .tv {region column} 10 10 60 10]
+ }
+ set result
+} -result [list \
+ [list heading #0 heading #1] \
+ [list heading #1 heading #2] \
+ [list heading #2 heading #3] ]
+
test treeview-identify-cleanup "identify - cleanup" -body {
destroy .tv
}