summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2019-05-14 20:50:17 (GMT)
committerfvogel <fvogelnew1@free.fr>2019-05-14 20:50:17 (GMT)
commit344eb81cce308ca83c385ba7d980abee349bd88f (patch)
tree7cf735b00da489ede7f2058c66f6274a5b6cc760 /tests/ttk
parent24642adb7fd747df55fe668b2604fd26e319c76b (diff)
downloadtk-344eb81cce308ca83c385ba7d980abee349bd88f.zip
tk-344eb81cce308ca83c385ba7d980abee349bd88f.tar.gz
tk-344eb81cce308ca83c385ba7d980abee349bd88f.tar.bz2
Add tests for <<TreeviewSelect>>. treeview-8.6 already passed ; treeview-8.7 passes in this bugfix branch only
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/treeview.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test
index a36e3d1..ae15111 100644
--- a/tests/ttk/treeview.test
+++ b/tests/ttk/treeview.test
@@ -459,6 +459,27 @@ test treeview-8.5 "Selection - bad operation" -body {
.tv selection badop foo
} -returnCodes 1 -match glob -result {bad selection operation "badop": must be *}
+test treeview-8.6 "Selection - <<TreeviewSelect>> on selection add" -body {
+ .tv selection set {}
+ bind .tv <<TreeviewSelect>> {set res 1}
+ set res 0
+ .tv selection add newnode.n1
+ update
+ set res
+} -result {1}
+
+test treeview-8.7 "<<TreeviewSelect>> on item deletion" -body {
+ .tv selection set {}
+ .tv insert "" end -id doomed -text DeadItem
+ .tv selection add doomed
+ update
+ bind .tv <<TreeviewSelect>> {set res 1}
+ set res 0
+ .tv delete doomed
+ update
+ set res
+} -result {1}
+
### NEED: more tests for see/yview/scrolling
proc scrollcallback {args} {