[PATCH] mshtml: implement ActiveScriptSite_OnScriptError.

[Reece Dunn]

Hi,

This reports any errors sent to the mshtml ActiveScriptSite
OnScriptError handler to the user and traces it to ERR to aid
debugging.

- Reece
-------------- next part --------------
From 118753565775987f5e8fc741d1a6a973d8ad8063 Mon Sep 17 00:00:00 2001
From: Reece Dunn <msclrhd at gmail.com>
Date: Wed, 29 Sep 2010 08:31:43 +0100
Subject: [PATCH] mshtml: implement ActiveScriptSite_OnScriptError.

---
 dlls/mshtml/script.c |   19 +++++++++++++++++--
 1 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/dlls/mshtml/script.c b/dlls/mshtml/script.c
index 0b78e17..44cfc1b 100644
--- a/dlls/mshtml/script.c
+++ b/dlls/mshtml/script.c
@@ -355,8 +355,23 @@ static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, S
 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
 {
     ScriptHost *This = ACTSCPSITE_THIS(iface);
-    FIXME("(%p)->(%p)\n", This, pscripterror);
-    return E_NOTIMPL;
+    EXCEPINFO excep;
+    HRESULT hr;
+
+    TRACE("(%p)->(%p)\n", This, pscripterror);
+
+    hr = IActiveScriptError_GetExceptionInfo(pscripterror, &excep);
+
+    ERR("ActiveScript Error: %s source: %s\n",
+        debugstr_w(excep.bstrDescription), debugstr_w(excep.bstrSource));
+
+    MessageBoxW(NULL, excep.bstrDescription, excep.bstrSource, MB_OK|MB_ICONERROR);
+
+    SysFreeString(excep.bstrSource);
+    SysFreeString(excep.bstrDescription);
+    SysFreeString(excep.bstrHelpFile);
+
+    return S_OK;
 }
 
 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
-- 
1.7.0.4