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>

vbscript: Implement ScriptTypeInfo_GetRefTypeOfImplType.
8ce98552 · Gabriel Ivăncescu · Alexandre Julliard · c4819437 · 8ce98552
Commit 8ce98552 authored Dec 11, 2019 by Gabriel Ivăncescu Committed by Alexandre Julliard Dec 11, 2019
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

vbdisp.c dlls/vbscript/vbdisp.c +7 -2

No files found.
--- a/dlls/vbscript/vbdisp.c
+++ b/dlls/vbscript/vbdisp.c
@@ -780,9 +780,14 @@ static HRESULT WINAPI ScriptTypeInfo_GetRefTypeOfImplType(ITypeInfo *iface, UINT
 {
    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)