diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-04 09:41:34 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-08-04 09:41:34 +0000 |
commit | 31b2baaefe1f6a00639e57a436c40beee793933d (patch) | |
tree | c214bb37ec3609db09fb1f014a5d687f0b4bdd48 /ext/tk/lib/tk/toplevel.rb | |
parent | 4a97cf6eab009ab74ac1cba779311c0a853b9e43 (diff) |
* ext/tcltklib/tcltklib.c: cannot compile for Tcl7.6/Tk4.2.
* ext/tcltklib/tcltklib.c: add nativethread consistency check.
* ext/tcltklib/stubs.c: ditto.
* ext/tk/lib/tk.rb: forgot to define TclTkIp.encoding and encoding=
when Tcl is 7.6 or 8.0.
* ext/tk/lib/tk/wm.rb: support to make some methods as options of
root or toplevel widget. [ruby-talk:150336]
* ext/tk/lib/tk/root.rb: ditto.
* ext/tk/lib/tk/toplevel.rb: ditto.
* ext/tk/lib/tkextlib/SUPPRT_STATUS: update RELEASE_DATE
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8910 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tk/toplevel.rb')
-rw-r--r-- | ext/tk/lib/tk/toplevel.rb | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ext/tk/lib/tk/toplevel.rb b/ext/tk/lib/tk/toplevel.rb index 95d6366ea3..33920aba77 100644 --- a/ext/tk/lib/tk/toplevel.rb +++ b/ext/tk/lib/tk/toplevel.rb @@ -45,12 +45,22 @@ class TkToplevel<TkWindow # end ################# + def __methodcall_optkeys # { key=>method, ... } + TOPLEVEL_METHODCALL_OPTKEYS + end + private :__methodcall_optkeys + def _wm_command_option_chk(keys) keys = {} unless keys new_keys = {} wm_cmds = {} + + conf_methods = _symbolkey2str(__methodcall_optkeys()) + keys.each{|k,v| - if Wm.method_defined?(k) + if conf_methods.key?(k) + wm_cmds[conf_methods[k]] = v + elsif Wm.method_defined?(k) case k when 'screen','class','colormap','container','use','visual' new_keys[k] = v |