# File tk/lib/remote-tk.rb, line 19
def self._DEFAULT_MASTER
  # work only once
  if @flag
    @flag = nil
    @@DEFAULT_MASTER
  else
    nil
  end
end
            

 
               # File tk/lib/remote-tk.rb, line 15
def self._IP_TABLE; @@IP_TABLE; end
            

 
               # File tk/lib/remote-tk.rb, line 16
def self._TK_TABLE_LIST; @@TK_TABLE_LIST; end
            

 
               # File tk/lib/multi-tk.rb, line 1324
def self.__getip
  current = Thread.current
  if TclTkLib.mainloop_thread? != false && current['callback_ip']
    return current['callback_ip']
  end
  if current.group == ThreadGroup::Default
    @@DEFAULT_MASTER
  else
    ip = @@IP_TABLE[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 867
def self.__init_ip_env__(table, script)
  ret = []
  mtx = Mutex.new.lock
  @init_ip_env_queue.enq([mtx, ret, table, script])
  mtx.lock
  if ret[0].kind_of?(Exception)
    raise ret[0]
  else
    ret[0]
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 757
def self.__pseudo_toplevel
  Thread.current.group == ThreadGroup::Default && 
    MultiTkIp.__getip == @@DEFAULT_MASTER &&
    self.__pseudo_toplevel_evaluable? && @pseudo_toplevel[1]
end
            

 
               # File tk/lib/multi-tk.rb, line 763
def self.__pseudo_toplevel=(m)
  unless (Thread.current.group == ThreadGroup::Default && 
            MultiTkIp.__getip == @@DEFAULT_MASTER)
    fail SecurityError, "no permission to manipulate"
  end

  # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
  if m.respond_to?(:pseudo_toplevel_evaluable?)
    @pseudo_toplevel[0] = true
    @pseudo_toplevel[1] = m
  else
    fail ArgumentError, 'fail to set pseudo-toplevel'
  end
  self
end
            

 
               # File tk/lib/multi-tk.rb, line 787
def self.__pseudo_toplevel_evaluable=(mode)
  unless (Thread.current.group == ThreadGroup::Default && 
            MultiTkIp.__getip == @@DEFAULT_MASTER)
    fail SecurityError, "no permission to manipulate"
  end

  @pseudo_toplevel[0] = (mode)? true: false
end
            

 
               # File tk/lib/multi-tk.rb, line 779
def self.__pseudo_toplevel_evaluable?
  begin
    @pseudo_toplevel[0] && @pseudo_toplevel[1].pseudo_toplevel_evaluable?
  rescue Exception
    false
  end
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2283
def _create_console
  __getip._create_console
end
            

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1316
def self._ip_id_
  __getip._ip_id_
end
            

 
               # File tk/lib/multi-tk.rb, line 2269
def _make_menu_embeddable(menu_path)
  __getip._make_menu_embeddable(menu_path)
end
            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 2164
def abort(msg = nil)
  __getip.abort(msg)
end
            

 
               # File tk/lib/multi-tk.rb, line 1650
def self.add_tk_procs(name, args=nil, body=nil)
  if name.kind_of?(Array) # => an array of [name, args, body]
    name.each{|param| self.add_tk_procs(*param)}
  else
    name = name.to_s
    @@ADD_TK_PROCS << [name, args, body]
    @@IP_TABLE.each{|tg, ip| 
      ip._add_tk_procs(name, args, body)
    }
  end
end
            

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 2144
def allow_ruby_exit= (mode)
  __getip.allow_ruby_exit = mode
end
            

 
               # File tk/lib/multi-tk.rb, line 2140
def allow_ruby_exit?
  __getip.allow_ruby_exit?
end
            

 
               # File tk/lib/multi-tk.rb, line 835
def self.assign_receiver_and_watchdog(target)
  ret = [nil]
  @assign_thread.raise(@assign_request.new(target, ret))
  while ret[0] == nil
    unless @assign_thread.alive?
      raise RuntimeError, 'lost the thread to assign a receiver and a watchdog thread'
    end
  end
  if ret[0].kind_of?(Exception)
    raise ret[0]
  else
    ret[0]
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 2070
def bg_eval(*args, &blk)
  # class ==> interp object
  __getip.bg_eval(*args, &blk)
end
            

 
               # File tk/lib/multi-tk.rb, line 2043
def bg_eval_proc(*args, &blk)
  # class ==> interp object
  __getip.bg_eval_proc(*args, &blk)
end
            

 
               # File tk/lib/multi-tk.rb, line 2058
def bg_eval_string(cmd, *eval_args)
  # class ==> interp object
  __getip.bg_eval_string(cmd, *eval_args)
end
            

 
               # File tk/lib/multi-tk.rb, line 2964
def self.bgerror(cmd = Proc.new, slave = nil, &b)
  __getip.bgerror(cmd, slave, &b)
end
            

 
               # File tk/lib/multi-tk.rb, line 1682
def self.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/multi-tk.rb, line 1598
  def self.create_table
    if __getip.slave? 
      begin
        raise SecurityError, "slave-IP has no permission creating a new table"
      rescue SecurityError => e
        #p e.backtrace
        # Is called on a Ruby/Tk library?
        caller_info = e.backtrace[1]
        if caller_info =~ %r{^#{MultiTkIp::BASE_DIR}/(tk|tkextlib)/[^:]+\.rb:}
          # Probably, caller is a Ruby/Tk library  -->  allow creating
        else
          raise e
        end
      end
    end

    id = @@TK_TABLE_LIST.size
    obj = Object.new
    @@TK_TABLE_LIST << obj
    obj.instance_eval <<-EOD
      def self.method_missing(m, *args)
         MultiTkIp.tk_object_table(#{id}).__send__(m, *args)
      end
    EOD
    obj.freeze
    @@IP_TABLE.each{|tg, ip| ip._add_new_tables }
    return obj
  end
            

 
               # File tk/lib/multi-tk.rb, line 2802
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 2148
def delete
  __getip.delete
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 2152
def deleted?
  __getip.deleted?
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2066
def eval(*args, &blk)
  # class ==> interp object
  __getip.eval(*args, &blk)
end
            

 
               # File tk/lib/multi-tk.rb, line 2037
def eval_proc(*args, &blk)
  # class ==> interp object
  __getip.eval_proc(*args, &blk)
end
            

 
               # File tk/lib/multi-tk.rb, line 2052
def eval_string(cmd, *eval_args)
  # class ==> interp object
  __getip.eval_string(cmd, *eval_args)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2168
def exit(st = true)
  __getip.exit(st)
end
            

 
               # File tk/lib/multi-tk.rb, line 2172
def exit!(st = false)
  __getip.exit!(st)
end
            

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 3005
def self.get_limit(limit_type, slave = '', slot = nil)
  __getip.get_limit(limit_type, slave, slot)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2156
def has_mainwindow?
  __getip.has_mainwindow?
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 890
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 1627
def self.init_ip_env(script = Proc.new)
  @@INIT_IP_ENV << script
  if __getip.slave?
    begin
      raise SecurityError, "slave-IP has no permission initializing IP env"
    rescue SecurityError => e
      #p e.backtrace
      # Is called on a Ruby/Tk library?
      caller_info = e.backtrace[1]
      if caller_info =~ %r{^#{MultiTkIp::BASE_DIR}/(tk|tkextlib)/[^:]+\.rb:}
        # Probably, caller is a Ruby/Tk library  -->  allow creating
      else
        raise e
      end
    end
  end

  # @@IP_TABLE.each{|tg, ip|
  #   ip._init_ip_env(script)
  # }
  @@DEFAULT_MASTER.__init_ip_env__(@@IP_TABLE, script)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2160
def invalid_namespace?
  __getip.invalid_namespace?
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2919
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 2937
def self.invoke_hidden_on_namespace(slave, ns, cmd, *args)
  __getip.invoke_hidden_on_namespace(slave, ns, cmd, *args)
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 2090
def mainloop_abort_on_exception
  # __getip.mainloop_abort_on_exception
  TclTkLib.mainloop_abort_on_exception
end
            

 
               # File tk/lib/multi-tk.rb, line 2094
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 2084
def mainloop_watchdog(check_root = true)
  __getip.mainloop_watchdog(check_root)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 1516
def self.manipulable?
  true
end
            

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 799
def self.new(target, ret)
  obj = super()
  obj.target = target
  obj.ret = ret
  obj
end
            

 
               # File tk/lib/multi-tk.rb, line 1349
def new_master(safe=nil, keys={})
  if safe.kind_of?(Hash)
    keys = safe
  elsif safe.kind_of?(Integer)
    raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash)
    if !keys.key?(:safe) && !keys.key?('safe')
      keys[:safe] = safe
    end
  elsif safe == nil
    # do nothing
  else
    raise ArgumentError, "unexpected argument(s)"
  end

  ip = __new(__getip, nil, keys)
  #ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given?
   if block_given?
     Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)}
   end
  ip
end
            

 
               # File tk/lib/multi-tk.rb, line 1396
def new_safe_slave(safe=4, keys={})
  if safe.kind_of?(Hash)
    keys = safe
  elsif safe.kind_of?(Integer)
    raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash)
    if !keys.key?(:safe) && !keys.key?('safe')
      keys[:safe] = safe
    end
  else
    raise ArgumentError, "unexpected argument(s)"
  end

  ip = __new(__getip, true, keys)
  # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given?
  if block_given?
    Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)}
  end
  ip
end
            

 
               # File tk/lib/multi-tk.rb, line 1373
def new_slave(safe=nil, keys={})
  if safe.kind_of?(Hash)
    keys = safe
  elsif safe.kind_of?(Integer)
    raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash)
    if !keys.key?(:safe) && !keys.key?('safe')
      keys[:safe] = safe
    end
  elsif safe == nil
    # do nothing
  else
    raise ArgumentError, "unexpected argument(s)"
  end

  ip = __new(__getip, false, keys)
  # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given?
  if block_given?
    Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)}
  end
  ip
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 1662
def self.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
    }
  }
  @@IP_TABLE.each{|tg, ip| 
    ip._remove_tk_procs(*names)
  }
end
            

 
               # File tk/lib/multi-tk.rb, line 2176
def restart(app_name = nil, keys = {})
  init_ip_internal

  __getip._invoke('set', 'argv0', app_name) if app_name
  if keys.kind_of?(Hash)
    __getip._invoke('set', 'argv', _keys2opts(keys))
  end

  __getip.restart
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2132
def safe_base?
  begin
    __getip.safe_base?
  rescue
    false
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 351
def self.safe_level
  __getip.safe_level
end
            

 
               # File tk/lib/multi-tk.rb, line 345
def self.safe_level=(safe)
  self.set_safe_level(safe)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2110
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 2980
def self.set_limit(limit_type, slave = '', opts = {})
  __getip.set_limit(limit_type, slave, opts)
end
            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1094
def __create_safe_slave_obj(safe_opts, app_name, tk_opts)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?

  # safe interpreter
  ip_name = _create_slave_ip_name
  slave_ip = @interp.create_slave(ip_name, true)
  @slave_ip_tbl[ip_name] = slave_ip
  def slave_ip.safe_base?
    true
  end

  @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 1137
def __create_trusted_slave_obj(name, keys)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?

  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 2599
def __eval(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.__eval(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 2604
def __invoke(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.__invoke(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 1762
def __pseudo_toplevel
  ip = MultiTkIp.__getip
  (ip == @@DEFAULT_MASTER || ip == self) &&
    self.__pseudo_toplevel_evaluable? && @pseudo_toplevel[1]
end
            

 
               # File tk/lib/multi-tk.rb, line 1768
def __pseudo_toplevel=(m)
  unless (Thread.current.group == ThreadGroup::Default && 
            MultiTkIp.__getip == @@DEFAULT_MASTER)
    fail SecurityError, "no permission to manipulate"
  end

  # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
  if m.respond_to?(:pseudo_toplevel_evaluable?)
    @pseudo_toplevel[0] = true
    @pseudo_toplevel[1] = m
  else
    fail ArgumentError, 'fail to set pseudo-toplevel'
  end
  self
end
            

 
               # File tk/lib/multi-tk.rb, line 1792
def __pseudo_toplevel_evaluable=(mode)
  unless (Thread.current.group == ThreadGroup::Default && 
            MultiTkIp.__getip == @@DEFAULT_MASTER)
    fail SecurityError, "no permission to manipulate"
  end

  @pseudo_toplevel[0] = (mode)? true: false
end
            

 
               # File tk/lib/multi-tk.rb, line 1784
def __pseudo_toplevel_evaluable?
  begin
    @pseudo_toplevel[0] && @pseudo_toplevel[1].pseudo_toplevel_evaluable?
  rescue Exception
    false
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1543
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 1554
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 2727
def _conv_listelement(arg)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._conv_listelement(arg)
end
            

 
               # File tk/lib/multi-tk.rb, line 1151
def _create_slave_object(keys={})
  raise SecurityError, "no permission to manipulate" unless self.manipulable?

  ip = MultiTkIp.new_slave(self, keys={})
  @slave_ip_tbl[ip.name] = ip
end
            

 
               # File tk/lib/multi-tk.rb, line 1284
def _default_delete_hook(slave)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @slave_ip_tbl.delete(slave)
  top = @slave_ip_top.delete(slave)
  if top.kind_of?(String)
    # call default hook of safetk.tcl (ignore exceptions)
    if top == ''
      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 {} #{top} #{slave}")
      rescue
        warn("Waring: fail to call '::safe::tkDelete'") if $DEBUG
        begin
          @interp._eval("destroy #{top}")
        rescue
          warn("Waring: fail to destroy toplevel") if $DEBUG
        end
      end
    end
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 366
  def _destroy_slaves_of_slaveIP(ip)
    unless ip.deleted?
      # ip._split_tklist(ip._invoke('interp', 'slaves')).each{|name|
      ip._split_tklist(ip._invoke_without_enc('interp', 'slaves')).each{|name|
        name = _fromUTF8(name)
        begin
          # ip._eval_without_enc("#{name} eval {foreach i [after info] {after cancel $i}}")
          after_ids = ip._eval_without_enc("#{name} eval {after info}")
          ip._eval_without_enc("#{name} eval {foreach i {#{after_ids}} {after cancel $i}}")
        rescue Exception
        end
        begin
          # ip._invoke('interp', 'eval', name, 'destroy', '.')
          ip._invoke(name, 'eval', 'destroy', '.')
        rescue Exception
        end

        # safe_base?
        if ip._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
          begin
            ip._eval_without_enc("::safe::interpDelete #{name}")
          rescue Exception
          end
        end
=begin
        if ip._invoke('interp', 'exists', name) == '1'
          begin
            ip._invoke(name, 'eval', 'exit')
          rescue Exception
          end
        end
=end
        unless ip.deleted?
          if ip._invoke('interp', 'exists', name) == '1'
            begin
              ip._invoke('interp', 'delete', name)
            rescue Exception
            end
          end
        end
      }
    end
  end
            

 
               # File tk/lib/multi-tk.rb, line 2609
def _eval(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._eval(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 2629
def _eval_with_enc(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._eval_with_enc(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 2619
def _eval_without_enc(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._eval_without_enc(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 2644
def _fromUTF8(str, encoding=nil)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._fromUTF8(str, encoding)
end
            

 
               # File tk/lib/multi-tk.rb, line 2689
def _get_global_var(var)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._get_global_var(var)
end
            

 
               # File tk/lib/multi-tk.rb, line 2693
def _get_global_var2(var, idx)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._get_global_var2(var, idx)
end
            

 
               # File tk/lib/multi-tk.rb, line 2664
def _get_variable(var, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._get_variable(var, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 2668
def _get_variable2(var, idx, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._get_variable2(var, idx, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 1550
def _init_ip_env(script)
  self.eval_proc{script.call(self)}
end
            

 
               # File tk/lib/multi-tk.rb, line 1573
def _init_ip_internal(init_ip_env, add_tk_procs)
  #init_ip_env.each{|script| self.eval_proc{script.call(self)}}
  init_ip_env.each{|script| self._init_ip_env(script)}
  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 2614
def _invoke(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 2634
def _invoke_with_enc(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke_with_enc(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 2624
def _invoke_without_enc(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke_without_enc(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 1319
def _ip_id_
  # for RemoteTkIp
  ''
end
            

 
               # File tk/lib/multi-tk.rb, line 2714
def _make_menu_embeddable(menu_path)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._make_menu_embeddable(menu_path)
end
            

 
               # File tk/lib/multi-tk.rb, line 2723
def _merge_tklist(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._merge_tklist(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 612
def _receiver_mainloop(check_root)
  if @evloop_thread[0] && @evloop_thread[0].alive?
    @evloop_thread[0]
  else
    @evloop_thread[0] = Thread.new{
      while !@interp.deleted?
        #if check_root
        #  inf = @interp._invoke_without_enc('info', 'command', '.')
        #  break if !inf.kind_of?(String) || inf != '.'
        #end
        break if check_root && !@interp.has_mainwindow?
        sleep 0.5
      end
    }
    @evloop_thread[0]
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1562
def _remove_tk_procs(*names)
  return if slave?
  names.each{|name|
    name = name.to_s
    @interp._invoke('rename', name, '')
    @interp._invoke('interp', 'slaves').split.each{|slave|
      @interp._invoke('interp', 'alias', slave, name, '') rescue nil
    }
  }
end
            

 
               # File tk/lib/multi-tk.rb, line 2659
def _return_value
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._return_value
end
            

 
               # File tk/lib/multi-tk.rb, line 2697
def _set_global_var(var, value)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._set_global_var(var, value)
end
            

 
               # File tk/lib/multi-tk.rb, line 2701
def _set_global_var2(var, idx, value)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._set_global_var2(var, idx, value)
end
            

 
               # File tk/lib/multi-tk.rb, line 2672
def _set_variable(var, value, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._set_variable(var, value, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 2676
def _set_variable2(var, idx, value, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._set_variable2(var, idx, value, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 2719
def _split_tklist(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._split_tklist(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 2654
def _thread_tkwait(mode, target)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._thread_tkwait(mode, target)
end
            

 
               # File tk/lib/multi-tk.rb, line 2649
def _thread_vwait(var)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._thread_vwait(var)
end
            

 
               # File tk/lib/multi-tk.rb, line 1529
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 1539
def _tk_table_list
  @tk_table_list
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2639
def _toUTF8(str, encoding=nil)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._toUTF8(str, encoding)
end
            

 
               # File tk/lib/multi-tk.rb, line 2705
def _unset_global_var(var)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._unset_global_var(var)
end
            

 
               # File tk/lib/multi-tk.rb, line 2709
def _unset_global_var2(var, idx)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._unset_global_var2(var, idx)
end
            

 
               # File tk/lib/multi-tk.rb, line 2680
def _unset_variable(var, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._unset_variable(var, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 2684
def _unset_variable2(var, idx, flag)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._unset_variable2(var, idx, flag)
end
            

 
               # File tk/lib/multi-tk.rb, line 2551
def abort(msg = nil)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  if master? && !safe? && allow_ruby_exit?
    if msg
      Kernel.abort(msg)
    else
      Kernel.abort
    end
  else
    # ignore msg
    delete
    1
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 2786
def alias_delete(slave, cmd_name)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke('interp', 'alias', _slavearg(slave), cmd_name, '')
  self
end
            

 
               # File tk/lib/multi-tk.rb, line 2778
def alias_info(slave, cmd_name)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  _lst2ary(@interp._invoke('interp', 'alias', _slavearg(slave), cmd_name))
end
            

 
               # File tk/lib/multi-tk.rb, line 3018
def alias_target(aliascmd, slave = '')
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke('interp', 'target', _slavearg(slave), aliascmd)
end
            

 
               # File tk/lib/multi-tk.rb, line 2807
def aliases(slave = '')
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  _lst2ary(@interp._invoke('interp', 'aliases', _slavearg(slave)))
end
            

 
               # File tk/lib/multi-tk.rb, line 1461
def alive?
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  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 2468
def allow_ruby_exit= (mode)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.allow_ruby_exit = mode
end
            

 
               # File tk/lib/multi-tk.rb, line 2463
def allow_ruby_exit?
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.allow_ruby_exit?
end
            

 
               # File tk/lib/multi-tk.rb, line 2019
def bg_eval(*args, &blk)
  if block_given?
    bg_eval_proc(*args, &blk)
  elsif args[0]
    if args[0].respond_to?(:call)
      bg_eval_proc(*args)
    else
      bg_eval_string(*args)
    end
  else
    fail ArgumentError, "no argument to eval"
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1949
  def bg_eval_proc(*args)
    if block_given?
      cmd = Proc.new
    else
      unless (cmd = args.shift)
        fail ArgumentError, "A Proc or Method object is expected for 1st argument"
      end
    end
    Thread.new{
      eval_proc(cmd, *args)
=begin
      eval_proc_core(false, 
                     proc{|safe, *params| 
                       $SAFE=safe if $SAFE < safe
                       Thread.new(*params, &cmd).value
                     },
                     safe_level, *args)
=end
    }
  end
            

 
               # File tk/lib/multi-tk.rb, line 1988
def bg_eval_string(cmd, *eval_args)
  # cmd string ==> proc
  unless cmd.kind_of?(String)
    raise RuntimeError, "A String object is expected for the 'cmd' argument"
  end
  Thread.new{
    eval_proc_core(true, 
                   proc{|safe| 
                     Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd,
                                 *eval_args)
                   })
  }
end
            

 
               # File tk/lib/multi-tk.rb, line 215
def call(*args)
  unless @ip.deleted?
    current = Thread.current
    backup_ip = current['callback_ip']
    current['callback_ip'] = @ip
    begin
      ret = @ip.cb_eval(@cmd, *args)
      fail ret if ret.kind_of?(Exception)
      ret
    rescue TkCallbackBreak, TkCallbackContinue => e
      fail e
    rescue SecurityError => e
      # in 'exit', 'exit!', and 'abort' : security error --> delete IP
      if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/
        @ip.delete
      elsif @ip.safe?
        if @ip.respond_to?(:cb_error)
          @ip.cb_error(e)
        else
          nil # ignore
        end
      else
        fail e
      end
    rescue Exception => e
      fail e if e.message =~ /^TkCallback/

      if @ip.safe?
        if @ip.respond_to?(:cb_error)
          @ip.cb_error(e)
        else
          nil # ignore
        end
      else
        fail e
      end
    ensure
      current['callback_ip'] = backup_ip
    end
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 324
def cb_error(e)
  if @cb_error_proc[0].respond_to?(:call)
    @cb_error_proc[0].call(e)
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1703
def cb_eval(cmd, *args)
  self.eval_callback(*args){|safe, *params|
    $SAFE=safe if $SAFE < safe
    # TkUtil.eval_cmd(cmd, *params)
    TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params))
  }
end
            

 
               # File tk/lib/multi-tk.rb, line 2796
def def_alias(slave, new_cmd, org_cmd, *args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  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 2473
  def delete
    raise SecurityError, "no permission to manipulate" unless self.manipulable?
    @slave_ip_tbl.each{|name, subip|
      _destroy_slaves_of_slaveIP(subip)
=begin
      begin
        subip._invoke('destroy', '.') unless subip.deleted?
      rescue Exception
      end
=end
      begin
        # subip._eval_without_enc("foreach i [after info] {after cancel $i}")
        unless subip.deleted?
          after_ids = subip._eval_without_enc("after info")
          subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}")
        end
      rescue Exception
      end

      # safe_base?
      if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
        begin
          @interp._eval_without_enc("::safe::interpDelete #{name}")
        rescue Exception
        else
          next if subip.deleted?
        end
      end
      if subip.respond_to?(:safe_base?) && subip.safe_base? && 
          !subip.deleted?
        # do 'exit' to call the delete_hook procedure
        begin
          subip._eval_without_enc('exit') 
        rescue Exception
        end
      else
        begin
          subip.delete unless subip.deleted?
        rescue Exception
        end
      end
    }

    begin
      # @interp._eval_without_enc("foreach i [after info] {after cancel $i}")
      after_ids = @interp._eval_without_enc("after info")
      @interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}")
    rescue Exception
    end

    begin
      @interp._invoke('destroy', '.') unless @interp.deleted?
    rescue Exception
    end

    if @safe_base && !@interp.deleted?
      # do 'exit' to call the delete_hook procedure
      @interp._eval_without_enc('exit')
    end
    @interp.delete
    self
  end
            

 
               # File tk/lib/multi-tk.rb, line 2835
def delete_cmd(slave, cmd)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  slave_invoke = @interp._invoke('list', 'rename', cmd, '')
  @interp._invoke('interp', 'eval', _slavearg(slave), slave_invoke)
  self
end
            

 
               # File tk/lib/multi-tk.rb, line 2815
def delete_slaves(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  slaves = args.collect{|s| _slavearg(s)}
  @interp._invoke('interp', 'delete', *slaves) if slaves.size > 0
  self
end
            

 
               # File tk/lib/multi-tk.rb, line 2536
def deleted?
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.deleted?
end
            

 
               # File tk/lib/multi-tk.rb, line 3191
def encoding
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.encoding
end
            

 
               # File tk/lib/multi-tk.rb, line 3195
def encoding=(enc)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.encoding = enc
end
            

 
               # File tk/lib/multi-tk.rb, line 3200
def encoding_convertfrom(str, enc=None)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.encoding_convertfrom(str, enc)
end
            

 
               # File tk/lib/multi-tk.rb, line 3206
def encoding_convertto(str, enc=None)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.encoding_convertto(str, enc)
end
            

 
               # File tk/lib/multi-tk.rb, line 2005
def eval(*args, &blk)
  if block_given?
    eval_proc(*args, &blk)
  elsif args[0]
    if args[0].respond_to?(:call)
      eval_proc(*args)
    else
      eval_string(*args)
    end
  else
    fail ArgumentError, "no argument to eval"
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1897
def eval_callback(*args)
  if block_given?
    cmd = Proc.new
  else
    cmd = args.shift
  end
  current = Thread.current
  backup_ip = current['callback_ip']
  current['callback_ip'] = self
  begin
    eval_proc_core(false, cmd, *args)
  ensure
    current['callback_ip'] = backup_ip
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1913
def eval_proc(*args)
  # The scope of the eval-block of 'eval_proc' method is different from
  # the external. If you want to pass local values to the eval-block,
  # use arguments of eval_proc method. They are passed to block-arguments.
  if block_given?
    cmd = Proc.new
  else
    unless (cmd = args.shift)
      fail ArgumentError, "A Proc or Method object is expected for 1st argument"
    end
  end
  if TclTkLib.mainloop_thread? == true
    # call from eventloop
    current = Thread.current
    backup_ip = current['callback_ip']
    current['callback_ip'] = self
    begin
      eval_proc_core(false, 
                     proc{|safe, *params|
                       $SAFE=safe if $SAFE < safe
                       cmd.call(*params)
                     }, *args)
    ensure
      current['callback_ip'] = backup_ip
    end
  else
    eval_proc_core(true, 
                   proc{|safe, *params| 
                     $SAFE=safe if $SAFE < safe
                     Thread.new(*params, &cmd).value
                   },
                   *args)
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 1974
def eval_string(cmd, *eval_args)
  # cmd string ==> proc
  unless cmd.kind_of?(String)
    raise RuntimeError, "A String object is expected for the 'cmd' argument"
  end

  eval_proc_core(true, 
                 proc{|safe| 
                   Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd,
                               *eval_args)
                 })
end
            

 
               # File tk/lib/multi-tk.rb, line 2826
def exist?(slave = '')
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  ret = @interp._invoke('interp', 'exists', _slavearg(slave))
  (ret == '1')? true: false
end
            

 
               # File tk/lib/multi-tk.rb, line 2566
def exit(st = true)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  if master? && !safe? && allow_ruby_exit?
    Kernel.exit(st)
  else
    delete
    st
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 2576
def exit!(st = false)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  if master? && !safe? && allow_ruby_exit?
    Kernel.exit!(st)
  else
    delete
    st
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 2846
def expose_cmd(slave, cmd, aliasname = nil)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  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 2968
def get_bgerror_handler(slave = '')
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  procedure(@interp._invoke('interp', 'bgerror', _slavearg(slave)))
end
            

 
               # File tk/lib/multi-tk.rb, line 2984
def get_limit(limit_type, slave = '', slot = nil)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?

  if slot
    num_or_str(@interp._invoke('interp', 'limit', _slavearg(slave), 
                               limit_type, slot))
  else
    l = @interp._split_tklist(@interp._invoke_without_enc('interp', 'limit', 
                                                          _slavearg(slave), 
                                                          limit_type))
    l.map!{|s| _fromUTF8(s)}
    r = {}
    until l.empty?
      key = l.shift[1..-1]
      val = l.shift
      val = num_or_str(val) if val
      r[key] = val
    end
    r
  end
end