1 files changed, 59 insertions, 0 deletions
diff --git a/ext/tk/lib/tkextlib/tclx/tclx.rb b/ext/tk/lib/tkextlib/tclx/tclx.rb
new file mode 100644
index 0000000000..d10689d209
--- /dev/null
+++ b/ext/tk/lib/tkextlib/tclx/tclx.rb
@@ -0,0 +1,59 @@
+#
+#  tclx/tclx.rb
+#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
+#
+require 'tk'
+
+# call setup script for general 'tkextlib' libraries
+require 'tkextlib/setup.rb'
+
+# call setup script
+require 'tkextlib/tclx/setup.rb'
+
+# TkPackage.require('Tclx', '8.0')
+TkPackage.require('Tclx')
+
+module Tk
+  module TclX
+    def self.package_version
+      begin
+	TkPackage.require('Tclx')
+      rescue
+	''
+      end
+    end
+
+    def self.infox(*args)
+      Tk.tk_call('infox', *args)
+    end
+
+    ##############################
+
+    class XPG3_MsgCat
+      class << self
+	alias open new
+      end
+
+      def initialize(catname, fail_mode=false)
+	if fail_mode
+	  @msgcat_id = Tk.tk_call('catopen', '-fail', catname)
+	else
+	  @msgcat_id = Tk.tk_call('catopen', '-nofail', catname)
+	end
+      end
+
+      def close(fail_mode=false)
+	if fail_mode
+	  Tk.tk_call('catclose', '-fail', @msgcat_id)
+	else
+	  Tk.tk_call('catclose', '-nofail', @msgcat_id)
+	end
+	self
+      end
+
+      def get(setnum, msgnum, defaultstr)
+	Tk.tk_call('catgets', @msgcat_id, setnum, msgnum, defaultstr)
+      end
+    end
+  end
+end