From d8465ff9abf63545262b7d8f88b069522ae82823 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 6 Jul 2004 09:42:12 +0000
Subject: * 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
---
 ext/tk/lib/tkextlib/treectrl/tktreectrl.rb | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

(limited to 'ext/tk/lib/tkextlib/treectrl/tktreectrl.rb')

diff --git a/ext/tk/lib/tkextlib/treectrl/tktreectrl.rb b/ext/tk/lib/tkextlib/treectrl/tktreectrl.rb
index fb74b72c3b..4b5219e60b 100644
--- a/ext/tk/lib/tkextlib/treectrl/tktreectrl.rb
+++ b/ext/tk/lib/tkextlib/treectrl/tktreectrl.rb
@@ -5,16 +5,24 @@
 
 require 'tk'
 
+# call setup script for general 'tkextlib' libraries
+require 'tkextlib/setup.rb'
+
 # call setup script
-require File.join(File.dirname(File.expand_path(__FILE__)), 'setup.rb')
+require 'tkextlib/treectrl/setup.rb'
 
 # TkPackage.require('treectrl', '1.0')
-#TkPackage.require('treectrl')
+TkPackage.require('treectrl')
 
 module Tk
   class TreeCtrl_Widget < TkWindow
-    #VERSION =  TkPackage.require('treectrl', '1.0')
-    VERSION = TkPackage.require('treectrl')
+    def self.package_version
+      begin
+	TkPackage.require('treectrl')
+      rescue
+	''
+      end
+    end
 
     class NotifyEvent < TkUtil::CallbackSubst
     end
@@ -312,6 +320,12 @@ class Tk::TreeCtrl_Widget
   WidgetClassName = ''.freeze
   WidgetClassNames[WidgetClassName] = self
 
+  def install_bind(cmd, *args)
+    install_bind_for_event_class(Tk::TreeCtrl_Widget::NotifyEvent, cmd, *args)
+  end
+
+  #########################
+
   def create_self(keys)
     if keys and keys != None
       tk_call_without_enc('treectrl', @path, *hash_kv(keys, true))
-- 
cgit v1.2.3