Andrew Eikum : oleaut32: Implement ICreateTypeInfo::SetVarDocString.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 4b2201b11c0900cd5113881ce19adb0684e86975
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=4b2201b11c0900cd5113881ce19adb0684e86975

Author: Andrew Eikum <aeikum at codeweavers.com>
Date:   Fri May 31 15:06:31 2013 -0500

oleaut32: Implement ICreateTypeInfo::SetVarDocString.

---

 dlls/oleaut32/typelib.c |   15 +++++++++++++--
 1 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index 098100d..d52d461 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -9196,8 +9196,19 @@ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarDocString(ICreateTypeInfo2 *iface
         UINT index, LPOLESTR docString)
 {
     ITypeInfoImpl *This = info_impl_from_ICreateTypeInfo2(iface);
-    FIXME("%p %u %s - stub\n", This, index, wine_dbgstr_w(docString));
-    return E_NOTIMPL;
+    TLBVarDesc *var_desc = &This->vardescs[index];
+
+    TRACE("%p %u %s\n", This, index, wine_dbgstr_w(docString));
+
+    if(!docString)
+        return E_INVALIDARG;
+
+    if(index >= This->cVars)
+        return TYPE_E_ELEMENTNOTFOUND;
+
+    var_desc->HelpString = TLB_append_str(&This->pTypeLib->string_list, docString);
+
+    return S_OK;
 }
 
 static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncHelpContext(ICreateTypeInfo2 *iface,