Support some more attributes for interface properties.

This commit is contained in:
Vincent Béron 2005-02-08 13:43:34 +00:00 committed by Alexandre Julliard
parent 6a8b67ca33
commit df5051e925
1 changed files with 9 additions and 0 deletions

View File

@ -1439,12 +1439,21 @@ static HRESULT add_var_desc(msft_typeinfo_t *typeinfo, UINT index, var_t* var)
for(attr = var->attrs; attr; attr = NEXT_LINK(attr)) {
expr_t *expr = attr->u.pval;
switch(attr->type) {
case ATTR_HIDDEN:
varflags |= 0x40; /* VARFLAG_FHIDDEN */
break;
case ATTR_ID:
id = expr->u.lval;
break;
case ATTR_READONLY:
varflags |= 0x01; /* VARFLAG_FREADONLY */
break;
case ATTR_RESTRICTED:
varflags |= 0x80; /* VARFLAG_FRESTRICTED */
break;
case ATTR_SOURCE:
varflags |= 0x02; /* VARFLAG_FSOURCE */
break;
default:
warning("AddVarDesc: unhandled attr type %d\n", attr->type);
break;