Class: TkVarAccess (Ruby 1.8.6)

new(name, *args) click to toggle source

 
               # File tk/lib/tk/variable.rb, line 1529
def self.new(name, *args)
  if name.kind_of?(TkVariable)
    name.value = args[0] unless args.empty?
    return name 
  end

  if v = TkVar_ID_TBL[name]
    v.value = args[0] unless args.empty?
    return v
  end

  super(name, *args)
end

new(varname, val=nil) click to toggle source

 
               # File tk/lib/tk/variable.rb, line 1568
  def initialize(varname, val=nil)
    @id = varname
    TkVar_ID_TBL[@id] = self

    @var  = @id
    @elem = nil

    @def_default = false
    @default_val = nil

    @trace_var  = nil
    @trace_elem = nil
    @trace_opts = nil

    @type = nil
    var = self
    @element_type = Hash.new{|k,v| var.default_value_type }

    # is an element?
    if @id =~ /^([^(]+)\((.+)\)$/
      # is an element --> var == $1, elem == $2
      @var  = $1
      @elem = $2
    end

    # teach Tk-ip that @id is global var
    INTERP._invoke_without_enc('global', @var)
=begin
    begin
      INTERP._invoke_without_enc('global', @id)
    rescue => e
      if @id =~ /^(.+)\([^()]+\)$/
        # is an element --> varname == $1
        INTERP._invoke_without_enc('global', $1)
      else
        fail e
      end
    end
=end

    if val
      if val.kind_of?(Hash)
        # assoc-array variable
        self[''] = 0
        self.clear
      end
      #s = '"' + _get_eval_string(val).gsub(/[\[\]$"]/, '\\\\\&') + '"' #"
      #s = '"' + _get_eval_string(val).gsub(/[\[\]$"\\]/, '\\\\\&') + '"' #"
      #INTERP._eval(Kernel.format('global %s; set %s %s', @id, @id, s))
      #INTERP._set_global_var(@id, _toUTF8(_get_eval_string(val)))
      self.value = val
    end
  end

new_hash(name, *args) click to toggle source

 
               # File tk/lib/tk/variable.rb, line 1543
def self.new_hash(name, *args)
  if name.kind_of?(TkVariable)
    unless name.is_hash?
      fail ArgumentError, "already exist as a scalar variable"
    end
    name.value = args[0] unless args.empty?
    return name 
  end

  if v = TkVar_ID_TBL[name]
    unless v.is_hash?
      fail ArgumentError, "already exist as a scalar variable"
    end
    v.value = args[0] unless args.empty?
    return v
  end

  INTERP._invoke_without_enc('global', name)
  if args.empty? && INTERP._invoke_without_enc('array', 'exist', name) == '0'
    self.new(name, {})  # force creating
  else
    self.new(name, *args)
  end
end

Home Classes Methods

In Files

Parent

Methods

Class/Module Index

TkVarAccess

Public Class Methods