diff options
Diffstat (limited to 'ext')
-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 bb6e69aab6..23c28e2559 100644 --- a/ext/tk/lib/multi-tk.rb +++ b/ext/tk/lib/multi-tk.rb @@ -1490,17 +1490,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 |