diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2017-12-14 15:59:18 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2017-12-14 15:59:18 +0000 |
commit | 72113d58cd2fc62b3f4ef3d2eb6cec37393532a4 (patch) | |
tree | 534843caaea28f1171378c1ac5bea0184ed04054 /ruby_2_2/ext/tk/lib/tk/root.rb | |
parent | 1a74fa4b04da04bd2bb33103dd3cf431438df38e (diff) | |
parent | 02b8978ff10b05304dbb46d73b49a2cf3a87cb92 (diff) |
add tag v2_2_9v2_2_9
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v2_2_9@61259 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ruby_2_2/ext/tk/lib/tk/root.rb')
-rw-r--r-- | ruby_2_2/ext/tk/lib/tk/root.rb | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/ruby_2_2/ext/tk/lib/tk/root.rb b/ruby_2_2/ext/tk/lib/tk/root.rb deleted file mode 100644 index b4f0bd107f..0000000000 --- a/ruby_2_2/ext/tk/lib/tk/root.rb +++ /dev/null @@ -1,95 +0,0 @@ -# -# tk/root.rb : treat root widget -# -require 'tk' -require 'tk/wm' -require 'tk/menuspec' - -class Tk::Root<TkWindow - include Wm - include TkMenuSpec - - def __methodcall_optkeys # { key=>method, ... } - TOPLEVEL_METHODCALL_OPTKEYS - end - private :__methodcall_optkeys - - def Root.new(keys=nil, &b) - unless TkCore::INTERP.tk_windows['.'] - TkCore::INTERP.tk_windows['.'] = - super(:without_creating=>true, :widgetname=>'.'){} - end - root = TkCore::INTERP.tk_windows['.'] - - keys = _symbolkey2str(keys) - - # wm commands - root.instance_eval{ - __methodcall_optkeys.each{|key, method| - value = keys.delete(key.to_s) - self.__send__(method, value) if value - } - } - - if keys # wm commands ( for backward comaptibility ) - keys.each{|k,v| - if v.kind_of? Array - root.__send__(k,*v) - else - root.__send__(k,v) - end - } - end - - if block_given? - if TkCore::WITH_RUBY_VM ### Ruby 1.9 !!!! - root.instance_exec(root, &b) - else - root.instance_eval(&b) - end - end - root - end - - WidgetClassName = 'Tk'.freeze - WidgetClassNames[WidgetClassName] ||= self - - def self.to_eval - # self::WidgetClassName - '.' - end - - def create_self - @path = '.' - end - private :create_self - - def path - "." - end - - def add_menu(menu_info, tearoff=false, opts=nil) - # See tk/menuspec.rb for menu_info. - # opts is a hash of default configs for all of cascade menus. - # Configs of menu_info can override it. - if tearoff.kind_of?(Hash) - opts = tearoff - tearoff = false - end - _create_menubutton(self, menu_info, tearoff, opts) - end - - def add_menubar(menu_spec, tearoff=false, opts=nil) - # See tk/menuspec.rb for menu_spec. - # opts is a hash of default configs for all of cascade menus. - # Configs of menu_spec can override it. - menu_spec.each{|info| add_menu(info, tearoff, opts)} - self.menu - end - - def Root.destroy - TkCore::INTERP._invoke('destroy', '.') - end -end - -TkRoot = Tk::Root unless Object.const_defined? :TkRoot |