summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2022-12-04 14:53:25 (GMT)
committerfvogel <fvogelnew1@free.fr>2022-12-04 14:53:25 (GMT)
commit430630c01b873ebc42753a45703bcf4f98d888f8 (patch)
treeda20600a686c63e628f633c680aead87dc402524 /tests/ttk
parent3a31986d672551abbc485259ec9daf30dec42828 (diff)
downloadtk-430630c01b873ebc42753a45703bcf4f98d888f8.zip
tk-430630c01b873ebc42753a45703bcf4f98d888f8.tar.gz
tk-430630c01b873ebc42753a45703bcf4f98d888f8.tar.bz2
Add details in treeview.test.
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/treeview.test20
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test
index cf03b01..9fef708 100644
--- a/tests/ttk/treeview.test
+++ b/tests/ttk/treeview.test
@@ -52,16 +52,16 @@ proc tvSetup {} {
}
proc tvSetupWithItems {} {
tvSetup
- .tv insert {} end -id nn
- .tv insert nn end -id nn.n1
- .tv insert nn end -id nn.n2
- .tv insert nn end -id nn.n3
+ .tv insert {} end -id nn -text "nn"
+ .tv insert nn end -id nn.n1 -text "nn.1"
+ .tv insert nn end -id nn.n2 -text "nn.3"
+ .tv insert nn end -id nn.n3 -text "nn.3"
for {set t 2} {$t < 100} {incr t} {
- .tv insert {} end -id nn$t
+ .tv insert {} end -id nn$t -text "nn$t"
if {$t % 3 == 0} {
- .tv insert nn$t end -id nn$t.n1
- .tv insert nn$t end -id nn$t.n2
- .tv insert nn$t end -id nn$t.n3
+ .tv insert nn$t end -id nn$t.n1 -text "nn$t.n1"
+ .tv insert nn$t end -id nn$t.n2 -text "nn$t.n2"
+ .tv insert nn$t end -id nn$t.n3 -text "nn$t.n3"
}
}
}
@@ -1181,7 +1181,7 @@ test treeview-rowheight-4 "rowheight adapts to item padding" -constraints failsO
update
set after [lindex [.tv bbox nn a] 3]
set diff [expr {$after - $baseline}]
-} -result 4
+} -result [expr {3-2 + 5-2}]
test treeview-rowheight-5 "rowheight adapts to cell padding" -constraints failsOnUbuntuNoXft -body {
# Test that things from Cell style is picked up.
@@ -1192,7 +1192,7 @@ test treeview-rowheight-5 "rowheight adapts to cell padding" -constraints failsO
update
set after [lindex [.tv bbox nn a] 3]
set diff [expr {$after - $baseline}]
-} -result 7
+} -result [expr {8-5 + 9-5}]
### NEED: tests for focus item, selection