INTERP

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1527
def self.__getip
  current = Thread.current
  if current.kind_of?(@@CALLBACK_SUBTHREAD)
    return current[:callback_ip]
  end
  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 957
def self.__init_ip_env__(table, script)
  ret = []
  mtx  = (Thread.current[:MultiTk_ip_Mutex] ||= Mutex.new)
  cond = (Thread.current[:MultiTk_ip_CondVar] ||= ConditionVariable.new)
  mtx.synchronize{
    @init_ip_env_queue.enq([mtx, cond, ret, table, script])
    cond.wait(mtx)
  }
  if ret[0].kind_of?(Exception)
    raise ret[0]
  else
    ret[0]
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 846
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 852
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 876
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 868
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 2676
def _conv_listelement(arg)
  __getip._conv_listelement(arg)
end
            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 2135
def MultiTkIp._proc_on_current_safelevel(cmd=nil, &blk)
  MultiTkIp.__getip._proc_on_current_safelevel(cmd, &blk)
end
            

 
               # File tk/lib/multi-tk.rb, line 2126
def MultiTkIp._proc_on_safelevel(cmd=nil, &blk)
  MultiTkIp.__getip._proc_on_safelevel(cmd, &blk)
end
            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1876
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 3191
def self.alias_delete(slave, cmd_name)
  __getip.alias_delete(slave, cmd_name)
  self
end
            

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 924
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 2462
def bg_eval(*args, &blk)
  # class ==> interp object
  __getip.bg_eval(*args, &blk)
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2450
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 3364
def self.bgerror(cmd = Proc.new, slave = nil, &b)
  __getip.bgerror(cmd, slave, &b)
end
            

 
               # File tk/lib/multi-tk.rb, line 1907
def self.cb_entry_class
  @@CB_ENTRY_CLASS
end
            

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

 
               # File tk/lib/multi-tk.rb, line 1819
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_variable_set(:@id, id)
  obj.instance_variable_set(:@mutex, Mutex.new)
  obj.instance_eval{
    def self.mutex
      @mutex
    end
    def self.method_missing(m, *args)
      MultiTkIp.tk_object_table(@id).__send__(m, *args)
    end
  }
  obj.freeze
  @@IP_TABLE.each{|tg, ip| ip._add_new_tables }
  return obj
end
            

 
               # File tk/lib/multi-tk.rb, line 3202
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 3603
def default_encoding=(enc)
  __getip.default_encoding=(enc)
end
            

 
               # File tk/lib/multi-tk.rb, line 2473
def self.default_master?
  __getip == @@DEFAULT_MASTER
end
            

 
               # File tk/lib/multi-tk.rb, line 2545
def delete
  __getip.delete
end
            

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 3607
def encoding=(enc)
  __getip.encoding=(enc)
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 3611
def encoding_name
  __getip.encoding_name
end
            

 
               # File tk/lib/multi-tk.rb, line 3615
def encoding_obj
  __getip.encoding_obj
end
            

 
               # File tk/lib/multi-tk.rb, line 3591
def encoding_table
  __getip.encoding_table
end
            

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 3599
def force_default_encoding?
  __getip.force_default_encoding?
end
            

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 983
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|
          name = m.to_s
          begin
            unless name == '__id__' || name == '__send__' || name == '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 1853
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 1900
def self.init_ip_internal
  __getip._init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS)
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 3319
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 3337
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 1702
def self.ip_name
  __getip.ip_name
end
            

 
               # File tk/lib/multi-tk.rb, line 800
def self.mainloop(check_root = true)
  begin
    TclTkLib.set_eventloop_window_mode(true)
    @interp_thread.value
  ensure
    TclTkLib.set_eventloop_window_mode(false)
  end
end
            

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1844
def self.method_missing(m, *args)
  MultiTkIp.tk_object_table(@id).__send__(m, *args)
end
            

 
               # File tk/lib/multi-tk.rb, line 1841
def self.mutex
  @mutex
end
            

 
               # File tk/lib/multi-tk.rb, line 188
def initialize(ip, cmd)
  @ip = ip
  @safe = safe = $SAFE
  # @cmd = cmd
  cmd = MultiTkIp._proc_on_safelevel(&cmd)
  @cmd = proc{|*args| cmd.call(safe, *args)}
  self.freeze
end
            

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

 
               # File tk/lib/multi-tk.rb, line 1554
def new_master(safe=nil, keys={}, &blk)
  if MultiTkIp::WITH_RUBY_VM
    #### TODO !!!!!!
    fail RuntimeError,
         'sorry, still not support multiple master-interpreters on RubyVM'
  end

  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)}
    #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)}
    ip._proc_on_safelevel(&blk).call(ip.safe_level)
  end
  ip
end
            

 
               # File tk/lib/multi-tk.rb, line 1611
def new_safe_slave(safe=1, keys={}, &blk)
  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)}
    #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)}
    ip._proc_on_safelevel(&blk).call(ip.safe_level)
  end
  ip
end
            

 
               # File tk/lib/multi-tk.rb, line 1586
def new_slave(safe=nil, keys={}, &blk)
  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)}
    #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)}
    ip._proc_on_safelevel(&blk).call(ip.safe_level)
  end
  ip
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 1888
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 2573
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 2525
def safe?
  __getip.safe?
end
            

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

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

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

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

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

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1514
def self.table
  @table
end
            

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

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

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

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

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

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

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

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

 
               # File tk/lib/multi-tk.rb, line 1190
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.instance_eval{
    @force_default_encoding ||= TkUtil.untrust([false])
    @encoding ||= TkUtil.untrust([nil])
    def @encoding.to_s; self.join(nil); end
  }
  @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)}")
    @interp._invoke('__replace_slave_tk_commands__', ip_name)
  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 1239
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.instance_eval{
    @force_default_encoding ||= TkUtil.untrust([false])
    @encoding ||= TkUtil.untrust([nil])
    def @encoding.to_s; self.join(nil); end
  }
  slave_ip._invoke('set', 'argv0', name) if name.kind_of?(String)
  slave_ip._invoke('set', 'argv', _keys2opts(keys))
  @interp._invoke('load', '', 'Tk', ip_name)
  @interp._invoke('__replace_slave_tk_commands__', ip_name)
  @slave_ip_tbl[ip_name] = slave_ip
  [slave_ip, ip_name]
end
            

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

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

 
               # File tk/lib/multi-tk.rb, line 1995
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 2001
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 2025
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 2017
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 1760
def _add_new_tables
  (@@TK_TABLE_LIST.size - @tk_table_list.size).times{
    @tk_table_list << TkUtil.untrust({})
  }
end
            

 
               # File tk/lib/multi-tk.rb, line 1770
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 3126
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 1259
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 1476
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("Warning: fail to call '::safe::disallowTk'") if $DEBUG
      end
    else # toplevel path
      begin
        @interp._eval("::safe::tkDelete {} #{top} #{slave}")
      rescue
        warn("Warning: fail to call '::safe::tkDelete'") if $DEBUG
        begin
          @interp._eval("destroy #{top}")
        rescue
          warn("Warning: fail to destroy toplevel") if $DEBUG
        end
      end
    end
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 351
  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
        if ip._invoke('interp', 'exists', name) == '1'
          begin
            ip._invoke(name, 'eval', 'exit')
          rescue Exception
          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 3008
def _eval(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._eval(str)
end
            

 
               # File tk/lib/multi-tk.rb, line 3028
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 3018
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 3043
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 3088
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 3092
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 3063
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 3067
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 1766
def _init_ip_env(script)
  self.eval_proc{script.call(self)}
end
            

 
               # File tk/lib/multi-tk.rb, line 1794
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 3013
def _invoke(*args)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp._invoke(*args)
end
            

 
               # File tk/lib/multi-tk.rb, line 3033
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 3023
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 1522
def _ip_id_
  # for RemoteTkIp
  ''
end
            

 
               # File tk/lib/multi-tk.rb, line 3113
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 3122
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 2130
def _proc_on_current_safelevel(cmd=nil, &blk) # require a block for eval
  safe = $SAFE
  cmd = _proc_on_safelevel(cmd, &blk)
  Proc.new{|*args| cmd.call(safe, *args)}
end
            

 
               # File tk/lib/multi-tk.rb, line 2099
def _proc_on_safelevel(cmd=nil) # require a block for eval
  if cmd
    if cmd.kind_of?(Method)
      _proc_on_safelevel{|*args| cmd.call(*args)}
    else
      _proc_on_safelevel(&cmd)
    end
  else
    #Proc.new{|safe, *args| $SAFE=safe if $SAFE < safe; yield(*args)}
    Proc.new{|safe, *args|
      # avoid security error on Exception objects
      untrust_proc = proc{|err|
        begin
          err.untrust if err.respond_to?(:untrust)
        rescue SecurityError
        end
        err
      }
      $SAFE=safe if $SAFE < safe;
      begin
        yield(*args)
      rescue Exception => e
        fail untrust_proc.call(e)
      end
    }
  end
end
            

 
               # File tk/lib/multi-tk.rb, line 601
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 1778
def _remove_tk_procs(*names)
  return if slave?
  names.each{|name|
    name = name.to_s

    return if @interp.deleted?
    @interp._invoke('rename', name, '')

    return if @interp.deleted?
    @interp._invoke('interp', 'slaves').split.each{|slave|
      return if @interp.deleted?
      @interp._invoke('interp', 'alias', slave, name, '') rescue nil
    }
  }
end
            

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

 
               # File tk/lib/multi-tk.rb, line 3096
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 3100
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 3071
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 3075
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 3118
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 3053
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 3048
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 1746
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 1756
def _tk_table_list
  @tk_table_list
end
            

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

 
               # File tk/lib/multi-tk.rb, line 3038
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 3104
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 3108
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 3079
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 3083
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 2950
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 3186
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 3178
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 3418
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 3207
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 1678
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 2867
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 2862
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 2411
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 2341
  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)
      eval_proc_core(false,
                     proc{|safe, *params|
                       $SAFE=safe if $SAFE < safe
                       Thread.new(*params, &cmd).value
                     },
                     safe_level, *args)
    }
  end
            

 
               # File tk/lib/multi-tk.rb, line 2380
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 200
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 309
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 1928
def cb_eval(cmd, *args)
  self.eval_callback(*args,
                     &_proc_on_safelevel{|*params|
                       TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params))
                     })
end
            

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

 
               # File tk/lib/multi-tk.rb, line 2872
  def delete
    raise SecurityError, "no permission to manipulate" unless self.manipulable?
    @slave_ip_tbl.each{|name, subip|
      _destroy_slaves_of_slaveIP(subip)
      begin
        subip._invoke('destroy', '.') unless subip.deleted?
      rescue Exception
      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