git.oblomov.eu Git - wine/blob - dlls/mshtml/htmldoc.c

   1 /*
   2  * Copyright 2005-2009 Jacek Caban for CodeWeavers
   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 "wininet.h"
  30 #include "ole2.h"
  31 #include "perhist.h"
  32 #include "mshtmdid.h"
  33
  34 #include "wine/debug.h"
  35
  36 #include "mshtml_private.h"
  37 #include "htmlevent.h"
  38 #include "pluginhost.h"
  39
  40 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  41
  42 static inline HTMLDocument *impl_from_IHTMLDocument2(IHTMLDocument2 *iface)
  43 {
  44     return CONTAINING_RECORD(iface, HTMLDocument, IHTMLDocument2_iface);
  45 }
  46
  47 static HRESULT WINAPI HTMLDocument_QueryInterface(IHTMLDocument2 *iface, REFIID riid, void **ppv)
  48 {
  49     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  50
  51     return htmldoc_query_interface(This, riid, ppv);
  52 }
  53
  54 static ULONG WINAPI HTMLDocument_AddRef(IHTMLDocument2 *iface)
  55 {
  56     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  57
  58     return htmldoc_addref(This);
  59 }
  60
  61 static ULONG WINAPI HTMLDocument_Release(IHTMLDocument2 *iface)
  62 {
  63     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  64
  65     return htmldoc_release(This);
  66 }
  67
  68 static HRESULT WINAPI HTMLDocument_GetTypeInfoCount(IHTMLDocument2 *iface, UINT *pctinfo)
  69 {
  70     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  71
  72     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
  73 }
  74
  75 static HRESULT WINAPI HTMLDocument_GetTypeInfo(IHTMLDocument2 *iface, UINT iTInfo,
  76                                                 LCID lcid, ITypeInfo **ppTInfo)
  77 {
  78     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  79
  80     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
  81 }
  82
  83 static HRESULT WINAPI HTMLDocument_GetIDsOfNames(IHTMLDocument2 *iface, REFIID riid,
  84                                                 LPOLESTR *rgszNames, UINT cNames,
  85                                                 LCID lcid, DISPID *rgDispId)
  86 {
  87     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  88
  89     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
  90             rgDispId);
  91 }
  92
  93 static HRESULT WINAPI HTMLDocument_Invoke(IHTMLDocument2 *iface, DISPID dispIdMember,
  94                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
  95                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
  96 {
  97     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
  98
  99     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 100             pDispParams, pVarResult, pExcepInfo, puArgErr);
 101 }
 102
 103 static HRESULT WINAPI HTMLDocument_get_Script(IHTMLDocument2 *iface, IDispatch **p)
 104 {
 105     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 106
 107     TRACE("(%p)->(%p)\n", This, p);
 108
 109     *p = (IDispatch*)&This->window->IHTMLWindow2_iface;
 110     IDispatch_AddRef(*p);
 111     return S_OK;
 112 }
 113
 114 static HRESULT WINAPI HTMLDocument_get_all(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 115 {
 116     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 117     nsIDOMElement *nselem = NULL;
 118     HTMLDOMNode *node;
 119     nsresult nsres;
 120     HRESULT hres;
 121
 122     TRACE("(%p)->(%p)\n", This, p);
 123
 124     if(!This->doc_node->nsdoc) {
 125         WARN("NULL nsdoc\n");
 126         return E_UNEXPECTED;
 127     }
 128
 129     nsres = nsIDOMHTMLDocument_GetDocumentElement(This->doc_node->nsdoc, &nselem);
 130     if(NS_FAILED(nsres)) {
 131         ERR("GetDocumentElement failed: %08x\n", nsres);
 132         return E_FAIL;
 133     }
 134
 135     if(!nselem) {
 136         *p = NULL;
 137         return S_OK;
 138     }
 139
 140     hres = get_node(This->doc_node, (nsIDOMNode*)nselem, TRUE, &node);
 141     if(SUCCEEDED(hres))
 142         *p = create_all_collection(node, TRUE);
 143     nsIDOMElement_Release(nselem);
 144     return hres;
 145 }
 146
 147 static HRESULT WINAPI HTMLDocument_get_body(IHTMLDocument2 *iface, IHTMLElement **p)
 148 {
 149     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 150     nsIDOMHTMLElement *nsbody = NULL;
 151     HTMLDOMNode *node;
 152     HRESULT hres;
 153
 154     TRACE("(%p)->(%p)\n", This, p);
 155
 156     if(This->doc_node->nsdoc) {
 157         nsresult nsres;
 158
 159         nsres = nsIDOMHTMLDocument_GetBody(This->doc_node->nsdoc, &nsbody);
 160         if(NS_FAILED(nsres)) {
 161             TRACE("Could not get body: %08x\n", nsres);
 162             return E_UNEXPECTED;
 163         }
 164     }
 165
 166     if(!nsbody) {
 167         *p = NULL;
 168         return S_OK;
 169     }
 170
 171     hres = get_node(This->doc_node, (nsIDOMNode*)nsbody, TRUE, &node);
 172     nsIDOMHTMLElement_Release(nsbody);
 173     if(FAILED(hres))
 174         return hres;
 175
 176     return IHTMLDOMNode_QueryInterface(&node->IHTMLDOMNode_iface, &IID_IHTMLElement, (void**)p);
 177 }
 178
 179 static HRESULT WINAPI HTMLDocument_get_activeElement(IHTMLDocument2 *iface, IHTMLElement **p)
 180 {
 181     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 182     FIXME("(%p)->(%p)\n", This, p);
 183     return E_NOTIMPL;
 184 }
 185
 186 static HRESULT WINAPI HTMLDocument_get_images(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 187 {
 188     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 189     nsIDOMHTMLCollection *nscoll = NULL;
 190     nsresult nsres;
 191
 192     TRACE("(%p)->(%p)\n", This, p);
 193
 194     if(!p)
 195         return E_INVALIDARG;
 196
 197     *p = NULL;
 198
 199     if(!This->doc_node->nsdoc) {
 200         WARN("NULL nsdoc\n");
 201         return E_UNEXPECTED;
 202     }
 203
 204     nsres = nsIDOMHTMLDocument_GetImages(This->doc_node->nsdoc, &nscoll);
 205     if(NS_FAILED(nsres)) {
 206         ERR("GetImages failed: %08x\n", nsres);
 207         return E_FAIL;
 208     }
 209
 210     if(nscoll) {
 211         *p = create_collection_from_htmlcol(This->doc_node, (IUnknown*)&This->IHTMLDocument2_iface, nscoll);
 212         nsIDOMElement_Release(nscoll);
 213     }
 214
 215     return S_OK;
 216 }
 217
 218 static HRESULT WINAPI HTMLDocument_get_applets(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 219 {
 220     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 221     nsIDOMHTMLCollection *nscoll = NULL;
 222     nsresult nsres;
 223
 224     TRACE("(%p)->(%p)\n", This, p);
 225
 226     if(!p)
 227         return E_INVALIDARG;
 228
 229     *p = NULL;
 230
 231     if(!This->doc_node->nsdoc) {
 232         WARN("NULL nsdoc\n");
 233         return E_UNEXPECTED;
 234     }
 235
 236     nsres = nsIDOMHTMLDocument_GetApplets(This->doc_node->nsdoc, &nscoll);
 237     if(NS_FAILED(nsres)) {
 238         ERR("GetApplets failed: %08x\n", nsres);
 239         return E_FAIL;
 240     }
 241
 242     if(nscoll) {
 243         *p = create_collection_from_htmlcol(This->doc_node, (IUnknown*)&This->IHTMLDocument2_iface, nscoll);
 244         nsIDOMElement_Release(nscoll);
 245     }
 246
 247     return S_OK;
 248 }
 249
 250 static HRESULT WINAPI HTMLDocument_get_links(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 251 {
 252     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 253     nsIDOMHTMLCollection *nscoll = NULL;
 254     nsresult nsres;
 255
 256     TRACE("(%p)->(%p)\n", This, p);
 257
 258     if(!p)
 259         return E_INVALIDARG;
 260
 261     *p = NULL;
 262
 263     if(!This->doc_node->nsdoc) {
 264         WARN("NULL nsdoc\n");
 265         return E_UNEXPECTED;
 266     }
 267
 268     nsres = nsIDOMHTMLDocument_GetLinks(This->doc_node->nsdoc, &nscoll);
 269     if(NS_FAILED(nsres)) {
 270         ERR("GetLinks failed: %08x\n", nsres);
 271         return E_FAIL;
 272     }
 273
 274     if(nscoll) {
 275         *p = create_collection_from_htmlcol(This->doc_node, (IUnknown*)&This->IHTMLDocument2_iface, nscoll);
 276         nsIDOMElement_Release(nscoll);
 277     }
 278
 279     return S_OK;
 280 }
 281
 282 static HRESULT WINAPI HTMLDocument_get_forms(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 283 {
 284     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 285     nsIDOMHTMLCollection *nscoll = NULL;
 286     nsresult nsres;
 287
 288     TRACE("(%p)->(%p)\n", This, p);
 289
 290     if(!p)
 291         return E_INVALIDARG;
 292
 293     *p = NULL;
 294
 295     if(!This->doc_node->nsdoc) {
 296         WARN("NULL nsdoc\n");
 297         return E_UNEXPECTED;
 298     }
 299
 300     nsres = nsIDOMHTMLDocument_GetForms(This->doc_node->nsdoc, &nscoll);
 301     if(NS_FAILED(nsres)) {
 302         ERR("GetForms failed: %08x\n", nsres);
 303         return E_FAIL;
 304     }
 305
 306     if(nscoll) {
 307         *p = create_collection_from_htmlcol(This->doc_node, (IUnknown*)&This->IHTMLDocument2_iface, nscoll);
 308         nsIDOMElement_Release(nscoll);
 309     }
 310
 311     return S_OK;
 312 }
 313
 314 static HRESULT WINAPI HTMLDocument_get_anchors(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 315 {
 316     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 317     nsIDOMHTMLCollection *nscoll = NULL;
 318     nsresult nsres;
 319
 320     TRACE("(%p)->(%p)\n", This, p);
 321
 322     if(!p)
 323         return E_INVALIDARG;
 324
 325     *p = NULL;
 326
 327     if(!This->doc_node->nsdoc) {
 328         WARN("NULL nsdoc\n");
 329         return E_UNEXPECTED;
 330     }
 331
 332     nsres = nsIDOMHTMLDocument_GetAnchors(This->doc_node->nsdoc, &nscoll);
 333     if(NS_FAILED(nsres)) {
 334         ERR("GetAnchors failed: %08x\n", nsres);
 335         return E_FAIL;
 336     }
 337
 338     if(nscoll) {
 339         *p = create_collection_from_htmlcol(This->doc_node, (IUnknown*)&This->IHTMLDocument2_iface, nscoll);
 340         nsIDOMElement_Release(nscoll);
 341     }
 342
 343     return S_OK;
 344 }
 345
 346 static HRESULT WINAPI HTMLDocument_put_title(IHTMLDocument2 *iface, BSTR v)
 347 {
 348     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 349     nsAString nsstr;
 350     nsresult nsres;
 351
 352     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 353
 354     if(!This->doc_node->nsdoc) {
 355         WARN("NULL nsdoc\n");
 356         return E_UNEXPECTED;
 357     }
 358
 359     nsAString_InitDepend(&nsstr, v);
 360     nsres = nsIDOMHTMLDocument_SetTitle(This->doc_node->nsdoc, &nsstr);
 361     nsAString_Finish(&nsstr);
 362     if(NS_FAILED(nsres))
 363         ERR("SetTitle failed: %08x\n", nsres);
 364
 365     return S_OK;
 366 }
 367
 368 static HRESULT WINAPI HTMLDocument_get_title(IHTMLDocument2 *iface, BSTR *p)
 369 {
 370     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 371     const PRUnichar *ret;
 372     nsAString nsstr;
 373     nsresult nsres;
 374
 375     TRACE("(%p)->(%p)\n", This, p);
 376
 377     if(!This->doc_node->nsdoc) {
 378         WARN("NULL nsdoc\n");
 379         return E_UNEXPECTED;
 380     }
 381
 382
 383     nsAString_Init(&nsstr, NULL);
 384     nsres = nsIDOMHTMLDocument_GetTitle(This->doc_node->nsdoc, &nsstr);
 385     if (NS_SUCCEEDED(nsres)) {
 386         nsAString_GetData(&nsstr, &ret);
 387         *p = SysAllocString(ret);
 388     }
 389     nsAString_Finish(&nsstr);
 390
 391     if(NS_FAILED(nsres)) {
 392         ERR("GetTitle failed: %08x\n", nsres);
 393         return E_FAIL;
 394     }
 395
 396     return S_OK;
 397 }
 398
 399 static HRESULT WINAPI HTMLDocument_get_scripts(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 400 {
 401     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 402     FIXME("(%p)->(%p)\n", This, p);
 403     return E_NOTIMPL;
 404 }
 405
 406 static HRESULT WINAPI HTMLDocument_put_designMode(IHTMLDocument2 *iface, BSTR v)
 407 {
 408     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 409     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 410     return E_NOTIMPL;
 411 }
 412
 413 static HRESULT WINAPI HTMLDocument_get_designMode(IHTMLDocument2 *iface, BSTR *p)
 414 {
 415     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 416     static WCHAR szOff[] = {'O','f','f',0};
 417     FIXME("(%p)->(%p) always returning Off\n", This, p);
 418
 419     if(!p)
 420         return E_INVALIDARG;
 421
 422     *p = SysAllocString(szOff);
 423
 424     return S_OK;
 425 }
 426
 427 static HRESULT WINAPI HTMLDocument_get_selection(IHTMLDocument2 *iface, IHTMLSelectionObject **p)
 428 {
 429     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 430     nsISelection *nsselection;
 431     nsresult nsres;
 432
 433     TRACE("(%p)->(%p)\n", This, p);
 434
 435     nsres = nsIDOMWindow_GetSelection(This->window->nswindow, &nsselection);
 436     if(NS_FAILED(nsres)) {
 437         ERR("GetSelection failed: %08x\n", nsres);
 438         return E_FAIL;
 439     }
 440
 441     return HTMLSelectionObject_Create(This->doc_node, nsselection, p);
 442 }
 443
 444 static HRESULT WINAPI HTMLDocument_get_readyState(IHTMLDocument2 *iface, BSTR *p)
 445 {
 446     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 447
 448     static const WCHAR wszUninitialized[] = {'u','n','i','n','i','t','i','a','l','i','z','e','d',0};
 449     static const WCHAR wszLoading[] = {'l','o','a','d','i','n','g',0};
 450     static const WCHAR wszLoaded[] = {'l','o','a','d','e','d',0};
 451     static const WCHAR wszInteractive[] = {'i','n','t','e','r','a','c','t','i','v','e',0};
 452     static const WCHAR wszComplete[] = {'c','o','m','p','l','e','t','e',0};
 453
 454     static const LPCWSTR readystate_str[] = {
 455         wszUninitialized,
 456         wszLoading,
 457         wszLoaded,
 458         wszInteractive,
 459         wszComplete
 460     };
 461
 462     TRACE("(%p)->(%p)\n", iface, p);
 463
 464     if(!p)
 465         return E_POINTER;
 466
 467     *p = SysAllocString(readystate_str[This->window->readystate]);
 468     return S_OK;
 469 }
 470
 471 static HRESULT WINAPI HTMLDocument_get_frames(IHTMLDocument2 *iface, IHTMLFramesCollection2 **p)
 472 {
 473     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 474     FIXME("(%p)->(%p)\n", This, p);
 475     return E_NOTIMPL;
 476 }
 477
 478 static HRESULT WINAPI HTMLDocument_get_embeds(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 479 {
 480     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 481     FIXME("(%p)->(%p)\n", This, p);
 482     return E_NOTIMPL;
 483 }
 484
 485 static HRESULT WINAPI HTMLDocument_get_plugins(IHTMLDocument2 *iface, IHTMLElementCollection **p)
 486 {
 487     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 488     FIXME("(%p)->(%p)\n", This, p);
 489     return E_NOTIMPL;
 490 }
 491
 492 static HRESULT WINAPI HTMLDocument_put_alinkColor(IHTMLDocument2 *iface, VARIANT v)
 493 {
 494     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 495     FIXME("(%p)\n", This);
 496     return E_NOTIMPL;
 497 }
 498
 499 static HRESULT WINAPI HTMLDocument_get_alinkColor(IHTMLDocument2 *iface, VARIANT *p)
 500 {
 501     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 502     FIXME("(%p)->(%p)\n", This, p);
 503     return E_NOTIMPL;
 504 }
 505
 506 static HRESULT WINAPI HTMLDocument_put_bgColor(IHTMLDocument2 *iface, VARIANT v)
 507 {
 508     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 509     FIXME("(%p)\n", This);
 510     return E_NOTIMPL;
 511 }
 512
 513 static HRESULT WINAPI HTMLDocument_get_bgColor(IHTMLDocument2 *iface, VARIANT *p)
 514 {
 515     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 516     FIXME("(%p)->(%p)\n", This, p);
 517     return E_NOTIMPL;
 518 }
 519
 520 static HRESULT WINAPI HTMLDocument_put_fgColor(IHTMLDocument2 *iface, VARIANT v)
 521 {
 522     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 523     FIXME("(%p)\n", This);
 524     return E_NOTIMPL;
 525 }
 526
 527 static HRESULT WINAPI HTMLDocument_get_fgColor(IHTMLDocument2 *iface, VARIANT *p)
 528 {
 529     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 530     FIXME("(%p)->(%p)\n", This, p);
 531     return E_NOTIMPL;
 532 }
 533
 534 static HRESULT WINAPI HTMLDocument_put_linkColor(IHTMLDocument2 *iface, VARIANT v)
 535 {
 536     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 537     FIXME("(%p)->()\n", This);
 538     return E_NOTIMPL;
 539 }
 540
 541 static HRESULT WINAPI HTMLDocument_get_linkColor(IHTMLDocument2 *iface, VARIANT *p)
 542 {
 543     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 544     FIXME("(%p)->(%p)\n", This, p);
 545     return E_NOTIMPL;
 546 }
 547
 548 static HRESULT WINAPI HTMLDocument_put_vlinkColor(IHTMLDocument2 *iface, VARIANT v)
 549 {
 550     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 551     FIXME("(%p)\n", This);
 552     return E_NOTIMPL;
 553 }
 554
 555 static HRESULT WINAPI HTMLDocument_get_vlinkColor(IHTMLDocument2 *iface, VARIANT *p)
 556 {
 557     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 558     FIXME("(%p)->(%p)\n", This, p);
 559     return E_NOTIMPL;
 560 }
 561
 562 static HRESULT WINAPI HTMLDocument_get_referrer(IHTMLDocument2 *iface, BSTR *p)
 563 {
 564     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 565
 566     FIXME("(%p)->(%p)\n", This, p);
 567
 568     *p = NULL;
 569     return S_OK;
 570  }
 571
 572 static HRESULT WINAPI HTMLDocument_get_location(IHTMLDocument2 *iface, IHTMLLocation **p)
 573 {
 574     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 575
 576     TRACE("(%p)->(%p)\n", This, p);
 577
 578     if(!This->doc_node->nsdoc) {
 579         WARN("NULL nsdoc\n");
 580         return E_UNEXPECTED;
 581     }
 582
 583     return IHTMLWindow2_get_location(&This->window->IHTMLWindow2_iface, p);
 584 }
 585
 586 static HRESULT WINAPI HTMLDocument_get_lastModified(IHTMLDocument2 *iface, BSTR *p)
 587 {
 588     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 589     FIXME("(%p)->(%p)\n", This, p);
 590     return E_NOTIMPL;
 591 }
 592
 593 static HRESULT WINAPI HTMLDocument_put_URL(IHTMLDocument2 *iface, BSTR v)
 594 {
 595     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 596     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 597     return E_NOTIMPL;
 598 }
 599
 600 static HRESULT WINAPI HTMLDocument_get_URL(IHTMLDocument2 *iface, BSTR *p)
 601 {
 602     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 603
 604     static const WCHAR about_blank_url[] =
 605         {'a','b','o','u','t',':','b','l','a','n','k',0};
 606
 607     TRACE("(%p)->(%p)\n", iface, p);
 608
 609     *p = SysAllocString(This->window->url ? This->window->url : about_blank_url);
 610     return *p ? S_OK : E_OUTOFMEMORY;
 611 }
 612
 613 static HRESULT WINAPI HTMLDocument_put_domain(IHTMLDocument2 *iface, BSTR v)
 614 {
 615     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 616     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 617     return E_NOTIMPL;
 618 }
 619
 620 static HRESULT WINAPI HTMLDocument_get_domain(IHTMLDocument2 *iface, BSTR *p)
 621 {
 622     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 623     FIXME("(%p)->(%p)\n", This, p);
 624     return E_NOTIMPL;
 625 }
 626
 627 static HRESULT WINAPI HTMLDocument_put_cookie(IHTMLDocument2 *iface, BSTR v)
 628 {
 629     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 630     BOOL bret;
 631
 632     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 633
 634     bret = InternetSetCookieExW(This->window->url, NULL, v, 0, 0);
 635     if(!bret) {
 636         FIXME("InternetSetCookieExW failed: %u\n", GetLastError());
 637         return HRESULT_FROM_WIN32(GetLastError());
 638     }
 639
 640     return S_OK;
 641 }
 642
 643 static HRESULT WINAPI HTMLDocument_get_cookie(IHTMLDocument2 *iface, BSTR *p)
 644 {
 645     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 646     DWORD size;
 647     BOOL bret;
 648
 649     TRACE("(%p)->(%p)\n", This, p);
 650
 651     size = 0;
 652     bret = InternetGetCookieExW(This->window->url, NULL, NULL, &size, 0, NULL);
 653     if(!bret) {
 654         switch(GetLastError()) {
 655         case ERROR_INSUFFICIENT_BUFFER:
 656             break;
 657         case ERROR_NO_MORE_ITEMS:
 658             *p = NULL;
 659             return S_OK;
 660         default:
 661             FIXME("InternetGetCookieExW failed: %u\n", GetLastError());
 662             return HRESULT_FROM_WIN32(GetLastError());
 663         }
 664     }
 665
 666     if(!size) {
 667         *p = NULL;
 668         return S_OK;
 669     }
 670
 671     *p = SysAllocStringLen(NULL, size-1);
 672     if(!*p)
 673         return E_OUTOFMEMORY;
 674
 675     bret = InternetGetCookieExW(This->window->url, NULL, *p, &size, 0, NULL);
 676     if(!bret) {
 677         ERR("InternetGetCookieExW failed: %u\n", GetLastError());
 678         return E_FAIL;
 679     }
 680
 681     return S_OK;
 682 }
 683
 684 static HRESULT WINAPI HTMLDocument_put_expando(IHTMLDocument2 *iface, VARIANT_BOOL v)
 685 {
 686     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 687     FIXME("(%p)->(%x)\n", This, v);
 688     return E_NOTIMPL;
 689 }
 690
 691 static HRESULT WINAPI HTMLDocument_get_expando(IHTMLDocument2 *iface, VARIANT_BOOL *p)
 692 {
 693     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 694     FIXME("(%p)->(%p)\n", This, p);
 695     return E_NOTIMPL;
 696 }
 697
 698 static HRESULT WINAPI HTMLDocument_put_charset(IHTMLDocument2 *iface, BSTR v)
 699 {
 700     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 701     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 702     return E_NOTIMPL;
 703 }
 704
 705 static HRESULT WINAPI HTMLDocument_get_charset(IHTMLDocument2 *iface, BSTR *p)
 706 {
 707     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 708     FIXME("(%p)->(%p)\n", This, p);
 709     return E_NOTIMPL;
 710 }
 711
 712 static HRESULT WINAPI HTMLDocument_put_defaultCharset(IHTMLDocument2 *iface, BSTR v)
 713 {
 714     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 715     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 716     return E_NOTIMPL;
 717 }
 718
 719 static HRESULT WINAPI HTMLDocument_get_defaultCharset(IHTMLDocument2 *iface, BSTR *p)
 720 {
 721     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 722     FIXME("(%p)->(%p)\n", This, p);
 723     return E_NOTIMPL;
 724 }
 725
 726 static HRESULT WINAPI HTMLDocument_get_mimeType(IHTMLDocument2 *iface, BSTR *p)
 727 {
 728     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 729     FIXME("(%p)->(%p)\n", This, p);
 730     return E_NOTIMPL;
 731 }
 732
 733 static HRESULT WINAPI HTMLDocument_get_fileSize(IHTMLDocument2 *iface, BSTR *p)
 734 {
 735     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 736     FIXME("(%p)->(%p)\n", This, p);
 737     return E_NOTIMPL;
 738 }
 739
 740 static HRESULT WINAPI HTMLDocument_get_fileCreatedDate(IHTMLDocument2 *iface, BSTR *p)
 741 {
 742     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 743     FIXME("(%p)->(%p)\n", This, p);
 744     return E_NOTIMPL;
 745 }
 746
 747 static HRESULT WINAPI HTMLDocument_get_fileModifiedDate(IHTMLDocument2 *iface, BSTR *p)
 748 {
 749     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 750     FIXME("(%p)->(%p)\n", This, p);
 751     return E_NOTIMPL;
 752 }
 753
 754 static HRESULT WINAPI HTMLDocument_get_fileUpdatedDate(IHTMLDocument2 *iface, BSTR *p)
 755 {
 756     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 757     FIXME("(%p)->(%p)\n", This, p);
 758     return E_NOTIMPL;
 759 }
 760
 761 static HRESULT WINAPI HTMLDocument_get_security(IHTMLDocument2 *iface, BSTR *p)
 762 {
 763     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 764     FIXME("(%p)->(%p)\n", This, p);
 765     return E_NOTIMPL;
 766 }
 767
 768 static HRESULT WINAPI HTMLDocument_get_protocol(IHTMLDocument2 *iface, BSTR *p)
 769 {
 770     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 771     FIXME("(%p)->(%p)\n", This, p);
 772     return E_NOTIMPL;
 773 }
 774
 775 static HRESULT WINAPI HTMLDocument_get_nameProp(IHTMLDocument2 *iface, BSTR *p)
 776 {
 777     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 778     FIXME("(%p)->(%p)\n", This, p);
 779     return E_NOTIMPL;
 780 }
 781
 782 static HRESULT document_write(HTMLDocument *This, SAFEARRAY *psarray, BOOL ln)
 783 {
 784     nsAString nsstr;
 785     VARIANT *var;
 786     ULONG i, argc;
 787     nsresult nsres;
 788     HRESULT hres;
 789
 790     if(!This->doc_node->nsdoc) {
 791         WARN("NULL nsdoc\n");
 792         return E_UNEXPECTED;
 793     }
 794
 795     if (!psarray)
 796         return S_OK;
 797
 798     if(psarray->cDims != 1) {
 799         FIXME("cDims=%d\n", psarray->cDims);
 800         return E_INVALIDARG;
 801     }
 802
 803     hres = SafeArrayAccessData(psarray, (void**)&var);
 804     if(FAILED(hres)) {
 805         WARN("SafeArrayAccessData failed: %08x\n", hres);
 806         return hres;
 807     }
 808
 809     nsAString_Init(&nsstr, NULL);
 810
 811     argc = psarray->rgsabound[0].cElements;
 812     for(i=0; i < argc; i++) {
 813         if(V_VT(var+i) == VT_BSTR) {
 814             nsAString_SetData(&nsstr, V_BSTR(var+i));
 815             if(!ln || i != argc-1)
 816                 nsres = nsIDOMHTMLDocument_Write(This->doc_node->nsdoc, &nsstr);
 817             else
 818                 nsres = nsIDOMHTMLDocument_Writeln(This->doc_node->nsdoc, &nsstr);
 819             if(NS_FAILED(nsres))
 820                 ERR("Write failed: %08x\n", nsres);
 821         }else {
 822             FIXME("vt=%d\n", V_VT(var+i));
 823         }
 824     }
 825
 826     nsAString_Finish(&nsstr);
 827     SafeArrayUnaccessData(psarray);
 828
 829     return S_OK;
 830 }
 831
 832 static HRESULT WINAPI HTMLDocument_write(IHTMLDocument2 *iface, SAFEARRAY *psarray)
 833 {
 834     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 835
 836     TRACE("(%p)->(%p)\n", iface, psarray);
 837
 838     return document_write(This, psarray, FALSE);
 839 }
 840
 841 static HRESULT WINAPI HTMLDocument_writeln(IHTMLDocument2 *iface, SAFEARRAY *psarray)
 842 {
 843     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 844
 845     TRACE("(%p)->(%p)\n", This, psarray);
 846
 847     return document_write(This, psarray, TRUE);
 848 }
 849
 850 static HRESULT WINAPI HTMLDocument_open(IHTMLDocument2 *iface, BSTR url, VARIANT name,
 851                         VARIANT features, VARIANT replace, IDispatch **pomWindowResult)
 852 {
 853     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 854     nsresult nsres;
 855
 856     static const WCHAR text_htmlW[] = {'t','e','x','t','/','h','t','m','l',0};
 857
 858     TRACE("(%p)->(%s %s %s %s %p)\n", This, debugstr_w(url), debugstr_variant(&name),
 859           debugstr_variant(&features), debugstr_variant(&replace), pomWindowResult);
 860
 861     if(!This->doc_node->nsdoc) {
 862         ERR("!nsdoc\n");
 863         return E_NOTIMPL;
 864     }
 865
 866     if(!url || strcmpW(url, text_htmlW) || V_VT(&name) != VT_ERROR
 867        || V_VT(&features) != VT_ERROR || V_VT(&replace) != VT_ERROR)
 868         FIXME("unsupported args\n");
 869
 870     nsres = nsIDOMHTMLDocument_Open(This->doc_node->nsdoc);
 871     if(NS_FAILED(nsres)) {
 872         ERR("Open failed: %08x\n", nsres);
 873         return E_FAIL;
 874     }
 875
 876     *pomWindowResult = (IDispatch*)&This->window->IHTMLWindow2_iface;
 877     IHTMLWindow2_AddRef(&This->window->IHTMLWindow2_iface);
 878     return S_OK;
 879 }
 880
 881 static HRESULT WINAPI HTMLDocument_close(IHTMLDocument2 *iface)
 882 {
 883     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 884     nsresult nsres;
 885
 886     TRACE("(%p)\n", This);
 887
 888     if(!This->doc_node->nsdoc) {
 889         ERR("!nsdoc\n");
 890         return E_NOTIMPL;
 891     }
 892
 893     nsres = nsIDOMHTMLDocument_Close(This->doc_node->nsdoc);
 894     if(NS_FAILED(nsres)) {
 895         ERR("Close failed: %08x\n", nsres);
 896         return E_FAIL;
 897     }
 898
 899     return S_OK;
 900 }
 901
 902 static HRESULT WINAPI HTMLDocument_clear(IHTMLDocument2 *iface)
 903 {
 904     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 905     nsIDOMNSHTMLDocument *nsdoc;
 906     nsresult nsres;
 907
 908     TRACE("(%p)\n", This);
 909
 910     nsres = nsIDOMHTMLDocument_QueryInterface(This->doc_node->nsdoc, &IID_nsIDOMNSHTMLDocument, (void**)&nsdoc);
 911     if(NS_FAILED(nsres)) {
 912         ERR("Could not get nsIDOMNSHTMLDocument iface: %08x\n", nsres);
 913         return E_FAIL;
 914     }
 915
 916     nsres = nsIDOMNSHTMLDocument_Clear(nsdoc);
 917     nsIDOMNSHTMLDocument_Release(nsdoc);
 918     if(NS_FAILED(nsres)) {
 919         ERR("Clear failed: %08x\n", nsres);
 920         return E_FAIL;
 921     }
 922
 923     return S_OK;
 924 }
 925
 926 static HRESULT WINAPI HTMLDocument_queryCommandSupported(IHTMLDocument2 *iface, BSTR cmdID,
 927                                                         VARIANT_BOOL *pfRet)
 928 {
 929     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 930     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 931     return E_NOTIMPL;
 932 }
 933
 934 static HRESULT WINAPI HTMLDocument_queryCommandEnabled(IHTMLDocument2 *iface, BSTR cmdID,
 935                                                         VARIANT_BOOL *pfRet)
 936 {
 937     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 938     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 939     return E_NOTIMPL;
 940 }
 941
 942 static HRESULT WINAPI HTMLDocument_queryCommandState(IHTMLDocument2 *iface, BSTR cmdID,
 943                                                         VARIANT_BOOL *pfRet)
 944 {
 945     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 946     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 947     return E_NOTIMPL;
 948 }
 949
 950 static HRESULT WINAPI HTMLDocument_queryCommandIndeterm(IHTMLDocument2 *iface, BSTR cmdID,
 951                                                         VARIANT_BOOL *pfRet)
 952 {
 953     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 954     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 955     return E_NOTIMPL;
 956 }
 957
 958 static HRESULT WINAPI HTMLDocument_queryCommandText(IHTMLDocument2 *iface, BSTR cmdID,
 959                                                         BSTR *pfRet)
 960 {
 961     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 962     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 963     return E_NOTIMPL;
 964 }
 965
 966 static HRESULT WINAPI HTMLDocument_queryCommandValue(IHTMLDocument2 *iface, BSTR cmdID,
 967                                                         VARIANT *pfRet)
 968 {
 969     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 970     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 971     return E_NOTIMPL;
 972 }
 973
 974 static HRESULT WINAPI HTMLDocument_execCommand(IHTMLDocument2 *iface, BSTR cmdID,
 975                                 VARIANT_BOOL showUI, VARIANT value, VARIANT_BOOL *pfRet)
 976 {
 977     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 978     FIXME("(%p)->(%s %x %p)\n", This, debugstr_w(cmdID), showUI, pfRet);
 979     return E_NOTIMPL;
 980 }
 981
 982 static HRESULT WINAPI HTMLDocument_execCommandShowHelp(IHTMLDocument2 *iface, BSTR cmdID,
 983                                                         VARIANT_BOOL *pfRet)
 984 {
 985     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 986     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
 987     return E_NOTIMPL;
 988 }
 989
 990 static HRESULT WINAPI HTMLDocument_createElement(IHTMLDocument2 *iface, BSTR eTag,
 991                                                  IHTMLElement **newElem)
 992 {
 993     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
 994     nsIDOMHTMLElement *nselem;
 995     HTMLElement *elem;
 996     HRESULT hres;
 997
 998     TRACE("(%p)->(%s %p)\n", This, debugstr_w(eTag), newElem);
 999
1000     hres = create_nselem(This->doc_node, eTag, &nselem);
1001     if(FAILED(hres))
1002         return hres;
1003
1004     hres = HTMLElement_Create(This->doc_node, (nsIDOMNode*)nselem, TRUE, &elem);
1005     nsIDOMHTMLElement_Release(nselem);
1006     if(FAILED(hres))
1007         return hres;
1008
1009     *newElem = &elem->IHTMLElement_iface;
1010     IHTMLElement_AddRef(&elem->IHTMLElement_iface);
1011     return S_OK;
1012 }
1013
1014 static HRESULT WINAPI HTMLDocument_put_onhelp(IHTMLDocument2 *iface, VARIANT v)
1015 {
1016     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1017     FIXME("(%p)\n", This);
1018     return E_NOTIMPL;
1019 }
1020
1021 static HRESULT WINAPI HTMLDocument_get_onhelp(IHTMLDocument2 *iface, VARIANT *p)
1022 {
1023     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1024     FIXME("(%p)->(%p)\n", This, p);
1025     return E_NOTIMPL;
1026 }
1027
1028 static HRESULT WINAPI HTMLDocument_put_onclick(IHTMLDocument2 *iface, VARIANT v)
1029 {
1030     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1031
1032     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1033
1034     return set_doc_event(This, EVENTID_CLICK, &v);
1035 }
1036
1037 static HRESULT WINAPI HTMLDocument_get_onclick(IHTMLDocument2 *iface, VARIANT *p)
1038 {
1039     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1040
1041     TRACE("(%p)->(%p)\n", This, p);
1042
1043     return get_doc_event(This, EVENTID_CLICK, p);
1044 }
1045
1046 static HRESULT WINAPI HTMLDocument_put_ondblclick(IHTMLDocument2 *iface, VARIANT v)
1047 {
1048     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1049     FIXME("(%p)\n", This);
1050     return E_NOTIMPL;
1051 }
1052
1053 static HRESULT WINAPI HTMLDocument_get_ondblclick(IHTMLDocument2 *iface, VARIANT *p)
1054 {
1055     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1056     FIXME("(%p)->(%p)\n", This, p);
1057     return E_NOTIMPL;
1058 }
1059
1060 static HRESULT WINAPI HTMLDocument_put_onkeyup(IHTMLDocument2 *iface, VARIANT v)
1061 {
1062     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1063
1064     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1065
1066     return set_doc_event(This, EVENTID_KEYUP, &v);
1067 }
1068
1069 static HRESULT WINAPI HTMLDocument_get_onkeyup(IHTMLDocument2 *iface, VARIANT *p)
1070 {
1071     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1072
1073     TRACE("(%p)->(%p)\n", This, p);
1074
1075     return get_doc_event(This, EVENTID_KEYUP, p);
1076 }
1077
1078 static HRESULT WINAPI HTMLDocument_put_onkeydown(IHTMLDocument2 *iface, VARIANT v)
1079 {
1080     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1081
1082     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1083
1084     return set_doc_event(This, EVENTID_KEYDOWN, &v);
1085 }
1086
1087 static HRESULT WINAPI HTMLDocument_get_onkeydown(IHTMLDocument2 *iface, VARIANT *p)
1088 {
1089     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1090
1091     TRACE("(%p)->(%p)\n", This, p);
1092
1093     return get_doc_event(This, EVENTID_KEYDOWN, p);
1094 }
1095
1096 static HRESULT WINAPI HTMLDocument_put_onkeypress(IHTMLDocument2 *iface, VARIANT v)
1097 {
1098     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1099     FIXME("(%p)\n", This);
1100     return E_NOTIMPL;
1101 }
1102
1103 static HRESULT WINAPI HTMLDocument_get_onkeypress(IHTMLDocument2 *iface, VARIANT *p)
1104 {
1105     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1106     FIXME("(%p)->(%p)\n", This, p);
1107     return E_NOTIMPL;
1108 }
1109
1110 static HRESULT WINAPI HTMLDocument_put_onmouseup(IHTMLDocument2 *iface, VARIANT v)
1111 {
1112     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1113
1114     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1115
1116     return set_doc_event(This, EVENTID_MOUSEUP, &v);
1117 }
1118
1119 static HRESULT WINAPI HTMLDocument_get_onmouseup(IHTMLDocument2 *iface, VARIANT *p)
1120 {
1121     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1122
1123     TRACE("(%p)->(%p)\n", This, p);
1124
1125     return get_doc_event(This, EVENTID_MOUSEUP, p);
1126 }
1127
1128 static HRESULT WINAPI HTMLDocument_put_onmousedown(IHTMLDocument2 *iface, VARIANT v)
1129 {
1130     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1131
1132     TRACE("(%p)->()\n", This);
1133
1134     return set_doc_event(This, EVENTID_MOUSEDOWN, &v);
1135 }
1136
1137 static HRESULT WINAPI HTMLDocument_get_onmousedown(IHTMLDocument2 *iface, VARIANT *p)
1138 {
1139     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1140
1141     TRACE("(%p)->(%p)\n", This, p);
1142
1143     return get_doc_event(This, EVENTID_MOUSEDOWN, p);
1144 }
1145
1146 static HRESULT WINAPI HTMLDocument_put_onmousemove(IHTMLDocument2 *iface, VARIANT v)
1147 {
1148     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1149
1150     TRACE("(%p)->()\n", This);
1151
1152     return set_doc_event(This, EVENTID_MOUSEMOVE, &v);
1153 }
1154
1155 static HRESULT WINAPI HTMLDocument_get_onmousemove(IHTMLDocument2 *iface, VARIANT *p)
1156 {
1157     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1158
1159     TRACE("(%p)->(%p)\n", This, p);
1160
1161     return get_doc_event(This, EVENTID_MOUSEMOVE, p);
1162 }
1163
1164 static HRESULT WINAPI HTMLDocument_put_onmouseout(IHTMLDocument2 *iface, VARIANT v)
1165 {
1166     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1167
1168     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1169
1170     return set_doc_event(This, EVENTID_MOUSEOUT, &v);
1171 }
1172
1173 static HRESULT WINAPI HTMLDocument_get_onmouseout(IHTMLDocument2 *iface, VARIANT *p)
1174 {
1175     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1176
1177     TRACE("(%p)->(%p)\n", This, p);
1178
1179     return get_doc_event(This, EVENTID_MOUSEOUT, p);
1180 }
1181
1182 static HRESULT WINAPI HTMLDocument_put_onmouseover(IHTMLDocument2 *iface, VARIANT v)
1183 {
1184     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1185
1186     TRACE("(%p)\n", This);
1187
1188     return set_doc_event(This, EVENTID_MOUSEOVER, &v);
1189 }
1190
1191 static HRESULT WINAPI HTMLDocument_get_onmouseover(IHTMLDocument2 *iface, VARIANT *p)
1192 {
1193     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1194
1195     TRACE("(%p)->(%p)\n", This, p);
1196
1197     return get_doc_event(This, EVENTID_MOUSEOVER, p);
1198 }
1199
1200 static HRESULT WINAPI HTMLDocument_put_onreadystatechange(IHTMLDocument2 *iface, VARIANT v)
1201 {
1202     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1203
1204     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1205
1206     return set_doc_event(This, EVENTID_READYSTATECHANGE, &v);
1207 }
1208
1209 static HRESULT WINAPI HTMLDocument_get_onreadystatechange(IHTMLDocument2 *iface, VARIANT *p)
1210 {
1211     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1212
1213     TRACE("(%p)->(%p)\n", This, p);
1214
1215     return get_doc_event(This, EVENTID_READYSTATECHANGE, p);
1216 }
1217
1218 static HRESULT WINAPI HTMLDocument_put_onafterupdate(IHTMLDocument2 *iface, VARIANT v)
1219 {
1220     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1221     FIXME("(%p)\n", This);
1222     return E_NOTIMPL;
1223 }
1224
1225 static HRESULT WINAPI HTMLDocument_get_onafterupdate(IHTMLDocument2 *iface, VARIANT *p)
1226 {
1227     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1228     FIXME("(%p)->(%p)\n", This, p);
1229     return E_NOTIMPL;
1230 }
1231
1232 static HRESULT WINAPI HTMLDocument_put_onrowexit(IHTMLDocument2 *iface, VARIANT v)
1233 {
1234     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1235     FIXME("(%p)\n", This);
1236     return E_NOTIMPL;
1237 }
1238
1239 static HRESULT WINAPI HTMLDocument_get_onrowexit(IHTMLDocument2 *iface, VARIANT *p)
1240 {
1241     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1242     FIXME("(%p)->(%p)\n", This, p);
1243     return E_NOTIMPL;
1244 }
1245
1246 static HRESULT WINAPI HTMLDocument_put_onrowenter(IHTMLDocument2 *iface, VARIANT v)
1247 {
1248     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1249     FIXME("(%p)\n", This);
1250     return E_NOTIMPL;
1251 }
1252
1253 static HRESULT WINAPI HTMLDocument_get_onrowenter(IHTMLDocument2 *iface, VARIANT *p)
1254 {
1255     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1256     FIXME("(%p)->(%p)\n", This, p);
1257     return E_NOTIMPL;
1258 }
1259
1260 static HRESULT WINAPI HTMLDocument_put_ondragstart(IHTMLDocument2 *iface, VARIANT v)
1261 {
1262     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1263
1264     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1265
1266     return set_doc_event(This, EVENTID_DRAGSTART, &v);
1267 }
1268
1269 static HRESULT WINAPI HTMLDocument_get_ondragstart(IHTMLDocument2 *iface, VARIANT *p)
1270 {
1271     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1272
1273     TRACE("(%p)->(%p)\n", This, p);
1274
1275     return get_doc_event(This, EVENTID_DRAGSTART, p);
1276 }
1277
1278 static HRESULT WINAPI HTMLDocument_put_onselectstart(IHTMLDocument2 *iface, VARIANT v)
1279 {
1280     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1281
1282     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1283
1284     return set_doc_event(This, EVENTID_SELECTSTART, &v);
1285 }
1286
1287 static HRESULT WINAPI HTMLDocument_get_onselectstart(IHTMLDocument2 *iface, VARIANT *p)
1288 {
1289     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1290
1291     TRACE("(%p)->(%p)\n", This, p);
1292
1293     return get_doc_event(This, EVENTID_SELECTSTART, p);
1294 }
1295
1296 static HRESULT WINAPI HTMLDocument_elementFromPoint(IHTMLDocument2 *iface, LONG x, LONG y,
1297                                                         IHTMLElement **elementHit)
1298 {
1299     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1300     FIXME("(%p)->(%d %d %p)\n", This, x, y, elementHit);
1301     return E_NOTIMPL;
1302 }
1303
1304 static HRESULT WINAPI HTMLDocument_get_parentWindow(IHTMLDocument2 *iface, IHTMLWindow2 **p)
1305 {
1306     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1307
1308     TRACE("(%p)->(%p)\n", This, p);
1309
1310     *p = &This->window->IHTMLWindow2_iface;
1311     IHTMLWindow2_AddRef(*p);
1312     return S_OK;
1313 }
1314
1315 static HRESULT WINAPI HTMLDocument_get_styleSheets(IHTMLDocument2 *iface,
1316                                                    IHTMLStyleSheetsCollection **p)
1317 {
1318     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1319     nsIDOMStyleSheetList *nsstylelist;
1320     nsIDOMDocumentStyle *nsdocstyle;
1321     nsresult nsres;
1322
1323     TRACE("(%p)->(%p)\n", This, p);
1324
1325     *p = NULL;
1326
1327     if(!This->doc_node->nsdoc) {
1328         WARN("NULL nsdoc\n");
1329         return E_UNEXPECTED;
1330     }
1331
1332     nsIDOMHTMLDocument_QueryInterface(This->doc_node->nsdoc, &IID_nsIDOMDocumentStyle, (void**)&nsdocstyle);
1333     nsres = nsIDOMDocumentStyle_GetStyleSheets(nsdocstyle, &nsstylelist);
1334     nsIDOMDocumentStyle_Release(nsdocstyle);
1335     if(NS_FAILED(nsres)) {
1336         ERR("GetStyleSheets failed: %08x\n", nsres);
1337         return E_FAIL;
1338     }
1339
1340     *p = HTMLStyleSheetsCollection_Create(nsstylelist);
1341     nsIDOMDocumentStyle_Release(nsstylelist);
1342
1343     return S_OK;
1344 }
1345
1346 static HRESULT WINAPI HTMLDocument_put_onbeforeupdate(IHTMLDocument2 *iface, VARIANT v)
1347 {
1348     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1349     FIXME("(%p)\n", This);
1350     return E_NOTIMPL;
1351 }
1352
1353 static HRESULT WINAPI HTMLDocument_get_onbeforeupdate(IHTMLDocument2 *iface, VARIANT *p)
1354 {
1355     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1356     FIXME("(%p)->(%p)\n", This, p);
1357     return E_NOTIMPL;
1358 }
1359
1360 static HRESULT WINAPI HTMLDocument_put_onerrorupdate(IHTMLDocument2 *iface, VARIANT v)
1361 {
1362     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1363     FIXME("(%p)\n", This);
1364     return E_NOTIMPL;
1365 }
1366
1367 static HRESULT WINAPI HTMLDocument_get_onerrorupdate(IHTMLDocument2 *iface, VARIANT *p)
1368 {
1369     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1370     FIXME("(%p)->(%p)\n", This, p);
1371     return E_NOTIMPL;
1372 }
1373
1374 static HRESULT WINAPI HTMLDocument_toString(IHTMLDocument2 *iface, BSTR *String)
1375 {
1376     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1377     FIXME("(%p)->(%p)\n", This, String);
1378     return E_NOTIMPL;
1379 }
1380
1381 static HRESULT WINAPI HTMLDocument_createStyleSheet(IHTMLDocument2 *iface, BSTR bstrHref,
1382                                             LONG lIndex, IHTMLStyleSheet **ppnewStyleSheet)
1383 {
1384     HTMLDocument *This = impl_from_IHTMLDocument2(iface);
1385
1386     FIXME("(%p)->(%s %d %p) semi-stub\n", This, debugstr_w(bstrHref), lIndex, ppnewStyleSheet);
1387
1388     *ppnewStyleSheet = HTMLStyleSheet_Create(NULL);
1389     return S_OK;
1390 }
1391
1392 static const IHTMLDocument2Vtbl HTMLDocumentVtbl = {
1393     HTMLDocument_QueryInterface,
1394     HTMLDocument_AddRef,
1395     HTMLDocument_Release,
1396     HTMLDocument_GetTypeInfoCount,
1397     HTMLDocument_GetTypeInfo,
1398     HTMLDocument_GetIDsOfNames,
1399     HTMLDocument_Invoke,
1400     HTMLDocument_get_Script,
1401     HTMLDocument_get_all,
1402     HTMLDocument_get_body,
1403     HTMLDocument_get_activeElement,
1404     HTMLDocument_get_images,
1405     HTMLDocument_get_applets,
1406     HTMLDocument_get_links,
1407     HTMLDocument_get_forms,
1408     HTMLDocument_get_anchors,
1409     HTMLDocument_put_title,
1410     HTMLDocument_get_title,
1411     HTMLDocument_get_scripts,
1412     HTMLDocument_put_designMode,
1413     HTMLDocument_get_designMode,
1414     HTMLDocument_get_selection,
1415     HTMLDocument_get_readyState,
1416     HTMLDocument_get_frames,
1417     HTMLDocument_get_embeds,
1418     HTMLDocument_get_plugins,
1419     HTMLDocument_put_alinkColor,
1420     HTMLDocument_get_alinkColor,
1421     HTMLDocument_put_bgColor,
1422     HTMLDocument_get_bgColor,
1423     HTMLDocument_put_fgColor,
1424     HTMLDocument_get_fgColor,
1425     HTMLDocument_put_linkColor,
1426     HTMLDocument_get_linkColor,
1427     HTMLDocument_put_vlinkColor,
1428     HTMLDocument_get_vlinkColor,
1429     HTMLDocument_get_referrer,
1430     HTMLDocument_get_location,
1431     HTMLDocument_get_lastModified,
1432     HTMLDocument_put_URL,
1433     HTMLDocument_get_URL,
1434     HTMLDocument_put_domain,
1435     HTMLDocument_get_domain,
1436     HTMLDocument_put_cookie,
1437     HTMLDocument_get_cookie,
1438     HTMLDocument_put_expando,
1439     HTMLDocument_get_expando,
1440     HTMLDocument_put_charset,
1441     HTMLDocument_get_charset,
1442     HTMLDocument_put_defaultCharset,
1443     HTMLDocument_get_defaultCharset,
1444     HTMLDocument_get_mimeType,
1445     HTMLDocument_get_fileSize,
1446     HTMLDocument_get_fileCreatedDate,
1447     HTMLDocument_get_fileModifiedDate,
1448     HTMLDocument_get_fileUpdatedDate,
1449     HTMLDocument_get_security,
1450     HTMLDocument_get_protocol,
1451     HTMLDocument_get_nameProp,
1452     HTMLDocument_write,
1453     HTMLDocument_writeln,
1454     HTMLDocument_open,
1455     HTMLDocument_close,
1456     HTMLDocument_clear,
1457     HTMLDocument_queryCommandSupported,
1458     HTMLDocument_queryCommandEnabled,
1459     HTMLDocument_queryCommandState,
1460     HTMLDocument_queryCommandIndeterm,
1461     HTMLDocument_queryCommandText,
1462     HTMLDocument_queryCommandValue,
1463     HTMLDocument_execCommand,
1464     HTMLDocument_execCommandShowHelp,
1465     HTMLDocument_createElement,
1466     HTMLDocument_put_onhelp,
1467     HTMLDocument_get_onhelp,
1468     HTMLDocument_put_onclick,
1469     HTMLDocument_get_onclick,
1470     HTMLDocument_put_ondblclick,
1471     HTMLDocument_get_ondblclick,
1472     HTMLDocument_put_onkeyup,
1473     HTMLDocument_get_onkeyup,
1474     HTMLDocument_put_onkeydown,
1475     HTMLDocument_get_onkeydown,
1476     HTMLDocument_put_onkeypress,
1477     HTMLDocument_get_onkeypress,
1478     HTMLDocument_put_onmouseup,
1479     HTMLDocument_get_onmouseup,
1480     HTMLDocument_put_onmousedown,
1481     HTMLDocument_get_onmousedown,
1482     HTMLDocument_put_onmousemove,
1483     HTMLDocument_get_onmousemove,
1484     HTMLDocument_put_onmouseout,
1485     HTMLDocument_get_onmouseout,
1486     HTMLDocument_put_onmouseover,
1487     HTMLDocument_get_onmouseover,
1488     HTMLDocument_put_onreadystatechange,
1489     HTMLDocument_get_onreadystatechange,
1490     HTMLDocument_put_onafterupdate,
1491     HTMLDocument_get_onafterupdate,
1492     HTMLDocument_put_onrowexit,
1493     HTMLDocument_get_onrowexit,
1494     HTMLDocument_put_onrowenter,
1495     HTMLDocument_get_onrowenter,
1496     HTMLDocument_put_ondragstart,
1497     HTMLDocument_get_ondragstart,
1498     HTMLDocument_put_onselectstart,
1499     HTMLDocument_get_onselectstart,
1500     HTMLDocument_elementFromPoint,
1501     HTMLDocument_get_parentWindow,
1502     HTMLDocument_get_styleSheets,
1503     HTMLDocument_put_onbeforeupdate,
1504     HTMLDocument_get_onbeforeupdate,
1505     HTMLDocument_put_onerrorupdate,
1506     HTMLDocument_get_onerrorupdate,
1507     HTMLDocument_toString,
1508     HTMLDocument_createStyleSheet
1509 };
1510
1511 static void HTMLDocument_on_advise(IUnknown *iface, cp_static_data_t *cp)
1512 {
1513     HTMLDocument *This = impl_from_IHTMLDocument2((IHTMLDocument2*)iface);
1514
1515     if(This->window)
1516         update_cp_events(This->window, &This->doc_node->node.event_target, cp, This->doc_node->node.nsnode);
1517 }
1518
1519 static inline HTMLDocument *impl_from_ISupportErrorInfo(ISupportErrorInfo *iface)
1520 {
1521     return CONTAINING_RECORD(iface, HTMLDocument, ISupportErrorInfo_iface);
1522 }
1523
1524 static HRESULT WINAPI SupportErrorInfo_QueryInterface(ISupportErrorInfo *iface, REFIID riid, void **ppv)
1525 {
1526     HTMLDocument *This = impl_from_ISupportErrorInfo(iface);
1527     return htmldoc_query_interface(This, riid, ppv);
1528 }
1529
1530 static ULONG WINAPI SupportErrorInfo_AddRef(ISupportErrorInfo *iface)
1531 {
1532     HTMLDocument *This = impl_from_ISupportErrorInfo(iface);
1533     return htmldoc_addref(This);
1534 }
1535
1536 static ULONG WINAPI SupportErrorInfo_Release(ISupportErrorInfo *iface)
1537 {
1538     HTMLDocument *This = impl_from_ISupportErrorInfo(iface);
1539     return htmldoc_release(This);
1540 }
1541
1542 static HRESULT WINAPI SupportErrorInfo_InterfaceSupportsErrorInfo(ISupportErrorInfo *iface, REFIID riid)
1543 {
1544     FIXME("(%p)->(%s)\n", iface, debugstr_guid(riid));
1545     return S_FALSE;
1546 }
1547
1548 static const ISupportErrorInfoVtbl SupportErrorInfoVtbl = {
1549     SupportErrorInfo_QueryInterface,
1550     SupportErrorInfo_AddRef,
1551     SupportErrorInfo_Release,
1552     SupportErrorInfo_InterfaceSupportsErrorInfo
1553 };
1554
1555 static inline HTMLDocument *impl_from_IDispatchEx(IDispatchEx *iface)
1556 {
1557     return CONTAINING_RECORD(iface, HTMLDocument, IDispatchEx_iface);
1558 }
1559
1560 static HRESULT dispid_from_elem_name(HTMLDocumentNode *This, BSTR name, DISPID *dispid)
1561 {
1562     nsIDOMNodeList *node_list;
1563     nsAString name_str;
1564     PRUint32 len;
1565     unsigned i;
1566     nsresult nsres;
1567
1568     if(!This->nsdoc)
1569         return DISP_E_UNKNOWNNAME;
1570
1571     nsAString_InitDepend(&name_str, name);
1572     nsres = nsIDOMHTMLDocument_GetElementsByName(This->nsdoc, &name_str, &node_list);
1573     nsAString_Finish(&name_str);
1574     if(NS_FAILED(nsres))
1575         return E_FAIL;
1576
1577     nsres = nsIDOMNodeList_GetLength(node_list, &len);
1578     nsIDOMNodeList_Release(node_list);
1579     if(NS_FAILED(nsres))
1580         return E_FAIL;
1581
1582     if(!len)
1583         return DISP_E_UNKNOWNNAME;
1584
1585     for(i=0; i < This->elem_vars_cnt; i++) {
1586         if(!strcmpW(name, This->elem_vars[i])) {
1587             *dispid = MSHTML_DISPID_CUSTOM_MIN+i;
1588             return S_OK;
1589         }
1590     }
1591
1592     if(This->elem_vars_cnt == This->elem_vars_size) {
1593         WCHAR **new_vars;
1594
1595         if(This->elem_vars_size) {
1596             new_vars = heap_realloc(This->elem_vars, This->elem_vars_size*2*sizeof(WCHAR*));
1597             if(!new_vars)
1598                 return E_OUTOFMEMORY;
1599             This->elem_vars_size *= 2;
1600         }else {
1601             new_vars = heap_alloc(16*sizeof(WCHAR*));
1602             if(!new_vars)
1603                 return E_OUTOFMEMORY;
1604             This->elem_vars_size = 16;
1605         }
1606
1607         This->elem_vars = new_vars;
1608     }
1609
1610     This->elem_vars[This->elem_vars_cnt] = heap_strdupW(name);
1611     if(!This->elem_vars[This->elem_vars_cnt])
1612         return E_OUTOFMEMORY;
1613
1614     *dispid = MSHTML_DISPID_CUSTOM_MIN+This->elem_vars_cnt++;
1615     return S_OK;
1616 }
1617
1618 static HRESULT WINAPI DocDispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
1619 {
1620     HTMLDocument *This = impl_from_IDispatchEx(iface);
1621
1622     return htmldoc_query_interface(This, riid, ppv);
1623 }
1624
1625 static ULONG WINAPI DocDispatchEx_AddRef(IDispatchEx *iface)
1626 {
1627     HTMLDocument *This = impl_from_IDispatchEx(iface);
1628
1629     return htmldoc_addref(This);
1630 }
1631
1632 static ULONG WINAPI DocDispatchEx_Release(IDispatchEx *iface)
1633 {
1634     HTMLDocument *This = impl_from_IDispatchEx(iface);
1635
1636     return htmldoc_release(This);
1637 }
1638
1639 static HRESULT WINAPI DocDispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
1640 {
1641     HTMLDocument *This = impl_from_IDispatchEx(iface);
1642
1643     return IDispatchEx_GetTypeInfoCount(This->dispex, pctinfo);
1644 }
1645
1646 static HRESULT WINAPI DocDispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
1647                                                LCID lcid, ITypeInfo **ppTInfo)
1648 {
1649     HTMLDocument *This = impl_from_IDispatchEx(iface);
1650
1651     return IDispatchEx_GetTypeInfo(This->dispex, iTInfo, lcid, ppTInfo);
1652 }
1653
1654 static HRESULT WINAPI DocDispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
1655                                                  LPOLESTR *rgszNames, UINT cNames,
1656                                                  LCID lcid, DISPID *rgDispId)
1657 {
1658     HTMLDocument *This = impl_from_IDispatchEx(iface);
1659
1660     return IDispatchEx_GetIDsOfNames(This->dispex, riid, rgszNames, cNames, lcid, rgDispId);
1661 }
1662
1663 static HRESULT WINAPI DocDispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
1664                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1665                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1666 {
1667     HTMLDocument *This = impl_from_IDispatchEx(iface);
1668
1669     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1670           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1671
1672     switch(dispIdMember) {
1673     case DISPID_READYSTATE:
1674         TRACE("DISPID_READYSTATE\n");
1675
1676         if(!(wFlags & DISPATCH_PROPERTYGET))
1677             return E_INVALIDARG;
1678
1679         V_VT(pVarResult) = VT_I4;
1680         V_I4(pVarResult) = This->window->readystate;
1681         return S_OK;
1682     }
1683
1684     return IDispatchEx_Invoke(This->dispex, dispIdMember, riid, lcid, wFlags, pDispParams,
1685                               pVarResult, pExcepInfo, puArgErr);
1686 }
1687
1688 static HRESULT WINAPI DocDispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
1689 {
1690     HTMLDocument *This = impl_from_IDispatchEx(iface);
1691     HRESULT hres;
1692
1693     hres = IDispatchEx_GetDispID(This->dispex, bstrName, grfdex, pid);
1694     if(hres != DISP_E_UNKNOWNNAME)
1695         return hres;
1696
1697     return  dispid_from_elem_name(This->doc_node, bstrName, pid);
1698 }
1699
1700 static HRESULT WINAPI DocDispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1701         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1702 {
1703     HTMLDocument *This = impl_from_IDispatchEx(iface);
1704
1705     if(This->window && id == DISPID_IHTMLDOCUMENT2_LOCATION && (wFlags & DISPATCH_PROPERTYPUT))
1706         return IDispatchEx_InvokeEx(&This->window->IDispatchEx_iface, DISPID_IHTMLWINDOW2_LOCATION,
1707                 lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1708
1709
1710     return IDispatchEx_InvokeEx(This->dispex, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1711 }
1712
1713 static HRESULT WINAPI DocDispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
1714 {
1715     HTMLDocument *This = impl_from_IDispatchEx(iface);
1716
1717     return IDispatchEx_DeleteMemberByName(This->dispex, bstrName, grfdex);
1718 }
1719
1720 static HRESULT WINAPI DocDispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1721 {
1722     HTMLDocument *This = impl_from_IDispatchEx(iface);
1723
1724     return IDispatchEx_DeleteMemberByDispID(This->dispex, id);
1725 }
1726
1727 static HRESULT WINAPI DocDispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
1728 {
1729     HTMLDocument *This = impl_from_IDispatchEx(iface);
1730
1731     return IDispatchEx_GetMemberProperties(This->dispex, id, grfdexFetch, pgrfdex);
1732 }
1733
1734 static HRESULT WINAPI DocDispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
1735 {
1736     HTMLDocument *This = impl_from_IDispatchEx(iface);
1737
1738     return IDispatchEx_GetMemberName(This->dispex, id, pbstrName);
1739 }
1740
1741 static HRESULT WINAPI DocDispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
1742 {
1743     HTMLDocument *This = impl_from_IDispatchEx(iface);
1744
1745     return IDispatchEx_GetNextDispID(This->dispex, grfdex, id, pid);
1746 }
1747
1748 static HRESULT WINAPI DocDispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
1749 {
1750     HTMLDocument *This = impl_from_IDispatchEx(iface);
1751
1752     return IDispatchEx_GetNameSpaceParent(This->dispex, ppunk);
1753 }
1754
1755 static const IDispatchExVtbl DocDispatchExVtbl = {
1756     DocDispatchEx_QueryInterface,
1757     DocDispatchEx_AddRef,
1758     DocDispatchEx_Release,
1759     DocDispatchEx_GetTypeInfoCount,
1760     DocDispatchEx_GetTypeInfo,
1761     DocDispatchEx_GetIDsOfNames,
1762     DocDispatchEx_Invoke,
1763     DocDispatchEx_GetDispID,
1764     DocDispatchEx_InvokeEx,
1765     DocDispatchEx_DeleteMemberByName,
1766     DocDispatchEx_DeleteMemberByDispID,
1767     DocDispatchEx_GetMemberProperties,
1768     DocDispatchEx_GetMemberName,
1769     DocDispatchEx_GetNextDispID,
1770     DocDispatchEx_GetNameSpaceParent
1771 };
1772
1773 static inline HTMLDocument *impl_from_IProvideClassInfo(IProvideClassInfo *iface)
1774 {
1775     return CONTAINING_RECORD(iface, HTMLDocument, IProvideClassInfo_iface);
1776 }
1777
1778 static HRESULT WINAPI ProvideClassInfo_QueryInterface(IProvideClassInfo *iface,
1779         REFIID riid, void **ppv)
1780 {
1781     HTMLDocument *This = impl_from_IProvideClassInfo(iface);
1782     return htmldoc_query_interface(This, riid, ppv);
1783 }
1784
1785 static ULONG WINAPI ProvideClassInfo_AddRef(IProvideClassInfo *iface)
1786 {
1787     HTMLDocument *This = impl_from_IProvideClassInfo(iface);
1788     return htmldoc_addref(This);
1789 }
1790
1791 static ULONG WINAPI ProvideClassInfo_Release(IProvideClassInfo *iface)
1792 {
1793     HTMLDocument *This = impl_from_IProvideClassInfo(iface);
1794     return htmldoc_release(This);
1795 }
1796
1797 static HRESULT WINAPI ProvideClassInfo_GetClassInfo(IProvideClassInfo* iface,
1798         ITypeInfo **ppTI)
1799 {
1800     HTMLDocument *This = impl_from_IProvideClassInfo(iface);
1801     FIXME("(%p)->(%p)\n", This, ppTI);
1802     *ppTI = NULL;
1803     return E_NOTIMPL;
1804 }
1805
1806 static const IProvideClassInfoVtbl ProvideClassInfoVtbl = {
1807     ProvideClassInfo_QueryInterface,
1808     ProvideClassInfo_AddRef,
1809     ProvideClassInfo_Release,
1810     ProvideClassInfo_GetClassInfo
1811 };
1812
1813 static BOOL htmldoc_qi(HTMLDocument *This, REFIID riid, void **ppv)
1814 {
1815     *ppv = NULL;
1816
1817     if(IsEqualGUID(&IID_IUnknown, riid)) {
1818         TRACE("(%p)->(IID_IUnknown, %p)\n", This, ppv);
1819         *ppv = &This->IHTMLDocument2_iface;
1820     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
1821         TRACE("(%p)->(IID_IDispatch, %p)\n", This, ppv);
1822         *ppv = &This->IDispatchEx_iface;
1823     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
1824         TRACE("(%p)->(IID_IDispatchEx, %p)\n", This, ppv);
1825         *ppv = &This->IDispatchEx_iface;
1826     }else if(IsEqualGUID(&IID_IHTMLDocument, riid)) {
1827         TRACE("(%p)->(IID_IHTMLDocument, %p)\n", This, ppv);
1828         *ppv = &This->IHTMLDocument2_iface;
1829     }else if(IsEqualGUID(&IID_IHTMLDocument2, riid)) {
1830         TRACE("(%p)->(IID_IHTMLDocument2, %p)\n", This, ppv);
1831         *ppv = &This->IHTMLDocument2_iface;
1832     }else if(IsEqualGUID(&IID_IHTMLDocument3, riid)) {
1833         TRACE("(%p)->(IID_IHTMLDocument3, %p)\n", This, ppv);
1834         *ppv = &This->IHTMLDocument3_iface;
1835     }else if(IsEqualGUID(&IID_IHTMLDocument4, riid)) {
1836         TRACE("(%p)->(IID_IHTMLDocument4, %p)\n", This, ppv);
1837         *ppv = &This->IHTMLDocument4_iface;
1838     }else if(IsEqualGUID(&IID_IHTMLDocument5, riid)) {
1839         TRACE("(%p)->(IID_IHTMLDocument5, %p)\n", This, ppv);
1840         *ppv = &This->IHTMLDocument5_iface;
1841     }else if(IsEqualGUID(&IID_IHTMLDocument6, riid)) {
1842         TRACE("(%p)->(IID_IHTMLDocument6, %p)\n", This, ppv);
1843         *ppv = &This->IHTMLDocument6_iface;
1844     }else if(IsEqualGUID(&IID_IPersist, riid)) {
1845         TRACE("(%p)->(IID_IPersist, %p)\n", This, ppv);
1846         *ppv = &This->IPersistFile_iface;
1847     }else if(IsEqualGUID(&IID_IPersistMoniker, riid)) {
1848         TRACE("(%p)->(IID_IPersistMoniker, %p)\n", This, ppv);
1849         *ppv = &This->IPersistMoniker_iface;
1850     }else if(IsEqualGUID(&IID_IPersistFile, riid)) {
1851         TRACE("(%p)->(IID_IPersistFile, %p)\n", This, ppv);
1852         *ppv = &This->IPersistFile_iface;
1853     }else if(IsEqualGUID(&IID_IMonikerProp, riid)) {
1854         TRACE("(%p)->(IID_IMonikerProp, %p)\n", This, ppv);
1855         *ppv = &This->IMonikerProp_iface;
1856     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
1857         TRACE("(%p)->(IID_IOleObject, %p)\n", This, ppv);
1858         *ppv = &This->IOleObject_iface;
1859     }else if(IsEqualGUID(&IID_IOleDocument, riid)) {
1860         TRACE("(%p)->(IID_IOleDocument, %p)\n", This, ppv);
1861         *ppv = &This->IOleDocument_iface;
1862     }else if(IsEqualGUID(&IID_IOleDocumentView, riid)) {
1863         TRACE("(%p)->(IID_IOleDocumentView, %p)\n", This, ppv);
1864         *ppv = &This->IOleDocumentView_iface;
1865     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
1866         TRACE("(%p)->(IID_IOleInPlaceActiveObject, %p)\n", This, ppv);
1867         *ppv = &This->IOleInPlaceActiveObject_iface;
1868     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
1869         TRACE("(%p)->(IID_IViewObject, %p)\n", This, ppv);
1870         *ppv = &This->IViewObjectEx_iface;
1871     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
1872         TRACE("(%p)->(IID_IViewObject2, %p)\n", This, ppv);
1873         *ppv = &This->IViewObjectEx_iface;
1874     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
1875         TRACE("(%p)->(IID_IViewObjectEx, %p)\n", This, ppv);
1876         *ppv = &This->IViewObjectEx_iface;
1877     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
1878         TRACE("(%p)->(IID_IOleWindow, %p)\n", This, ppv);
1879         *ppv = &This->IOleInPlaceActiveObject_iface;
1880     }else if(IsEqualGUID(&IID_IOleInPlaceObject, riid)) {
1881         TRACE("(%p)->(IID_IOleInPlaceObject, %p)\n", This, ppv);
1882         *ppv = &This->IOleInPlaceObjectWindowless_iface;
1883     }else if(IsEqualGUID(&IID_IOleInPlaceObjectWindowless, riid)) {
1884         TRACE("(%p)->(IID_IOleInPlaceObjectWindowless, %p)\n", This, ppv);
1885         *ppv = &This->IOleInPlaceObjectWindowless_iface;
1886     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
1887         TRACE("(%p)->(IID_IServiceProvider, %p)\n", This, ppv);
1888         *ppv = &This->IServiceProvider_iface;
1889     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
1890         TRACE("(%p)->(IID_IOleCommandTarget, %p)\n", This, ppv);
1891         *ppv = &This->IOleCommandTarget_iface;
1892     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
1893         TRACE("(%p)->(IID_IOleControl, %p)\n", This, ppv);
1894         *ppv = &This->IOleControl_iface;
1895     }else if(IsEqualGUID(&IID_IHlinkTarget, riid)) {
1896         TRACE("(%p)->(IID_IHlinkTarget, %p)\n", This, ppv);
1897         *ppv = &This->IHlinkTarget_iface;
1898     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
1899         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
1900         *ppv = &This->cp_container.IConnectionPointContainer_iface;
1901     }else if(IsEqualGUID(&IID_IPersistStreamInit, riid)) {
1902         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
1903         *ppv = &This->IPersistStreamInit_iface;
1904     }else if(IsEqualGUID(&DIID_DispHTMLDocument, riid)) {
1905         TRACE("(%p)->(DIID_DispHTMLDocument %p)\n", This, ppv);
1906         *ppv = &This->IHTMLDocument2_iface;
1907     }else if(IsEqualGUID(&IID_ISupportErrorInfo, riid)) {
1908         TRACE("(%p)->(IID_ISupportErrorInfo %p)\n", This, ppv);
1909         *ppv = &This->ISupportErrorInfo_iface;
1910     }else if(IsEqualGUID(&IID_IPersistHistory, riid)) {
1911         TRACE("(%p)->(IID_IPersistHistory %p)\n", This, ppv);
1912         *ppv = &This->IPersistHistory_iface;
1913     }else if(IsEqualGUID(&CLSID_CMarkup, riid)) {
1914         FIXME("(%p)->(CLSID_CMarkup %p)\n", This, ppv);
1915         *ppv = NULL;
1916     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
1917         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
1918         *ppv = NULL;
1919     }else if(IsEqualGUID(&IID_IPersistPropertyBag, riid)) {
1920         TRACE("(%p)->(IID_IPersistPropertyBag %p) returning NULL\n", This, ppv);
1921         *ppv = NULL;
1922     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
1923         TRACE("(%p)->(IID_IMarshal %p) returning NULL\n", This, ppv);
1924         *ppv = NULL;
1925     }else if(IsEqualGUID(&IID_IExternalConnection, riid)) {
1926         TRACE("(%p)->(IID_IExternalConnection %p) returning NULL\n", This, ppv);
1927         *ppv = NULL;
1928     }else if(IsEqualGUID(&IID_IStdMarshalInfo, riid)) {
1929         TRACE("(%p)->(IID_IStdMarshalInfo %p) returning NULL\n", This, ppv);
1930         *ppv = NULL;
1931     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
1932         TRACE("(%p)->(IID_IObjectWithSite %p)\n", This, ppv);
1933         *ppv = &This->IObjectWithSite_iface;
1934     }else if(IsEqualGUID(&IID_IOleContainer, riid)) {
1935         TRACE("(%p)->(IID_IOleContainer %p)\n", This, ppv);
1936         *ppv = &This->IOleContainer_iface;
1937     }else if(IsEqualGUID(&IID_IObjectSafety, riid)) {
1938         TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
1939         *ppv = &This->IObjectSafety_iface;
1940     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
1941         TRACE("(%p)->(IID_IProvideClassInfo, %p)\n", This, ppv);
1942         *ppv = &This->IProvideClassInfo_iface;
1943     }else {
1944         return FALSE;
1945     }
1946
1947     if(*ppv)
1948         IUnknown_AddRef((IUnknown*)*ppv);
1949     return TRUE;
1950 }
1951
1952 static cp_static_data_t HTMLDocumentEvents_data = { HTMLDocumentEvents_tid, HTMLDocument_on_advise };
1953
1954 static void init_doc(HTMLDocument *doc, IUnknown *unk_impl, IDispatchEx *dispex)
1955 {
1956     doc->IHTMLDocument2_iface.lpVtbl = &HTMLDocumentVtbl;
1957     doc->IDispatchEx_iface.lpVtbl = &DocDispatchExVtbl;
1958     doc->ISupportErrorInfo_iface.lpVtbl = &SupportErrorInfoVtbl;
1959     doc->IProvideClassInfo_iface.lpVtbl = &ProvideClassInfoVtbl;
1960
1961     doc->unk_impl = unk_impl;
1962     doc->dispex = dispex;
1963     doc->task_magic = get_task_target_magic();
1964
1965     HTMLDocument_HTMLDocument3_Init(doc);
1966     HTMLDocument_HTMLDocument5_Init(doc);
1967     HTMLDocument_Persist_Init(doc);
1968     HTMLDocument_OleCmd_Init(doc);
1969     HTMLDocument_OleObj_Init(doc);
1970     HTMLDocument_View_Init(doc);
1971     HTMLDocument_Window_Init(doc);
1972     HTMLDocument_Service_Init(doc);
1973     HTMLDocument_Hlink_Init(doc);
1974
1975     ConnectionPointContainer_Init(&doc->cp_container, (IUnknown*)&doc->IHTMLDocument2_iface);
1976     ConnectionPoint_Init(&doc->cp_dispatch, &doc->cp_container, &IID_IDispatch, &HTMLDocumentEvents_data);
1977     ConnectionPoint_Init(&doc->cp_propnotif, &doc->cp_container, &IID_IPropertyNotifySink, NULL);
1978     ConnectionPoint_Init(&doc->cp_htmldocevents, &doc->cp_container, &DIID_HTMLDocumentEvents, &HTMLDocumentEvents_data);
1979     ConnectionPoint_Init(&doc->cp_htmldocevents2, &doc->cp_container, &DIID_HTMLDocumentEvents2, NULL);
1980 }
1981
1982 static void destroy_htmldoc(HTMLDocument *This)
1983 {
1984     remove_target_tasks(This->task_magic);
1985
1986     ConnectionPointContainer_Destroy(&This->cp_container);
1987 }
1988
1989 static inline HTMLDocumentNode *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
1990 {
1991     return CONTAINING_RECORD(iface, HTMLDocumentNode, node);
1992 }
1993
1994 static HRESULT HTMLDocumentNode_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
1995 {
1996     HTMLDocumentNode *This = impl_from_HTMLDOMNode(iface);
1997
1998     if(htmldoc_qi(&This->basedoc, riid, ppv))
1999         return *ppv ? S_OK : E_NOINTERFACE;
2000
2001     if(IsEqualGUID(&IID_IInternetHostSecurityManager, riid)) {
2002         TRACE("(%p)->(IID_IInternetHostSecurityManager %p)\n", This, ppv);
2003         *ppv = &This->IInternetHostSecurityManager_iface;
2004     }else {
2005         return HTMLDOMNode_QI(&This->node, riid, ppv);
2006     }
2007
2008     IUnknown_AddRef((IUnknown*)*ppv);
2009     return S_OK;
2010 }
2011
2012 static void HTMLDocumentNode_destructor(HTMLDOMNode *iface)
2013 {
2014     HTMLDocumentNode *This = impl_from_HTMLDOMNode(iface);
2015     unsigned i;
2016
2017     for(i=0; i < This->elem_vars_cnt; i++)
2018         heap_free(This->elem_vars[i]);
2019     heap_free(This->elem_vars);
2020
2021     if(This->body_event_target)
2022         release_event_target(This->body_event_target);
2023     if(This->nsevent_listener)
2024         release_nsevents(This);
2025     if(This->catmgr)
2026         ICatInformation_Release(This->catmgr);
2027
2028     detach_selection(This);
2029     detach_ranges(This);
2030     release_nodes(This);
2031
2032     while(!list_empty(&This->plugin_hosts))
2033         detach_plugin_host(LIST_ENTRY(list_head(&This->plugin_hosts), PluginHost, entry));
2034
2035     if(This->nsdoc) {
2036         release_document_mutation(This);
2037         nsIDOMHTMLDocument_Release(This->nsdoc);
2038     }
2039
2040     heap_free(This->event_vector);
2041     destroy_htmldoc(&This->basedoc);
2042 }
2043
2044 static HRESULT HTMLDocumentNode_clone(HTMLDOMNode *iface, nsIDOMNode *nsnode, HTMLDOMNode **ret)
2045 {
2046     HTMLDocumentNode *This = impl_from_HTMLDOMNode(iface);
2047     FIXME("%p\n", This);
2048     return E_NOTIMPL;
2049 }
2050
2051 static const NodeImplVtbl HTMLDocumentNodeImplVtbl = {
2052     HTMLDocumentNode_QI,
2053     HTMLDocumentNode_destructor,
2054     HTMLDocumentNode_clone
2055 };
2056
2057 static HRESULT HTMLDocumentFragment_clone(HTMLDOMNode *iface, nsIDOMNode *nsnode, HTMLDOMNode **ret)
2058 {
2059     HTMLDocumentNode *This = impl_from_HTMLDOMNode(iface);
2060     HTMLDocumentNode *new_node;
2061     HRESULT hres;
2062
2063     hres = create_document_fragment(nsnode, This->node.doc, &new_node);
2064     if(FAILED(hres))
2065         return hres;
2066
2067     *ret = &new_node->node;
2068     return S_OK;
2069 }
2070
2071 static inline HTMLDocumentNode *impl_from_DispatchEx(DispatchEx *iface)
2072 {
2073     return CONTAINING_RECORD(iface, HTMLDocumentNode, node.dispex);
2074 }
2075
2076 static HRESULT HTMLDocumentNode_invoke(DispatchEx *dispex, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
2077         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
2078 {
2079     HTMLDocumentNode *This = impl_from_DispatchEx(dispex);
2080     nsIDOMNodeList *node_list;
2081     nsAString name_str;
2082     nsIDOMNode *nsnode;
2083     HTMLDOMNode *node;
2084     unsigned i;
2085     nsresult nsres;
2086     HRESULT hres;
2087
2088     if(flags != DISPATCH_PROPERTYGET) {
2089         FIXME("unsupported flags %x\n", flags);
2090         return E_NOTIMPL;
2091     }
2092
2093     i = id - MSHTML_DISPID_CUSTOM_MIN;
2094
2095     if(!This->nsdoc || i >= This->elem_vars_cnt)
2096         return DISP_E_UNKNOWNNAME;
2097
2098     nsAString_InitDepend(&name_str, This->elem_vars[i]);
2099     nsres = nsIDOMHTMLDocument_GetElementsByName(This->nsdoc, &name_str, &node_list);
2100     nsAString_Finish(&name_str);
2101     if(NS_FAILED(nsres))
2102         return E_FAIL;
2103
2104     nsres = nsIDOMNodeList_Item(node_list, 0, &nsnode);
2105     nsIDOMNodeList_Release(node_list);
2106     if(NS_FAILED(nsres) || !nsnode)
2107         return DISP_E_UNKNOWNNAME;
2108
2109     hres = get_node(This, nsnode, TRUE, &node);
2110     if(FAILED(hres))
2111         return hres;
2112
2113     IHTMLDOMNode_AddRef(&node->IHTMLDOMNode_iface);
2114     V_VT(res) = VT_DISPATCH;
2115     V_DISPATCH(res) = (IDispatch*)&node->IHTMLDOMNode_iface;
2116     return S_OK;
2117 }
2118
2119
2120 static const dispex_static_data_vtbl_t HTMLDocumentNode_dispex_vtbl = {
2121     NULL,
2122     NULL,
2123     HTMLDocumentNode_invoke
2124 };
2125
2126 static const NodeImplVtbl HTMLDocumentFragmentImplVtbl = {
2127     HTMLDocumentNode_QI,
2128     HTMLDocumentNode_destructor,
2129     HTMLDocumentFragment_clone
2130 };
2131
2132 static const tid_t HTMLDocumentNode_iface_tids[] = {
2133     IHTMLDOMNode_tid,
2134     IHTMLDOMNode2_tid,
2135     IHTMLDocument2_tid,
2136     IHTMLDocument3_tid,
2137     IHTMLDocument4_tid,
2138     IHTMLDocument5_tid,
2139     0
2140 };
2141
2142 static dispex_static_data_t HTMLDocumentNode_dispex = {
2143     &HTMLDocumentNode_dispex_vtbl,
2144     DispHTMLDocument_tid,
2145     NULL,
2146     HTMLDocumentNode_iface_tids
2147 };
2148
2149 static HTMLDocumentNode *alloc_doc_node(HTMLDocumentObj *doc_obj, HTMLWindow *window)
2150 {
2151     HTMLDocumentNode *doc;
2152
2153     doc = heap_alloc_zero(sizeof(HTMLDocumentNode));
2154     if(!doc)
2155         return NULL;
2156
2157     doc->ref = 1;
2158     doc->basedoc.doc_node = doc;
2159     doc->basedoc.doc_obj = doc_obj;
2160     doc->basedoc.window = window;
2161
2162     init_dispex(&doc->node.dispex, (IUnknown*)&doc->node.IHTMLDOMNode_iface,
2163             &HTMLDocumentNode_dispex);
2164     init_doc(&doc->basedoc, (IUnknown*)&doc->node.IHTMLDOMNode_iface,
2165             &doc->node.dispex.IDispatchEx_iface);
2166     HTMLDocumentNode_SecMgr_Init(doc);
2167
2168     init_nsevents(doc);
2169
2170     list_init(&doc->bindings);
2171     list_init(&doc->selection_list);
2172     list_init(&doc->range_list);
2173     list_init(&doc->plugin_hosts);
2174
2175     return doc;
2176 }
2177
2178 HRESULT create_doc_from_nsdoc(nsIDOMHTMLDocument *nsdoc, HTMLDocumentObj *doc_obj, HTMLWindow *window, HTMLDocumentNode **ret)
2179 {
2180     HTMLDocumentNode *doc;
2181
2182     doc = alloc_doc_node(doc_obj, window);
2183     if(!doc)
2184         return E_OUTOFMEMORY;
2185
2186     if(!doc_obj->basedoc.window || window == doc_obj->basedoc.window)
2187         doc->basedoc.cp_container.forward_container = &doc_obj->basedoc.cp_container;
2188
2189     nsIDOMHTMLDocument_AddRef(nsdoc);
2190     doc->nsdoc = nsdoc;
2191     init_document_mutation(doc);
2192
2193     HTMLDOMNode_Init(doc, &doc->node, (nsIDOMNode*)nsdoc);
2194     doc->node.vtbl = &HTMLDocumentNodeImplVtbl;
2195     doc->node.cp_container = &doc->basedoc.cp_container;
2196
2197     *ret = doc;
2198     return S_OK;
2199 }
2200
2201 HRESULT create_document_fragment(nsIDOMNode *nsnode, HTMLDocumentNode *doc_node, HTMLDocumentNode **ret)
2202 {
2203     HTMLDocumentNode *doc_frag;
2204
2205     doc_frag = alloc_doc_node(doc_node->basedoc.doc_obj, doc_node->basedoc.window);
2206     if(!doc_frag)
2207         return E_OUTOFMEMORY;
2208
2209     HTMLDOMNode_Init(doc_node, &doc_frag->node, nsnode);
2210     doc_frag->node.vtbl = &HTMLDocumentFragmentImplVtbl;
2211     doc_frag->node.cp_container = &doc_frag->basedoc.cp_container;
2212
2213     htmldoc_addref(&doc_frag->basedoc);
2214     *ret = doc_frag;
2215     return S_OK;
2216 }
2217
2218 /**********************************************************
2219  * ICustomDoc implementation
2220  */
2221
2222 static inline HTMLDocumentObj *impl_from_ICustomDoc(ICustomDoc *iface)
2223 {
2224     return CONTAINING_RECORD(iface, HTMLDocumentObj, ICustomDoc_iface);
2225 }
2226
2227 static HRESULT WINAPI CustomDoc_QueryInterface(ICustomDoc *iface, REFIID riid, void **ppv)
2228 {
2229     HTMLDocumentObj *This = impl_from_ICustomDoc(iface);
2230
2231     if(htmldoc_qi(&This->basedoc, riid, ppv))
2232         return *ppv ? S_OK : E_NOINTERFACE;
2233
2234     if(IsEqualGUID(&IID_ICustomDoc, riid)) {
2235         TRACE("(%p)->(IID_ICustomDoc %p)\n", This, ppv);
2236         *ppv = &This->ICustomDoc_iface;
2237     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
2238         return *ppv ? S_OK : E_NOINTERFACE;
2239     }else {
2240         FIXME("Unimplemented interface %s\n", debugstr_guid(riid));
2241         *ppv = NULL;
2242         return E_NOINTERFACE;
2243     }
2244
2245     IUnknown_AddRef((IUnknown*)*ppv);
2246     return S_OK;
2247 }
2248
2249 static ULONG WINAPI CustomDoc_AddRef(ICustomDoc *iface)
2250 {
2251     HTMLDocumentObj *This = impl_from_ICustomDoc(iface);
2252     ULONG ref = InterlockedIncrement(&This->ref);
2253
2254     TRACE("(%p) ref = %u\n", This, ref);
2255
2256     return ref;
2257 }
2258
2259 static ULONG WINAPI CustomDoc_Release(ICustomDoc *iface)
2260 {
2261     HTMLDocumentObj *This = impl_from_ICustomDoc(iface);
2262     ULONG ref = InterlockedDecrement(&This->ref);
2263
2264     TRACE("(%p) ref = %u\n", This, ref);
2265
2266     if(!ref) {
2267         if(This->basedoc.doc_node) {
2268             This->basedoc.doc_node->basedoc.doc_obj = NULL;
2269             htmldoc_release(&This->basedoc.doc_node->basedoc);
2270         }
2271         if(This->basedoc.window) {
2272             This->basedoc.window->doc_obj = NULL;
2273             IHTMLWindow2_Release(&This->basedoc.window->IHTMLWindow2_iface);
2274         }
2275         if(This->basedoc.advise_holder)
2276             IOleAdviseHolder_Release(This->basedoc.advise_holder);
2277
2278         if(This->view_sink)
2279             IAdviseSink_Release(This->view_sink);
2280         if(This->client)
2281             IOleObject_SetClientSite(&This->basedoc.IOleObject_iface, NULL);
2282         if(This->hostui)
2283             ICustomDoc_SetUIHandler(&This->ICustomDoc_iface, NULL);
2284         if(This->in_place_active)
2285             IOleInPlaceObjectWindowless_InPlaceDeactivate(&This->basedoc.IOleInPlaceObjectWindowless_iface);
2286         if(This->ipsite)
2287             IOleDocumentView_SetInPlaceSite(&This->basedoc.IOleDocumentView_iface, NULL);
2288         if(This->undomgr)
2289             IOleUndoManager_Release(This->undomgr);
2290         if(This->tooltips_hwnd)
2291             DestroyWindow(This->tooltips_hwnd);
2292
2293         if(This->hwnd)
2294             DestroyWindow(This->hwnd);
2295         heap_free(This->mime);
2296
2297         destroy_htmldoc(&This->basedoc);
2298         release_dispex(&This->dispex);
2299
2300         if(This->nscontainer)
2301             NSContainer_Release(This->nscontainer);
2302         heap_free(This);
2303     }
2304
2305     return ref;
2306 }
2307
2308 static HRESULT WINAPI CustomDoc_SetUIHandler(ICustomDoc *iface, IDocHostUIHandler *pUIHandler)
2309 {
2310     HTMLDocumentObj *This = impl_from_ICustomDoc(iface);
2311     IOleCommandTarget *cmdtrg;
2312     HRESULT hres;
2313
2314     TRACE("(%p)->(%p)\n", This, pUIHandler);
2315
2316     if(This->custom_hostui && This->hostui == pUIHandler)
2317         return S_OK;
2318
2319     This->custom_hostui = TRUE;
2320
2321     if(This->hostui)
2322         IDocHostUIHandler_Release(This->hostui);
2323     if(pUIHandler)
2324         IDocHostUIHandler_AddRef(pUIHandler);
2325     This->hostui = pUIHandler;
2326     if(!pUIHandler)
2327         return S_OK;
2328
2329     hres = IDocHostUIHandler_QueryInterface(pUIHandler, &IID_IOleCommandTarget, (void**)&cmdtrg);
2330     if(SUCCEEDED(hres)) {
2331         FIXME("custom UI handler supports IOleCommandTarget\n");
2332         IOleCommandTarget_Release(cmdtrg);
2333     }
2334
2335     return S_OK;
2336 }
2337
2338 static const ICustomDocVtbl CustomDocVtbl = {
2339     CustomDoc_QueryInterface,
2340     CustomDoc_AddRef,
2341     CustomDoc_Release,
2342     CustomDoc_SetUIHandler
2343 };
2344
2345 static const tid_t HTMLDocumentObj_iface_tids[] = {
2346     IHTMLDocument2_tid,
2347     IHTMLDocument3_tid,
2348     IHTMLDocument4_tid,
2349     IHTMLDocument5_tid,
2350     0
2351 };
2352 static dispex_static_data_t HTMLDocumentObj_dispex = {
2353     NULL,
2354     DispHTMLDocument_tid,
2355     NULL,
2356     HTMLDocumentObj_iface_tids
2357 };
2358
2359 HRESULT HTMLDocument_Create(IUnknown *pUnkOuter, REFIID riid, void** ppvObject)
2360 {
2361     HTMLDocumentObj *doc;
2362     nsIDOMWindow *nswindow = NULL;
2363     nsresult nsres;
2364     HRESULT hres;
2365
2366     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppvObject);
2367
2368     doc = heap_alloc_zero(sizeof(HTMLDocumentObj));
2369     if(!doc)
2370         return E_OUTOFMEMORY;
2371
2372     init_dispex(&doc->dispex, (IUnknown*)&doc->ICustomDoc_iface, &HTMLDocumentObj_dispex);
2373     init_doc(&doc->basedoc, (IUnknown*)&doc->ICustomDoc_iface, &doc->dispex.IDispatchEx_iface);
2374
2375     doc->ICustomDoc_iface.lpVtbl = &CustomDocVtbl;
2376     doc->ref = 1;
2377     doc->basedoc.doc_obj = doc;
2378
2379     doc->usermode = UNKNOWN_USERMODE;
2380
2381     doc->nscontainer = NSContainer_Create(doc, NULL);
2382     if(!doc->nscontainer) {
2383         ERR("Failed to init Gecko, returning CLASS_E_CLASSNOTAVAILABLE\n");
2384         htmldoc_release(&doc->basedoc);
2385         return CLASS_E_CLASSNOTAVAILABLE;
2386     }
2387
2388     hres = htmldoc_query_interface(&doc->basedoc, riid, ppvObject);
2389     htmldoc_release(&doc->basedoc);
2390     if(FAILED(hres))
2391         return hres;
2392
2393
2394     nsres = nsIWebBrowser_GetContentDOMWindow(doc->nscontainer->webbrowser, &nswindow);
2395     if(NS_FAILED(nsres))
2396         ERR("GetContentDOMWindow failed: %08x\n", nsres);
2397
2398     hres = HTMLWindow_Create(doc, nswindow, NULL /* FIXME */, &doc->basedoc.window);
2399     if(nswindow)
2400         nsIDOMWindow_Release(nswindow);
2401     if(FAILED(hres)) {
2402         htmldoc_release(&doc->basedoc);
2403         return hres;
2404     }
2405
2406     if(!doc->basedoc.doc_node && doc->basedoc.window->doc) {
2407         doc->basedoc.doc_node = doc->basedoc.window->doc;
2408         htmldoc_addref(&doc->basedoc.doc_node->basedoc);
2409     }
2410
2411     get_thread_hwnd();
2412
2413     return S_OK;
2414 }