From 90e087b6977e564fb2ebcff9cd02dda97e9ea5a7 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 25 Oct 2003 22:36:50 +0000
Subject: add TkRoot.destroy

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4842 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'ext/tk')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index a71ac7590e..9cdd3b918e 100644
--- 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
-- 
cgit v1.2.3