* ext/tk/lib : improve framework of developping Tcl/Tk extension wrappers

* BWidget extension support on Ruby/Tk


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

7 files changed, 51 insertions, 45 deletions

diff --git a/ext/tk/lib/tkextlib/tile/style.rb b/ext/tk/lib/tkextlib/tile/style.rb
index be4b45ab7..474c4f21b 100644
--- a/ext/tk/lib/tkextlib/tile/style.rb
+++ b/ext/tk/lib/tkextlib/tile/style.rb
@@ -3,12 +3,14 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    module Style
+    end
+  end
+end
 
 module Tk::Tile::Style
 end
diff --git a/ext/tk/lib/tkextlib/tile/tbutton.rb b/ext/tk/lib/tkextlib/tile/tbutton.rb
index c73b7904e..b5c347569 100644
--- a/ext/tk/lib/tkextlib/tile/tbutton.rb
+++ b/ext/tk/lib/tkextlib/tile/tbutton.rb
@@ -3,12 +3,14 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TButton < TkButton
+    end
+  end
+end
 
 class Tk::Tile::TButton < TkButton
   include Tk::Tile::TileWidget
diff --git a/ext/tk/lib/tkextlib/tile/tcheckbutton.rb b/ext/tk/lib/tkextlib/tile/tcheckbutton.rb
index f5ab00882..4ba77d95d 100644
--- a/ext/tk/lib/tkextlib/tile/tcheckbutton.rb
+++ b/ext/tk/lib/tkextlib/tile/tcheckbutton.rb
@@ -3,12 +3,15 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TCheckButton < TkCheckButton
+    end
+    TCheckbutton = TCheckButton
+  end
+end
 
 class Tk::Tile::TCheckButton < TkCheckButton
   include Tk::Tile::TileWidget
@@ -26,8 +29,3 @@ class Tk::Tile::TCheckButton < TkCheckButton
   end
   private :create_self
 end
-module Tk
-  module Tile
-    TCheckbutton = TCheckButton
-  end
-end
diff --git a/ext/tk/lib/tkextlib/tile/tlabel.rb b/ext/tk/lib/tkextlib/tile/tlabel.rb
index 1b7302cab..d2eaf4527 100644
--- a/ext/tk/lib/tkextlib/tile/tlabel.rb
+++ b/ext/tk/lib/tkextlib/tile/tlabel.rb
@@ -3,12 +3,14 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TLabel < TkLabel
+    end
+  end
+end
 
 class Tk::Tile::TLabel < TkLabel
   include Tk::Tile::TileWidget
diff --git a/ext/tk/lib/tkextlib/tile/tmenubutton.rb b/ext/tk/lib/tkextlib/tile/tmenubutton.rb
index c827629c7..332db2b74 100644
--- a/ext/tk/lib/tkextlib/tile/tmenubutton.rb
+++ b/ext/tk/lib/tkextlib/tile/tmenubutton.rb
@@ -3,12 +3,14 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TMenubutton < TkMenubutton
+    end
+  end
+end
 
 class Tk::Tile::TMenubutton < TkMenubutton
   include Tk::Tile::TileWidget
diff --git a/ext/tk/lib/tkextlib/tile/tnotebook.rb b/ext/tk/lib/tkextlib/tile/tnotebook.rb
index 40242b523..c693d5ce2 100644
--- a/ext/tk/lib/tkextlib/tile/tnotebook.rb
+++ b/ext/tk/lib/tkextlib/tile/tnotebook.rb
@@ -3,12 +3,14 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TNotebook < TkWindow
+    end
+  end
+end
 
 class Tk::Tile::TNotebook < TkWindow
   ################################
diff --git a/ext/tk/lib/tkextlib/tile/tradiobutton.rb b/ext/tk/lib/tkextlib/tile/tradiobutton.rb
index 2587a74cf..66cba6296 100644
--- a/ext/tk/lib/tkextlib/tile/tradiobutton.rb
+++ b/ext/tk/lib/tkextlib/tile/tradiobutton.rb
@@ -3,12 +3,15 @@
 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
 require 'tk'
+require 'tkextlib/tile.rb'
 
-# call setup script for general 'tkextlib' libraries
-require 'tkextlib/setup.rb'
-
-# call setup script  --  <libdir>/tkextlib/tile.rb
-require(File.dirname(File.expand_path(__FILE__)) + '.rb')
+module Tk
+  module Tile
+    class TRadioButton < TkRadioButton
+    end
+    TRadiobutton = TRadioButton
+  end
+end
 
 class Tk::Tile::TRadioButton < TkRadioButton
   include Tk::Tile::TileWidget
@@ -26,8 +29,3 @@ class Tk::Tile::TRadioButton < TkRadioButton
   end
   private :create_self
 end
-module Tk
-  module Tile
-    TRadiobutton = TRadioButton
-  end
-end