From 903fff28e85f80f6e2ef750193464ab1b5370d7e 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: http://svn.ruby-lang.org/repos/ruby/trunk@6586 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb')

diff --git a/ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb b/ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb
index 5c0657025..0c900cdb8 100644
--- a/ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb
+++ b/ext/tk/lib/tkextlib/tkHTML/htmlwidget.rb
@@ -9,21 +9,27 @@ require 'tk'
 require 'tkextlib/setup.rb'
 
 # call setup script
-require File.join(File.dirname(File.expand_path(__FILE__)), 'setup.rb')
+require 'tkextlib/tkHTML/setup.rb'
 
 # TkPackage.require('Tkhtml', '2.0')
 TkPackage.require('Tkhtml')
 
 module Tk
   class HTML_Widget < TkWindow
+    def self.package_version
+      begin
+	TkPackage.require('Tkhtml')
+      rescue
+	''
+      end
+    end
+
     class ClippingWindow < TkWindow
     end
   end
 end
 
 class Tk::HTML_Widget::ClippingWindow
-  extend TkUtil
-
   WidgetClassName = 'HtmlClip'.freeze
   WidgetClassNames[WidgetClassName] = self
 
@@ -32,7 +38,7 @@ class Tk::HTML_Widget::ClippingWindow
 
   def self.new(parent, keys={})
     if parent.kind_of?(Hash)
-      keys = _symbolkey2str(parent)
+      keys = TkComm._symbolkey2str(parent)
       parent = keys.delete('parent')
     end
 
-- 
cgit