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