dlls/mshtml/htmldoc.c

   1 /*
   2  * Copyright 2005 Jacek Caban
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "ole2.h"
  30
  31 #include "wine/debug.h"
  32
  33 #include "mshtml_private.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  36
  37 #define HTMLDOC_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument2, iface)
  38
  39 static HRESULT WINAPI HTMLDocument_QueryInterface(IHTMLDocument2 *iface, REFIID riid, void **ppvObject)
  40 {
  41     HTMLDocument *This = HTMLDOC_THIS(iface);
  42
  43     *ppvObject = NULL;
  44     if(IsEqualGUID(&IID_IUnknown, riid)) {
  45         TRACE("(%p)->(IID_IUnknown, %p)\n", This, ppvObject);
  46         *ppvObject = HTMLDOC(This);
  47     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  48         TRACE("(%p)->(IID_IDispatch, %p)\n", This, ppvObject);
  49         *ppvObject = HTMLDOC(This);
  50     }else if(IsEqualGUID(&IID_IHTMLDocument, riid)) {
  51         TRACE("(%p)->(IID_IHTMLDocument, %p)\n", This, ppvObject);
  52         *ppvObject = HTMLDOC(This);
  53     }else if(IsEqualGUID(&IID_IHTMLDocument2, riid)) {
  54         TRACE("(%p)->(IID_IHTMLDocument2, %p)\n", This, ppvObject);
  55         *ppvObject = HTMLDOC(This);
  56     }else if(IsEqualGUID(&IID_IHTMLDocument3, riid)) {
  57         TRACE("(%p)->(IID_IHTMLDocument3, %p)\n", This, ppvObject);
  58         *ppvObject = HTMLDOC3(This);
  59     }else if(IsEqualGUID(&IID_IHTMLDocument4, riid)) {
  60         TRACE("(%p)->(IID_IHTMLDocument4, %p)\n", This, ppvObject);
  61         *ppvObject = HTMLDOC4(This);
  62     }else if(IsEqualGUID(&IID_IHTMLDocument5, riid)) {
  63         TRACE("(%p)->(IID_IHTMLDocument5, %p)\n", This, ppvObject);
  64         *ppvObject = HTMLDOC5(This);
  65     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  66         TRACE("(%p)->(IID_IPersist, %p)\n", This, ppvObject);
  67         *ppvObject = PERSIST(This);
  68     }else if(IsEqualGUID(&IID_IPersistMoniker, riid)) {
  69         TRACE("(%p)->(IID_IPersistMoniker, %p)\n", This, ppvObject);
  70         *ppvObject = PERSISTMON(This);
  71     }else if(IsEqualGUID(&IID_IPersistFile, riid)) {
  72         TRACE("(%p)->(IID_IPersistFile, %p)\n", This, ppvObject);
  73         *ppvObject = PERSISTFILE(This);
  74     }else if(IsEqualGUID(&IID_IMonikerProp, riid)) {
  75         TRACE("(%p)->(IID_IMonikerProp, %p)\n", This, ppvObject);
  76         *ppvObject = MONPROP(This);
  77     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  78         TRACE("(%p)->(IID_IOleObject, %p)\n", This, ppvObject);
  79         *ppvObject = OLEOBJ(This);
  80     }else if(IsEqualGUID(&IID_IOleDocument, riid)) {
  81         TRACE("(%p)->(IID_IOleDocument, %p)\n", This, ppvObject);
  82         *ppvObject = OLEDOC(This);
  83     }else if(IsEqualGUID(&IID_IOleDocumentView, riid)) {
  84         TRACE("(%p)->(IID_IOleDocumentView, %p)\n", This, ppvObject);
  85         *ppvObject = DOCVIEW(This);
  86     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
  87         TRACE("(%p)->(IID_IOleInPlaceActiveObject, %p)\n", This, ppvObject);
  88         *ppvObject = ACTOBJ(This);
  89     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  90         TRACE("(%p)->(IID_IViewObject, %p)\n", This, ppvObject);
  91         *ppvObject = VIEWOBJ(This);
  92     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  93         TRACE("(%p)->(IID_IViewObject2, %p)\n", This, ppvObject);
  94         *ppvObject = VIEWOBJ2(This);
  95     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  96         TRACE("(%p)->(IID_IOleWindow, %p)\n", This, ppvObject);
  97         *ppvObject = OLEWIN(This);
  98     }else if(IsEqualGUID(&IID_IOleInPlaceObject, riid)) {
  99         TRACE("(%p)->(IID_IOleInPlaceObject, %p)\n", This, ppvObject);
 100         *ppvObject = INPLACEOBJ(This);
 101     }else if(IsEqualGUID(&IID_IOleInPlaceObjectWindowless, riid)) {
 102         TRACE("(%p)->(IID_IOleInPlaceObjectWindowless, %p)\n", This, ppvObject);
 103         *ppvObject = INPLACEWIN(This);
 104     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 105         TRACE("(%p)->(IID_IServiceProvider, %p)\n", This, ppvObject);
 106         *ppvObject = SERVPROV(This);
 107     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 108         TRACE("(%p)->(IID_IOleCommandTarget, %p)\n", This, ppvObject);
 109         *ppvObject = CMDTARGET(This);
 110     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
 111         TRACE("(%p)->(IID_IOleControl, %p)\n", This, ppvObject);
 112         *ppvObject = CONTROL(This);
 113     }else if(IsEqualGUID(&IID_IHlinkTarget, riid)) {
 114         TRACE("(%p)->(IID_IHlinkTarget, %p)\n", This, ppvObject);
 115         *ppvObject = HLNKTARGET(This);
 116     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
 117         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppvObject);
 118         *ppvObject = CONPTCONT(&This->cp_container);
 119     }else if(IsEqualGUID(&IID_IPersistStreamInit, riid)) {
 120         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppvObject);
 121         *ppvObject = PERSTRINIT(This);
 122     }else if(IsEqualGUID(&IID_ICustomDoc, riid)) {
 123         TRACE("(%p)->(IID_ICustomDoc %p)\n", This, ppvObject);
 124         *ppvObject = CUSTOMDOC(This);
 125     }else if(IsEqualGUID(&DIID_DispHTMLDocument, riid)) {
 126         TRACE("(%p)->(DIID_DispHTMLDocument %p)\n", This, ppvObject);
 127         *ppvObject = HTMLDOC(This);
 128     }else if(IsEqualGUID(&CLSID_CMarkup, riid)) {
 129         FIXME("(%p)->(CLSID_CMarkup %p)\n", This, ppvObject);
 130         return E_NOINTERFACE;
 131     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 132         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppvObject);
 133         return E_NOINTERFACE;
 134     }
 135
 136     if(*ppvObject) {
 137         IHTMLDocument2_AddRef(iface);
 138         return S_OK;
 139     }
 140
 141     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppvObject);
 142     return E_NOINTERFACE;
 143 }
 144
 145 static ULONG WINAPI HTMLDocument_AddRef(IHTMLDocument2 *iface)
 146 {
 147     HTMLDocument *This = HTMLDOC_THIS(iface);
 148     ULONG ref = InterlockedIncrement(&This->ref);
 149     TRACE("(%p) ref = %u\n", This, ref);
 150     return ref;
 151 }
 152
 153 static ULONG WINAPI HTMLDocument_Release(IHTMLDocument2 *iface)
 154 {
 155     HTMLDocument *This = HTMLDOC_THIS(iface);
 156     ULONG ref = InterlockedDecrement(&This->ref);
 157
 158     TRACE("(%p) ref = %u\n", This, ref);
 159
 160     if(!ref) {
 161         remove_doc_tasks(This);
 162         release_script_hosts(This);
 163
 164         if(This->client)
 165             IOleObject_SetClientSite(OLEOBJ(This), NULL);
 166         if(This->in_place_active)
 167             IOleInPlaceObjectWindowless_InPlaceDeactivate(INPLACEWIN(This));
 168         if(This->ipsite)
 169             IOleDocumentView_SetInPlaceSite(DOCVIEW(This), NULL);
 170         if(This->undomgr)
 171             IOleUndoManager_Release(This->undomgr);
 172
 173         set_document_bscallback(This, NULL);
 174         set_current_mon(This, NULL);
 175
 176         if(This->tooltips_hwnd)
 177             DestroyWindow(This->tooltips_hwnd);
 178         if(This->hwnd)
 179             DestroyWindow(This->hwnd);
 180
 181         if(This->option_factory) {
 182             This->option_factory->doc = NULL;
 183             IHTMLOptionElementFactory_Release(HTMLOPTFACTORY(This->option_factory));
 184         }
 185
 186         if(This->window)
 187             IHTMLWindow2_Release(HTMLWINDOW2(This->window));
 188
 189         heap_free(This->mime);
 190         detach_selection(This);
 191         detach_ranges(This);
 192         release_nodes(This);
 193
 194         ConnectionPointContainer_Destroy(&This->cp_container);
 195
 196         if(This->nscontainer)
 197             NSContainer_Release(This->nscontainer);
 198
 199         heap_free(This);
 200
 201         UNLOCK_MODULE();
 202     }
 203
 204     return ref;
 205 }
 206
 207 static HRESULT WINAPI HTMLDocument_GetTypeInfoCount(IHTMLDocument2 *iface, UINT *pctinfo)
 208 {
 209     FIXME("(%p)->(%p)\n", iface, pctinfo);
 210     return E_NOTIMPL;
 211 }
 212
 213 static HRESULT WINAPI HTMLDocument_GetTypeInfo(IHTMLDocument2 *iface, UINT iTInfo,
 214                                                 LCID lcid, ITypeInfo **ppTInfo)
 215 {
 216     FIXME("(%p)->(%u %u %p)\n", iface, iTInfo, lcid, ppTInfo);
 217     return E_NOTIMPL;
 218 }
 219
 220 static HRESULT WINAPI HTMLDocument_GetIDsOfNames(IHTMLDocument2 *iface, REFIID riid,
 221                                                 LPOLESTR *rgszNames, UINT cNames,
 222                                                 LCID lcid, DISPID *rgDispId)
 223 {
 224     FIXME("(%p)->(%s %p %u %u %p)\n", iface, debugstr_guid(riid), rgszNames, cNames,
 225                                         lcid, rgDispId);
 226     return E_NOTIMPL;
 227 }
 228
 229 static HRESULT WINAPI HTMLDocument_Invoke(IHTMLDocument2 *iface, DISPID dispIdMember,
 230                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 231                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 232 {
 233     HTMLDocument *This = HTMLDOC_THIS(iface);
 234
 235     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 236           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 237
 238     switch(dispIdMember) {
 239     case DISPID_READYSTATE:
 240         if(!(wFlags & DISPATCH_PROPERTYGET))
 241             return E_INVALIDARG;
 242
 243         V_VT(pVarResult) = VT_I4;
 244         V_I4(pVarResult) = This->readystate;
 245         return S_OK;
 246
 247     default:
 248         FIXME("Unsupported dispid %d\n", dispIdMember);
 249     }
 250
 251     return E_NOTIMPL;
 252 }
 253
 254 static HRESULT WINAPI HTMLDocument_get_Script(IHTMLDocument2 *iface, IDispatch **p)
 255 {
 256     FIXME("(%p)->(%p)\n", iface, p);
 257     return E_NOTIMPL;
 258 }
 259
 260 static HRESULT WINAPI HTMLDocument_get_all(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 261 {
 262     HTMLDocument *This = HTMLDOC_THIS(iface);
 263     nsIDOMDocument *nsdoc = NULL;
 264     nsIDOMElement *nselem = NULL;
 265     nsresult nsres;
 266
 267     TRACE("(%p)->(%p)\n", This, p);
 268
 269     if(!This->nscontainer) {
 270         *p = NULL;
 271         return S_OK;
 272     }
 273
 274     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
 275     if(NS_FAILED(nsres))
 276         ERR("GetDocument failed: %08x\n", nsres);
 277
 278     if(nsdoc) {
 279         nsres = nsIDOMHTMLDocument_GetDocumentElement(nsdoc, &nselem);
 280         if(NS_FAILED(nsres))
 281             ERR("GetDocumentElement failed: %08x\n", nsres);
 282     }
 283
 284     if(!nselem) {
 285         *p = NULL;
 286         return S_OK;
 287     }
 288
 289     *p = create_all_collection(get_node(This, (nsIDOMNode*)nselem));
 290
 291     nsIDOMElement_Release(nselem);
 292     return S_OK;
 293 }
 294
 295 static HRESULT WINAPI HTMLDocument_get_body(IHTMLDocument2 *iface, IHTMLElement **p)
 296 {
 297     HTMLDocument *This = HTMLDOC_THIS(iface);
 298     nsIDOMDocument *nsdoc;
 299     nsIDOMHTMLDocument *nshtmldoc;
 300     nsIDOMHTMLElement *nsbody = NULL;
 301     HTMLDOMNode *node;
 302     nsresult nsres;
 303
 304     TRACE("(%p)->(%p)\n", This, p);
 305
 306     *p = NULL;
 307
 308     if(!This->nscontainer)
 309         return S_OK;
 310
 311     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
 312     if(NS_FAILED(nsres)) {
 313         ERR("GetDocument failed: %08x\n", nsres);
 314         return S_OK;
 315     }
 316
 317     if(NS_FAILED(nsres) || !nsdoc)
 318         return S_OK;
 319
 320     nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMHTMLDocument, (void**)&nshtmldoc);
 321     nsIDOMDocument_Release(nsdoc);
 322
 323     nsres = nsIDOMHTMLDocument_GetBody(nshtmldoc, &nsbody);
 324     nsIDOMHTMLDocument_Release(nshtmldoc);
 325
 326     if(NS_FAILED(nsres) || !nsbody) {
 327         TRACE("Could not get body: %08x\n", nsres);
 328         return S_OK;
 329     }
 330
 331     node = get_node(This, (nsIDOMNode*)nsbody);
 332     nsIDOMHTMLElement_Release(nsbody);
 333
 334     IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)p);
 335
 336     TRACE("*p = %p\n", *p);
 337     return S_OK;
 338 }
 339
 340 static HRESULT WINAPI HTMLDocument_get_activeElement(IHTMLDocument2 *iface, IHTMLElement **p)
 341 {
 342     FIXME("(%p)->(%p)\n", iface, p);
 343     return E_NOTIMPL;
 344 }
 345
 346 static HRESULT WINAPI HTMLDocument_get_images(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 347 {
 348     FIXME("(%p)->(%p)\n", iface, p);
 349     return E_NOTIMPL;
 350 }
 351
 352 static HRESULT WINAPI HTMLDocument_get_applets(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 353 {
 354     FIXME("(%p)->(%p)\n", iface, p);
 355     return E_NOTIMPL;
 356 }
 357
 358 static HRESULT WINAPI HTMLDocument_get_links(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 359 {
 360     FIXME("(%p)->(%p)\n", iface, p);
 361     return E_NOTIMPL;
 362 }
 363
 364 static HRESULT WINAPI HTMLDocument_get_forms(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 365 {
 366     FIXME("(%p)->(%p)\n", iface, p);
 367     return E_NOTIMPL;
 368 }
 369
 370 static HRESULT WINAPI HTMLDocument_get_anchors(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 371 {
 372     FIXME("(%p)->(%p)\n", iface, p);
 373     return E_NOTIMPL;
 374 }
 375
 376 static HRESULT WINAPI HTMLDocument_put_title(IHTMLDocument2 *iface, BSTR v)
 377 {
 378     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 379     return E_NOTIMPL;
 380 }
 381
 382 static HRESULT WINAPI HTMLDocument_get_title(IHTMLDocument2 *iface, BSTR *p)
 383 {
 384     FIXME("(%p)->(%p)\n", iface, p);
 385     return E_NOTIMPL;
 386 }
 387
 388 static HRESULT WINAPI HTMLDocument_get_scripts(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 389 {
 390     FIXME("(%p)->(%p)\n", iface, p);
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT WINAPI HTMLDocument_put_designMode(IHTMLDocument2 *iface, BSTR v)
 395 {
 396     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 397     return E_NOTIMPL;
 398 }
 399
 400 static HRESULT WINAPI HTMLDocument_get_designMode(IHTMLDocument2 *iface, BSTR *p)
 401 {
 402     FIXME("(%p)->(%p)\n", iface, p);
 403     return E_NOTIMPL;
 404 }
 405
 406 static HRESULT WINAPI HTMLDocument_get_selection(IHTMLDocument2 *iface, IHTMLSelectionObject **p)
 407 {
 408     HTMLDocument *This = HTMLDOC_THIS(iface);
 409     nsISelection *nsselection = NULL;
 410
 411     TRACE("(%p)->(%p)\n", This, p);
 412
 413     if(This->nscontainer) {
 414         nsIDOMWindow *dom_window = NULL;
 415
 416         nsIWebBrowser_GetContentDOMWindow(This->nscontainer->webbrowser, &dom_window);
 417         if(dom_window) {
 418             nsIDOMWindow_GetSelection(dom_window, &nsselection);
 419             nsIDOMWindow_Release(dom_window);
 420         }
 421     }
 422
 423     *p = HTMLSelectionObject_Create(This, nsselection);
 424     return S_OK;
 425 }
 426
 427 static HRESULT WINAPI HTMLDocument_get_readyState(IHTMLDocument2 *iface, BSTR *p)
 428 {
 429     HTMLDocument *This = HTMLDOC_THIS(iface);
 430
 431     static const WCHAR wszUninitialized[] = {'u','n','i','n','i','t','i','a','l','i','z','e','d',0};
 432     static const WCHAR wszLoading[] = {'l','o','a','d','i','n','g',0};
 433     static const WCHAR wszLoaded[] = {'l','o','a','d','e','d',0};
 434     static const WCHAR wszInteractive[] = {'i','n','t','e','r','a','c','t','i','v','e',0};
 435     static const WCHAR wszComplete[] = {'c','o','m','p','l','e','t','e',0};
 436
 437     static const LPCWSTR readystate_str[] = {
 438         wszUninitialized,
 439         wszLoading,
 440         wszLoaded,
 441         wszInteractive,
 442         wszComplete
 443     };
 444
 445     TRACE("(%p)->(%p)\n", iface, p);
 446
 447     if(!p)
 448         return E_POINTER;
 449
 450     *p = SysAllocString(readystate_str[This->readystate]);
 451     return S_OK;
 452 }
 453
 454 static HRESULT WINAPI HTMLDocument_get_frames(IHTMLDocument2 *iface, IHTMLFramesCollection2 **p)
 455 {
 456     FIXME("(%p)->(%p)\n", iface, p);
 457     return E_NOTIMPL;
 458 }
 459
 460 static HRESULT WINAPI HTMLDocument_get_embeds(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 461 {
 462     FIXME("(%p)->(%p)\n", iface, p);
 463     return E_NOTIMPL;
 464 }
 465
 466 static HRESULT WINAPI HTMLDocument_get_plugins(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 467 {
 468     FIXME("(%p)->(%p)\n", iface, p);
 469     return E_NOTIMPL;
 470 }
 471
 472 static HRESULT WINAPI HTMLDocument_put_alinkColor(IHTMLDocument2 *iface, VARIANT v)
 473 {
 474     FIXME("(%p)\n", iface);
 475     return E_NOTIMPL;
 476 }
 477
 478 static HRESULT WINAPI HTMLDocument_get_alinkColor(IHTMLDocument2 *iface, VARIANT *p)
 479 {
 480     FIXME("(%p)->(%p)\n", iface, p);
 481     return E_NOTIMPL;
 482 }
 483
 484 static HRESULT WINAPI HTMLDocument_put_bgColor(IHTMLDocument2 *iface, VARIANT v)
 485 {
 486     FIXME("(%p)\n", iface);
 487     return E_NOTIMPL;
 488 }
 489
 490 static HRESULT WINAPI HTMLDocument_get_bgColor(IHTMLDocument2 *iface, VARIANT *p)
 491 {
 492     FIXME("(%p)->(%p)\n", iface, p);
 493     return E_NOTIMPL;
 494 }
 495
 496 static HRESULT WINAPI HTMLDocument_put_fgColor(IHTMLDocument2 *iface, VARIANT v)
 497 {
 498     FIXME("(%p)\n", iface);
 499     return E_NOTIMPL;
 500 }
 501
 502 static HRESULT WINAPI HTMLDocument_get_fgColor(IHTMLDocument2 *iface, VARIANT *p)
 503 {
 504     FIXME("(%p)->(%p)\n", iface, p);
 505     return E_NOTIMPL;
 506 }
 507
 508 static HRESULT WINAPI HTMLDocument_put_linkColor(IHTMLDocument2 *iface, VARIANT v)
 509 {
 510     FIXME("(%p)->()\n", iface);
 511     return E_NOTIMPL;
 512 }
 513
 514 static HRESULT WINAPI HTMLDocument_get_linkColor(IHTMLDocument2 *iface, VARIANT *p)
 515 {
 516     FIXME("(%p)->(%p)\n", iface, p);
 517     return E_NOTIMPL;
 518 }
 519
 520 static HRESULT WINAPI HTMLDocument_put_vlinkColor(IHTMLDocument2 *iface, VARIANT v)
 521 {
 522     FIXME("(%p)\n", iface);
 523     return E_NOTIMPL;
 524 }
 525
 526 static HRESULT WINAPI HTMLDocument_get_vlinkColor(IHTMLDocument2 *iface, VARIANT *p)
 527 {
 528     FIXME("(%p)->(%p)\n", iface, p);
 529     return E_NOTIMPL;
 530 }
 531
 532 static HRESULT WINAPI HTMLDocument_get_referrer(IHTMLDocument2 *iface, BSTR *p)
 533 {
 534     FIXME("(%p)->(%p)\n", iface, p);
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI HTMLDocument_get_location(IHTMLDocument2 *iface, IHTMLLocation **p)
 539 {
 540     FIXME("(%p)->(%p)\n", iface, p);
 541     return E_NOTIMPL;
 542 }
 543
 544 static HRESULT WINAPI HTMLDocument_get_lastModified(IHTMLDocument2 *iface, BSTR *p)
 545 {
 546     FIXME("(%p)->(%p)\n", iface, p);
 547     return E_NOTIMPL;
 548 }
 549
 550 static HRESULT WINAPI HTMLDocument_put_URL(IHTMLDocument2 *iface, BSTR v)
 551 {
 552     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 553     return E_NOTIMPL;
 554 }
 555
 556 static HRESULT WINAPI HTMLDocument_get_URL(IHTMLDocument2 *iface, BSTR *p)
 557 {
 558     HTMLDocument *This = HTMLDOC_THIS(iface);
 559
 560     static const WCHAR about_blank_url[] =
 561         {'a','b','o','u','t',':','b','l','a','n','k',0};
 562
 563     TRACE("(%p)->(%p)\n", iface, p);
 564
 565     *p = SysAllocString(This->url ? This->url : about_blank_url);
 566     return S_OK;
 567 }
 568
 569 static HRESULT WINAPI HTMLDocument_put_domain(IHTMLDocument2 *iface, BSTR v)
 570 {
 571     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 572     return E_NOTIMPL;
 573 }
 574
 575 static HRESULT WINAPI HTMLDocument_get_domain(IHTMLDocument2 *iface, BSTR *p)
 576 {
 577     FIXME("(%p)->(%p)\n", iface, p);
 578     return E_NOTIMPL;
 579 }
 580
 581 static HRESULT WINAPI HTMLDocument_put_cookie(IHTMLDocument2 *iface, BSTR v)
 582 {
 583     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 584     return E_NOTIMPL;
 585 }
 586
 587 static HRESULT WINAPI HTMLDocument_get_cookie(IHTMLDocument2 *iface, BSTR *p)
 588 {
 589     FIXME("(%p)->(%p)\n", iface, p);
 590     return E_NOTIMPL;
 591 }
 592
 593 static HRESULT WINAPI HTMLDocument_put_expando(IHTMLDocument2 *iface, VARIANT_BOOL v)
 594 {
 595     FIXME("(%p)->(%x)\n", iface, v);
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT WINAPI HTMLDocument_get_expando(IHTMLDocument2 *iface, VARIANT_BOOL *p)
 600 {
 601     FIXME("(%p)->(%p)\n", iface, p);
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT WINAPI HTMLDocument_put_charset(IHTMLDocument2 *iface, BSTR v)
 606 {
 607     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 608     return E_NOTIMPL;
 609 }
 610
 611 static HRESULT WINAPI HTMLDocument_get_charset(IHTMLDocument2 *iface, BSTR *p)
 612 {
 613     FIXME("(%p)->(%p)\n", iface, p);
 614     return E_NOTIMPL;
 615 }
 616
 617 static HRESULT WINAPI HTMLDocument_put_defaultCharset(IHTMLDocument2 *iface, BSTR v)
 618 {
 619     FIXME("(%p)->(%s)\n", iface, debugstr_w(v));
 620     return E_NOTIMPL;
 621 }
 622
 623 static HRESULT WINAPI HTMLDocument_get_defaultCharset(IHTMLDocument2 *iface, BSTR *p)
 624 {
 625     FIXME("(%p)->(%p)\n", iface, p);
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT WINAPI HTMLDocument_get_mimeType(IHTMLDocument2 *iface, BSTR *p)
 630 {
 631     FIXME("(%p)->(%p)\n", iface, p);
 632     return E_NOTIMPL;
 633 }
 634
 635 static HRESULT WINAPI HTMLDocument_get_fileSize(IHTMLDocument2 *iface, BSTR *p)
 636 {
 637     FIXME("(%p)->(%p)\n", iface, p);
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT WINAPI HTMLDocument_get_fileCreatedDate(IHTMLDocument2 *iface, BSTR *p)
 642 {
 643     FIXME("(%p)->(%p)\n", iface, p);
 644     return E_NOTIMPL;
 645 }
 646
 647 static HRESULT WINAPI HTMLDocument_get_fileModifiedDate(IHTMLDocument2 *iface, BSTR *p)
 648 {
 649     FIXME("(%p)->(%p)\n", iface, p);
 650     return E_NOTIMPL;
 651 }
 652
 653 static HRESULT WINAPI HTMLDocument_get_fileUpdatedDate(IHTMLDocument2 *iface, BSTR *p)
 654 {
 655     FIXME("(%p)->(%p)\n", iface, p);
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT WINAPI HTMLDocument_get_security(IHTMLDocument2 *iface, BSTR *p)
 660 {
 661     FIXME("(%p)->(%p)\n", iface, p);
 662     return E_NOTIMPL;
 663 }
 664
 665 static HRESULT WINAPI HTMLDocument_get_protocol(IHTMLDocument2 *iface, BSTR *p)
 666 {
 667     FIXME("(%p)->(%p)\n", iface, p);
 668     return E_NOTIMPL;
 669 }
 670
 671 static HRESULT WINAPI HTMLDocument_get_nameProp(IHTMLDocument2 *iface, BSTR *p)
 672 {
 673     FIXME("(%p)->(%p)\n", iface, p);
 674     return E_NOTIMPL;
 675 }
 676
 677 static HRESULT WINAPI HTMLDocument_write(IHTMLDocument2 *iface, SAFEARRAY *psarray)
 678 {
 679     HTMLDocument *This = HTMLDOC_THIS(iface);
 680     nsIDOMDocument *domdoc;
 681     nsIDOMHTMLDocument *nsdoc;
 682     nsAString nsstr;
 683     VARIANT *var;
 684     int i;
 685     nsresult nsres;
 686     HRESULT hres;
 687
 688     TRACE("(%p)->(%p)\n", iface, psarray);
 689
 690     if(psarray->cDims != 1) {
 691         FIXME("cDims=%d\n", psarray->cDims);
 692         return E_INVALIDARG;
 693     }
 694
 695     if(!This->nscontainer)
 696         return S_OK;
 697
 698     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &domdoc);
 699     if(NS_FAILED(nsres)) {
 700         ERR("GetDocument failed: %08x\n", nsres);
 701         return S_OK;
 702     }
 703
 704     nsres = nsIDOMDocument_QueryInterface(domdoc, &IID_nsIDOMHTMLDocument, (void**)&nsdoc);
 705     nsIDOMDocument_Release(domdoc);
 706     if(NS_FAILED(nsres))
 707         return S_OK;
 708
 709     hres = SafeArrayAccessData(psarray, (void**)&var);
 710     if(FAILED(hres)) {
 711         WARN("SafeArrayAccessData failed: %08x\n", hres);
 712         nsIDOMHTMLDocument_Release(nsdoc);
 713         return hres;
 714     }
 715
 716     nsAString_Init(&nsstr, NULL);
 717
 718     for(i=0; i < psarray->rgsabound[0].cElements; i++) {
 719         if(V_VT(var+i) == VT_BSTR) {
 720             nsAString_SetData(&nsstr, V_BSTR(var+i));
 721             nsres = nsIDOMHTMLDocument_Write(nsdoc, &nsstr);
 722             if(NS_FAILED(nsres))
 723                 ERR("Write failed: %08x\n", nsres);
 724         }else {
 725             FIXME("vt=%d\n", V_VT(var+i));
 726         }
 727     }
 728
 729     nsAString_Finish(&nsstr);
 730     SafeArrayUnaccessData(psarray);
 731     nsIDOMHTMLDocument_Release(nsdoc);
 732
 733     return S_OK;
 734 }
 735
 736 static HRESULT WINAPI HTMLDocument_writeln(IHTMLDocument2 *iface, SAFEARRAY *psarray)
 737 {
 738     FIXME("(%p)->(%p)\n", iface, psarray);
 739     return E_NOTIMPL;
 740 }
 741
 742 static HRESULT WINAPI HTMLDocument_open(IHTMLDocument2 *iface, BSTR url, VARIANT name,
 743                         VARIANT features, VARIANT replace, IDispatch **pomWindowResult)
 744 {
 745     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(url), pomWindowResult);
 746     return E_NOTIMPL;
 747 }
 748
 749 static HRESULT WINAPI HTMLDocument_close(IHTMLDocument2 *iface)
 750 {
 751     FIXME("(%p)\n", iface);
 752     return E_NOTIMPL;
 753 }
 754
 755 static HRESULT WINAPI HTMLDocument_clear(IHTMLDocument2 *iface)
 756 {
 757     FIXME("(%p)\n", iface);
 758     return E_NOTIMPL;
 759 }
 760
 761 static HRESULT WINAPI HTMLDocument_queryCommandSupported(IHTMLDocument2 *iface, BSTR cmdID,
 762                                                         VARIANT_BOOL *pfRet)
 763 {
 764     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 765     return E_NOTIMPL;
 766 }
 767
 768 static HRESULT WINAPI HTMLDocument_queryCommandEnabled(IHTMLDocument2 *iface, BSTR cmdID,
 769                                                         VARIANT_BOOL *pfRet)
 770 {
 771     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 772     return E_NOTIMPL;
 773 }
 774
 775 static HRESULT WINAPI HTMLDocument_queryCommandState(IHTMLDocument2 *iface, BSTR cmdID,
 776                                                         VARIANT_BOOL *pfRet)
 777 {
 778     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 779     return E_NOTIMPL;
 780 }
 781
 782 static HRESULT WINAPI HTMLDocument_queryCommandIndeterm(IHTMLDocument2 *iface, BSTR cmdID,
 783                                                         VARIANT_BOOL *pfRet)
 784 {
 785     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 786     return E_NOTIMPL;
 787 }
 788
 789 static HRESULT WINAPI HTMLDocument_queryCommandText(IHTMLDocument2 *iface, BSTR cmdID,
 790                                                         BSTR *pfRet)
 791 {
 792     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 793     return E_NOTIMPL;
 794 }
 795
 796 static HRESULT WINAPI HTMLDocument_queryCommandValue(IHTMLDocument2 *iface, BSTR cmdID,
 797                                                         VARIANT *pfRet)
 798 {
 799     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 800     return E_NOTIMPL;
 801 }
 802
 803 static HRESULT WINAPI HTMLDocument_execCommand(IHTMLDocument2 *iface, BSTR cmdID,
 804                                 VARIANT_BOOL showUI, VARIANT value, VARIANT_BOOL *pfRet)
 805 {
 806     FIXME("(%p)->(%s %x %p)\n", iface, debugstr_w(cmdID), showUI, pfRet);
 807     return E_NOTIMPL;
 808 }
 809
 810 static HRESULT WINAPI HTMLDocument_execCommandShowHelp(IHTMLDocument2 *iface, BSTR cmdID,
 811                                                         VARIANT_BOOL *pfRet)
 812 {
 813     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(cmdID), pfRet);
 814     return E_NOTIMPL;
 815 }
 816
 817 static HRESULT WINAPI HTMLDocument_createElement(IHTMLDocument2 *iface, BSTR eTag,
 818                                                  IHTMLElement **newElem)
 819 {
 820     FIXME("(%p)->(%s %p)\n", iface, debugstr_w(eTag), newElem);
 821     return E_NOTIMPL;
 822 }
 823
 824 static HRESULT WINAPI HTMLDocument_put_onhelp(IHTMLDocument2 *iface, VARIANT v)
 825 {
 826     FIXME("(%p)\n", iface);
 827     return E_NOTIMPL;
 828 }
 829
 830 static HRESULT WINAPI HTMLDocument_get_onhelp(IHTMLDocument2 *iface, VARIANT *p)
 831 {
 832     FIXME("(%p)->(%p)\n", iface, p);
 833     return E_NOTIMPL;
 834 }
 835
 836 static HRESULT WINAPI HTMLDocument_put_onclick(IHTMLDocument2 *iface, VARIANT v)
 837 {
 838     FIXME("(%p)\n", iface);
 839     return E_NOTIMPL;
 840 }
 841
 842 static HRESULT WINAPI HTMLDocument_get_onclick(IHTMLDocument2 *iface, VARIANT *p)
 843 {
 844     FIXME("(%p)->(%p)\n", iface, p);
 845     return E_NOTIMPL;
 846 }
 847
 848 static HRESULT WINAPI HTMLDocument_put_ondblclick(IHTMLDocument2 *iface, VARIANT v)
 849 {
 850     FIXME("(%p)\n", iface);
 851     return E_NOTIMPL;
 852 }
 853
 854 static HRESULT WINAPI HTMLDocument_get_ondblclick(IHTMLDocument2 *iface, VARIANT *p)
 855 {
 856     FIXME("(%p)->(%p)\n", iface, p);
 857     return E_NOTIMPL;
 858 }
 859
 860 static HRESULT WINAPI HTMLDocument_put_onkeyup(IHTMLDocument2 *iface, VARIANT v)
 861 {
 862     FIXME("(%p)\n", iface);
 863     return E_NOTIMPL;
 864 }
 865
 866 static HRESULT WINAPI HTMLDocument_get_onkeyup(IHTMLDocument2 *iface, VARIANT *p)
 867 {
 868     FIXME("(%p)->(%p)\n", iface, p);
 869     return E_NOTIMPL;
 870 }
 871
 872 static HRESULT WINAPI HTMLDocument_put_onkeydown(IHTMLDocument2 *iface, VARIANT v)
 873 {
 874     FIXME("(%p)\n", iface);
 875     return E_NOTIMPL;
 876 }
 877
 878 static HRESULT WINAPI HTMLDocument_get_onkeydown(IHTMLDocument2 *iface, VARIANT *p)
 879 {
 880     FIXME("(%p)->(%p)\n", iface, p);
 881     return E_NOTIMPL;
 882 }
 883
 884 static HRESULT WINAPI HTMLDocument_put_onkeypress(IHTMLDocument2 *iface, VARIANT v)
 885 {
 886     FIXME("(%p)\n", iface);
 887     return E_NOTIMPL;
 888 }
 889
 890 static HRESULT WINAPI HTMLDocument_get_onkeypress(IHTMLDocument2 *iface, VARIANT *p)
 891 {
 892     FIXME("(%p)->(%p)\n", iface, p);
 893     return E_NOTIMPL;
 894 }
 895
 896 static HRESULT WINAPI HTMLDocument_put_onmouseup(IHTMLDocument2 *iface, VARIANT v)
 897 {
 898     FIXME("(%p)\n", iface);
 899     return E_NOTIMPL;
 900 }
 901
 902 static HRESULT WINAPI HTMLDocument_get_onmouseup(IHTMLDocument2 *iface, VARIANT *p)
 903 {
 904     FIXME("(%p)->(%p)\n", iface, p);
 905     return E_NOTIMPL;
 906 }
 907
 908 static HRESULT WINAPI HTMLDocument_put_onmousedown(IHTMLDocument2 *iface, VARIANT v)
 909 {
 910     FIXME("(%p)\n", iface);
 911     return E_NOTIMPL;
 912 }
 913
 914 static HRESULT WINAPI HTMLDocument_get_onmousedown(IHTMLDocument2 *iface, VARIANT *p)
 915 {
 916     FIXME("(%p)->(%p)\n", iface, p);
 917     return E_NOTIMPL;
 918 }
 919
 920 static HRESULT WINAPI HTMLDocument_put_onmousemove(IHTMLDocument2 *iface, VARIANT v)
 921 {
 922     FIXME("(%p)\n", iface);
 923     return E_NOTIMPL;
 924 }
 925
 926 static HRESULT WINAPI HTMLDocument_get_onmousemove(IHTMLDocument2 *iface, VARIANT *p)
 927 {
 928     FIXME("(%p)->(%p)\n", iface, p);
 929     return E_NOTIMPL;
 930 }
 931
 932 static HRESULT WINAPI HTMLDocument_put_onmouseout(IHTMLDocument2 *iface, VARIANT v)
 933 {
 934     FIXME("(%p)\n", iface);
 935     return E_NOTIMPL;
 936 }
 937
 938 static HRESULT WINAPI HTMLDocument_get_onmouseout(IHTMLDocument2 *iface, VARIANT *p)
 939 {
 940     FIXME("(%p)->(%p)\n", iface, p);
 941     return E_NOTIMPL;
 942 }
 943
 944 static HRESULT WINAPI HTMLDocument_put_onmouseover(IHTMLDocument2 *iface, VARIANT v)
 945 {
 946     FIXME("(%p)\n", iface);
 947     return E_NOTIMPL;
 948 }
 949
 950 static HRESULT WINAPI HTMLDocument_get_onmouseover(IHTMLDocument2 *iface, VARIANT *p)
 951 {
 952     FIXME("(%p)->(%p)\n", iface, p);
 953     return E_NOTIMPL;
 954 }
 955
 956 static HRESULT WINAPI HTMLDocument_put_onreadystatechange(IHTMLDocument2 *iface, VARIANT v)
 957 {
 958     FIXME("(%p)\n", iface);
 959     return E_NOTIMPL;
 960 }
 961
 962 static HRESULT WINAPI HTMLDocument_get_onreadystatechange(IHTMLDocument2 *iface, VARIANT *p)
 963 {
 964     FIXME("(%p)->(%p)\n", iface, p);
 965     return E_NOTIMPL;
 966 }
 967
 968 static HRESULT WINAPI HTMLDocument_put_onafterupdate(IHTMLDocument2 *iface, VARIANT v)
 969 {
 970     FIXME("(%p)\n", iface);
 971     return E_NOTIMPL;
 972 }
 973
 974 static HRESULT WINAPI HTMLDocument_get_onafterupdate(IHTMLDocument2 *iface, VARIANT *p)
 975 {
 976     FIXME("(%p)->(%p)\n", iface, p);
 977     return E_NOTIMPL;
 978 }
 979
 980 static HRESULT WINAPI HTMLDocument_put_onrowexit(IHTMLDocument2 *iface, VARIANT v)
 981 {
 982     FIXME("(%p)\n", iface);
 983     return E_NOTIMPL;
 984 }
 985
 986 static HRESULT WINAPI HTMLDocument_get_onrowexit(IHTMLDocument2 *iface, VARIANT *p)
 987 {
 988     FIXME("(%p)->(%p)\n", iface, p);
 989     return E_NOTIMPL;
 990 }
 991
 992 static HRESULT WINAPI HTMLDocument_put_onrowenter(IHTMLDocument2 *iface, VARIANT v)
 993 {
 994     FIXME("(%p)\n", iface);
 995     return E_NOTIMPL;
 996 }
 997
 998 static HRESULT WINAPI HTMLDocument_get_onrowenter(IHTMLDocument2 *iface, VARIANT *p)
 999 {
1000     FIXME("(%p)->(%p)\n", iface, p);
1001     return E_NOTIMPL;
1002 }
1003
1004 static HRESULT WINAPI HTMLDocument_put_ondragstart(IHTMLDocument2 *iface, VARIANT v)
1005 {
1006     FIXME("(%p)\n", iface);
1007     return E_NOTIMPL;
1008 }
1009
1010 static HRESULT WINAPI HTMLDocument_get_ondragstart(IHTMLDocument2 *iface, VARIANT *p)
1011 {
1012     FIXME("(%p)->(%p)\n", iface, p);
1013     return E_NOTIMPL;
1014 }
1015
1016 static HRESULT WINAPI HTMLDocument_put_onselectstart(IHTMLDocument2 *iface, VARIANT v)
1017 {
1018     FIXME("(%p)\n", iface);
1019     return E_NOTIMPL;
1020 }
1021
1022 static HRESULT WINAPI HTMLDocument_get_onselectstart(IHTMLDocument2 *iface, VARIANT *p)
1023 {
1024     FIXME("(%p)->(%p)\n", iface, p);
1025     return E_NOTIMPL;
1026 }
1027
1028 static HRESULT WINAPI HTMLDocument_elementFromPoint(IHTMLDocument2 *iface, long x, long y,
1029                                                         IHTMLElement **elementHit)
1030 {
1031     FIXME("(%p)->(%ld %ld %p)\n", iface, x, y, elementHit);
1032     return E_NOTIMPL;
1033 }
1034
1035 static HRESULT WINAPI HTMLDocument_get_parentWindow(IHTMLDocument2 *iface, IHTMLWindow2 **p)
1036 {
1037     HTMLDocument *This = HTMLDOC_THIS(iface);
1038
1039     TRACE("(%p)->(%p)\n", This, p);
1040
1041     *p = HTMLWINDOW2(This->window);
1042     IHTMLWindow2_AddRef(*p);
1043     return S_OK;
1044 }
1045
1046 static HRESULT WINAPI HTMLDocument_get_styleSheets(IHTMLDocument2 *iface,
1047                                                    IHTMLStyleSheetsCollection **p)
1048 {
1049     HTMLDocument *This = HTMLDOC_THIS(iface);
1050     nsIDOMStyleSheetList *nsstylelist;
1051     nsIDOMDocumentStyle *nsdocstyle;
1052     nsIDOMDocument *nsdoc;
1053     nsresult nsres;
1054
1055     TRACE("(%p)->(%p)\n", This, p);
1056
1057     *p = NULL;
1058
1059     if(!This->nscontainer)
1060         return S_OK;
1061
1062     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
1063     if(NS_FAILED(nsres)) {
1064         ERR("GetDocument failed: %08x\n", nsres);
1065         return S_OK;
1066     }
1067
1068     if(NS_FAILED(nsres) || !nsdoc)
1069         return S_OK;
1070
1071     nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentStyle, (void**)&nsdocstyle);
1072     nsIDOMDocument_Release(nsdoc);
1073
1074     nsIDOMDocumentStyle_GetStyleSheets(nsdocstyle, &nsstylelist);
1075     nsIDOMDocumentStyle_Release(nsdocstyle);
1076
1077     *p = HTMLStyleSheetsCollection_Create(nsstylelist);
1078     nsIDOMDocumentStyle_Release(nsstylelist);
1079
1080     return S_OK;
1081 }
1082
1083 static HRESULT WINAPI HTMLDocument_put_onbeforeupdate(IHTMLDocument2 *iface, VARIANT v)
1084 {
1085     FIXME("(%p)\n", iface);
1086     return E_NOTIMPL;
1087 }
1088
1089 static HRESULT WINAPI HTMLDocument_get_onbeforeupdate(IHTMLDocument2 *iface, VARIANT *p)
1090 {
1091     FIXME("(%p)->(%p)\n", iface, p);
1092     return E_NOTIMPL;
1093 }
1094
1095 static HRESULT WINAPI HTMLDocument_put_onerrorupdate(IHTMLDocument2 *iface, VARIANT v)
1096 {
1097     FIXME("(%p)\n", iface);
1098     return E_NOTIMPL;
1099 }
1100
1101 static HRESULT WINAPI HTMLDocument_get_onerrorupdate(IHTMLDocument2 *iface, VARIANT *p)
1102 {
1103     FIXME("(%p)->(%p)\n", iface, p);
1104     return E_NOTIMPL;
1105 }
1106
1107 static HRESULT WINAPI HTMLDocument_toString(IHTMLDocument2 *iface, BSTR *String)
1108 {
1109     FIXME("(%p)->(%p)\n", iface, String);
1110     return E_NOTIMPL;
1111 }
1112
1113 static HRESULT WINAPI HTMLDocument_createStyleSheet(IHTMLDocument2 *iface, BSTR bstrHref,
1114                                             long lIndex, IHTMLStyleSheet **ppnewStyleSheet)
1115 {
1116     HTMLDocument *This = HTMLDOC_THIS(iface);
1117
1118     FIXME("(%p)->(%s %ld %p) semi-stub\n", This, debugstr_w(bstrHref), lIndex, ppnewStyleSheet);
1119
1120     *ppnewStyleSheet = HTMLStyleSheet_Create(NULL);
1121     return S_OK;
1122 }
1123
1124 static const IHTMLDocument2Vtbl HTMLDocumentVtbl = {
1125     HTMLDocument_QueryInterface,
1126     HTMLDocument_AddRef,
1127     HTMLDocument_Release,
1128     HTMLDocument_GetTypeInfoCount,
1129     HTMLDocument_GetTypeInfo,
1130     HTMLDocument_GetIDsOfNames,
1131     HTMLDocument_Invoke,
1132     HTMLDocument_get_Script,
1133     HTMLDocument_get_all,
1134     HTMLDocument_get_body,
1135     HTMLDocument_get_activeElement,
1136     HTMLDocument_get_images,
1137     HTMLDocument_get_applets,
1138     HTMLDocument_get_links,
1139     HTMLDocument_get_forms,
1140     HTMLDocument_get_anchors,
1141     HTMLDocument_put_title,
1142     HTMLDocument_get_title,
1143     HTMLDocument_get_scripts,
1144     HTMLDocument_put_designMode,
1145     HTMLDocument_get_designMode,
1146     HTMLDocument_get_selection,
1147     HTMLDocument_get_readyState,
1148     HTMLDocument_get_frames,
1149     HTMLDocument_get_embeds,
1150     HTMLDocument_get_plugins,
1151     HTMLDocument_put_alinkColor,
1152     HTMLDocument_get_alinkColor,
1153     HTMLDocument_put_bgColor,
1154     HTMLDocument_get_bgColor,
1155     HTMLDocument_put_fgColor,
1156     HTMLDocument_get_fgColor,
1157     HTMLDocument_put_linkColor,
1158     HTMLDocument_get_linkColor,
1159     HTMLDocument_put_vlinkColor,
1160     HTMLDocument_get_vlinkColor,
1161     HTMLDocument_get_referrer,
1162     HTMLDocument_get_location,
1163     HTMLDocument_get_lastModified,
1164     HTMLDocument_put_URL,
1165     HTMLDocument_get_URL,
1166     HTMLDocument_put_domain,
1167     HTMLDocument_get_domain,
1168     HTMLDocument_put_cookie,
1169     HTMLDocument_get_cookie,
1170     HTMLDocument_put_expando,
1171     HTMLDocument_get_expando,
1172     HTMLDocument_put_charset,
1173     HTMLDocument_get_charset,
1174     HTMLDocument_put_defaultCharset,
1175     HTMLDocument_get_defaultCharset,
1176     HTMLDocument_get_mimeType,
1177     HTMLDocument_get_fileSize,
1178     HTMLDocument_get_fileCreatedDate,
1179     HTMLDocument_get_fileModifiedDate,
1180     HTMLDocument_get_fileUpdatedDate,
1181     HTMLDocument_get_security,
1182     HTMLDocument_get_protocol,
1183     HTMLDocument_get_nameProp,
1184     HTMLDocument_write,
1185     HTMLDocument_writeln,
1186     HTMLDocument_open,
1187     HTMLDocument_close,
1188     HTMLDocument_clear,
1189     HTMLDocument_queryCommandSupported,
1190     HTMLDocument_queryCommandEnabled,
1191     HTMLDocument_queryCommandState,
1192     HTMLDocument_queryCommandIndeterm,
1193     HTMLDocument_queryCommandText,
1194     HTMLDocument_queryCommandValue,
1195     HTMLDocument_execCommand,
1196     HTMLDocument_execCommandShowHelp,
1197     HTMLDocument_createElement,
1198     HTMLDocument_put_onhelp,
1199     HTMLDocument_get_onhelp,
1200     HTMLDocument_put_onclick,
1201     HTMLDocument_get_onclick,
1202     HTMLDocument_put_ondblclick,
1203     HTMLDocument_get_ondblclick,
1204     HTMLDocument_put_onkeyup,
1205     HTMLDocument_get_onkeyup,
1206     HTMLDocument_put_onkeydown,
1207     HTMLDocument_get_onkeydown,
1208     HTMLDocument_put_onkeypress,
1209     HTMLDocument_get_onkeypress,
1210     HTMLDocument_put_onmouseup,
1211     HTMLDocument_get_onmouseup,
1212     HTMLDocument_put_onmousedown,
1213     HTMLDocument_get_onmousedown,
1214     HTMLDocument_put_onmousemove,
1215     HTMLDocument_get_onmousemove,
1216     HTMLDocument_put_onmouseout,
1217     HTMLDocument_get_onmouseout,
1218     HTMLDocument_put_onmouseover,
1219     HTMLDocument_get_onmouseover,
1220     HTMLDocument_put_onreadystatechange,
1221     HTMLDocument_get_onreadystatechange,
1222     HTMLDocument_put_onafterupdate,
1223     HTMLDocument_get_onafterupdate,
1224     HTMLDocument_put_onrowexit,
1225     HTMLDocument_get_onrowexit,
1226     HTMLDocument_put_onrowenter,
1227     HTMLDocument_get_onrowenter,
1228     HTMLDocument_put_ondragstart,
1229     HTMLDocument_get_ondragstart,
1230     HTMLDocument_put_onselectstart,
1231     HTMLDocument_get_onselectstart,
1232     HTMLDocument_elementFromPoint,
1233     HTMLDocument_get_parentWindow,
1234     HTMLDocument_get_styleSheets,
1235     HTMLDocument_put_onbeforeupdate,
1236     HTMLDocument_get_onbeforeupdate,
1237     HTMLDocument_put_onerrorupdate,
1238     HTMLDocument_get_onerrorupdate,
1239     HTMLDocument_toString,
1240     HTMLDocument_createStyleSheet
1241 };
1242
1243 HRESULT HTMLDocument_Create(IUnknown *pUnkOuter, REFIID riid, void** ppvObject)
1244 {
1245     HTMLDocument *ret;
1246     HRESULT hres;
1247
1248     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppvObject);
1249
1250     ret = heap_alloc(sizeof(HTMLDocument));
1251     ret->lpHTMLDocument2Vtbl = &HTMLDocumentVtbl;
1252     ret->ref = 0;
1253     ret->nscontainer = NULL;
1254     ret->nodes = NULL;
1255     ret->readystate = READYSTATE_UNINITIALIZED;
1256     ret->window = NULL;
1257     ret->option_factory = NULL;
1258
1259     list_init(&ret->bindings);
1260     list_init(&ret->script_hosts);
1261     list_init(&ret->selection_list);
1262     list_init(&ret->range_list);
1263
1264     hres = IHTMLDocument_QueryInterface(HTMLDOC(ret), riid, ppvObject);
1265     if(FAILED(hres)) {
1266         heap_free(ret);
1267         return hres;
1268     }
1269
1270     LOCK_MODULE();
1271
1272     HTMLDocument_HTMLDocument3_Init(ret);
1273     HTMLDocument_HTMLDocument5_Init(ret);
1274     HTMLDocument_Persist_Init(ret);
1275     HTMLDocument_OleCmd_Init(ret);
1276     HTMLDocument_OleObj_Init(ret);
1277     HTMLDocument_View_Init(ret);
1278     HTMLDocument_Window_Init(ret);
1279     HTMLDocument_Service_Init(ret);
1280     HTMLDocument_Hlink_Init(ret);
1281
1282     ConnectionPointContainer_Init(&ret->cp_container, (IUnknown*)HTMLDOC(ret));
1283     ConnectionPoint_Init(&ret->cp_propnotif, &ret->cp_container, &IID_IPropertyNotifySink);
1284     ConnectionPoint_Init(&ret->cp_htmldocevents, &ret->cp_container, &DIID_HTMLDocumentEvents);
1285     ConnectionPoint_Init(&ret->cp_htmldocevents2, &ret->cp_container, &DIID_HTMLDocumentEvents2);
1286
1287     ret->nscontainer = NSContainer_Create(ret, NULL);
1288     ret->window = HTMLWindow_Create(ret);
1289
1290     get_thread_hwnd();
1291
1292     return hres;
1293 }