* ext/tk/lib/tk.rb: support to use different Tcl commands between

  configure and configinfo
* ext/tk/lib/font.rb: ditto.
* ext/tk/lib/itemconfig.rb: support to use different Tcl commands
  between item_configure and item_configinfo
* ext/tk/lib/itemfont.rb: ditto.
* ext/tk/extconf.rb: install SUPPORT_STATUS
* ext/tk/lib/tkextlib: some bug fixes (see ext/tk/ChangeLog.tkextlib)


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@7188 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

8 files changed, 12 insertions, 3 deletions

diff --git a/ext/tk/lib/tkextlib/SUPPORT_STATUS b/ext/tk/lib/tkextlib/SUPPORT_STATUS
index a13e2751e..6bc87bab9 100644
--- a/ext/tk/lib/tkextlib/SUPPORT_STATUS
+++ b/ext/tk/lib/tkextlib/SUPPORT_STATUS
@@ -95,6 +95,9 @@ TkDND       http://sourceforge.net/projects/tkdnd       ==> tkDND
 
 ===< plan to support (alpha quality libraries may be included) >==============
 
+BLT         http://sourceforge.net/projects/blt
+                * see tcltk-ext library on RAA (http://raa.ruby-lang.org/)
+
 GraphViz    http://www.graphviz.org/
 
 Tkgeomap    http://tkgeomap.sourceforge.net/index.html
@@ -103,9 +106,6 @@ Tkgeomap    http://tkgeomap.sourceforge.net/index.html
 
 ===< not determined to supprt or not >========================================
 
-BLT         http://sourceforge.net/projects/blt
-                * see tcltk-ext library on RAA (http://raa.ruby-lang.org/)
-
 Tix         http://tixlibrary.sourceforge.net/
                 * see tcltk-ext library on RAA (http://raa.ruby-lang.org/)
 
diff --git a/ext/tk/lib/tkextlib/itk/incr_tk.rb b/ext/tk/lib/tkextlib/itk/incr_tk.rb
index a52c43e51..f11d9d791 100644
--- a/ext/tk/lib/tkextlib/itk/incr_tk.rb
+++ b/ext/tk/lib/tkextlib/itk/incr_tk.rb
@@ -127,10 +127,12 @@ module Tk
       def __cget_cmd
         [self.master, 'component', self.name, 'cget']
       end
+      private :__cget_cmd
 
       def __config_cmd
         [self.master, 'component', self.name, 'configure']
       end
+      private :__config_cmd
 
       ComponentID_TBL = TkCore::INTERP.create_table
       Itk_Component_ID = ['itk:component'.freeze, '00000'.taint].freeze
diff --git a/ext/tk/lib/tkextlib/tcllib/autoscroll.rb b/ext/tk/lib/tkextlib/tcllib/autoscroll.rb
index 34e34046c..256b01ba8 100644
--- a/ext/tk/lib/tkextlib/tcllib/autoscroll.rb
+++ b/ext/tk/lib/tkextlib/tcllib/autoscroll.rb
@@ -129,6 +129,7 @@ module Tk
     end
 
     module Autoscroll
+      extend TkCore
       def self.autoscroll(win)
         tk_call_without_enc('::autoscroll::autoscroll', win.path)
       end
diff --git a/ext/tk/lib/tkextlib/tcllib/cursor.rb b/ext/tk/lib/tkextlib/tcllib/cursor.rb
index cbe1e2f1b..92fd7a62b 100644
--- a/ext/tk/lib/tkextlib/tcllib/cursor.rb
+++ b/ext/tk/lib/tkextlib/tcllib/cursor.rb
@@ -73,6 +73,7 @@ module Tk
     end
 
     module Cursor
+      extend TkCore
       def self.cursor_display(win=None)
         tk_call_without_enc('::cursor::display', win)
       end
diff --git a/ext/tk/lib/tkextlib/tcllib/plotchart.rb b/ext/tk/lib/tkextlib/tcllib/plotchart.rb
index 86327ceff..5603ce128 100644
--- a/ext/tk/lib/tkextlib/tcllib/plotchart.rb
+++ b/ext/tk/lib/tkextlib/tcllib/plotchart.rb
@@ -78,6 +78,7 @@ module Tk
 end
 
 module Tk::Tcllib::Plotchart
+  extend TkCore
   ############################
   def self.view_port(w, *args) # args := pxmin, pymin, pxmax, pymax
     tk_call_without_enc('::Plotchart::viewPort', w.path, *(args.flatten))
diff --git a/ext/tk/lib/tkextlib/tcllib/style.rb b/ext/tk/lib/tkextlib/tcllib/style.rb
index 9fc4e9232..72a99d80f 100644
--- a/ext/tk/lib/tkextlib/tcllib/style.rb
+++ b/ext/tk/lib/tkextlib/tcllib/style.rb
@@ -42,6 +42,8 @@ module Tk::Tcllib
   end
 
   module Style
+    extend TkCore
+
     def self.names
       tk_split_simplelist(tk_call('style::names'))
     end
diff --git a/ext/tk/lib/tkextlib/tile/style.rb b/ext/tk/lib/tkextlib/tile/style.rb
index 474c4f21b..1e399182d 100644
--- a/ext/tk/lib/tkextlib/tile/style.rb
+++ b/ext/tk/lib/tkextlib/tile/style.rb
@@ -13,6 +13,7 @@ module Tk
 end
 
 module Tk::Tile::Style
+  extend TkCore
 end
 
 class << Tk::Tile::Style
diff --git a/ext/tk/lib/tkextlib/tkDND/shape.rb b/ext/tk/lib/tkextlib/tkDND/shape.rb
index 7187f0a3b..0f6a5f0a3 100644
--- a/ext/tk/lib/tkextlib/tkDND/shape.rb
+++ b/ext/tk/lib/tkextlib/tkDND/shape.rb
@@ -17,6 +17,7 @@ TkPackage.require('shape')
 module Tk
   module TkDND
     module Shape
+      extend TkCore
 =begin
       def self.package_version
         begin