In Files

  • tk/lib/multi-tk.rb
  • tk/lib/remote-tk.rb

Parent

Namespace

Methods

Class/Module Index [+]

Quicksearch

MultiTkIp

Constants

BASE_DIR
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 tk/lib/remote-tk.rb, line 19
def self._DEFAULT_MASTER
  # work only once
  if @flag
    @flag = nil
    @@DEFAULT_MASTER
  else
    nil
  end
end
            
_IP_TABLE() click to toggle source
 
               # File tk/lib/remote-tk.rb, line 15
def self._IP_TABLE; @@IP_TABLE; end
            
_TK_TABLE_LIST() click to toggle source
 
               # File tk/lib/remote-tk.rb, line 16
def self._TK_TABLE_LIST; @@TK_TABLE_LIST; end
            
__getip() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1446
def self.__getip
  current = Thread.current
  if TclTkLib.mainloop_thread? != false && current[:callback_ip]
    return current[:callback_ip]
  end
  if current.group == ThreadGroup::Default
    @@DEFAULT_MASTER
  else
    ip = @@IP_TABLE[current.group]
    unless ip
      fail SecurityError, 
        "cannot call Tk methods on #{Thread.current.inspect}"
    end
    ip
  end
end
            
__init_ip_env__(table, script) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 944
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
            
__new(ip, cmd) click to toggle source
Alias for: new
__pseudo_toplevel() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 833
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 tk/lib/multi-tk.rb, line 839
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 tk/lib/multi-tk.rb, line 863
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 tk/lib/multi-tk.rb, line 855
def self.__pseudo_toplevel_evaluable?
  begin
    @pseudo_toplevel[0] && @pseudo_toplevel[1].pseudo_toplevel_evaluable?
  rescue Exception
    false
  end
end
            
_ip_id_() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1438
def self._ip_id_
  __getip._ip_id_
end
            
add_tk_procs(name, args=nil, body=nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1787
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 tk/lib/multi-tk.rb, line 2939
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 tk/lib/multi-tk.rb, line 2930
def self.alias_info(slave, cmd_name)
  __getip.alias_info(slave, cmd_name)
end
            
alias_target(aliascmd, slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3170
def self.alias_target(aliascmd, slave = '')
  __getip.alias_target(aliascmd, slave)
end
            
aliases(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2959
def self.aliases(slave = '')
  __getip.aliases(slave)
end
            
alive?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1599
def self.alive?
  __getip.alive?
end
            
assign_receiver_and_watchdog(target) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 911
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
            
bgerror(cmd = Proc.new, slave = nil, &b) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3112
def self.bgerror(cmd = Proc.new, slave = nil, &b)
  __getip.bgerror(cmd, slave, &b)
end
            
cb_entry_class() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1819
def self.cb_entry_class
  @@CB_ENTRY_CLASS
end
            
create_table() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1730
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 tk/lib/multi-tk.rb, line 2950
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_master?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2218
def self.default_master?
  __getip == @@DEFAULT_MASTER
end
            
delete_cmd(slave, cmd) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2989
def self.delete_cmd(slave, cmd)
  __getip.delete_cmd(slave, cmd)
  self
end
            
delete_slaves(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2969
def self.delete_slaves(*args)
  __getip.delete_slaves(*args)
  self
end
            
exist?(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2979
def self.exist?(slave = '')
  __getip.exist?(slave)
end
            
expose_cmd(slave, cmd, aliasname = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3003
def self.expose_cmd(slave, cmd, aliasname = nil)
  __getip.expose_cmd(slave, cmd, aliasname)
  self
end
            
get_cb_entry(cmd) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1822
def self.get_cb_entry(cmd)
  @@CB_ENTRY_CLASS.new(__getip, cmd).freeze
end
            
get_limit(limit_type, slave = '', slot = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3153
def self.get_limit(limit_type, slave = '', slot = nil)
  __getip.get_limit(limit_type, slave, slot)
end
            
hidden_cmds(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3026
def self.hidden_cmds(slave = '')
  __getip.hidden_cmds(slave)
end
            
hide_cmd(slave, cmd, aliasname = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3017
def self.hide_cmd(slave, cmd, aliasname = nil)
  __getip.hide_cmd(slave, cmd, aliasname)
  self
end
            
inherited(subclass) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 970
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 tk/lib/multi-tk.rb, line 1764
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 tk/lib/multi-tk.rb, line 1811
def self.init_ip_internal
  __getip._init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS)
end
            
invoke_hidden(slave, cmd, *args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3046
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 tk/lib/multi-tk.rb, line 3067
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 tk/lib/multi-tk.rb, line 3085
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 tk/lib/multi-tk.rb, line 1612
def self.ip_name
  __getip.ip_name
end
            
mainloop(check_root = true) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 787
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
            
manipulable?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1643
def self.manipulable?
  true
end
            
mark_trusted(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3094
def self.mark_trusted(slave = '')
  __getip.mark_trusted(slave)
  self
end
            
master?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1577
def self.master?
  __getip.master?
end
            
method_missing(m, *args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1755
def self.method_missing(m, *args)
  MultiTkIp.tk_object_table(@id).__send__(m, *args)
end
            
mutex() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1752
def self.mutex
  @mutex
end
            
new(ip, cmd) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 224
def initialize(ip, cmd)
  @ip = ip
  @cmd = cmd
  self.freeze
end
            
Also aliased as: __new
new(target, ret) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 875
def self.new(target, ret)
  obj = super()
  obj.target = target
  obj.ret = ret
  obj
end
            
path() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1606
def self.path
  __getip.path
end
            
recursion_limit(slave = '', limit = None) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3162
def self.recursion_limit(slave = '', limit = None)
  __getip.recursion_limit(slave)
end
            
remove_tk_procs(*names) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1799
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
            
safe_level() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 369
def self.safe_level
  __getip.safe_level
end
            
safe_level=(safe) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 363
def self.safe_level=(safe)
  self.set_safe_level(safe)
end
            
set_limit(limit_type, slave = '', opts = {}) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3128
def self.set_limit(limit_type, slave = '', opts = {})
  __getip.set_limit(limit_type, slave, opts)
end
            
set_safe_level(safe) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 360
def self.set_safe_level(safe)
  __getip.set_safe_level(safe)
end
            
share_stderr(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3199
def self.share_stderr(dist, src = '')
  __getip.share_stderr(dist, src)
  self
end
            
share_stdin(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3179
def self.share_stdin(dist, src = '')
  __getip.share_stdin(dist, src)
  self
end
            
share_stdio(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3241
def self.share_stdio(dist, src = '')
  __getip.share_stdio(dist, src)
  self
end
            
share_stdout(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3189
def self.share_stdout(dist, src = '')
  __getip.share_stdout(dist, src)
  self
end
            
slave?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1584
def self.slave?
  not self.master?
end
            
slaves(all = false) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1634
def self.slaves(all = false)
  __getip.slaves(all)
end
            
tk_cmd_tbl() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1721
def self.tk_cmd_tbl
  @@TK_CMD_TBL
end
            
tk_object_table(id) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1727
def self.tk_object_table(id)
  __getip._tk_table_list[id]
end
            
tk_windows() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1724
def self.tk_windows
  __getip._tk_windows
end
            
to_eval() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1618
def self.to_eval
  __getip.to_eval
end
            
transfer_stderr(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3229
def self.transfer_stderr(dist, src = '')
  __getip.transfer_stderr(dist, src)
  self
end
            
transfer_stdin(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3209
def self.transfer_stdin(dist, src = '')
  __getip.transfer_stdin(dist, src)
  self
end
            
transfer_stdio(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3253
def self.transfer_stdio(dist, src = '')
  __getip.transfer_stdio(dist, src)
  self
end
            
transfer_stdout(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3219
def self.transfer_stdout(dist, src = '')
  __getip.transfer_stdout(dist, src)
  self
end
            

Public Instance Methods

__create_safe_slave_obj(safe_opts, app_name, tk_opts) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1177
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 ||= [false].taint
    @encoding ||= [nil].taint
    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)}")
  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 tk/lib/multi-tk.rb, line 1225
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 ||= [false].taint
    @encoding ||= [nil].taint
    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)
  @slave_ip_tbl[ip_name] = slave_ip
  [slave_ip, ip_name]
end
            
__eval(str) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2746
def __eval(str)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @interp.__eval(str)
end
            
__invoke(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2751
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 tk/lib/multi-tk.rb, line 1899
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 tk/lib/multi-tk.rb, line 1905
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 tk/lib/multi-tk.rb, line 1929
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 tk/lib/multi-tk.rb, line 1921
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 tk/lib/multi-tk.rb, line 1670
def _add_new_tables
  (@@TK_TABLE_LIST.size - @tk_table_list.size).times{ 
    (tbl = {}).tainted? || tbl.taint
    @tk_table_list << tbl
  }
end
            
_add_tk_procs(name, args, body) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1681
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 tk/lib/multi-tk.rb, line 2421
def _conv_listelement(arg)
  __getip._conv_listelement(arg)
end
            
_create_console() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2425
def _create_console
  __getip._create_console
end
            
_create_slave_object(keys={}) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1244
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 tk/lib/multi-tk.rb, line 1406
def _default_delete_hook(slave)
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  @slave_ip_tbl.delete(slave)
  top = @slave_ip_top.delete(slave)
  if top.kind_of?(String)
    # call default hook of safetk.tcl (ignore exceptions)
    if top == ''
      begin
        @interp._eval("::safe::disallowTk #{slave}")
      rescue
        warn("Waring: fail to call '::safe::disallowTk'") if $DEBUG
      end
    else # toplevel path
      begin
        @interp._eval("::safe::tkDelete {} #{top} #{slave}")
      rescue
        warn("Waring: fail to call '::safe::tkDelete'") if $DEBUG
        begin
          @interp._eval("destroy #{top}")
        rescue
          warn("Waring: fail to destroy toplevel") if $DEBUG
        end
      end
    end
  end
end
            
_destroy_slaves_of_slaveIP(ip) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 384
  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 tk/lib/multi-tk.rb, line 2329
def _eval(str)
  __getip._eval(str)
end
            
_eval_with_enc(str) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2345
def _eval_with_enc(str)
  __getip._eval_with_enc(str)
end
            
_eval_without_enc(str) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2337
def _eval_without_enc(str)
  __getip._eval_without_enc(str)
end
            
_fromUTF8(str, encoding=nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2357
def _fromUTF8(str, encoding=nil)
  __getip._fromUTF8(str, encoding)
end
            
_get_global_var(var) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2392
def _get_global_var(var)
  __getip._get_global_var(var)
end
            
_get_global_var2(var, idx) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2395
def _get_global_var2(var, idx)
  __getip._get_global_var2(var, idx)
end
            
_get_variable(var, flag) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2373
def _get_variable(var, flag)
  __getip._get_variable(var, flag)
end
            
_get_variable2(var, idx, flag) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2376
def _get_variable2(var, idx, flag)
  __getip._get_variable2(var, idx, flag)
end
            
_init_ip_env(script) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1677
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 tk/lib/multi-tk.rb, line 1705
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 tk/lib/multi-tk.rb, line 2333
def _invoke(*args)
  __getip._invoke(*args)
end
            
_invoke_with_enc(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2349
def _invoke_with_enc(*args)
  __getip._invoke_with_enc(*args)
end
            
_invoke_without_enc(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2341
def _invoke_without_enc(*args)
  __getip._invoke_without_enc(*args)
end
            
_ip_id_() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1441
def _ip_id_
  # for RemoteTkIp
  ''
end
            
_make_menu_embeddable(menu_path) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2411
def _make_menu_embeddable(menu_path)
  __getip._make_menu_embeddable(menu_path)
end
            
_merge_tklist(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2418
def _merge_tklist(*args)
  __getip._merge_tklist(*args)
end
            
_receiver_mainloop(check_root) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 634
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 tk/lib/multi-tk.rb, line 1689
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 tk/lib/multi-tk.rb, line 2369
def _return_value
  __getip._return_value
end
            
_set_global_var(var, value) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2398
def _set_global_var(var, value)
  __getip._set_global_var(var, value)
end
            
_set_global_var2(var, idx, value) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2401
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 tk/lib/multi-tk.rb, line 2379
def _set_variable(var, value, flag)
  __getip._set_variable(var, value, flag)
end
            
_set_variable2(var, idx, value, flag) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2382
def _set_variable2(var, idx, value, flag)
  __getip._set_variable2(var, idx, value, flag)
end
            
_split_tklist(str) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2415
def _split_tklist(str)
  __getip._split_tklist(str)
end
            
_thread_tkwait(mode, target) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2365
def _thread_tkwait(mode, target)
  __getip._thread_tkwait(mode, target)
end
            
_thread_vwait(var) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2361
def _thread_vwait(var)
  __getip._thread_vwait(var)
end
            
_tk_cmd_tbl() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1656
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 tk/lib/multi-tk.rb, line 1666
def _tk_table_list
  @tk_table_list
end
            
_tk_windows() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1662
def _tk_windows
  @tk_windows
end
            
_toUTF8(str, encoding=nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2353
def _toUTF8(str, encoding=nil)
  __getip._toUTF8(str, encoding)
end
            
_unset_global_var(var) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2404
def _unset_global_var(var)
  __getip._unset_global_var(var)
end
            
_unset_global_var2(var, idx) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2407
def _unset_global_var2(var, idx)
  __getip._unset_global_var2(var, idx)
end
            
_unset_variable(var, flag) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2385
def _unset_variable(var, flag)
  __getip._unset_variable(var, flag)
end
            
_unset_variable2(var, idx, flag) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2388
def _unset_variable2(var, idx, flag)
  __getip._unset_variable2(var, idx, flag)
end
            
abort(msg = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2306
def abort(msg = nil)
  __getip.abort(msg)
end
            
alias_delete(slave, cmd_name) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2934
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 tk/lib/multi-tk.rb, line 2926
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 tk/lib/multi-tk.rb, line 3166
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 tk/lib/multi-tk.rb, line 2955
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 tk/lib/multi-tk.rb, line 1588
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 tk/lib/multi-tk.rb, line 2286
def allow_ruby_exit= (mode)
  __getip.allow_ruby_exit = mode
end
            
allow_ruby_exit?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2282
def allow_ruby_exit?
  __getip.allow_ruby_exit?
end
            
background_call(*args) click to toggle source
Alias for: bg_eval_proc
background_eval(*args, &blk) click to toggle source
Alias for: bg_eval
background_eval_proc(*args) click to toggle source
Alias for: bg_eval_proc
background_eval_str(cmd, *eval_args) click to toggle source
Alias for: bg_eval_string
background_eval_string(cmd, *eval_args) click to toggle source
Alias for: bg_eval_string
bg_call(*args) click to toggle source
Alias for: bg_eval_proc
bg_eval(*args, &blk) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2156
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 tk/lib/multi-tk.rb, line 2086
  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
            
bg_eval_str(cmd, *eval_args) click to toggle source
Alias for: bg_eval_string
bg_eval_string(cmd, *eval_args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2125
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
            
call(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 233
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 tk/lib/multi-tk.rb, line 342
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 tk/lib/multi-tk.rb, line 1840
def cb_eval(cmd, *args)
  self.eval_callback(*args){|safe, *params|
    $SAFE=safe if $SAFE < safe
    # TkUtil.eval_cmd(cmd, *params)
    TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params))
  }
end
            
def_alias(slave, new_cmd, org_cmd, *args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2944
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() click to toggle source
Alias for: encoding_name
default_encoding=(enc) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3351
def default_encoding=(enc)
  __getip.default_encoding=(enc)
end
            
delete() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2290
def delete
  __getip.delete
end
            
delete_cmd(slave, cmd) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2983
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 tk/lib/multi-tk.rb, line 2963
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 tk/lib/multi-tk.rb, line 2294
def deleted?
  __getip.deleted?
end
            
do_one_event(flag = TclTkLib::EventFlag::ALL) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2229
def do_one_event(flag = TclTkLib::EventFlag::ALL)
  __getip.do_one_event(flag)
end
            
encoding() click to toggle source
Alias for: encoding_name
encoding=(enc) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3355
def encoding=(enc)
  __getip.encoding=(enc)
end
            
encoding_convert_from(str, enc=None) click to toggle source
encoding_convert_to(str, enc=None) click to toggle source
Alias for: encoding_convertto
encoding_convertfrom(str, enc=None) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3369
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 tk/lib/multi-tk.rb, line 3374
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 tk/lib/multi-tk.rb, line 3359
def encoding_name
  __getip.encoding_name
end
            
Also aliased as: encoding, default_encoding
encoding_obj() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3363
def encoding_obj
  __getip.encoding_obj
end
            
encoding_table() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3339
def encoding_table
  __getip.encoding_table
end
            
eval(*args, &blk) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2142
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
 
               # File tk/lib/multi-tk.rb, line 2034
def eval_callback(*args)
  if block_given?
    cmd = Proc.new
  else
    cmd = args.shift
  end
  current = Thread.current
  backup_ip = current[:callback_ip]
  current[:callback_ip] = self
  begin
    eval_proc_core(false, cmd, *args)
  ensure
    current[:callback_ip] = backup_ip
  end
end
            
eval_proc(*args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2050
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
            
Also aliased as: call
eval_str(cmd, *eval_args) click to toggle source
Alias for: eval_string
eval_string(cmd, *eval_args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2111
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 tk/lib/multi-tk.rb, line 2974
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 tk/lib/multi-tk.rb, line 2310
def exit(st = true)
  __getip.exit(st)
end
            
exit!(st = false) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2314
def exit!(st = false)
  __getip.exit!(st)
end
            
expose_cmd(slave, cmd, aliasname = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2994
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 tk/lib/multi-tk.rb, line 3343
def force_default_encoding=(mode)
  __getip.force_default_encoding=(mode)
end
            
force_default_encoding?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3347
def force_default_encoding?
  __getip.force_default_encoding?
end
            
get_bgerror_handler(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3116
def get_bgerror_handler(slave = '')
  raise SecurityError, "no permission to manipulate" unless self.manipulable?
  procedure(@interp._invoke('interp', 'bgerror', _slavearg(slave)))
end
            
get_eventloop_tick() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2243
def get_eventloop_tick
  __getip.get_eventloop_tick
end
            
get_eventloop_weight() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2255
def get_eventloop_weight
  __getip.get_eventloop_weight
end
            
get_limit(limit_type, slave = '', slot = nil) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3132
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
            
get_no_event_wait() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2249
def get_no_event_wait
  __getip.get_no_event_wait
end
            
has_mainwindow?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2298
def has_mainwindow?
  __getip.has_mainwindow?
end
            
hidden_cmds(slave = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3022
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 tk/lib/multi-tk.rb, line 3008
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 tk/lib/multi-tk.rb, line 230
def inspect
  cmd.inspect
end
            
invalid_namespace?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2302
def invalid_namespace?
  __getip.invalid_namespace?
end
            
invoke_hidden(slave, cmd, *args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3030
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 tk/lib/multi-tk.rb, line 3050
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 tk/lib/multi-tk.rb, line 3071
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 tk/lib/multi-tk.rb, line 1609
def ip_name
  @ip_name || ''
end
            
mainloop(check_root = true) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2223
def mainloop(check_root = true)
  __getip.mainloop(check_root)
end
            
mainloop_abort_on_exception() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2232
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 tk/lib/multi-tk.rb, line 2236
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 tk/lib/multi-tk.rb, line 2226
def mainloop_watchdog(check_root = true)
  __getip.mainloop_watchdog(check_root)
end
            
make_safe() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2266
def make_safe
  __getip.make_safe
end
            
manipulable?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1638
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 tk/lib/multi-tk.rb, line 3089
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 tk/lib/multi-tk.rb, line 1570
def master?
  if @ip_name
    false
  else
    true
  end
end
            
method_missing(id, *args) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2262
def method_missing(id, *args)
  __getip.__send__(id, *args)
end
            
mutex() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 129
def mutex; @mutex; end
            
new_master(safe=nil, keys={}) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1470
def new_master(safe=nil, keys={})
  if MultiTkIp::WITH_RUBY_VM
    #### TODO !!!!!!
    fail RuntimeError, 
         'sorry, still not support multiple master-interpreters on Ruby VM'
  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)}
   end
  ip
end
            
new_safe_slave(safe=4, keys={}) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1523
def new_safe_slave(safe=4, keys={})
  if safe.kind_of?(Hash)
    keys = safe
  elsif safe.kind_of?(Integer)
    raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash)
    if !keys.key?(:safe) && !keys.key?('safe')
      keys[:safe] = safe
    end
  else
    raise ArgumentError, "unexpected argument(s)"
  end

  ip = __new(__getip, true, keys)
  # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given?
  if block_given?
    Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)}
  end
  ip
end
            
new_slave(safe=nil, keys={}) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1500
def new_slave(safe=nil, keys={})
  if safe.kind_of?(Hash)
    keys = safe
  elsif safe.kind_of?(Integer)
    raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash)
    if !keys.key?(:safe) && !keys.key?('safe')
      keys[:safe] = safe
    end
  elsif safe == nil
    # do nothing
  else
    raise ArgumentError, "unexpected argument(s)"
  end

  ip = __new(__getip, false, keys)
  # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given?
  if block_given?
    Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)}
  end
  ip
end
            
path() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1603
def path
  @ip_name || ''
end
            
recursion_limit(slave = '', limit = None) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3157
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 tk/lib/multi-tk.rb, line 2318
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
            
running_mainloop?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 380
def running_mainloop?
  @wait_on_mainloop[1] > 0
end
            
safe?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2270
def safe?
  __getip.safe?
end
            
safe_base?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2274
def safe_base?
  begin
    __getip.safe_base?
  rescue
    false
  end
end
            
safe_level() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 366
def safe_level
  @safe_level[0]
end
            
safe_level=(safe) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 357
def safe_level=(safe)
  set_safe_level(safe)
end
            
safeip_add_to_access_path(dir) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3320
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 tk/lib/multi-tk.rb, line 3275
  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 tk/lib/multi-tk.rb, line 3262
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 tk/lib/multi-tk.rb, line 3315
def safeip_delete
  ip = MultiTkIp.__getip
  ip._eval("::safe::interpDelete " + @ip_name)
end
            
safeip_find_in_access_path(dir) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3325
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 tk/lib/multi-tk.rb, line 3330
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 tk/lib/multi-tk.rb, line 3099
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 tk/lib/multi-tk.rb, line 338
def set_cb_error(cmd = Proc.new)
  @cb_error_proc[0] = cmd
end
            
set_eventloop_tick(tick) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2240
def set_eventloop_tick(tick)
  __getip.set_eventloop_tick(tick)
end
            
set_eventloop_weight(loop_max, no_event_tick) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2252
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 tk/lib/multi-tk.rb, line 3124
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_no_event_wait(tick) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 2246
def set_no_event_wait(tick)
  __getip.set_no_event_wait(tick)
end
            
set_safe_level(safe) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 350
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 tk/lib/multi-tk.rb, line 3194
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 tk/lib/multi-tk.rb, line 3174
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 tk/lib/multi-tk.rb, line 3234
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 tk/lib/multi-tk.rb, line 3184
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 tk/lib/multi-tk.rb, line 1581
def slave?
  not master?
end
            
slaves(all = false) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1622
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) click to toggle source
Alias for: bg_eval_proc
to_eval() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1615
def to_eval
  @ip_name || ''
end
            
transfer_stderr(dist, src = '') click to toggle source
 
               # File tk/lib/multi-tk.rb, line 3224
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 tk/lib/multi-tk.rb, line 3204
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 tk/lib/multi-tk.rb, line 3246
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 tk/lib/multi-tk.rb, line 3214
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 tk/lib/multi-tk.rb, line 376
def wait_on_mainloop=(bool)
  @wait_on_mainloop[0] = bool
end
            
wait_on_mainloop?() click to toggle source
 
               # File tk/lib/multi-tk.rb, line 373
def wait_on_mainloop?
  @wait_on_mainloop[0]
end
            

Protected Instance Methods

_is_master_of?(tcltkip_obj) click to toggle source
 
               # File tk/lib/multi-tk.rb, line 1647
def _is_master_of?(tcltkip_obj)
  tcltkip_obj.slave_of?(@interp)
end
            

Commenting is here to help enhance the documentation. For example, code samples, or clarification of the documentation.

If you have questions about Ruby or the documentation, please post to one of the Ruby mailing lists. You will get better, faster, help that way.

If you wish to post a correction of the docs, please do so, but also file bug report so that it can be corrected for the next release. Thank you.

If you want to help improve the Ruby documentation, please visit Documenting-ruby.org.

blog comments powered by Disqus