Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Cleanup to avoid bad interaction between recently added treeview tests |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-6-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
811a69ce343b83ed1f791e8c40522a94 |
| User & Date: | fvogel 2019-05-26 21:02:06.136 |
Context
|
2019-05-26
| ||
| 21:07 | Fix error in the spelling of the Windows windowingsystem introduced in [02ca3773] check-in: 7a378858 user: fvogel tags: core-8-6-branch | |
| 21:02 | Cleanup to avoid bad interaction between recently added treeview tests check-in: 811a69ce user: fvogel tags: core-8-6-branch | |
| 19:10 | Fix [ce470f20fd]: ttk::treeview has column dragging issues check-in: 0e9cbdba user: fvogel tags: core-8-6-branch | |
Changes
Changes to tests/ttk/treeview.test.
| ︙ | ︙ | |||
684 685 686 687 688 689 690 691 692 693 694 695 696 697 |
# a mouse click on the (invisible since we're on a leaf) indicator
event generate .tv <ButtonPress-1> \
-x [expr ($x + $h / 2)] \
-y [expr ($y + $h / 2)]
lappend res [.tv item foo -open]
.tv insert foo end -text "sub"
lappend res [.tv item foo -open]
} -result {0 0 0}
test treeview-ce470f20fd-1 "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 {
| > > | 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 |
# a mouse click on the (invisible since we're on a leaf) indicator
event generate .tv <ButtonPress-1> \
-x [expr ($x + $h / 2)] \
-y [expr ($y + $h / 2)]
lappend res [.tv item foo -open]
.tv insert foo end -text "sub"
lappend res [.tv item foo -open]
} -cleanup {
destroy .tv
} -result {0 0 0}
test treeview-ce470f20fd-1 "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 {
|
| ︙ | ︙ |