Method: TkComm.tk_tcl2ruby

Defined in:

lib/tk.rb

.tk_tcl2ruby(val, enc_mode = false, listobj = true) ⇒ Object

# File 'lib/tk.rb', line 231

def tk_tcl2ruby(val, enc_mode = false, listobj = true)
=begin
  if val =~ /^rb_out\S* (c(_\d+_)?\d+)/
    #return Tk_CMDTBL[$1]
    return TkCore::INTERP.tk_cmd_tbl[$1]
    #cmd_obj = TkCore::INTERP.tk_cmd_tbl[$1]
    #if cmd_obj.kind_of?(Proc) || cmd_obj.kind_of?(Method)
    #  cmd_obj
    #else
    #  cmd_obj.cmd
    #end
  end
=end

  if val =~ /rb_out\S*(?:\s+(::\S*|[{](::.*)[}]|["](::.*)["]))? (c(_\d+_)?(\d+))/
    return TkCore::INTERP.tk_cmd_tbl[$4]
  end
  #if val.include? ?\s
  #  return val.split.collect{|v| tk_tcl2ruby(v)}
  #end
  case val
  when /\A@font\S+\z/
    TkFont.get_obj(val)
  when /\A-?\d+\z/
    val.to_i
  when /\A\.\S*\z/
    #Tk_WINDOWS[val] ? Tk_WINDOWS[val] : _genobj_for_tkwidget(val)
    TkCore::INTERP.tk_windows[val]?
         TkCore::INTERP.tk_windows[val] : _genobj_for_tkwidget(val)
  when /\Ai(_\d+_)?\d+\z/
    TkImage::Tk_IMGTBL.mutex.synchronize{
      TkImage::Tk_IMGTBL[val]? TkImage::Tk_IMGTBL[val] : val
    }
  when /\A-?\d+\.?\d*(e[-+]?\d+)?\z/
    val.to_f
  when /\\ /
    val.gsub(/\\ /, ' ')
  when /[^\\] /
    if listobj
      #tk_split_escstr(val).collect{|elt|
      #  tk_tcl2ruby(elt, enc_mode, listobj)
      #}
      val = _toUTF8(val) unless enc_mode
      tk_split_escstr(val, false, false).collect{|elt|
        tk_tcl2ruby(elt, true, listobj)
      }
    elsif enc_mode
      _fromUTF8(val)
    else
      val
    end
  else
    if enc_mode
      _fromUTF8(val)
    else
      val
    end
  end
end