vbscript: Added GetInterfaceSafetyOptions implementation.

dd7ee024 · Jacek Caban · Alexandre Julliard · a34ece4c · dd7ee024
Commit dd7ee024 authored Sep 02, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 02, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 2 deletions

vbscript.c dlls/vbscript/vbscript.c +9 -2

No files found.
--- a/dlls/vbscript/vbscript.c
+++ b/dlls/vbscript/vbscript.c
@@ -438,8 +438,15 @@ static HRESULT WINAPI VBScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *if
        DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
 {
    VBScript *This = impl_from_IObjectSafety(iface);
-    FIXME("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
-    return E_NOTIMPL;
+
+    TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
+
+    if(!pdwSupportedOptions || !pdwEnabledOptions)
+        return E_POINTER;
+
+    *pdwSupportedOptions = SUPPORTED_OPTIONS;
+    *pdwEnabledOptions = This->safeopt;
+    return S_OK;
 }

 static HRESULT WINAPI VBScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,