1 files changed, 17 insertions, 0 deletions
diff --git a/ext/tk/lib/tkbgerror.rb b/ext/tk/lib/tkbgerror.rb
new file mode 100644
index 0000000000..8022077a3f
--- /dev/null
+++ b/ext/tk/lib/tkbgerror.rb
@@ -0,0 +1,17 @@
+#
+#  tkbgerror -- bgerror ( tkerror ) module
+#                     1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
+#
+require 'tk'
+
+module TkBgError
+  extend Tk
+
+  def bgerror(message)
+    tk_call 'bgerror', message
+  end
+  alias tkerror bgerror
+  alias show bgerror
+
+  module_function :bgerror, :tkerror, :show
+end