Support ATTR_READONLY for interface properties.

This commit is contained in:
Vincent Béron 2005-02-08 12:56:22 +00:00 committed by Alexandre Julliard
parent a477def6e1
commit f6ff452f17
1 changed files with 3 additions and 0 deletions

View File

@ -1442,6 +1442,9 @@ static HRESULT add_var_desc(msft_typeinfo_t *typeinfo, UINT index, var_t* var)
case ATTR_ID:
id = expr->u.lval;
break;
case ATTR_READONLY:
varflags |= 0x01; /* VARFLAG_FREADONLY */
break;
default:
warning("AddVarDesc: unhandled attr type %d\n", attr->type);
break;