diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-01 10:54:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-01 10:54:03 (GMT) |
| commit | 8f6408487495e6e63669e391e3b44ce2e6645c81 (patch) | |
| tree | 112afb548f72192b035c8d885f0dcf7870c9d5a6 /tests/select.test | |
| parent | 2bd6dc3e2f37f63c220ecfc3e5258b16ee985b63 (diff) | |
| download | tk-8f6408487495e6e63669e391e3b44ce2e6645c81.zip tk-8f6408487495e6e63669e391e3b44ce2e6645c81.tar.gz tk-8f6408487495e6e63669e391e3b44ce2e6645c81.tar.bz2 | |
fix select-5.15 test case [Bug 2441988]
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 2 |
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 {} |