* ext/tk/lib/macpkg.rb: add PACKAGE_NAME information of Tcl/Tk Extension.

* ext/tk/lib/tk/msgcat.rb: ditto.
* ext/tk/lib/tk/winpkg.rb: ditto.
* ext/tk/lib/tkextlib/*: ditto.


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

ChangeLog

@@ -1,3 +1,14 @@
+Mon May 30 23:48:29 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/macpkg.rb: add PACKAGE_NAME information of Tcl/Tk
+	  Extension.
+
+	* ext/tk/lib/tk/msgcat.rb: ditto.
+
+	* ext/tk/lib/tk/winpkg.rb: ditto.
+
+	* ext/tk/lib/tkextlib/*: ditto.
+
 Sat May 28 16:39:21 2005  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* test/openssl/test_x509store.rb: add test for expired CRL

ext/tk/ChangeLog.tkextlib

@@ -1,11 +1,98 @@
+2005-05-30  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* lib/tkextlib/blt.rb: add PACKAGE_NAME information of Tcl/Tk
+          Extension.
+
+	* lib/tkextlib/bwidget.rb: ditto.
+
+	* lib/tkextlib/iwidgets.rb: ditto.
+
+	* lib/tkextlib/tile.rb: ditto.
+
+	* lib/tkextlib/tkimg.rb: ditto.
+
+	* lib/tkextlib/vu.rb: ditto.
+
+	* lib/tkextlib/ICONS/icons.rb: ditto.
+
+	* lib/tkextlib/itcl/incr_tcl.rb: ditto.
+
+	* lib/tkextlib/itk/incr_tk.rb: ditto.
+
+	* lib/tkextlib/tcllib/autoscroll.rb: ditto.
+
+	* lib/tkextlib/tcllib/ctext.rb: ditto.
+
+	* lib/tkextlib/tcllib/cursor.rb: ditto.
+
+	* lib/tkextlib/tcllib/datefield.rb: ditto.
+
+	* lib/tkextlib/tcllib/ico.rb: ditto.
+
+	* lib/tkextlib/tcllib/ip_entry.rb: ditto.
+
+	* lib/tkextlib/tcllib/plotchart.rb: ditto.
+
+	* lib/tkextlib/tcllib/style.rb: ditto.
+
+	* lib/tkextlib/tcllib/tkpiechart.rb: ditto.
+
+	* lib/tkextlib/tclx/tclx.rb: ditto.
+
+	* lib/tkextlib/tkDND/shape.rb: ditto.
+
+	* lib/tkextlib/tkDND/tkdnd.rb: ditto.
+
+	* lib/tkextlib/tkHTML/htmlwidget.rb: ditto.
+
+	* lib/tkextlib/tkimg/bmp.rb: ditto.
+
+	* lib/tkextlib/tkimg/gif.rb: ditto.
+
+	* lib/tkextlib/tkimg/ico.rb: ditto.
+
+	* lib/tkextlib/tkimg/jpeg.rb: ditto.
+
+	* lib/tkextlib/tkimg/pcx.rb: ditto.
+
+	* lib/tkextlib/tkimg/pixmap.rb: ditto.
+
+	* lib/tkextlib/tkimg/png.rb: ditto.
+
+	* lib/tkextlib/tkimg/ppm.rb: ditto.
+
+	* lib/tkextlib/tkimg/ps.rb: ditto.
+
+	* lib/tkextlib/tkimg/sgi.rb: ditto.
+
+	* lib/tkextlib/tkimg/sun.rb: ditto.
+
+	* lib/tkextlib/tkimg/tga.rb: ditto.
+
+	* lib/tkextlib/tkimg/tiff.rb: ditto.
+
+	* lib/tkextlib/tkimg/window.rb: ditto.
+
+	* lib/tkextlib/tkimg/xbm.rb: ditto.
+
+	* lib/tkextlib/tkimg/xpm.rb: ditto.
+
+	* lib/tkextlib/tktable/tktable.rb: ditto.
+
+	* lib/tkextlib/tktrans/tktrans.rb: ditto.
+
+	* lib/tkextlib/treectrl/tktreectrl.rb: ditto.
+
+	* lib/tkextlib/winico/winico.rb: ditto.
+
 2005-05-25  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* lib/tkextlib/iwidgets/scrolledlistbox.rb: follow the change
           of tk.rb. modify to attend encoding.
 
-	* ext/tk/lib/tkextlib/iwidgets/scrolledtext.rb: ditto.
+	* lib/tkextlib/iwidgets/scrolledtext.rb: ditto.
 
-	* ext/tk/lib/tkextlib/iwidgets/scrolledcanvas.rb: bug fix on
+	* lib/tkextlib/iwidgets/scrolledcanvas.rb: bug fix on
 	  TkCanvas#delete when given non-TkcItem arguments. 
 
 2005-05-10  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>

ext/tk/lib/tk.rb

@@ -4130,7 +4130,7 @@ end
 #Tk.freeze
 
 module Tk
-  RELEASE_DATE = '2005-05-26'.freeze
+  RELEASE_DATE = '2005-05-30'.freeze
 
   autoload :AUTO_PATH,        'tk/variable'
   autoload :TCL_PACKAGE_PATH, 'tk/variable'

ext/tk/lib/tk/macpkg.rb

@@ -26,6 +26,11 @@ module TkMacResource
 
   TkCommandNames = ['resource'.freeze].freeze
 
+  PACKAGE_NAME = 'resource'.freeze
+  def self.package_name
+    PACKAGE_NAME
+  end
+
   tk_call_without_enc('package', 'require', 'resource')
 
   def close(rsrcRef)

ext/tk/lib/tk/msgcat.rb

@@ -23,6 +23,11 @@ class TkMsgCatalog < TkObject
 
   tk_call_without_enc('package', 'require', 'Tcl', '8.2')
 
+  PACKAGE_NAME = 'msgcat'.freeze
+  def self.package_name
+    PACKAGE_NAME
+  end
+
   if self.const_defined? :FORCE_VERSION
     tk_call_without_enc('package', 'require', 'msgcat', FORCE_VERSION)
   else

ext/tk/lib/tk/winpkg.rb

@@ -13,6 +13,11 @@ module TkWinDDE
 
   TkCommandNames = ['dde'.freeze].freeze
 
+  PACKAGE_NAME = 'dde'.freeze
+  def self.package_name
+    PACKAGE_NAME
+  end
+
   if self.const_defined? :FORCE_VERSION
     tk_call_without_enc('package', 'require', 'dde', FORCE_VERSION)
   else

ext/tk/lib/tkextlib/ICONS/icons.rb

@@ -18,6 +18,11 @@ module Tk
   class ICONS < TkImage
     extend Tk
 
+    PACKAGE_NAME = 'icons'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('icons')

ext/tk/lib/tkextlib/blt.rb

@@ -38,7 +38,11 @@ module Tk
       lib = ''
     end
     LIB_PATH = TkVarAccess.new('blt_libPath', lib)
-    
+
+    PACKAGE_NAME = 'BLT'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
 
     def self.package_version
       begin

ext/tk/lib/tkextlib/bwidget.rb

@@ -23,6 +23,11 @@ module Tk
 
     LIBRARY = tk_call('set', '::BWIDGET::LIBRARY')
 
+    PACKAGE_NAME = 'BWidget'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('BWidget')

ext/tk/lib/tkextlib/itcl/incr_tcl.rb

@@ -22,6 +22,11 @@ module Tk
     VERSION    = TkCore::INTERP._invoke("set", "::itcl::version").freeze
     PATCHLEVEL = TkCore::INTERP._invoke("set", "::itcl::patchLevel").freeze
 
+    PACKAGE_NAME = 'Itcl'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Itcl')

ext/tk/lib/tkextlib/itk/incr_tk.rb

@@ -20,6 +20,11 @@ module Tk
 
     LIBRARY = TkVarAccess.new('::itk::library')
 
+    PACKAGE_NAME = 'Itk'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Itk')

ext/tk/lib/tkextlib/iwidgets.rb

@@ -23,6 +23,11 @@ module Tk
 
     extend TkCore
 
+    PACKAGE_NAME = 'Iwidgets'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Iwidgets')

ext/tk/lib/tkextlib/tcllib/autoscroll.rb

@@ -31,6 +31,11 @@ require 'tkextlib/tcllib.rb'
 module Tk
   module Tcllib
     module Autoscroll
+      PACKAGE_NAME = 'autoscroll'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('autoscroll')

ext/tk/lib/tkextlib/tcllib/ctext.rb

@@ -16,6 +16,11 @@ TkPackage.require('ctext')
 module Tk
   module Tcllib
     class CText < TkText
+      PACKAGE_NAME = 'ctext'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('ctext')

ext/tk/lib/tkextlib/tcllib/cursor.rb

@@ -12,6 +12,11 @@ require 'tkextlib/tcllib.rb'
 module Tk
   module Tcllib
     module Cursor
+      PACKAGE_NAME = 'cursor'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('cursor')

ext/tk/lib/tkextlib/tcllib/datefield.rb

@@ -25,6 +25,11 @@ TkPackage.require('datefield')
 module Tk
   module Tcllib
     class Datefield < TkEntry
+      PACKAGE_NAME = 'datefield'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('datefield')

ext/tk/lib/tkextlib/tcllib/ico.rb

@@ -16,6 +16,11 @@ TkPackage.require('ico')
 module Tk
   module Tcllib
     class ICO < TkImage
+      PACKAGE_NAME = 'ico'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('ico')

ext/tk/lib/tkextlib/tcllib/ip_entry.rb

@@ -19,6 +19,11 @@ TkPackage.require('ipentry')
 module Tk
   module Tcllib
     class IP_Entry < TkEntry
+      PACKAGE_NAME = 'ipentry'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('ipentry')

ext/tk/lib/tkextlib/tcllib/plotchart.rb

@@ -66,6 +66,11 @@ TkPackage.require('Plotchart')
 module Tk
   module Tcllib
     module Plotchart
+      PACKAGE_NAME = 'Plotchart'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('Plotchart')

ext/tk/lib/tkextlib/tcllib/style.rb

@@ -11,6 +11,11 @@ require 'tkextlib/tcllib.rb'
 
 module Tk::Tcllib
   module Style
+    PACKAGE_NAME = 'style'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('style')

ext/tk/lib/tkextlib/tcllib/tkpiechart.rb

@@ -21,6 +21,11 @@ module Tk
 end
 
 module Tk::Tcllib::Tkpiechart
+  PACKAGE_NAME = 'tkpiechart'.freeze
+  def self.package_name
+    PACKAGE_NAME
+  end
+
   def self.package_version
     begin
       TkPackage.require('tkpiechart')

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

@@ -15,6 +15,11 @@ TkPackage.require('Tclx')
 
 module Tk
   module TclX
+    PACKAGE_NAME = 'Tclx'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Tclx')

ext/tk/lib/tkextlib/tile.rb

@@ -37,6 +37,11 @@ module Tk
   module Tile
     TkComm::TkExtlibAutoloadModule.unshift(self)
 
+    PACKAGE_NAME = 'tile'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('tile')

ext/tk/lib/tkextlib/tkDND/shape.rb

@@ -18,6 +18,12 @@ module Tk
   module TkDND
     module Shape
       extend TkCore
+
+      PACKAGE_NAME = 'shape'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
 =begin
       def self.package_version
         begin

ext/tk/lib/tkextlib/tkDND/tkdnd.rb

@@ -15,6 +15,11 @@ TkPackage.require('tkdnd')
 
 module Tk
   module TkDND
+    PACKAGE_NAME = 'tkdnd'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('tkdnd')

ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb

@@ -16,6 +16,11 @@ TkPackage.require('Tkhtml')
 
 module Tk
   class HTML_Widget < TkWindow
+    PACKAGE_NAME = 'Tkhtml'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Tkhtml')

ext/tk/lib/tkextlib/tkimg.rb

@@ -17,6 +17,11 @@ TkPackage.require('Img')
 
 module Tk
   module Img
+    PACKAGE_NAME = 'Img'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Img')

ext/tk/lib/tkextlib/tkimg/bmp.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::bmp')
 module Tk
   module Img
     module BMP
+      PACKAGE_NAME = 'img::bmp'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::bmp')

ext/tk/lib/tkextlib/tkimg/gif.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::gif')
 module Tk
   module Img
     module GIF
+      PACKAGE_NAME = 'img::gif'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::gif')

ext/tk/lib/tkextlib/tkimg/ico.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::ico')
 module Tk
   module Img
     module ICO
+      PACKAGE_NAME = 'img::ico'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::ico')

ext/tk/lib/tkextlib/tkimg/jpeg.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::jpeg')
 module Tk
   module Img
     module JPEG
+      PACKAGE_NAME = 'img::jpeg'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::jpeg')

ext/tk/lib/tkextlib/tkimg/pcx.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::pcx')
 module Tk
   module Img
     module PCX
+      PACKAGE_NAME = 'img::pcx'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::pcx')

ext/tk/lib/tkextlib/tkimg/pixmap.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::pixmap')
 module Tk
   module Img
     module PIXMAP
+      PACKAGE_NAME = 'img::pixmap'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::pixmap')

ext/tk/lib/tkextlib/tkimg/png.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::png')
 module Tk
   module Img
     module PNG
+      PACKAGE_NAME = 'img::png'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::png')

ext/tk/lib/tkextlib/tkimg/ppm.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::ppm')
 module Tk
   module Img
     module PPM
+      PACKAGE_NAME = 'img::ppm'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::ppm')

ext/tk/lib/tkextlib/tkimg/ps.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::ps')
 module Tk
   module Img
     module PS
+      PACKAGE_NAME = 'img::ps'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::ps')

ext/tk/lib/tkextlib/tkimg/sgi.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::sgi')
 module Tk
   module Img
     module SGI
+      PACKAGE_NAME = 'img::sgi'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::sgi')

ext/tk/lib/tkextlib/tkimg/sun.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::sun')
 module Tk
   module Img
     module SUN
+      PACKAGE_NAME = 'img::sun'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::sun')

ext/tk/lib/tkextlib/tkimg/tga.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::tga')
 module Tk
   module Img
     module TGA
+      PACKAGE_NAME = 'img::tga'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::tga')

ext/tk/lib/tkextlib/tkimg/tiff.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::tiff')
 module Tk
   module Img
     module TIFF
+      PACKAGE_NAME = 'img::tiff'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::tiff')

ext/tk/lib/tkextlib/tkimg/window.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::window')
 module Tk
   module Img
     module WINDOW
+      PACKAGE_NAME = 'img::window'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::window')

ext/tk/lib/tkextlib/tkimg/xbm.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::xbm')
 module Tk
   module Img
     module XBM
+      PACKAGE_NAME = 'img::xbm'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::xbm')

ext/tk/lib/tkextlib/tkimg/xpm.rb

@@ -16,6 +16,11 @@ TkPackage.require('img::xpm')
 module Tk
   module Img
     module XPM
+      PACKAGE_NAME = 'img::xpm'.freeze
+      def self.package_name
+        PACKAGE_NAME
+      end
+
       def self.package_version
         begin
           TkPackage.require('img::xpm')

ext/tk/lib/tkextlib/tktable/tktable.rb

@@ -17,6 +17,11 @@ TkPackage.require('Tktable')
 
 module Tk
   class TkTable < TkWindow
+    PACKAGE_NAME = 'Tktable'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('Tktable')

ext/tk/lib/tkextlib/tktrans/tktrans.rb

@@ -14,6 +14,11 @@ TkPackage.require('tktrans') rescue Tk.load_tcllibrary('tktrans')
 
 module Tk
   module TkTrans
+    PACKAGE_NAME = 'tktrans'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('tktrans')

ext/tk/lib/tkextlib/treectrl/tktreectrl.rb

@@ -19,6 +19,11 @@ module Tk
   class TreeCtrl < TkWindow
     BindTag_FileList = TkBindTag.new_by_name('TreeCtrlFileList')
 
+    PACKAGE_NAME = 'treectrl'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('treectrl')

ext/tk/lib/tkextlib/vu.rb

@@ -20,6 +20,11 @@ module Tk
   module Vu
     TkComm::TkExtlibAutoloadModule.unshift(self)
 
+    PACKAGE_NAME = 'vu'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('vu')

ext/tk/lib/tkextlib/winico/winico.rb

@@ -16,6 +16,11 @@ TkPackage.require('winico')
 
 module Tk
   class Winico < TkObject
+    PACKAGE_NAME = 'winico'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
     def self.package_version
       begin
         TkPackage.require('winico')