summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-01 10:54:03 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-01 10:54:03 (GMT)
commit8f6408487495e6e63669e391e3b44ce2e6645c81 (patch)
tree112afb548f72192b035c8d885f0dcf7870c9d5a6
parent2bd6dc3e2f37f63c220ecfc3e5258b16ee985b63 (diff)
downloadtk-8f6408487495e6e63669e391e3b44ce2e6645c81.zip
tk-8f6408487495e6e63669e391e3b44ce2e6645c81.tar.gz
tk-8f6408487495e6e63669e391e3b44ce2e6645c81.tar.bz2
fix select-5.15 test case [Bug 2441988]
-rw-r--r--tests/select.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/select.test b/tests/select.test
index e4c512d..77bfb2e 100644
--- a/tests/select.test
+++ b/tests/select.test
@@ -628,7 +628,7 @@ test select-5.15 {Tk_GetSelection procedure} -setup {
set ::bgerrors {}
} -body {
proc ::bgerror msg {lappend ::bgerrors $msg}
- selection handle .f1 ERROR errHandler
+ selection handle -type ERROR .f1 errHandler
list [catch {selection get ERROR} msg] $msg [update] {*}$::bgerrors
} -cleanup {
rename ::bgerror {}