tag_raise

case key.to_s
when 'text', 'label', 'show', 'data', 'file'
  tk_call_without_enc(@path, 'tag', 'cget',
                      _get_eval_enc_str(tag), "-#{key}")
when 'font', 'kanjifont'
  #fnt = tk_tcl2ruby(tk_send('tag', 'cget', tag, "-#{key}"))
  fnt = tk_tcl2ruby(_fromUTF8(tk_send_without_enc('tag','cget',_get_eval_enc_str(tag),'-font')))
  unless fnt.kind_of?(TkFont)
    fnt = tagfontobj(tag, fnt)
  end
  if key.to_s == 'kanjifont' && JAPANIZED_TK && TK_VERSION =~ /^4\.*/
    # obsolete; just for compatibility
    fnt.kanji_font
  else
    fnt
  end
else
  tk_tcl2ruby(_fromUTF8(tk_call_without_enc(@path,'tag','cget',_get_eval_enc_str(tag),"-#{key}")))
end

if key.kind_of?(Hash)
  key = _symbolkey2str(key)
  if ( key['font'] || key['kanjifont'] \
      || key['latinfont'] || key['asciifont'] )
    tagfont_configure(tag, key)
  else
    tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag),
                        *hash_kv(key, true))
  end

else
  if  key == 'font' || key == :font ||
      key == 'kanjifont' || key == :kanjifont ||
      key == 'latinfont' || key == :latinfont ||
      key == 'asciifont' || key == :asciifont
    if val == None
      tagfontobj(tag)
    else
      tagfont_configure(tag, {key=>val})
    end
  else
    tk_send_without_enc('tag', 'configure', _get_eval_enc_str(tag),
                        "-#{key}", _get_eval_enc_str(val))
  end
end
self

if TkComm::GET_CONFIGINFO_AS_ARRAY
  if key
    case key.to_s
    when 'text', 'label', 'show', 'data', 'file'
      conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
    when 'font', 'kanjifont'
      conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      conf[4] = tagfont_configinfo(tag, conf[4])
    else
      conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
    end
    conf[0] = conf[0][1..-1]
    conf
  else
    ret = tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).collect{|conflist|
      conf = tk_split_simplelist(conflist)
      conf[0] = conf[0][1..-1]
      case conf[0]
      when 'text', 'label', 'show', 'data', 'file'
      else
        if conf[3]
          if conf[3].index('{')
            conf[3] = tk_split_list(conf[3])
          else
            conf[3] = tk_tcl2ruby(conf[3])
          end
        end
        if conf[4]
          if conf[4].index('{')
            conf[4] = tk_split_list(conf[4])
          else
            conf[4] = tk_tcl2ruby(conf[4])
          end
        end
      end
      conf[1] = conf[1][1..-1] if conf.size == 2 # alias info
      conf
    }
    fontconf = ret.assoc('font')
    if fontconf
      ret.delete_if{|item| item[0] == 'font' || item[0] == 'kanjifont'}
      fontconf[4] = tagfont_configinfo(tag, fontconf[4])
      ret.push(fontconf)
    else
      ret
    end
  end
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
  if key
    case key.to_s
    when 'text', 'label', 'show', 'data', 'file'
      conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
    when 'font', 'kanjifont'
      conf = tk_split_simplelist(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
      conf[4] = tagfont_configinfo(tag, conf[4])
    else
      conf = tk_split_list(_fromUTF8(tk_send_without_enc('tag','configure',_get_eval_enc_str(tag),"-#{key}")))
    end
    key = conf.shift[1..-1]
    { key => conf }
  else
    ret = {}
    tk_split_simplelist(_fromUTF8(tk_send('tag','configure',_get_eval_enc_str(tag)))).each{|conflist|
      conf = tk_split_simplelist(conflist)
      key = conf.shift[1..-1]
      case key
      when 'text', 'label', 'show', 'data', 'file'
      else
        if conf[2]
          if conf[2].index('{')
            conf[2] = tk_split_list(conf[2])
          else
            conf[2] = tk_tcl2ruby(conf[2])
          end
        end
        if conf[3]
          if conf[3].index('{')
            conf[3] = tk_split_list(conf[3])
          else
            conf[3] = tk_tcl2ruby(conf[3])
          end
        end
      end
      if conf.size == 1
        ret[key] = conf[0][1..-1]  # alias info
      else
        ret[key] = conf
      end
    }
    fontconf = ret['font']
    if fontconf
      ret.delete('font')
      ret.delete('kanjifont')
      fontconf[3] = tagfont_configinfo(tag, fontconf[3])
      ret['font'] = fontconf
    end
    ret
  end
end

if TkComm::GET_CONFIGINFO_AS_ARRAY
  if key
    conf = tag_configinfo(tag, key)
    {conf[0] => conf[4]}
  else
    ret = {}
    tag_configinfo(tag).each{|conf|
      ret[conf[0]] = conf[4] if conf.size > 2
    }
    ret
  end
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
  ret = {}
  tag_configinfo(tag, key).each{|k, conf|
    ret[k] = conf[-1] if conf.kind_of?(Array)
  }
  ret
end