# class INTERP

### Constants

BASE_DIR
INTERP_MUTEX
INTERP_ROOT_CHECK
INTERP_THREAD
INTERP_THREAD_STATUS
RUN_EVENTLOOP_ON_MAIN_THREAD

  Ruby 1.9 !!!!!!!!!!!!!!!!!!!!!!!!!!

WITH_ENCODING
WITH_RUBY_VM

### Attributes

cmd[R]
ip[R]
ret[RW]
target[RW]

### Public Class Methods

_DEFAULT_MASTER() click to toggle source

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

_IP_TABLE() click to toggle source

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

_TK_TABLE_LIST() click to toggle source

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

__getip() click to toggle source

    # File 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

__init_ip_env__(table, script) click to toggle source

    # File 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

__pseudo_toplevel() click to toggle source

    # File 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

__pseudo_toplevel=(m) click to toggle source

    # File 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

__pseudo_toplevel_evaluable=(mode) click to toggle source

    # File 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

__pseudo_toplevel_evaluable?() click to toggle source

    # File 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

_conv_listelement(arg) click to toggle source

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

_create_console() click to toggle source

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

_eval(str) click to toggle source

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

_eval_with_enc(str) click to toggle source

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

_eval_without_enc(str) click to toggle source

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

_fromUTF8(str, encoding=nil) click to toggle source

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

_get_global_var(var) click to toggle source

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

_get_global_var2(var, idx) click to toggle source

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

_get_variable(var, flag) click to toggle source

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

_get_variable2(var, idx, flag) click to toggle source

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

_invoke(*args) click to toggle source

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

_invoke_with_enc(*args) click to toggle source

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

_invoke_without_enc(*args) click to toggle source

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

_ip_id_() click to toggle source

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

_merge_tklist(*args) click to toggle source

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

_proc_on_current_safelevel(cmd=nil, &blk) click to toggle source

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

_proc_on_safelevel(cmd=nil, &blk) click to toggle source

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

_return_value() click to toggle source

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

_set_global_var(var, value) click to toggle source

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

_set_global_var2(var, idx, value) click to toggle source

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

_set_variable(var, value, flag) click to toggle source

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

_set_variable2(var, idx, value, flag) click to toggle source

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

_split_tklist(str) click to toggle source

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

_thread_tkwait(mode, target) click to toggle source

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

_thread_vwait(var) click to toggle source

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

_toUTF8(str, encoding=nil) click to toggle source

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

_unset_global_var(var) click to toggle source

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

_unset_global_var2(var, idx) click to toggle source

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

_unset_variable(var, flag) click to toggle source

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

_unset_variable2(var, idx, flag) click to toggle source

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

abort(msg = nil) click to toggle source

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

add_tk_procs(name, args=nil, body=nil) click to toggle source

    # File 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

alias_delete(slave, cmd_name) click to toggle source

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

alias_info(slave, cmd_name) click to toggle source

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

alias_target(aliascmd, slave = '') click to toggle source

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

aliases(slave = '') click to toggle source

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

alive?() click to toggle source

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

allow_ruby_exit=(mode) click to toggle source

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

allow_ruby_exit?() click to toggle source

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

assign_receiver_and_watchdog(target) click to toggle source

    # File 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

background_call(*args, &blk)
Alias for: bg_eval_proc
background_eval(*args, &blk)
Alias for: bg_eval
background_eval_proc(*args, &blk)
Alias for: bg_eval_proc
background_eval_str(cmd, *eval_args)
Alias for: bg_eval_string
background_eval_string(cmd, *eval_args)
Alias for: bg_eval_string
bg_call(*args, &blk)
Alias for: bg_eval_proc
bg_eval(*args, &blk) click to toggle source

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

Also aliased as: background_eval
bg_eval_proc(*args, &blk) click to toggle source

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

Also aliased as: background_eval_proc, thread_eval_proc, bg_call, background_call
bg_eval_str(cmd, *eval_args)
Alias for: bg_eval_string
bg_eval_string(cmd, *eval_args) click to toggle source

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

Also aliased as: background_eval_string, bg_eval_str, background_eval_str
bgerror(cmd = Proc.new, slave = nil, &b) click to toggle source

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

call(*args, &blk)
Alias for: eval_proc
cb_entry_class() click to toggle source

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

cb_eval(cmd, *args) click to toggle source

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

create_table() click to toggle source

    # File 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

def_alias(slave, new_cmd, org_cmd, *args) click to toggle source

    # File 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

default_encoding()
Alias for: encoding_name
default_encoding=(enc) click to toggle source

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

default_master?() click to toggle source

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

delete() click to toggle source

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

delete_cmd(slave, cmd) click to toggle source

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

delete_slaves(*args) click to toggle source

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

deleted?() click to toggle source

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

do_one_event(flag = TclTkLib::EventFlag::ALL) click to toggle source

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

encoding()
Alias for: encoding_name
encoding=(enc) click to toggle source

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

encoding_convert_from(str, enc=None)
Alias for: encoding_convertfrom
encoding_convert_to(str, enc=None)
Alias for: encoding_convertto
encoding_convertfrom(str, enc=None) click to toggle source

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

Also aliased as: encoding_convert_from
encoding_convertto(str, enc=None) click to toggle source

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

Also aliased as: encoding_convert_to
encoding_name() click to toggle source

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

Also aliased as: encoding, default_encoding
encoding_obj() click to toggle source

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

encoding_table() click to toggle source

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

eval(*args, &blk) click to toggle source

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

eval_proc(*args, &blk) click to toggle source

class method

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

Also aliased as: call
eval_str(cmd, *eval_args)
Alias for: eval_string
eval_string(cmd, *eval_args) click to toggle source

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

Also aliased as: eval_str
exist?(slave = '') click to toggle source

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

exit(st = true) click to toggle source

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

exit!(st = false) click to toggle source

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

expose_cmd(slave, cmd, aliasname = nil) click to toggle source

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

force_default_encoding=(mode) click to toggle source

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

force_default_encoding?() click to toggle source

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

get_cb_entry(cmd) click to toggle source

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

get_eventloop_tick() click to toggle source

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

get_eventloop_weight() click to toggle source

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

get_limit(limit_type, slave = '', slot = nil) click to toggle source

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

get_no_event_wait() click to toggle source

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

has_mainwindow?() click to toggle source

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

hidden_cmds(slave = '') click to toggle source

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

hide_cmd(slave, cmd, aliasname = nil) click to toggle source

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

inherited(subclass) click to toggle source

    # File 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

init_ip_env(script = Proc.new) click to toggle source

    # File 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

init_ip_internal() click to toggle source

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

invalid_namespace?() click to toggle source

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

invoke_hidden(slave, cmd, *args) click to toggle source

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

invoke_hidden_on_global(slave, cmd, *args) click to toggle source

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

invoke_hidden_on_namespace(slave, ns, cmd, *args) click to toggle source

    # File 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

ip_name() click to toggle source

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

mainloop(check_root = true) click to toggle source

    # File 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

mainloop_abort_on_exception() click to toggle source

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

mainloop_abort_on_exception=(mode) click to toggle source

    # File 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

mainloop_watchdog(check_root = true) click to toggle source

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

make_safe() click to toggle source

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

manipulable?() click to toggle source

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

mark_trusted(slave = '') click to toggle source

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

master?() click to toggle source

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

method_missing(m, *args) click to toggle source

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

mutex() click to toggle source

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

new(target, ret) click to toggle source
Calls superclass method

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

new(ip, cmd) click to toggle source

    # File 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

Also aliased as: __new
new_master(safe=nil, keys={}, &blk) click to toggle source

    # File 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

Also aliased as: new
new_safeTk(safe=1, keys={}, &blk)
Alias for: new_safe_slave
new_safe_slave(safe=1, keys={}, &blk) click to toggle source

    # File 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

Also aliased as: new_safeTk
new_slave(safe=nil, keys={}, &blk) click to toggle source

    # File 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

Also aliased as: new_trusted_slave
new_trusted_slave(safe=nil, keys={}, &blk)
Alias for: new_slave
path() click to toggle source

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

recursion_limit(slave = '', limit = None) click to toggle source

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

remove_tk_procs(*names) click to toggle source

    # File 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

restart(app_name = nil, keys = {}) click to toggle source

    # File 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

safe?() click to toggle source

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

safe_base?() click to toggle source

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

safe_level() click to toggle source

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

safe_level=(safe) click to toggle source

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

set_eventloop_tick(tick) click to toggle source

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

set_eventloop_weight(loop_max, no_event_tick) click to toggle source

    # File 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

set_limit(limit_type, slave = '', opts = {}) click to toggle source

    # File lib/multi-tk.rb, line 3380
    def self.set_limit(limit_type, slave = '', opts = {})
      __getip.set_limit(limit_type, slave, opts)
    end

set_no_event_wait(tick) click to toggle source

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

set_safe_level(safe) click to toggle source

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

share_stderr(dist, src = '') click to toggle source

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

share_stdin(dist, src = '') click to toggle source

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

share_stdio(dist, src = '') click to toggle source

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

share_stdout(dist, src = '') click to toggle source

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

slave?() click to toggle source

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

slaves(all = false) click to toggle source

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

table() click to toggle source

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

thread_eval_proc(*args, &blk)
Alias for: bg_eval_proc
tk_cmd_tbl() click to toggle source

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

tk_object_table(id) click to toggle source

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

tk_windows() click to toggle source

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

to_eval() click to toggle source

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

transfer_stderr(dist, src = '') click to toggle source

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

transfer_stdin(dist, src = '') click to toggle source

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

transfer_stdio(dist, src = '') click to toggle source

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

transfer_stdout(dist, src = '') click to toggle source

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

### Private Class Methods

__new(ip, cmd)
Alias for: new

### Public Instance Methods

__create_safe_slave_obj(safe_opts, app_name, tk_opts) click to toggle source

    # File 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

__create_trusted_slave_obj(name, keys) click to toggle source

    # File 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

__eval(str) click to toggle source

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

__invoke(*args) click to toggle source

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

__pseudo_toplevel() click to toggle source

instance method

    # File 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

__pseudo_toplevel=(m) click to toggle source

    # File 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

__pseudo_toplevel_evaluable=(mode) click to toggle source

    # File 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

__pseudo_toplevel_evaluable?() click to toggle source

    # File 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

_add_new_tables() click to toggle source

    # File 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

_add_tk_procs(name, args, body) click to toggle source

    # File 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

_conv_listelement(arg) click to toggle source

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

_create_slave_object(keys={}) click to toggle source

    # File 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

_default_delete_hook(slave) click to toggle source

    # File 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

_destroy_slaves_of_slaveIP(ip) click to toggle source

    # File 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

_eval(str) click to toggle source

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

_eval_with_enc(str) click to toggle source

    # File 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

_eval_without_enc(str) click to toggle source

    # File 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

_fromUTF8(str, encoding=nil) click to toggle source

    # File 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

_get_global_var(var) click to toggle source

    # File 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

_get_global_var2(var, idx) click to toggle source

    # File 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

_get_variable(var, flag) click to toggle source

    # File 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

_get_variable2(var, idx, flag) click to toggle source

    # File 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

_init_ip_env(script) click to toggle source

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

_init_ip_internal(init_ip_env, add_tk_procs) click to toggle source

    # File 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

_invoke(*args) click to toggle source

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

_invoke_with_enc(*args) click to toggle source

    # File 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

_invoke_without_enc(*args) click to toggle source

    # File 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

_ip_id_() click to toggle source

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

_merge_tklist(*args) click to toggle source

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

_proc_on_current_safelevel(cmd=nil, &blk) click to toggle source

    # File 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

_proc_on_safelevel(cmd=nil) { |*args| ... } click to toggle source

instance & class method

    # File 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

_receiver_mainloop(check_root) click to toggle source

    # File 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

_remove_tk_procs(*names) click to toggle source

    # File 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

_return_value() click to toggle source

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

_set_global_var(var, value) click to toggle source

    # File 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

_set_global_var2(var, idx, value) click to toggle source

    # File 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

_set_variable(var, value, flag) click to toggle source

    # File 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

_set_variable2(var, idx, value, flag) click to toggle source

    # File 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

_split_tklist(str) click to toggle source

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

_thread_tkwait(mode, target) click to toggle source

    # File 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

_thread_vwait(var) click to toggle source

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

_tk_cmd_tbl() click to toggle source

    # File 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

_tk_table_list() click to toggle source

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

_tk_windows() click to toggle source

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

_toUTF8(str, encoding=nil) click to toggle source

    # File 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

_unset_global_var(var) click to toggle source

    # File 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

_unset_global_var2(var, idx) click to toggle source

    # File 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

_unset_variable(var, flag) click to toggle source

    # File 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

_unset_variable2(var, idx, flag) click to toggle source

    # File 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

abort(msg = nil) click to toggle source

    # File 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

alias_delete(slave, cmd_name) click to toggle source

    # File 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

alias_info(slave, cmd_name) click to toggle source

    # File 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

alias_target(aliascmd, slave = '') click to toggle source

    # File 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

aliases(slave = '') click to toggle source

    # File 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

alive?() click to toggle source

    # File 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

allow_ruby_exit=(mode) click to toggle source

    # File 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

allow_ruby_exit?() click to toggle source

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

background_call(*args)
Alias for: bg_eval_proc
background_eval(*args, &blk)
Alias for: bg_eval
background_eval_proc(*args)
Alias for: bg_eval_proc
background_eval_str(cmd, *eval_args)
Alias for: bg_eval_string
background_eval_string(cmd, *eval_args)
Alias for: bg_eval_string
bg_call(*args)
Alias for: bg_eval_proc
bg_eval(*args, &blk) click to toggle source

    # File 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

Also aliased as: background_eval
bg_eval_proc(*args) click to toggle source

    # File 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

Also aliased as: background_eval_proc, thread_eval_proc, bg_call, background_call
bg_eval_str(cmd, *eval_args)
Alias for: bg_eval_string
bg_eval_string(cmd, *eval_args) click to toggle source

    # File 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

Also aliased as: background_eval_string, bg_eval_str, background_eval_str
call(*args) click to toggle source

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 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

cb_error(e) click to toggle source

    # File 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

cb_eval(cmd, *args) click to toggle source

def #cb_eval(cmd, *args)

    #self.eval_callback{ TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *args)) }
    #ret = self.eval_callback{ TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *args)) }
    ret = self.eval_callback(*args){|safe, *params|
      $SAFE=safe if $SAFE < safe
      TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params))
    }
    if ret.kind_of?(Exception)
      raise ret
    end
    ret

end

    # File 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

def_alias(slave, new_cmd, org_cmd, *args) click to toggle source

    # File 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

default_encoding()
Alias for: encoding_name
default_encoding=(enc) click to toggle source

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

delete() click to toggle source

    # File 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

delete_cmd(slave, cmd) click to toggle source

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

delete_slaves(*args) click to toggle source

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

deleted?() click to toggle source

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

encoding()
Alias for: encoding_name
encoding=(enc) click to toggle source

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

encoding_convert_from(str, enc=None)
Alias for: encoding_convertfrom
encoding_convert_to(str, enc=None)
Alias for: encoding_convertto
encoding_convertfrom(str, enc=None) click to toggle source

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

Also aliased as: encoding_convert_from
encoding_convertto(str, enc=None) click to toggle source

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

Also aliased as: encoding_convert_to
encoding_name() click to toggle source

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

Also aliased as: encoding, default_encoding
encoding_obj() click to toggle source

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

encoding_table() click to toggle source

    # File lib/multi-tk.rb, line 3632
    def encoding_table
      @interp.encoding_table
    end

eval(*args, &blk) click to toggle source

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

eval_callback(*args) click to toggle source

Not stable, so disable this feature

    # File lib/multi-tk.rb, line 2235
    def eval_callback(*args)
      if block_given?
        cmd = Proc.new
      else
        cmd = args.shift
      end
      begin
        if @@CALLBACK_SUBTHREAD.table[self].index(Thread.current)
          last_th = nil
        else
          last_th = @@CALLBACK_SUBTHREAD.table[self][-1]
        end
        @@CALLBACK_SUBTHREAD.new(self){
          @@CALLBACK_SUBTHREAD.table[self] << Thread.current
          begin
            last_th.join if last_th
            eval_proc_core(false, cmd, *args)
          rescue Exception=>e
            e
          ensure
            @@CALLBACK_SUBTHREAD.table[self].delete(Thread.current)
          end
        }
      end
    end

eval_proc(*args, &blk) click to toggle source

    # File lib/multi-tk.rb, line 2276
    def eval_proc(*args, &blk)
      if block_given?
        cmd = _proc_on_safelevel(&blk)
      else
        unless (cmd = args.shift)
          fail ArgumentError, "A Proc or Method object is expected for 1st argument"
        end
        cmd = _proc_on_safelevel(&cmd)
      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, cmd, *args)
        ensure
          current[:callback_ip] = backup_ip
        end
      else
        eval_proc_core(true,
                       proc{|safe, *params|
                         Thread.new{cmd.call(safe, *params)}.value
                       },
                       *args)
      end
    end

Also aliased as: call
eval_str(cmd, *eval_args)
Alias for: eval_string
eval_string(cmd, *eval_args) click to toggle source

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

Also aliased as: eval_str
exist?(slave = '') click to toggle source

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

exit(st = true) click to toggle source

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

exit!(st = false) click to toggle source

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

expose_cmd(slave, cmd, aliasname = nil) click to toggle source

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

force_default_encoding=(mode) click to toggle source

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

force_default_encoding?() click to toggle source

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

get_bgerror_handler(slave = '') click to toggle source

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

get_limit(limit_type, slave = '', slot = nil) click to toggle source

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

has_mainwindow?() click to toggle source

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

hidden_cmds(slave = '') click to toggle source

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

hide_cmd(slave, cmd, aliasname = nil) click to toggle source

    # File lib/multi-tk.rb, line 3260
    def hide_cmd(slave, cmd, aliasname = nil)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      if aliasname
        @interp._invoke('interp', 'hide', _slavearg(slave), cmd, aliasname)
      else
        @interp._invoke('interp', 'hide', _slavearg(slave), cmd)
      end
      self
    end

inspect() click to toggle source

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

invalid_namespace?() click to toggle source

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

invoke_hidden(slave, cmd, *args) click to toggle source

    # File lib/multi-tk.rb, line 3282
    def invoke_hidden(slave, cmd, *args)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      if args[-1].kind_of?(Hash)
        keys = _symbolkey2str(args.pop)
      else
        keys = []
      end
      keys << _slavearg(slave)
      if Tk::TCL_MAJOR_VERSION > 8 ||
          (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION >= 5)
        keys << '--'
      end
      keys << cmd
      keys.concat(args)
      @interp._invoke('interp', 'invokehidden', *keys)
    end

invoke_hidden_on_global(slave, cmd, *args) click to toggle source

    # File lib/multi-tk.rb, line 3302
    def invoke_hidden_on_global(slave, cmd, *args)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      if args[-1].kind_of?(Hash)
        keys = _symbolkey2str(args.pop)
      else
        keys = []
      end
      keys << _slavearg(slave)
      keys << '-global'
      if Tk::TCL_MAJOR_VERSION > 8 ||
          (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION >= 5)
        keys << '--'
      end
      keys << cmd
      keys.concat(args)
      @interp._invoke('interp', 'invokehidden', *keys)
    end

invoke_hidden_on_namespace(slave, ns, cmd, *args) click to toggle source

    # File lib/multi-tk.rb, line 3323
    def invoke_hidden_on_namespace(slave, ns, cmd, *args)
      # for Tcl8.5 or later
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      if args[-1].kind_of?(Hash)
        keys = _symbolkey2str(args.pop)
      else
        keys = []
      end
      keys << _slavearg(slave)
      keys << '-namespace' << TkComm._get_eval_string(ns)
      keys << '--' << cmd
      keys.concat(args)
      @interp._invoke('interp', 'invokehidden', *keys)
    end

ip_name() click to toggle source

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

mainloop(check_root = true, restart_on_dead = false) click to toggle source

def mainloop(check_root = true, restart_on_dead = true)

    # File lib/multi-tk.rb, line 2737
      def mainloop(check_root = true, restart_on_dead = false)
        raise SecurityError, "no permission to manipulate" unless self.manipulable?

        if WITH_RUBY_VM  ### Ruby 1.9 !!!!!!!!!!!
          return @interp_thread.value if @interp_thread
        end

        #return self if self.slave?
        #return self if self != @@DEFAULT_MASTER
        if self != @@DEFAULT_MASTER
          if @wait_on_mainloop[0]
            begin
              @wait_on_mainloop[1] += 1
              @cmd_queue.enq([@system, 'call_mainloop',
                              Thread.current, check_root])
              Thread.stop
            rescue MultiTkIp_OK => ret
              # return value
              if ret.value.kind_of?(Thread)
                return ret.value.value
              else
                return ret.value
              end
            rescue SystemExit => e
              # exit IP
              warn("Warning: " + e.inspect + " on " + self.inspect) if $DEBUG
              begin
                self._eval_without_enc('exit')
              rescue Exception
              end
              self.delete
            rescue StandardError => e
              if $DEBUG
                warn("Warning: " + e.class.inspect +
                     ((e.message.length > 0)? ' "' + e.message + '"': '') +
                     " on " + self.inspect)
              end
              return e
            rescue Exception => e
              return e
            ensure
              @wait_on_mainloop[1] -= 1
            end
          end
          return
        end

        unless restart_on_dead
          @wait_on_mainloop[1] += 1
          begin
            @interp.mainloop(check_root)
          rescue StandardError => e
            if $DEBUG
              warn("Warning: " + e.class.inspect +
                   ((e.message.length > 0)? ' "' + e.message + '"': '') +
                   " on " + self.inspect)
            end
          end
          begin
            @interp.mainloop(check_root)
          ensure
            @wait_on_mainloop[1] -= 1
          end
        else
          loop do
            break unless self.alive?
            if check_root
              begin
                break if TclTkLib.num_of_mainwindows == 0
              rescue StandardError
                break
              end
            end
            break if @interp.deleted?
            begin
              @wait_on_mainloop[1] += 1
              @interp.mainloop(check_root)
            rescue StandardError => e
              if TclTkLib.mainloop_abort_on_exception != nil
                #STDERR.print("Warning: Tk mainloop receives ", $!.class.inspect,
                #             " exception (ignore) : ", $!.message, "\n");
                if $DEBUG
                  warn("Warning: Tk mainloop receives " << e.class.inspect <<
                       " exception (ignore) : " << e.message);
                end
              end
              #raise e
            rescue Exception => e
              if TclTkLib.mainloop_abort_on_exception != nil
                #STDERR.print("Warning: Tk mainloop receives ", $!.class.inspect,
                #             " exception (ignore) : ", $!.message, "\n");
                if $DEBUG
                  warn("Warning: Tk mainloop receives " << e.class.inspect <<
                       " exception (ignore) : " << e.message);
                end
              end
              raise e
            ensure
              @wait_on_mainloop[1] -= 1
              Thread.pass  # avoid eventloop conflict
            end
          end
        end
        self
      end

make_safe() click to toggle source

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

manipulable?() click to toggle source

    # File lib/multi-tk.rb, line 1728
    def manipulable?
      return true if (Thread.current.group == ThreadGroup::Default)
      ip = MultiTkIp.__getip
      (ip == self) || ip._is_master_of?(@interp)
    end

mark_trusted(slave = '') click to toggle source

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

master?() click to toggle source

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

mutex() click to toggle source

    # File lib/multi-tk.rb, line 93
    def mutex; @mutex; end

path() click to toggle source

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

recursion_limit(slave = '', limit = None) click to toggle source

    # File lib/multi-tk.rb, line 3409
    def recursion_limit(slave = '', limit = None)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      number(@interp._invoke('interp', 'recursionlimit',
                             _slavearg(slave), limit))
    end

restart(app_name = nil, keys = {}) click to toggle source

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

      _init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS)

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

      @interp.restart
    end

running_mainloop?() click to toggle source

    # File lib/multi-tk.rb, line 347
    def running_mainloop?
      @wait_on_mainloop[1] > 0
    end

safe?() click to toggle source

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

safe_base?() click to toggle source

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

safe_level() click to toggle source

    # File lib/multi-tk.rb, line 333
    def safe_level
      @safe_level[0]
    end

safe_level=(safe) click to toggle source

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

safeip_add_to_access_path(dir) click to toggle source

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

safeip_configinfo(slot = nil) click to toggle source

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

safeip_configure(slot, value=None) click to toggle source

    # File lib/multi-tk.rb, line 3514
    def safeip_configure(slot, value=None)
      # use for '-noStatics' option ==> {statics=>false}
      #     for '-nestedLoadOk' option ==> {nested=>true}
      if slot.kind_of?(Hash)
        ip = MultiTkIp.__getip
        ip._eval('::safe::interpConfigure ' + @ip_name + ' ' + _keys2opts(slot))
      else
        ip._eval('::safe::interpConfigure ' + @ip_name + ' ' +
                 "-#{slot} #{_get_eval_string(value)}")
      end
      self
    end

safeip_delete() click to toggle source

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

safeip_find_in_access_path(dir) click to toggle source

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

safeip_set_log_cmd(cmd = Proc.new) click to toggle source

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

set_bgerror_handler(cmd = Proc.new, slave = nil, &b) click to toggle source

    # File lib/multi-tk.rb, line 3351
    def set_bgerror_handler(cmd = Proc.new, slave = nil, &b)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      unless TkComm._callback_entry?(cmd)
        if !slave && b
          slave = cmd
          cmd = Proc.new(&b)
        end
      end
      slave = '' unless slave

      @interp._invoke('interp', 'bgerror', _slavearg(slave), cmd)
    end

set_cb_error(cmd = Proc.new) click to toggle source

    # File lib/multi-tk.rb, line 305
    def set_cb_error(cmd = Proc.new)
      @cb_error_proc[0] = cmd
    end

set_limit(limit_type, slave = '', opts = {}) click to toggle source

    # File lib/multi-tk.rb, line 3376
    def set_limit(limit_type, slave = '', opts = {})
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'limit', _slavearg(slave), limit_type, opts)
    end

set_safe_level(safe) click to toggle source

    # File lib/multi-tk.rb, line 317
    def set_safe_level(safe)
      if safe > @safe_level[0]
        @safe_level[0] = safe
        @cmd_queue.enq([@system, 'set_safe_level', safe])
      end
      @safe_level[0]
    end

share_stderr(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3446
    def share_stderr(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'share', src, 'stderr', dist)
      self
    end

share_stdin(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3426
    def share_stdin(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'share', src, 'stdin', dist)
      self
    end

share_stdio(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3486
    def share_stdio(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'share', src, 'stdin',  dist)
      @interp._invoke('interp', 'share', src, 'stdout', dist)
      @interp._invoke('interp', 'share', src, 'stderr', dist)
      self
    end

share_stdout(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3436
    def share_stdout(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'share', src, 'stdout', dist)
      self
    end

slave?() click to toggle source

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

slaves(all = false) click to toggle source

    # File lib/multi-tk.rb, line 1712
    def slaves(all = false)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp','slaves').split.map!{|name|
        if @slave_ip_tbl.key?(name)
          @slave_ip_tbl[name]
        elsif all
          name
        else
          nil
        end
      }.compact!
    end

thread_eval_proc(*args)
Alias for: bg_eval_proc
to_eval() click to toggle source

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

transfer_stderr(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3476
    def transfer_stderr(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'transfer', src, 'stderr', dist)
      self
    end

transfer_stdin(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3456
    def transfer_stdin(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'transfer', src, 'stdin', dist)
      self
    end

transfer_stdio(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3498
    def transfer_stdio(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'transfer', src, 'stdin',  dist)
      @interp._invoke('interp', 'transfer', src, 'stdout', dist)
      @interp._invoke('interp', 'transfer', src, 'stderr', dist)
      self
    end

transfer_stdout(dist, src = '') click to toggle source

    # File lib/multi-tk.rb, line 3466
    def transfer_stdout(dist, src = '')
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._invoke('interp', 'transfer', src, 'stdout', dist)
      self
    end

wait_on_mainloop=(bool) click to toggle source

    # File lib/multi-tk.rb, line 343
    def wait_on_mainloop=(bool)
      @wait_on_mainloop[0] = bool
    end

wait_on_mainloop?() click to toggle source

    # File lib/multi-tk.rb, line 340
    def wait_on_mainloop?
      @wait_on_mainloop[0]
    end

### Protected Instance Methods

_is_master_of?(tcltkip_obj) click to toggle source

    # File lib/multi-tk.rb, line 1737
    def _is_master_of?(tcltkip_obj)
      tcltkip_obj.slave_of?(@interp)
    end

### Private Instance Methods

__check_safetk_optkeys(optkeys) click to toggle source

    # File lib/multi-tk.rb, line 1054
    def __check_safetk_optkeys(optkeys)
      # based on 'safetk.tcl'
      new_keys = {}
      optkeys.each{|k,v| new_keys[k.to_s] = v}

      # check 'display'
      if !new_keys.key?('display')
        begin
          #new_keys['display'] = @interp._invoke('winfo screen .')
          new_keys['display'] = @interp._invoke('winfo', 'screen', '.')
        rescue
          if ENV[DISPLAY]
            new_keys['display'] = ENV[DISPLAY]
          elsif !new_keys.key?('use')
            warn "Warning: no screen info or ENV[DISPLAY], so use ':0.0'"
            new_keys['display'] = ':0.0'
          end
        end
      end

      # check 'use'
      if new_keys.key?('use')
        # given 'use'
        case new_keys['use']
        when TkWindow
          new_keys['use'] = TkWinfo.id(new_keys['use'])
          #assoc_display = @interp._eval('winfo screen .')
          assoc_display = @interp._invoke('winfo', 'screen', '.')
        when /^\..*/
          new_keys['use'] = @interp._invoke('winfo', 'id', new_keys['use'])
          assoc_display = @interp._invoke('winfo', 'screen', new_keys['use'])
        else
          begin
            pathname = @interp._invoke('winfo', 'pathname', new_keys['use'])
            assoc_display = @interp._invoke('winfo', 'screen', pathname)
          rescue
            assoc_display = new_keys['display']
          end
        end

        # match display?
        if assoc_display != new_keys['display']
          if optkeys.key?(:display) || optkeys.key?('display')
            fail RuntimeError,
              "conflicting 'display'=>#{new_keys['display']} " +
              "and display '#{assoc_display}' on 'use'=>#{new_keys['use']}"
          else
            new_keys['display'] = assoc_display
          end
        end
      end

      # return
      new_keys
    end

__create_safetk_frame(slave_ip, slave_name, app_name, keys) click to toggle source

    # File lib/multi-tk.rb, line 1111
    def __create_safetk_frame(slave_ip, slave_name, app_name, keys)
      # display option is used by ::safe::loadTk
      loadTk_keys = {}
      loadTk_keys['display'] = keys['display']
      dup_keys = keys.dup

      # keys for toplevel : allow followings
      toplevel_keys = {}
      ['height', 'width', 'background', 'menu'].each{|k|
        toplevel_keys[k] = dup_keys.delete(k) if dup_keys.key?(k)
      }
      toplevel_keys['classname'] = 'SafeTk'
      toplevel_keys['screen'] = dup_keys.delete('display')

      # other keys used by pack option of container frame

      # create toplevel widget
      begin
        top = TkToplevel.new(toplevel_keys)
      rescue NameError => e
        fail e unless @interp.safe?
        fail SecurityError, "unable create toplevel on the safe interpreter"
      end
      msg = "Untrusted Ruby/Tk applet (#{slave_name})"
      if app_name.kind_of?(String)
        top.title "#{app_name} (#{slave_name})"
      else
        top.title msg
      end

      # procedure to delete slave interpreter
      slave_delete_proc = proc{
        unless slave_ip.deleted?
          #if slave_ip._invoke('info', 'command', '.') != ""
          #  slave_ip._invoke('destroy', '.')
          #end
          #slave_ip.delete
          slave_ip._eval_without_enc('exit')
        end
        begin
          top.destroy if top.winfo_exist?
        rescue
          # ignore
        end
      }
      tag = TkBindTag.new.bind('Destroy', slave_delete_proc)

      top.bindtags = top.bindtags.unshift(tag)

      # create control frame
      TkFrame.new(top, :bg=>'red', :borderwidth=>3, :relief=>'ridge') {|fc|
        fc.bindtags = fc.bindtags.unshift(tag)

        TkFrame.new(fc, :bd=>0){|f|
          TkButton.new(f,
                       :text=>'Delete', :bd=>1, :padx=>2, :pady=>0,
                       :highlightthickness=>0, :command=>slave_delete_proc
                       ).pack(:side=>:right, :fill=>:both)
          f.pack(:side=>:right, :fill=>:both, :expand=>true)
        }

        TkLabel.new(fc, :text=>msg, :padx=>2, :pady=>0,
                    :anchor=>:w).pack(:side=>:left, :fill=>:both, :expand=>true)

        fc.pack(:side=>:bottom, :fill=>:x)
      }

      # container frame for slave interpreter
      dup_keys['fill'] = :both  unless dup_keys.key?('fill')
      dup_keys['expand'] = true unless dup_keys.key?('expand')
      c = TkFrame.new(top, :container=>true).pack(dup_keys)
      c.bind('Destroy', proc{top.destroy})

      # return keys
      loadTk_keys['use'] = TkWinfo.id(c)
      [loadTk_keys, top.path]
    end

_check_and_return(thread, exception, wait=0) click to toggle source

    # File lib/multi-tk.rb, line 253
    def _check_and_return(thread, exception, wait=0)
      unless thread
        unless exception.kind_of?(MultiTkIp_OK)
          msg = "#{exception.class}: #{exception.message}"

          if @interp.deleted?
            warn("Warning (#{self}): " + msg)
            return nil
          end

          if safe?
            warn("Warning (#{self}): " + msg) if $DEBUG
            return nil
          end

          begin
            @interp._eval_without_enc(@interp._merge_tklist('bgerror', msg))
          rescue Exception => e
            warn("Warning (#{self}): " + msg)
          end
        end
        return nil
      end

      if wait == 0
        # no wait
        Thread.pass
        if thread.stop?
          thread.raise exception
        end
        return thread
      end

      # wait to stop the caller thread
      wait.times{
        if thread.stop?
          # ready to send exception
          thread.raise exception
          return thread
        end

        # wait
        Thread.pass
      }

      # unexpected error
      thread.raise RuntimeError, "the thread may not wait for the return value"
      return thread
    end

_create_receiver_and_watchdog(lvl = $SAFE) click to toggle source

    # File lib/multi-tk.rb, line 619
    def _create_receiver_and_watchdog(lvl = $SAFE)
      lvl = $SAFE if lvl < $SAFE

      # command-procedures receiver
      receiver = Thread.new(lvl){|safe_level|
        last_thread = {}

        loop do
          break if @interp.deleted?
          thread, cmd, *args = @cmd_queue.deq
          if thread == @system
            # control command
            case cmd
            when 'set_safe_level'
              begin
                safe_level = args[0] if safe_level < args[0]
              rescue Exception
              end
            when 'call_mainloop'
              thread = args.shift
              _check_and_return(thread,
                                MultiTkIp_OK.new(_receiver_mainloop(*args)))
            else
              # ignore
            end

          else
            # procedure
            last_thread[thread] = _receiver_eval_proc(last_thread[thread],
                                                      safe_level, thread,
                                                      cmd, *args)
          end
        end
      }

      # watchdog of receiver
      watchdog = Thread.new{
        begin
          loop do
            sleep 1
            if @interp.deleted?
              receiver.kill
              @cmd_queue.close
            end
            break unless receiver.alive?
          end
        rescue Exception
          # ignore all kind of Exception
        end

        # receiver is dead
        retry_count = 3
        loop do
          Thread.pass
          begin
            thread, cmd, *args = @cmd_queue.deq(true) # non-block
          rescue ThreadError
            # queue is empty
            retry_count -= 1
            break if retry_count <= 0
            sleep 0.5
            retry
          end
          next unless thread
          if thread.alive?
            if @interp.deleted?
              thread.raise RuntimeError, 'the interpreter is already deleted'
            else
              thread.raise RuntimeError,
                'the interpreter no longer receives command procedures'
            end
          end
        end
      }

      # return threads
      [receiver, watchdog]
    end

_create_slave_ip_name() click to toggle source

    # File lib/multi-tk.rb, line 1043
    def _create_slave_ip_name
      @@SLAVE_IP_ID.mutex.synchronize{
        name = @@SLAVE_IP_ID.join('')
        @@SLAVE_IP_ID[1].succ!
        name.freeze
      }
    end

_keys2opts(src_keys) click to toggle source

    # File lib/multi-tk.rb, line 245
    def _keys2opts(src_keys)
      return nil if src_keys == nil
      keys = {}; src_keys.each{|k, v| keys[k.to_s] = v}
      #keys.collect{|k,v| "-#{k} #{v}"}.join(' ')
      keys.collect{|k,v| "-#{k} #{TclTkLib._conv_listelement(TkComm::_get_eval_string(v))}"}.join(' ')
    end

_lst2ary(str) click to toggle source

    # File lib/multi-tk.rb, line 3135
    def _lst2ary(str)
      return [] if str == ""
      idx = str.index('{')
      while idx and idx > 0 and str[idx-1] == ?\       idx = str.index('{', idx+1)
      end
      return str.split unless idx

      list = str[0,idx].split
      str = str[idx+1..-1]
      i = -1
      brace = 1
      str.each_byte {|c|
        c = c.chr
        i += 1
        brace += 1 if c == '{'
        brace -= 1 if c == '}'
        break if brace == 0
      }
      if i == 0
        list.push ''
      elsif str[0, i] == ' '
        list.push ' '
      else
        list.push str[0..i-1]
      end
      #list += _lst2ary(str[i+1..-1])
      list.concat(_lst2ary(str[i+1..-1]))
      list
    end

_parse_slaveopts(keys) click to toggle source

    # File lib/multi-tk.rb, line 1016
    def _parse_slaveopts(keys)
      name = nil
      safe = false
      safe_opts = {}
      tk_opts   = {}

      keys.each{|k,v|
        k_str = k.to_s
        if k_str == 'name'
          name = v
        elsif k_str == 'safe'
          safe = v
        elsif @@SAFE_OPT_LIST.member?(k_str)
          safe_opts[k_str] = v
        else
          tk_opts[k_str] = v
        end
      }

      if keys['without_tk'] || keys[:without_tk]
        [name, safe, safe_opts, nil]
      else
        [name, safe, safe_opts, tk_opts]
      end
    end

_receiver_eval_proc(last_thread, safe_level, thread, cmd, *args) click to toggle source

    # File lib/multi-tk.rb, line 581
    def _receiver_eval_proc(last_thread, safe_level, thread, cmd, *args)
      if thread
        Thread.new{
          last_thread.join if last_thread
          unless @interp.deleted?
            _receiver_eval_proc_core(safe_level, thread, cmd, *args)
          end
        }
      else
        Thread.new{
          unless  @interp.deleted?
            _receiver_eval_proc_core(safe_level, thread, cmd, *args)
          end
        }
        last_thread
      end
    end

_receiver_eval_proc_core(safe_level, thread, cmd, *args) click to toggle source

    # File lib/multi-tk.rb, line 395
      def _receiver_eval_proc_core(safe_level, thread, cmd, *args)
        begin
          #ret = proc{$SAFE = safe_level; cmd.call(*args)}.call
          #ret = cmd.call(safe_level, *args)
          normal_ret = false
          ret = catch(:IRB_EXIT) do  # IRB hack
            retval = cmd.call(safe_level, *args)
            normal_ret = true
            retval
          end
          unless normal_ret
            # catch IRB_EXIT
            exit(ret)
          end
          ret
        rescue SystemExit => e
          # delete IP
          unless @interp.deleted?
            @slave_ip_tbl.each{|name, subip|
              _destroy_slaves_of_slaveIP(subip)
              begin
                # subip._eval_without_enc("foreach i [after info] {after cancel $i}")
                after_ids = subip._eval_without_enc("after info")
                subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}")
              rescue Exception
              end
              begin
                subip._invoke('destroy', '.') unless subip.deleted?
              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')
            else
              @interp.delete unless @interp.deleted?
            end
          end

          if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/
            _check_and_return(thread, MultiTkIp_OK.new($3 == 'exit'))
          else
            _check_and_return(thread, MultiTkIp_OK.new(nil))
          end

          # if master? && !safe? && allow_ruby_exit?
          if !@interp.deleted? && master? && !safe? && allow_ruby_exit?
            ObjectSpace.each_object(TclTkIp){|obj|
              obj.delete unless obj.deleted?
            }
            #exit(e.status)
            fail e
          end
          # break

        rescue SecurityError => e
          # in 'exit', 'exit!', and 'abort' : security error --> delete IP
          if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/
            ret = ($3 == 'exit')
            unless @interp.deleted?
              @slave_ip_tbl.each{|name, subip|
                _destroy_slaves_of_slaveIP(subip)
                begin
                  # subip._eval_without_enc("foreach i [after info] {after cancel $i}")
                  after_ids = subip._eval_without_enc("after info")
                  subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}")
                rescue Exception
                end
                begin
                  subip._invoke('destroy', '.') unless subip.deleted?
                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')
              else
                @interp.delete unless @interp.deleted?
              end
            end
            _check_and_return(thread, MultiTkIp_OK.new(ret))
            # break

          else
            # raise security error
            _check_and_return(thread, e)
          end

        rescue Exception => e
          # raise exception
          begin
            bt = _toUTF8(e.backtrace.join("\n"))
            if MultiTkIp::WITH_ENCODING
              bt.force_encoding('utf-8')
            else
              bt.instance_variable_set(:@encoding, 'utf-8')
            end
          rescue Exception
            bt = e.backtrace.join("\n")
          end
          begin
            @interp._set_global_var('errorInfo', bt)
          rescue Exception
          end
          _check_and_return(thread, e)

        else
          # no exception
          _check_and_return(thread, MultiTkIp_OK.new(ret))
        end
      end

_slavearg(slave) click to toggle source

    # File lib/multi-tk.rb, line 3167
    def _slavearg(slave)
      if slave.kind_of?(MultiTkIp)
        slave.path
      elsif slave.kind_of?(String)
        slave
      else
        slave.to_s
      end
    end

eval_proc_core(req_val, cmd, *args) click to toggle source

instance method

    # File lib/multi-tk.rb, line 2141
      def eval_proc_core(req_val, cmd, *args)
        # check
        raise SecurityError, "no permission to manipulate" unless self.manipulable?
        unless cmd.kind_of?(Proc) || cmd.kind_of?(Method)
          raise RuntimeError, "A Proc/Method object is expected for the 'cmd' argument"
        end

        # on IP thread
        if @cmd_receiver == Thread.current ||
            (!req_val && TclTkLib.mainloop_thread? != false) # callback
          begin
            ret = cmd.call(safe_level, *args)
          rescue SystemExit => e
            # exit IP
            warn("Warning: "+ e.inspect + " on " + self.inspect) if $DEBUG
            begin
              self._eval_without_enc('exit')
            rescue Exception => e
            end
            self.delete
            ret = nil
          rescue Exception => e
            if $DEBUG
              warn("Warning: " + e.class.inspect +
                   ((e.message.length > 0)? ' "' + e.message + '"': '') +
                   " on " + self.inspect)
            end
            begin
              bt = _toUTF8(e.backtrace.join("\n"))
              bt.instance_variable_set(:@encoding, 'utf-8')
            rescue Exception
              bt = e.backtrace.join("\n")
            end
            begin
              @interp._set_global_var('errorInfo', bt)
            rescue Exception
            end
            ret = e
          end
          return ret
        end

        # send cmd to the proc-queue
        unless req_val
          begin
            @cmd_queue.enq([nil, cmd, *args])
          rescue Exception => e
            # ignore
            if $DEBUG
              warn("Warning: " + e.class.inspect +
                   ((e.message.length > 0)? ' "' + e.message + '"': '') +
                   " on " + self.inspect)
            end
            return e
          end
          return nil
        end

        # send and get return value by exception
        begin
          @cmd_queue.enq([Thread.current, cmd, *args])
          Thread.stop
        rescue MultiTkIp_OK => ret
          # return value
          return ret.value
        rescue SystemExit => e
          # exit IP
          warn("Warning: " + e.inspect + " on " + self.inspect) if $DEBUG
          begin
            self._eval_without_enc('exit')
          rescue Exception
          end
          if !self.deleted? && !safe? && allow_ruby_exit?
            self.delete
            fail e
          else
            self.delete
          end
        rescue Exception => e
          if $DEBUG
            warn("Warning: " + e.class.inspect +
                 ((e.message.length > 0)? ' "' + e.message + '"': '') +
                 " on " + self.inspect)
          end
          return e
        end
        return nil
      end