Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Cleanup to avoid bad interaction between recently added treeview tests. Also, fix error in the spelling of the Windows windowingsystem |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
36a8dbb3a66cd98c50e6fe8954428682 |
| User & Date: | fvogel 2019-05-26 21:08:29 |
Context
|
2019-05-27
| ||
| 21:16 | Merge 8.6 check-in: afffab4b user: jan.nijtmans tags: trunk | |
|
2019-05-26
| ||
| 21:08 | Cleanup to avoid bad interaction between recently added treeview tests. Also, fix error in the spelling of the Windows windowingsystem check-in: 36a8dbb3 user: fvogel tags: trunk | |
| 21:07 | Fix error in the spelling of the Windows windowingsystem introduced in [02ca3773] check-in: 7a378858 user: fvogel tags: core-8-6-branch | |
| 19:11 | Fix [ce470f20fd]: ttk::treeview has column dragging issues check-in: 8a782f3b user: fvogel tags: trunk | |
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 {
|
Changes to tests/winfo.test.
392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 |
rooty [expr {[winfo rooty .emb] == [winfo rooty .con]}]
} -cleanup {
deleteWindows
} -result {rootx 1 rooty 1}
# Windows does not destroy the container when an embedded window is
# destroyed. Unix and macOS do destroy it. See ticket [67384bce7d].
if {[tk windowingsystem] == "win"} {
set result_13_2 {embedded 0 container 1}
} else {
set result_13_2 {embedded 0 container 0}
}
test winfo-13.2 {destroying embedded toplevel} -setup {
deleteWindows
} -body {
|
| |
392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 |
rooty [expr {[winfo rooty .emb] == [winfo rooty .con]}]
} -cleanup {
deleteWindows
} -result {rootx 1 rooty 1}
# Windows does not destroy the container when an embedded window is
# destroyed. Unix and macOS do destroy it. See ticket [67384bce7d].
if {[tk windowingsystem] == "win32"} {
set result_13_2 {embedded 0 container 1}
} else {
set result_13_2 {embedded 0 container 0}
}
test winfo-13.2 {destroying embedded toplevel} -setup {
deleteWindows
} -body {
|