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

* BWidget extension support on Ruby/Tk


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

1 files changed, 17 insertions, 1 deletions

diff --git a/ext/tk/lib/tkextlib/tkDND/tkdnd.rb b/ext/tk/lib/tkextlib/tkDND/tkdnd.rb
index 036d1998bd..d0895c2afd 100644
--- a/ext/tk/lib/tkextlib/tkDND/tkdnd.rb
+++ b/ext/tk/lib/tkextlib/tkDND/tkdnd.rb
@@ -9,12 +9,20 @@ require 'tk'
 require 'tkextlib/setup.rb'
 
 # call setup script
-require File.join(File.dirname(File.expand_path(__FILE__)), 'setup.rb')
+require 'tkextlib/tkDND/setup.rb'
 
 TkPackage.require('tkdnd')
 
 module Tk
   module TkDND
+    def self.package_version
+      begin
+	TkPackage.require('tkdnd')
+      rescue
+	''
+      end
+    end
+
     class DND_Subst < TkUtil::CallbackSubst
       KEY_TBL = [
 	[ ?a, ?l, :actions ], 
@@ -49,6 +57,14 @@ module Tk
     end
 
     module DND
+      def self.version
+	begin
+	  TkPackage.require('tkdnd')
+	rescue
+	  ''
+	end
+      end
+
       def dnd_bindtarget_info(type=nil, event=nil)
 	if event
 	  procedure(tk_call('dnd', 'bindtarget', @path, type, event))