diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/treeview.test | 21 |
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} { |