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

# File tk/lib/tk.rb, line 1194
    def INTERP.add_tk_procs(name, args = nil, body = nil)
      if name.kind_of?(Array)
        name.each{|param| self.add_tk_procs(*param)}
      else
        name = name.to_s
        @add_tk_procs << [name, args, body]
        self._invoke('proc', name, args, body) if args && body
      end
    end

# File tk/lib/tk.rb, line 1147
    def INTERP.cb_entry_class
      @cb_entry_class
    end

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

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

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

# File tk/lib/tk.rb, line 1212
    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 1203
    def INTERP.remove_tk_procs(*names)
      names.each{|name|
        name = name.to_s
        @add_tk_procs.delete_if{|elem| 
          elem.kind_of?(Array) && elem[0].to_s == name
        }
        self._invoke('rename', name, '')
      }
    end

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

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

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