diff options
Diffstat (limited to 'ext/tk/lib/tk/root.rb')
-rw-r--r-- | ext/tk/lib/tk/root.rb | 28 |
1 files changed, 4 insertions, 24 deletions
diff --git a/ext/tk/lib/tk/root.rb b/ext/tk/lib/tk/root.rb index a66c9fe454..02e546d86e 100644 --- a/ext/tk/lib/tk/root.rb +++ b/ext/tk/lib/tk/root.rb @@ -14,28 +14,7 @@ class Tk::Root<TkWindow end private :__methodcall_optkeys -=begin - ROOT = [] - def TkRoot.new(keys=nil) - if ROOT[0] - Tk_WINDOWS["."] = ROOT[0] - return ROOT[0] - end - new = super(:without_creating=>true, :widgetname=>'.') - if keys # wm commands - keys.each{|k,v| - if v.kind_of? Array - new.send(k,*v) - else - new.send(k,v) - end - } - end - ROOT[0] = new - Tk_WINDOWS["."] = new - end -=end - def TkRoot.new(keys=nil, &b) + def Root.new(keys=nil, &b) unless TkCore::INTERP.tk_windows['.'] TkCore::INTERP.tk_windows['.'] = super(:without_creating=>true, :widgetname=>'.'){} @@ -102,9 +81,10 @@ class Tk::Root<TkWindow self.menu end - def TkRoot.destroy + def Root.destroy TkCore::INTERP._invoke('destroy', '.') end end -TkRoot = Tk::Root unless Object.const_defined? :TkRoot +#TkRoot = Tk::Root unless Object.const_defined? :TkRoot +Tk.__set_toplevel_aliases__(:Tk, Tk::Root, :TkRoot) |