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