* add TclX extension support (partially)

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6690 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ext/tk/lib/tkextlib/tclx/setup.rb

@@ -0,0 +1,8 @@
+#
+#  setup.rb   --   setup script before calling TkPackage.require()
+#
+#    If you need some setup operations (for example, add a library path
+#    to the library search path) before using Tcl/Tk library packages 
+#    wrapped by Ruby scripts in this directory, please write the setup 
+#    operations in this file.
+#

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