Class | TkRoot |
In: |
tk/lib/tkextlib/tktrans/tktrans.rb
tk/lib/tk/root.rb |
Parent: | Object |
WidgetClassName | = | 'Tk'.freeze |
# File tk/lib/tk/root.rb, line 38 def TkRoot.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 root.instance_eval(&b) if block_given? root end
# File tk/lib/tk/root.rb, line 86 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
# File tk/lib/tk/root.rb, line 97 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
# File tk/lib/tkextlib/tktrans/tktrans.rb, line 49 def tktrans_get_image() tk_send('tktrans::settoplevel', @path) end