diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-04-28 14:34:41 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-04-28 14:34:41 (GMT) |
| commit | 8769a171d064001c6ee11448139a564f91bd29ca (patch) | |
| tree | c5579b5594e5bdf3610d10e55c3ce28af1a63009 /tests/ttk/treeview.test | |
| parent | 6afd4e02fc9f197853203afaa1df7347a989e8cf (diff) | |
| download | tk-8769a171d064001c6ee11448139a564f91bd29ca.zip tk-8769a171d064001c6ee11448139a564f91bd29ca.tar.gz tk-8769a171d064001c6ee11448139a564f91bd29ca.tar.bz2 | |
Add tests checking the scroll info correct update when xview / yview is called. All the new (or modified) tests fail in core-8-6-branch.
Diffstat (limited to 'tests/ttk/treeview.test')
| -rw-r--r-- | tests/ttk/treeview.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index be82f68..a36e3d1 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -471,6 +471,18 @@ test treeview-9.0 "scroll callback - empty tree" -body { set ::scrolldata } -result [list 0.0 1.0] +test treeview-9.1 "scrolling" -setup { + pack [ttk::treeview .tree -show tree] -fill y + for {set i 1} {$i < 100} {incr i} { + .tree insert {} end -text $i + } +} -body { + .tree yview scroll 5 units + .tree identify item 2 2 +} -cleanup { + destroy .tree +} -result {I006} + ### identify tests: # proc identify* {tv comps args} { |