vbscript: Implement ScriptTypeInfo_GetRefTypeOfImplType.

Signed-off-by: Gabriel Ivăncescu <gabrielopcode@gmail.com>
Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Gabriel Ivăncescu 2019-12-11 18:19:16 +01:00 committed by Alexandre Julliard
parent c4819437da
commit 8ce9855256
1 changed files with 7 additions and 2 deletions

View File

@ -780,9 +780,14 @@ static HRESULT WINAPI ScriptTypeInfo_GetRefTypeOfImplType(ITypeInfo *iface, UINT
{ {
ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface); ScriptTypeInfo *This = ScriptTypeInfo_from_ITypeInfo(iface);
FIXME("(%p)->(%u %p)\n", This, index, pRefType); TRACE("(%p)->(%u %p)\n", This, index, pRefType);
return E_NOTIMPL; /* We only inherit from IDispatch */
if (!pRefType) return E_INVALIDARG;
if (index != 0) return TYPE_E_ELEMENTNOTFOUND;
*pRefType = 1;
return S_OK;
} }
static HRESULT WINAPI ScriptTypeInfo_GetImplTypeFlags(ITypeInfo *iface, UINT index, INT *pImplTypeFlags) static HRESULT WINAPI ScriptTypeInfo_GetImplTypeFlags(ITypeInfo *iface, UINT index, INT *pImplTypeFlags)