diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-14 13:31:25 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-14 13:31:25 (GMT) |
commit | 6669e94c070680392a0e8c77203e45084d9c09d0 (patch) | |
tree | 4374617eea84da0b0c281f7df9d54a9ca69eb029 /tests/ttk/treetags.test | |
parent | 88c76da7f7b34507aafaf94a6329fb943f881029 (diff) | |
download | tk-6669e94c070680392a0e8c77203e45084d9c09d0.zip tk-6669e94c070680392a0e8c77203e45084d9c09d0.tar.gz tk-6669e94c070680392a0e8c77203e45084d9c09d0.tar.bz2 |
Excess spacing in test-suite
Diffstat (limited to 'tests/ttk/treetags.test')
-rw-r--r-- | tests/ttk/treetags.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/ttk/treetags.test b/tests/ttk/treetags.test index 7f26e2f..f91673f 100644 --- a/tests/ttk/treetags.test +++ b/tests/ttk/treetags.test @@ -105,7 +105,7 @@ test treetags-1.8 "tag names" -body { } -result [list tag1 tag2 tag3] test treetags-1.9 "tag names - tag added to item" -body { - $tv item item1 -tags tag4 + $tv item item1 -tags tag4 lsort [$tv tag names] } -result [list tag1 tag2 tag3 tag4] @@ -201,12 +201,12 @@ test treetags-3.4 "stomp tags in tag binding procedure" -body { set result [list] $tv tag bind rm1 <<Remove>> { lappend ::result rm1 [%W focus] <<Remove>> } $tv tag bind rm2 <<Remove>> { - lappend ::result rm2 [%W focus] <<Remove>> + lappend ::result rm2 [%W focus] <<Remove>> %W item [%W focus] -tags {tag1} } $tv tag bind rm3 <<Remove>> { lappend ::result rm3 [%W focus] <<Remove>> } - $tv item item1 -tags {rm1 rm2 rm3} + $tv item item1 -tags {rm1 rm2 rm3} $tv focus item1 event generate $tv <<Remove>> set result |