diff options
Diffstat (limited to 'ext/tk/lib')
| -rw-r--r-- | ext/tk/lib/multi-tk.rb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb index c23c246551..e0f41d0f6a 100644 --- a/ext/tk/lib/multi-tk.rb +++ b/ext/tk/lib/multi-tk.rb @@ -1482,17 +1482,17 @@ class MultiTkIp begin @interp._eval("::safe::disallowTk #{slave}") rescue - warn("Waring: fail to call '::safe::disallowTk'") if $DEBUG + warn("Warning: fail to call '::safe::disallowTk'") if $DEBUG end else # toplevel path begin @interp._eval("::safe::tkDelete {} #{top} #{slave}") rescue - warn("Waring: fail to call '::safe::tkDelete'") if $DEBUG + warn("Warning: fail to call '::safe::tkDelete'") if $DEBUG begin @interp._eval("destroy #{top}") rescue - warn("Waring: fail to destroy toplevel") if $DEBUG + warn("Warning: fail to destroy toplevel") if $DEBUG end end end |