diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-10-14 18:54:21 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-10-14 18:54:21 +0000 |
commit | b4337be29ff0f6e9a461791c30c2ae7c4d4dbe5a (patch) | |
tree | 85021a9531a172b09d783297dcf7d51c50022e47 /ext | |
parent | 382b4ae9a34c2f697464e1e42fd0fdc277fdd3c3 (diff) | |
download | ruby-b4337be29ff0f6e9a461791c30c2ae7c4d4dbe5a.tar.gz |
ext/tk/lib/tk.rb:
* fixed trouble on auto-load Tcl commands (enbug on the last commit).
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4763 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/lib/tk.rb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 47148e43ce..fcf9d11593 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -1155,7 +1155,6 @@ module Tk end end - def root TkRoot.new end @@ -2245,8 +2244,14 @@ module Tk auto_path = Tk::LIBRARY end end + AUTO_PATH = TkVarAccess.new('auto_path', auto_path) - AUTO_OLDPATH = TkVarAccess.new('auto_oldpath', auto_path) + +=begin + AUTO_OLDPATH = tk_split_simplelist(INTERP._invoke('set', 'auto_oldpath')) + AUTO_OLDPATH.each{|s| s.freeze} + AUTO_OLDPATH.freeze +=end TCL_PACKAGE_PATH = TkVarAccess.new('tcl_pkgPath') PACKAGE_PATH = TCL_PACKAGE_PATH |