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