MultiTkIp ^(Class)

# File tk/lib/multi-tk.rb, line 606
  def self.__getip
    if Thread.current.group == ThreadGroup::Default
      @@DEFAULT_MASTER
    else
      ip = @@IP_TABLE[Thread.current.group]
      unless ip
        fail SecurityError, 
          "cannot call Tk methods on #{Thread.current.inspect}"
      end
      ip
    end
  end

# File tk/lib/multi-tk.rb, line 1079
  def _conv_listelement(arg)
    __getip._conv_listelement(arg)
  end

# File tk/lib/multi-tk.rb, line 991
  def _eval(str)
    __getip._eval(str)
  end

# File tk/lib/multi-tk.rb, line 1007
  def _eval_with_enc(str)
    __getip._eval_with_enc(str)
  end

# File tk/lib/multi-tk.rb, line 999
  def _eval_without_enc(str)
    __getip._eval_without_enc(str)
  end

# File tk/lib/multi-tk.rb, line 1019
  def _fromUTF8(str, encoding)
    __getip._fromUTF8(str, encoding)
  end

# File tk/lib/multi-tk.rb, line 1054
  def _get_global_var(var)
    __getip._get_global_var(var)
  end

# File tk/lib/multi-tk.rb, line 1057
  def _get_global_var2(var, idx)
    __getip._get_global_var2(var, idx)
  end

# File tk/lib/multi-tk.rb, line 1035
  def _get_variable(var, flag)
    __getip._get_variable(var, flag)
  end

# File tk/lib/multi-tk.rb, line 1038
  def _get_variable2(var, idx, flag)
    __getip._get_variable2(var, idx, flag)
  end

# File tk/lib/multi-tk.rb, line 995
  def _invoke(*args)
    __getip._invoke(*args)
  end

# File tk/lib/multi-tk.rb, line 1011
  def _invoke_with_enc(*args)
    __getip._invoke_with_enc(*args)
  end

# File tk/lib/multi-tk.rb, line 1003
  def _invoke_without_enc(*args)
    __getip._invoke_without_enc(*args)
  end

# File tk/lib/multi-tk.rb, line 1076
  def _merge_tklist(*args)
    __getip._merge_tklist(*args)
  end

# File tk/lib/multi-tk.rb, line 1031
  def _return_value
    __getip._return_value
  end

# File tk/lib/multi-tk.rb, line 1060
  def _set_global_var(var, value)
    __getip._set_global_var(var, value)
  end

# File tk/lib/multi-tk.rb, line 1063
  def _set_global_var2(var, idx, value)
    __getip._set_global_var2(var, idx, value)
  end

# File tk/lib/multi-tk.rb, line 1041
  def _set_variable(var, value, flag)
    __getip._set_variable(var, value, flag)
  end

# File tk/lib/multi-tk.rb, line 1044
  def _set_variable2(var, idx, value, flag)
    __getip._set_variable2(var, idx, value, flag)
  end

# File tk/lib/multi-tk.rb, line 1073
  def _split_tklist(str)
    __getip._split_tklist(str)
  end

# File tk/lib/multi-tk.rb, line 1027
  def _thread_tkwait(mode, target)
    __getip._thread_tkwait(mode, target)
  end

# File tk/lib/multi-tk.rb, line 1023
  def _thread_vwait(var)
    __getip._thread_vwait(var)
  end

# File tk/lib/multi-tk.rb, line 1015
  def _toUTF8(str, encoding)
    __getip._toUTF8(str, encoding)
  end

# File tk/lib/multi-tk.rb, line 1066
  def _unset_global_var(var)
    __getip._unset_global_var(var)
  end

# File tk/lib/multi-tk.rb, line 1069
  def _unset_global_var2(var, idx)
    __getip._unset_global_var2(var, idx)
  end

# File tk/lib/multi-tk.rb, line 1047
  def _unset_variable(var, flag)
    __getip._unset_variable(var, flag)
  end

# File tk/lib/multi-tk.rb, line 1050
  def _unset_variable2(var, idx, flag)
    __getip._unset_variable2(var, idx, flag)
  end

# File tk/lib/multi-tk.rb, line 817
  def self.add_tk_procs(name, args=nil, body=nil)
    @@ADD_TK_PROCS << [name, args, body]
    @@IP_TABLE.each{|tg, ip| 
      ip._add_tk_procs(name, args, body)
    }
  end

# File tk/lib/multi-tk.rb, line 1336
  def self.alias_delete(slave, cmd_name)
    __getip.alias_delete(slave, cmd_name)
    self
  end

# File tk/lib/multi-tk.rb, line 1328
  def self.alias_info(slave, cmd_name)
    __getip.alias_info(slave, cmd_name)
  end

# File tk/lib/multi-tk.rb, line 1454
  def self.alias_target(aliascmd, slave = '')
    __getip.alias_target(aliascmd, slave)
  end

# File tk/lib/multi-tk.rb, line 1354
  def self.aliases(slave = '')
    __getip.aliases(slave)
  end

# File tk/lib/multi-tk.rb, line 693
  def self.alive?
    __getip.alive?
  end

# File tk/lib/multi-tk.rb, line 792
  def self.create_table
    #if __getip.slave?

    #  raise SecurityError, "slave-IP has no permission creating a new table"

    #end

    id = @@TK_TABLE_LIST.size
    obj = Object.new
    @@TK_TABLE_LIST << obj
    obj.instance_eval "def self.method_missing(m, *args)\nMultiTkIp.tk_object_table(\#{id}).send(m, *args)\nend\n"
    obj.freeze
    @@IP_TABLE.each{|tg, ip| ip._add_new_tables }
    return obj
  end

# File tk/lib/multi-tk.rb, line 1346
  def self.def_alias(slave, new_cmd, org_cmd, *args)
    ret = __getip.def_alias(slave, new_cmd, org_cmd, *args)
    (ret == new_cmd)? self: nil
  end

# File tk/lib/multi-tk.rb, line 1381
  def self.delete_cmd(slave, cmd)
    __getip.delete_cmd(slave, cmd)
    self
  end

# File tk/lib/multi-tk.rb, line 1363
  def self.delete_slaves(*args)
    __getip.delete_slaves(*args)
    self
  end

# File tk/lib/multi-tk.rb, line 942
  def do_one_event(flag = TclTkLib::EventFlag::ALL)
    __getip.do_one_event(flag)
  end

# File tk/lib/multi-tk.rb, line 924
  def eval_proc(cmd = Proc.new, *args)
    # class ==> interp object

    __getip.eval_proc(cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 1372
  def self.exist?(slave = '')
    __getip.exist?(slave)
  end

# File tk/lib/multi-tk.rb, line 1394
  def self.expose_cmd(slave, cmd, aliasname = nil)
    __getip.expose_cmd(slave, cmd, aliasname)
    self
  end

# File tk/lib/multi-tk.rb, line 832
  def self.get_cb_entry(cmd)
    @@CB_ENTRY_CLASS.new(__getip, cmd).freeze
  end

# File tk/lib/multi-tk.rb, line 956
  def get_eventloop_tick
    __getip.get_eventloop_tick
  end

# File tk/lib/multi-tk.rb, line 968
  def get_eventloop_weight
    __getip.get_eventloop_weight
  end

# File tk/lib/multi-tk.rb, line 962
  def get_no_event_wait
    __getip.get_no_event_wait
  end

# File tk/lib/multi-tk.rb, line 1415
  def self.hidden_cmds(slave = '')
    __getip.hidden_cmds(slave)
  end

# File tk/lib/multi-tk.rb, line 1407
  def self.hide_cmd(slave, cmd, aliasname = nil)
    __getip.hide_cmd(slave, cmd, aliasname)
    self
  end

# File tk/lib/multi-tk.rb, line 245
  def self.inherited(subclass)
    # trust if on ThreadGroup::Default or @@DEFAULT_MASTER's ThreadGroup

    if @@IP_TABLE[Thread.current.group] == @@DEFAULT_MASTER
      begin
        class << subclass
          self.methods.each{|m|
            begin
              unless m == '__id__' || m == '__send__' || m == 'freeze'
                undef_method(m)
              end
            rescue Exception
              # ignore all exceptions

            end
          }
        end
      ensure
        subclass.freeze
        fail SecurityError, 
          "cannot create subclass of MultiTkIp on a untrusted ThreadGroup"
      end
    end
  end

# File tk/lib/multi-tk.rb, line 810
  def self.init_ip_env(script = Proc.new)
    @@INIT_IP_ENV << script
    @@IP_TABLE.each{|tg, ip| 
      ip._init_ip_env(script)
    }
  end

# File tk/lib/multi-tk.rb, line 824
  def self.init_ip_internal
    __getip._init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS)
  end

# File tk/lib/multi-tk.rb, line 1422
  def self.invoke_hidden(slave, cmd, *args)
    __getip.invoke_hidden(slave, cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 1430
  def self.invoke_hidden_on_global(slave, cmd, *args)
    __getip.invoke_hidden_on_global(slave, cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 706
  def self.ip_name
    __getip.ip_name
  end

# File tk/lib/multi-tk.rb, line 936
  def mainloop(check_root = true)
    __getip.mainloop(check_root)
  end

# File tk/lib/multi-tk.rb, line 945
  def mainloop_abort_on_exception
    # __getip.mainloop_abort_on_exception

    TclTkLib.mainloop_abort_on_exception
  end

# File tk/lib/multi-tk.rb, line 949
  def mainloop_abort_on_exception=(mode)
    # __getip.mainloop_abort_on_exception=(mode)

    TclTkLib.mainloop_abort_on_exception=(mode)
  end

# File tk/lib/multi-tk.rb, line 939
  def mainloop_watchdog(check_root = true)
    __getip.mainloop_watchdog(check_root)
  end

# File tk/lib/multi-tk.rb, line 979
  def make_safe
    __getip.make_safe
  end

# File tk/lib/multi-tk.rb, line 1438
  def self.mark_trusted(slave = '')
    __getip.mark_trusted(slave)
    self
  end

# File tk/lib/multi-tk.rb, line 673
  def self.master?
    __getip.master?
  end

# File tk/lib/multi-tk.rb, line 975
  def method_missing(id, *args)
    __getip.send(id, *args)
  end

# File tk/lib/multi-tk.rb, line 52
    def initialize(ip, cmd)
      @ip = ip
      @cmd = cmd
    end

# File tk/lib/multi-tk.rb, line 501
  def initialize(master, safeip=true, keys={})
    if $SAFE >= 4
      fail SecurityError, "cannot create a new interpreter at level #{$SAFE}"
    end

    if safeip == nil && $SAFE >= 2
      fail SecurityError, "cannot create a master-ip at level #{$SAFE}"
    end

    if !master.master? && master.safe?
      fail SecurityError, "safe-slave-ip cannot create a new interpreter"
    end

    if safeip == nil && !master.master?
      fail SecurityError, "slave-ip cannot create a master-ip"
    end

    unless keys.kind_of? Hash
      fail ArgumentError, "expecting a Hash object for the 2nd argument"
    end

    @tk_windows = {}
    @tk_table_list = []
    @slave_ip_tbl = {}
    @slave_ip_top = {}

    @tk_windows.taint unless @tk_windows.tainted?
    @tk_table_list.taint unless @tk_table_list.tainted?
    @slave_ip_tbl.taint unless @slave_ip_tbl.tainted?
    @slave_ip_top.taint unless @slave_ip_top.tainted?

    name, safe, safe_opts, tk_opts = _parse_slaveopts(keys)

    if safeip == nil
      # create master-ip

      @interp = TclTkIp.new(name, _keys2opts(tk_opts))
      @ip_name = nil
    else
      # create slave-ip

      if safeip || master.safe?
        @interp, @ip_name = master.__create_safe_slave_obj(safe_opts, 
                                                           name, tk_opts)
      else
        @interp, @ip_name = master.__create_trusted_slave_obj(name, tk_opts)
      end
      @set_alias_proc = proc{|name| 
        master._invoke('interp', 'alias', @ip_name, name, '', name)
      }.freeze
    end

    @system = Object.new

    @threadgroup  = ThreadGroup.new

    @cmd_queue = Queue.new

    @cmd_receiver, @receiver_watchdog = _create_receiver_and_watchdog()

    @threadgroup.add @cmd_receiver
    @threadgroup.add @receiver_watchdog

    @threadgroup.enclose

    @@IP_TABLE[@threadgroup] = self
    _init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS)
    @@TK_TABLE_LIST.size.times{ 
      (tbl = {}).tainted? || tbl.taint
      @tk_table_list << tbl
    }

    self.freeze  # defend against modification

  end

# File tk/lib/multi-tk.rb, line 626
  def new_master(keys={}, &b)
    ip = __new(__getip, nil, keys)
    ip.eval_proc(&b) if b
    ip
  end

# File tk/lib/multi-tk.rb, line 641
  def new_safe_slave(keys={},&b)
    ip = __new(__getip, true, keys)
    ip.eval_proc(&b) if b
    ip
  end

# File tk/lib/multi-tk.rb, line 634
  def new_slave(keys={}, &b)
    ip = __new(__getip, false, keys)
    ip.eval_proc(&b) if b
    ip
  end

# File tk/lib/multi-tk.rb, line 700
  def self.path
    __getip.path
  end

# File tk/lib/multi-tk.rb, line 1447
  def self.recursion_limit(slave = '', limit = None)
    __getip.recursion_limit(slave)
  end

# File tk/lib/multi-tk.rb, line 987
  def restart
    __getip.restart
  end

# File tk/lib/multi-tk.rb, line 983
  def safe?
    __getip.safe?
  end

# File tk/lib/multi-tk.rb, line 953
  def set_eventloop_tick(tick)
    __getip.set_eventloop_tick(tick)
  end

# File tk/lib/multi-tk.rb, line 965
  def set_eventloop_weight(loop_max, no_event_tick)
    __getip.set_eventloop_weight(loop_max, no_event_tick)
  end

# File tk/lib/multi-tk.rb, line 959
  def set_no_event_wait(tick)
    __getip.set_no_event_wait(tick)
  end

# File tk/lib/multi-tk.rb, line 114
  def self.set_safe_level(safe)
    __getip.set_safe_level(safe)
    self
  end

# File tk/lib/multi-tk.rb, line 1480
  def self.share_stderr(dist, src = '')
    __getip.share_stderr(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1462
  def self.share_stdin(dist, src = '')
    __getip.share_stdin(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1518
  def self.share_stdio(dist, src = '')
    __getip.share_stdio(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1471
  def self.share_stdout(dist, src = '')
    __getip.share_stdout(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 680
  def self.slave?
  end

# File tk/lib/multi-tk.rb, line 727
  def self.slaves(all = false)
    __getip.slaves(all)
  end

# File tk/lib/multi-tk.rb, line 783
  def self.tk_cmd_tbl
    @@TK_CMD_TBL
  end

# File tk/lib/multi-tk.rb, line 789
  def self.tk_object_table(id)
    __getip._tk_table_list[id]
  end

# File tk/lib/multi-tk.rb, line 786
  def self.tk_windows
    __getip._tk_windows
  end

# File tk/lib/multi-tk.rb, line 712
  def self.to_eval
    __getip.to_eval
  end

# File tk/lib/multi-tk.rb, line 1507
  def self.transfer_stderr(dist, src = '')
    __getip.transfer_stderr(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1489
  def self.transfer_stdin(dist, src = '')
    __getip.transfer_stdin(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1529
  def self.transfer_stdio(dist, src = '')
    __getip.transfer_stdio(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 1498
  def self.transfer_stdout(dist, src = '')
    __getip.transfer_stdout(dist, src)
    self
  end

# File tk/lib/multi-tk.rb, line 444
  def __create_safe_slave_obj(safe_opts, app_name, tk_opts)
    # safe interpreter

    ip_name = _create_slave_ip_name
    slave_ip = @interp.create_slave(ip_name, true)
    @slave_ip_tbl[ip_name] = slave_ip

    @interp._eval("::safe::interpInit #{ip_name}")

    slave_ip._invoke('set', 'argv0', app_name) if app_name.kind_of?(String)

    if tk_opts
      tk_opts = __check_safetk_optkeys(tk_opts)
      if tk_opts.key?('use')
        @slave_ip_top[ip_name] = ''
      else
        tk_opts, top_path = __create_safetk_frame(slave_ip, ip_name, app_name, 
                                                  tk_opts)
        @slave_ip_top[ip_name] = top_path
      end
      @interp._eval("::safe::loadTk #{ip_name} #{_keys2opts(tk_opts)}")
    else
      @slave_ip_top[ip_name] = nil
    end

    if safe_opts.key?('deleteHook') || safe_opts.key?(:deleteHook)
      @interp._eval("::safe::interpConfigure #{ip_name} " + 
                    _keys2opts(safe_opts))
    else
      @interp._eval("::safe::interpConfigure #{ip_name} " + 
                    _keys2opts(safe_opts) + '-deleteHook {' + 
                    TkComm._get_eval_string(proc{|slave|
                                              self._default_delete_hook(slave)
                                            }) + '}')
    end

    [slave_ip, ip_name]
  end

# File tk/lib/multi-tk.rb, line 482
  def __create_trusted_slave_obj(name, keys)
    ip_name = _create_slave_ip_name
    slave_ip = @interp.create_slave(ip_name, false)
    slave_ip._invoke('set', 'argv0', name) if name.kind_of?(String)
    slave_ip._invoke('set', 'argv', _keys2opts(keys))
    @interp._invoke('load', '', 'Tk', ip_name)
    @slave_ip_tbl[ip_name] = slave_ip
    [slave_ip, ip_name]
  end

# File tk/lib/multi-tk.rb, line 749
  def _add_new_tables
    (@@TK_TABLE_LIST.size - @tk_table_list.size).times{ 
      (tbl = {}).tainted? || tbl.taint
      @tk_table_list << tbl
    }
  end

# File tk/lib/multi-tk.rb, line 760
  def _add_tk_procs(name, args, body)
    return if slave?
    @interp._invoke('proc', name, args, body) if args && body
    @interp._invoke('interp', 'slaves').split.each{|slave|
      @interp._invoke('interp', 'alias', slave, name, '', name)
    }
  end

# File tk/lib/multi-tk.rb, line 1276
  def _conv_listelement(arg)
    @interp._conv_listelement(arg)
  end

# File tk/lib/multi-tk.rb, line 494
  def _create_slave_object(keys={})
    ip = MultiTkIp.new_slave(self, keys={})
    @slave_ip_tbl[ip.name] = ip
  end

# File tk/lib/multi-tk.rb, line 576
  def _default_delete_hook(slave)
    if @slave_ip_top[slave].kind_of?(String)
      # call default hook of safetk.tcl (ignore exceptions)

      if @slave_ip_top[slave] == ''
        begin
          @interp._eval("::safe::disallowTk #{slave}")
        rescue
          warn("Waring: fail to call '::safe::disallowTk'") if $DEBUG
        end
      else # toplevel path

        begin
          @interp._eval("::safe::tkDelete {} #{@slave_ip_top[slave]} #{slave}")
        rescue
          warn("Waring: fail to call '::safe::tkDelete'") if $DEBUG
          begin
            @interp._eval("destroy #{@slave_ip_top[slave]}")
          rescue
            warn("Waring: fail to destroy toplevel") if $DEBUG
          end
        end
      end
    end
    @slave_ip_tbl.delete(slave)
    @slave_ip_top.delete(slave)
  end

# File tk/lib/multi-tk.rb, line 1188
  def _eval(str)
    @interp._eval(str)
  end

# File tk/lib/multi-tk.rb, line 1204
  def _eval_with_enc(str)
    @interp._eval_with_enc(str)
  end

# File tk/lib/multi-tk.rb, line 1196
  def _eval_without_enc(str)
    @interp._eval_without_enc(str)
  end

# File tk/lib/multi-tk.rb, line 1216
  def _fromUTF8(str, encoding)
    @interp._fromUTF8(str, encoding)
  end

# File tk/lib/multi-tk.rb, line 1251
  def _get_global_var(var)
    @interp._get_global_var(var)
  end

# File tk/lib/multi-tk.rb, line 1254
  def _get_global_var2(var, idx)
    @interp._get_global_var2(var, idx)
  end

# File tk/lib/multi-tk.rb, line 1232
  def _get_variable(var, flag)
    @interp._get_variable(var, flag)
  end

# File tk/lib/multi-tk.rb, line 1235
  def _get_variable2(var, idx, flag)
    @interp._get_variable2(var, idx, flag)
  end

# File tk/lib/multi-tk.rb, line 756
  def _init_ip_env(script)
    script.call(self)
  end

# File tk/lib/multi-tk.rb, line 768
  def _init_ip_internal(init_ip_env, add_tk_procs)
    init_ip_env.each{|script| script.call(self)}
    add_tk_procs.each{|name, args, body| 
      if master?
        @interp._invoke('proc', name, args, body) if args && body
      else
        @set_alias_proc.call(name)
      end
    }
  end

# File tk/lib/multi-tk.rb, line 1192
  def _invoke(*args)
    @interp._invoke(*args)
  end

# File tk/lib/multi-tk.rb, line 1208
  def _invoke_with_enc(*args)
    @interp._invoke_with_enc(*args)
  end

# File tk/lib/multi-tk.rb, line 1200
  def _invoke_without_enc(*args)
    @interp._invoke_without_enc(*args)
  end

# File tk/lib/multi-tk.rb, line 1273
  def _merge_tklist(*args)
    @interp._merge_tklist(*args)
  end

# File tk/lib/multi-tk.rb, line 1228
  def _return_value
    @interp._return_value
  end

# File tk/lib/multi-tk.rb, line 1257
  def _set_global_var(var, value)
    @interp._set_global_var(var, value)
  end

# File tk/lib/multi-tk.rb, line 1260
  def _set_global_var2(var, idx, value)
    @interp._set_global_var2(var, idx, value)
  end

# File tk/lib/multi-tk.rb, line 1238
  def _set_variable(var, value, flag)
    @interp._set_variable(var, value, flag)
  end

# File tk/lib/multi-tk.rb, line 1241
  def _set_variable2(var, idx, value, flag)
    @interp._set_variable2(var, idx, value, flag)
  end

# File tk/lib/multi-tk.rb, line 1270
  def _split_tklist(str)
    @interp._split_tklist(str)
  end

# File tk/lib/multi-tk.rb, line 1224
  def _thread_tkwait(mode, target)
    @interp._thread_tkwait(mode, target)
  end

# File tk/lib/multi-tk.rb, line 1220
  def _thread_vwait(var)
    @interp._thread_vwait(var)
  end

# File tk/lib/multi-tk.rb, line 735
  def _tk_cmd_tbl
    tbl = {}
    MultiTkIp.tk_cmd_tbl.each{|id, ent| tbl[id] = ent if ent.ip == self }
    tbl
  end

# File tk/lib/multi-tk.rb, line 745
  def _tk_table_list
    @tk_table_list
  end

# File tk/lib/multi-tk.rb, line 741
  def _tk_windows
    @tk_windows
  end

# File tk/lib/multi-tk.rb, line 1212
  def _toUTF8(str, encoding)
    @interp._toUTF8(str, encoding)
  end

# File tk/lib/multi-tk.rb, line 1263
  def _unset_global_var(var)
    @interp._unset_global_var(var)
  end

# File tk/lib/multi-tk.rb, line 1266
  def _unset_global_var2(var, idx)
    @interp._unset_global_var2(var, idx)
  end

# File tk/lib/multi-tk.rb, line 1244
  def _unset_variable(var, flag)
    @interp._unset_variable(var, flag)
  end

# File tk/lib/multi-tk.rb, line 1247
  def _unset_variable2(var, idx, flag)
    @interp._unset_variable2(var, idx, flag)
  end

# File tk/lib/multi-tk.rb, line 1332
  def alias_delete(slave, cmd_name)
    @interp._invoke('interp', 'alias', _slavearg(slave), cmd_name, '')
    self
  end

# File tk/lib/multi-tk.rb, line 1325
  def alias_info(slave, cmd_name)
    _lst2ary(@interp._invoke('interp', 'alias', _slavearg(slave), cmd_name))
  end

# File tk/lib/multi-tk.rb, line 1451
  def alias_target(aliascmd, slave = '')
    @interp._invoke('interp', 'target', _slavearg(slave), aliascmd)
  end

# File tk/lib/multi-tk.rb, line 1351
  def aliases(slave = '')
    _lst2ary(@interp._invoke('interp', 'aliases', _slavearg(slave)))
  end

# File tk/lib/multi-tk.rb, line 683
  def alive?
    begin
      return false unless @cmd_receiver.alive?
      return false if @interp.deleted?
      return false if @interp._invoke('interp', 'exists', '') == '0'
    rescue Exception
      return false
    end
    true
  end

# File tk/lib/multi-tk.rb, line 60
    def call(*args)
      begin
         unless @ip.deleted?
           @ip.cb_eval(@cmd, *args)
         end
      rescue TkCallbackBreak, TkCallbackContinue
        fail
      rescue Exception
      end
    end

# File tk/lib/multi-tk.rb, line 836
  def cb_eval(cmd, *args)
    self.eval_callback{ TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *args)) }
  end

# File tk/lib/multi-tk.rb, line 1341
  def def_alias(slave, new_cmd, org_cmd, *args)
    ret = @interp._invoke('interp', 'alias', _slavearg(slave), new_cmd, 
                          '', org_cmd, *args)
    (ret == new_cmd)? self: nil
  end

# File tk/lib/multi-tk.rb, line 1172
  def delete
    if safe?
      # do 'exit' to call the delete_hook procedure

      @interp._eval_without_enc('exit')
    end
    @interp.delete
  end

# File tk/lib/multi-tk.rb, line 1376
  def delete_cmd(slave, cmd)
    slave_invoke = @interp._invoke('list', 'rename', cmd, '')
    @interp._invoke('interp', 'eval', _slavearg(slave), slave_invoke)
    self
  end

# File tk/lib/multi-tk.rb, line 1358
  def delete_slaves(*args)
    slaves = args.collect{|s| _slavearg(s)}
    @interp._invoke('interp', 'delete', *slaves) if slaves.size > 0
    self
  end

# File tk/lib/multi-tk.rb, line 1180
  def deleted?
    @interp.deleted?
  end

# File tk/lib/multi-tk.rb, line 1608
  def encoding
    @interp.encoding
  end

# File tk/lib/multi-tk.rb, line 1611
  def encoding=(enc)
    @interp.encoding = enc
  end

# File tk/lib/multi-tk.rb, line 1615
  def encoding_convertfrom(str, enc=None)
    @interp.encoding_convertfrom(str, enc)
  end

# File tk/lib/multi-tk.rb, line 1620
  def encoding_convertto(str, enc=None)
    @interp.encoding_convertto(str, enc)
  end

# File tk/lib/multi-tk.rb, line 912
  def eval_callback(cmd = Proc.new, *args)
    eval_proc_core(false, cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 916
  def eval_proc(cmd = Proc.new, *args)
    eval_proc_core(true, cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 1368
  def exist?(slave = '')
    ret = @interp._invoke('interp', 'exists', _slavearg(slave))
    (ret == '1')? true: false
  end

# File tk/lib/multi-tk.rb, line 1386
  def expose_cmd(slave, cmd, aliasname = nil)
    if aliasname
      @interp._invoke('interp', 'expose', _slavearg(slave), cmd, aliasname)
    else
      @interp._invoke('interp', 'expose', _slavearg(slave), cmd)
    end
    self
  end

# File tk/lib/multi-tk.rb, line 1412
  def hidden_cmds(slave = '')
    _lst2ary(@interp._invoke('interp', 'hidden', _slavearg(slave)))
  end

# File tk/lib/multi-tk.rb, line 1399
  def hide_cmd(slave, cmd, aliasname = nil)
    if aliasname
      @interp._invoke('interp', 'hide', _slavearg(slave), cmd, aliasname)
    else
      @interp._invoke('interp', 'hide', _slavearg(slave), cmd)
    end
    self
  end

# File tk/lib/multi-tk.rb, line 57
    def inspect
      cmd.inspect
    end

# File tk/lib/multi-tk.rb, line 652
  def inspect
    s = self.to_s.chop!
    if master?
      s << ':master'
    else
      if @interp.safe?
        s << ':safe-slave'
      else
        s << ':trusted-slave'
      end
    end
    s << '>'
  end

# File tk/lib/multi-tk.rb, line 1419
  def invoke_hidden(slave, cmd, *args)
    @interp._invoke('interp', 'invokehidden', _slavearg(slave), cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 1426
  def invoke_hidden_on_global(slave, cmd, *args)
    @interp._invoke('interp', 'invokehidden', _slavearg(slave), 
                    '-global', cmd, *args)
  end

# File tk/lib/multi-tk.rb, line 703
  def ip_name
    @ip_name || ''
  end

# File tk/lib/multi-tk.rb, line 1135
  def mainloop(check_root = true, restart_on_dead = false)
    return self if self.slave?
    unless restart_on_dead
      @interp.mainloop(check_root)
    else
      begin
        loop do
          break unless self.alive?
          if check_root
            begin
              break if TclTkLib.num_of_mainwindows == 0
            rescue Exception
              break
            end
          end
          @interp.mainloop(check_root)
        end
      rescue StandardError
        if TclTkLib.mainloop_abort_on_exception != nil
          STDERR.print("Warning: Tk mainloop on ", @interp.inspect, 
                       " receives ", $!.class.inspect, 
                       " exception (ignore) : ", $!.message, "\n");
        end
        retry
      end
    end
    self
  end

# File tk/lib/multi-tk.rb, line 1164
  def make_safe
    @interp.make_safe
  end

# File tk/lib/multi-tk.rb, line 1434
  def mark_trusted(slave = '')
    @interp._invoke('interp', 'marktrusted', _slavearg(slave))
    self
  end

# File tk/lib/multi-tk.rb, line 666
  def master?
    if @ip_name
      false
    else
      true
    end
  end

# File tk/lib/multi-tk.rb, line 697
  def path
    @ip_name || ''
  end

# File tk/lib/multi-tk.rb, line 1443
  def recursion_limit(slave = '', limit = None)
    number(@interp._invoke('interp', 'recursionlimit', 
                           _slavearg(slave), limit))
  end

# File tk/lib/multi-tk.rb, line 1184
  def restart
    @interp.restart
  end

# File tk/lib/multi-tk.rb, line 1168
  def safe?
    @interp.safe?
  end

# File tk/lib/multi-tk.rb, line 1589
  def safeip_add_to_access_path(slave, dir)
    ip = MultiTkIp.__getip
    ip._eval("::safe::interpAddToAccessPath #{@ip_name} #{dir}")
  end

# File tk/lib/multi-tk.rb, line 1552
  def safeip_configinfo(slot = nil)
    ip = MultiTkIp.__getip
    ret = {}
    if slot
      conf = _lst2ary(ip._eval("::safe::interpConfigure " + 
                               @ip_name + " -#{slot}"))
      if conf[0] == '-deleteHook'
        if conf[1] =~ /^rb_out (c\d+)/
          ret[conf[0][1..-1]] = MultiTkIp._tk_cmd_tbl[$1]
        else
          ret[conf[0][1..-1]] = conf[1]
        end
      else
        ret[conf[0][1..-1]] = conf[1]
      end
    else
      Hash[*_lst2ary(ip._eval("::safe::interpConfigure " + 
                              @ip_name))].each{|k, v|
        if k == '-deleteHook'
          if v =~ /^rb_out (c\d+)/
            ret[k[1..-1]] = MultiTkIp._tk_cmd_tbl[$1]
          else
            ret[k[1..-1]] = v
          end
        else
          ret[k[1..-1]] = v
        end
      }
    end
    ret
  end

# File tk/lib/multi-tk.rb, line 1538
  def safeip_configure(slave, slot, value=None)
    # use for '-noStatics' option ==> {statics=>false}

    #     for '-nestedLoadOk' option ==> {nested=>true}

    if slot.kind_of?(Hash)
      ip = MultiTkIp.__getip
      ip._eval('::safe::interpConfigure ' + @ip_name + ' ' + 
               hash_kv(slot).join(' '))
    else
      ip._eval('::safe::interpConfigure ' + @ip_name + ' ' + 
               "-#{slot} #{_get_eval_string(value)}")
    end
    self
  end

# File tk/lib/multi-tk.rb, line 1584
  def safeip_delete(slave)
    ip = MultiTkIp.__getip
    ip._eval("::safe::interpDelete " + @ip_name)
  end

# File tk/lib/multi-tk.rb, line 1594
  def safeip_find_in_access_path(slave, dir)
    ip = MultiTkIp.__getip
    ip._eval("::safe::interpFindInAccessPath #{@ip_name} #{dir}")
  end

# File tk/lib/multi-tk.rb, line 1599
  def safeip_set_log_cmd(slave, cmd = Proc.new)
    ip = MultiTkIp.__getip
    ip._eval("::safe::setLogCmd #{@ip_name} #{_get_eval_string(cmd)}")
  end

# File tk/lib/multi-tk.rb, line 110
  def set_safe_level(safe)
    @cmd_queue.enq([@system, 'set_safe_level', safe])
    self
  end

# File tk/lib/multi-tk.rb, line 1476
  def share_stderr(dist, src = '')
    @interp._invoke('interp', 'share', src, 'stderr', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1458
  def share_stdin(dist, src = '')
    @interp._invoke('interp', 'share', src, 'stdin', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1512
  def share_stdio(dist, src = '')
    @interp._invoke('interp', 'share', src, 'stdin',  dist)
    @interp._invoke('interp', 'share', src, 'stdout', dist)
    @interp._invoke('interp', 'share', src, 'stderr', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1467
  def share_stdout(dist, src = '')
    @interp._invoke('interp', 'share', src, 'stdout', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 677
  def slave?
    not master?
  end

# File tk/lib/multi-tk.rb, line 716
  def slaves(all = false)
    @interp._invoke('interp','slaves').split.map!{|name| 
      if @slave_ip_tbl.key?(name)
        @slave_ip_tbl[name]
      elsif all
        name
      else
        nil
      end
    }.compact!
  end

# File tk/lib/multi-tk.rb, line 709
  def to_eval
    @ip_name || ''
  end

# File tk/lib/multi-tk.rb, line 1503
  def transfer_stderr(dist, src = '')
    @interp._invoke('interp', 'transfer', src, 'stderr', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1485
  def transfer_stdin(dist, src = '')
    @interp._invoke('interp', 'transfer', src, 'stdin', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1523
  def transfer_stdio(dist, src = '')
    @interp._invoke('interp', 'transfer', src, 'stdin',  dist)
    @interp._invoke('interp', 'transfer', src, 'stdout', dist)
    @interp._invoke('interp', 'transfer', src, 'stderr', dist)
    self
  end

# File tk/lib/multi-tk.rb, line 1494
  def transfer_stdout(dist, src = '')
    @interp._invoke('interp', 'transfer', src, 'stdout', dist)
    self
  end