Merge from ruby_1_8. Add files that have not been added yet.

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

1 files changed, 8 insertions, 2 deletions

diff --git a/ext/tk/lib/tkextlib/blt/unix_dnd.rb b/ext/tk/lib/tkextlib/blt/unix_dnd.rb
index 7a994233a2..445002d7a5 100644
--- a/ext/tk/lib/tkextlib/blt/unix_dnd.rb
+++ b/ext/tk/lib/tkextlib/blt/unix_dnd.rb
@@ -30,12 +30,15 @@ module Tk::BLT
       end
       private :__item_config_cmd
 
-      private :itemcget, :itemconfigure
-      private :itemconfiginfo, :current_itemconfiginfo
+      private :itemcget, :itemcget_strict
+      private :itemconfigure, :itemconfiginfo, :current_itemconfiginfo
 
       def cget(win, option)
         itemcget(['cget', win], option)
       end
+      def cget_strict(win, option)
+        itemcget_strict(['cget', win], option)
+      end
       def configure(win, slot, value=None)
         itemconfigure(['configure', win], slot, value)
       end
@@ -49,6 +52,9 @@ module Tk::BLT
       def token_cget(win, option)
         itemcget(['token', 'cget', win], option)
       end
+      def token_cget_strict(win, option)
+        itemcget_strict(['token', 'cget', win], option)
+      end
       def token_configure(win, slot, value=None)
         itemconfigure(['token', 'configure', win], slot, value)
       end