diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-07-14 04:10:51 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-07-14 04:10:51 +0000 |
commit | 89e1e190835430068472d12450b538ad351871b9 (patch) | |
tree | 31805c38af8ea33b1913f9adcdcbe77246a61d74 /ext/tk/lib/tk | |
parent | 58f761cf82ad0815f3dfad065576c1b5523bb8f8 (diff) |
* ext/tk/lib/tk.rb: add methods for new features of latest Tcl/Tk8.5
* ext/tk/lib/tk/namespace.rb: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10531 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tk')
-rw-r--r-- | ext/tk/lib/tk/namespace.rb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ext/tk/lib/tk/namespace.rb b/ext/tk/lib/tk/namespace.rb index 35ea7a6b95..5bf6474c5b 100644 --- a/ext/tk/lib/tk/namespace.rb +++ b/ext/tk/lib/tk/namespace.rb @@ -472,6 +472,20 @@ class TkNamespace < TkObject tk_call('namespace', 'tail', str) end + def self.upvar(namespace, *var_pairs) + tk_call('namespace', 'upvar', namespace, *(var_pairs.flatten)) + end + def upvar(*var_pairs) + TkNamespace.inscope(@fullname, *(var_pairs.flatten)) + end + + def self.get_unknown_handler + tk_tcl2ruby(tk_call('namespace', 'unknown')) + end + def self.set_unknown_handler(cmd = Proc.new) + tk_call('namespace', 'unknown', cmd) + end + def self.which(name) tk_call('namespace', 'which', name) end |