configinfo

if key.kind_of?(Hash)
  tk_call @t.path, 'tag', 'configure', @id, *hash_kv(key)
else
  tk_call @t.path, 'tag', 'configure', @id, "-#{key}", val
end

if value == FALSE
  value = "0"
elsif value.kind_of?(Proc)
  value = install_cmd(value)
end
tk_call @t.path, 'tag', 'configure', @id, "-#{key}", value