TkCore::INTERP ^(Module)

# File tk/lib/tk.rb, line 828
    def INTERP.__getip
      self
    end

# File tk/lib/tk.rb, line 911
    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 864
    def INTERP.cb_entry_class
      @cb_entry_class
    end

# File tk/lib/tk.rb, line 903
    def INTERP.cb_eval(cmd, *args)
      TkUtil._get_eval_string(TkUtil.eval_cmd(cmd, *args))
    end

# File tk/lib/tk.rb, line 886
    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 900
    def INTERP.get_cb_entry(cmd)
      @cb_entry_class.new(__getip, cmd).freeze
    end

# File tk/lib/tk.rb, line 907
    def INTERP.init_ip_env(script = Proc.new)
      @init_ip_env << script
      script.call(self)
    end

# File tk/lib/tk.rb, line 915
    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

# File tk/lib/tk.rb, line 867
    def INTERP.tk_cmd_tbl
      @tk_cmd_tbl
    end

# File tk/lib/tk.rb, line 883
    def INTERP.tk_object_table(id)
      @tk_table_list[id]
    end

# File tk/lib/tk.rb, line 870
    def INTERP.tk_windows
      @tk_windows
    end