Module | TkCore::INTERP |
In: |
# File tk/lib/tk.rb, line 1161 def INTERP.add_tk_procs(name, args = nil, body = nil) @add_tk_procs << [name, args, body] self._invoke('proc', name, args, body) if args && body end
# File tk/lib/tk.rb, line 1153 def INTERP.cb_eval(cmd, *args) TkUtil._get_eval_string(TkUtil.eval_cmd(cmd, *args)) end
# File tk/lib/tk.rb, line 1136 def INTERP.create_table id = @tk_table_list.size (tbl = {}).tainted? || tbl.taint @tk_table_list << tbl # obj = Object.new # obj.instance_eval <<-EOD # def self.method_missing(m, *args) # TkCore::INTERP.tk_object_table(#{id}).send(m, *args) # end # EOD # return obj Tk_OBJECT_TABLE.new(id) end
# File tk/lib/tk.rb, line 1150 def INTERP.get_cb_entry(cmd) @cb_entry_class.new(__getip, cmd).freeze end
# File tk/lib/tk.rb, line 1157 def INTERP.init_ip_env(script = Proc.new) @init_ip_env << script script.call(self) end
# File tk/lib/tk.rb, line 1165 def INTERP.init_ip_internal ip = self @init_ip_env.each{|script| script.call(ip)} @add_tk_procs.each{|name,args,body| ip._invoke('proc',name,args,body)} end