diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:19:50 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:19:50 (GMT) |
commit | 0b48d22ae0136371b97454822750335beba7b8e9 (patch) | |
tree | bfa48837bcd4bb9161d22db39f93bc1bb15dc776 /tests | |
parent | b999ae0084ced84f3e315ff9335ebc570d3892c7 (diff) | |
parent | d5db310e939011b74dead2d218c7b3e7f4b05415 (diff) | |
download | tk-0b48d22ae0136371b97454822750335beba7b8e9.zip tk-0b48d22ae0136371b97454822750335beba7b8e9.tar.gz tk-0b48d22ae0136371b97454822750335beba7b8e9.tar.bz2 |
Modernize Tk_Init() to use Tcl 8.6 features.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/safe.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index bbd9d25..9a3bcfc 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -187,7 +187,7 @@ test safe-5.1 {loading Tk in safe interps without master's clearance} -body { interp eval $i {load {} Tk} } -cleanup { safe::interpDelete $i -} -returnCodes error -result {not allowed to start Tk by master's safe::TkInit} +} -returnCodes error -result {not allowed} test safe-5.2 {multi-level Tk loading with clearance} -setup { set safeParent [safe::interpCreate] } -body { |