oleaut32: Implement ICreateTypeInfo::SetVarHelpContext.

5ae88daf · Andrew Eikum · Alexandre Julliard · caa452e9 · 5ae88daf
Commit 5ae88daf authored May 31, 2013 by Andrew Eikum Committed by Alexandre Julliard Jun 03, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 2 deletions

typelib.c dlls/oleaut32/typelib.c +10 -2

No files found.
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -9220,8 +9220,16 @@ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarHelpContext(ICreateTypeInfo2 *ifa
        UINT index, DWORD helpContext)
 {
    ITypeInfoImpl *This = info_impl_from_ICreateTypeInfo2(iface);
-    FIXME("%p %u %d - stub\n", This, index, helpContext);
-    return E_NOTIMPL;
+    TLBVarDesc *var_desc = &This->vardescs[index];
+
+    TRACE("%p %u %d\n", This, index, helpContext);
+
+    if(index >= This->cVars)
+        return TYPE_E_ELEMENTNOTFOUND;
+
+    var_desc->HelpContext = helpContext;
+
+    return S_OK;
 }

 static HRESULT WINAPI ICreateTypeInfo2_fnSetMops(ICreateTypeInfo2 *iface,