add TkRoot.destroy

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4842 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2003-10-25 22:36:50 +00:00 · 2003-10-25 22:36:50 +00:00 · 90e087b697
commit 90e087b697
parent b6beb8d943
1 changed files with 4 additions and 0 deletions
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@ -4453,6 +4453,10 @@ class TkRoot<TkWindow
  def path
    "."
  end
+
+  def TkRoot.destroy
+    TkCore::INTERP._invoke('destroy', '.')
+  end
 end

 class TkToplevel<TkWindow