mshtml: Free the right variable (Smatch).
[wine] / dlls / mshtml / htmldoc3.c
1 /*
2  * Copyright 2005 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 "ole2.h"
30
31 #include "wine/debug.h"
32
33 #include "mshtml_private.h"
34 #include "htmlevent.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
37
38 #define HTMLDOC3_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument3, iface)
39
40 static HRESULT WINAPI HTMLDocument3_QueryInterface(IHTMLDocument3 *iface,
41                                                   REFIID riid, void **ppv)
42 {
43     HTMLDocument *This = HTMLDOC3_THIS(iface);
44     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
45 }
46
47 static ULONG WINAPI HTMLDocument3_AddRef(IHTMLDocument3 *iface)
48 {
49     HTMLDocument *This = HTMLDOC3_THIS(iface);
50     return IHTMLDocument2_AddRef(HTMLDOC(This));
51 }
52
53 static ULONG WINAPI HTMLDocument3_Release(IHTMLDocument3 *iface)
54 {
55     HTMLDocument *This = HTMLDOC3_THIS(iface);
56     return IHTMLDocument2_Release(HTMLDOC(This));
57 }
58
59 static HRESULT WINAPI HTMLDocument3_GetTypeInfoCount(IHTMLDocument3 *iface, UINT *pctinfo)
60 {
61     HTMLDocument *This = HTMLDOC3_THIS(iface);
62     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
63 }
64
65 static HRESULT WINAPI HTMLDocument3_GetTypeInfo(IHTMLDocument3 *iface, UINT iTInfo,
66                                                 LCID lcid, ITypeInfo **ppTInfo)
67 {
68     HTMLDocument *This = HTMLDOC3_THIS(iface);
69     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
70 }
71
72 static HRESULT WINAPI HTMLDocument3_GetIDsOfNames(IHTMLDocument3 *iface, REFIID riid,
73                                                 LPOLESTR *rgszNames, UINT cNames,
74                                                 LCID lcid, DISPID *rgDispId)
75 {
76     HTMLDocument *This = HTMLDOC3_THIS(iface);
77     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
78 }
79
80 static HRESULT WINAPI HTMLDocument3_Invoke(IHTMLDocument3 *iface, DISPID dispIdMember,
81                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
82                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
83 {
84     HTMLDocument *This = HTMLDOC3_THIS(iface);
85     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
86             pVarResult, pExcepInfo, puArgErr);
87 }
88
89 static HRESULT WINAPI HTMLDocument3_releaseCapture(IHTMLDocument3 *iface)
90 {
91     HTMLDocument *This = HTMLDOC3_THIS(iface);
92     FIXME("(%p)\n", This);
93     return E_NOTIMPL;
94 }
95
96 static HRESULT WINAPI HTMLDocument3_recalc(IHTMLDocument3 *iface, VARIANT_BOOL fForce)
97 {
98     HTMLDocument *This = HTMLDOC3_THIS(iface);
99     FIXME("(%p)->(%x)\n", This, fForce);
100     return E_NOTIMPL;
101 }
102
103 static HRESULT WINAPI HTMLDocument3_createTextNode(IHTMLDocument3 *iface, BSTR text,
104                                                    IHTMLDOMNode **newTextNode)
105 {
106     HTMLDocument *This = HTMLDOC3_THIS(iface);
107     nsIDOMText *nstext;
108     HTMLDOMNode *node;
109     nsAString text_str;
110     nsresult nsres;
111
112     TRACE("(%p)->(%s %p)\n", This, debugstr_w(text), newTextNode);
113
114     if(!This->doc_node->nsdoc) {
115         WARN("NULL nsdoc\n");
116         return E_UNEXPECTED;
117     }
118
119     nsAString_Init(&text_str, text);
120     nsres = nsIDOMHTMLDocument_CreateTextNode(This->doc_node->nsdoc, &text_str, &nstext);
121     nsAString_Finish(&text_str);
122     if(NS_FAILED(nsres)) {
123         ERR("CreateTextNode failed: %08x\n", nsres);
124         return E_FAIL;
125     }
126
127     node = HTMLDOMTextNode_Create(This->doc_node, (nsIDOMNode*)nstext);
128     nsIDOMElement_Release(nstext);
129
130     *newTextNode = HTMLDOMNODE(node);
131     IHTMLDOMNode_AddRef(HTMLDOMNODE(node));
132     return S_OK;
133 }
134
135 static HRESULT WINAPI HTMLDocument3_get_documentElement(IHTMLDocument3 *iface, IHTMLElement **p)
136 {
137     HTMLDocument *This = HTMLDOC3_THIS(iface);
138     nsIDOMElement *nselem = NULL;
139     HTMLDOMNode *node;
140     nsresult nsres;
141
142     TRACE("(%p)->(%p)\n", This, p);
143
144     if(This->doc_obj->readystate == READYSTATE_UNINITIALIZED) {
145         *p = NULL;
146         return S_OK;
147     }
148
149     if(!This->doc_node->nsdoc) {
150         WARN("NULL nsdoc\n");
151         return E_UNEXPECTED;
152     }
153
154     nsres = nsIDOMHTMLDocument_GetDocumentElement(This->doc_node->nsdoc, &nselem);
155     if(NS_FAILED(nsres)) {
156         ERR("GetDocumentElement failed: %08x\n", nsres);
157         return E_FAIL;
158     }
159
160     if(nselem) {
161         node = get_node(This->doc_node, (nsIDOMNode *)nselem, TRUE);
162         nsIDOMElement_Release(nselem);
163         IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)p);
164     }else {
165         *p = NULL;
166     }
167
168     return S_OK;
169 }
170
171 static HRESULT WINAPI HTMLDocument3_uniqueID(IHTMLDocument3 *iface, BSTR *p)
172 {
173     HTMLDocument *This = HTMLDOC3_THIS(iface);
174     FIXME("(%p)->(%p)\n", This, p);
175     return E_NOTIMPL;
176 }
177
178 static HRESULT WINAPI HTMLDocument3_attachEvent(IHTMLDocument3 *iface, BSTR event,
179                                                 IDispatch* pDisp, VARIANT_BOOL *pfResult)
180 {
181     HTMLDocument *This = HTMLDOC3_THIS(iface);
182
183     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(event), pDisp, pfResult);
184
185     return attach_event(&This->doc_node->node.event_target, This, event, pDisp, pfResult);
186 }
187
188 static HRESULT WINAPI HTMLDocument3_detachEvent(IHTMLDocument3 *iface, BSTR event,
189                                                 IDispatch *pDisp)
190 {
191     HTMLDocument *This = HTMLDOC3_THIS(iface);
192     FIXME("(%p)->(%s %p)\n", This, debugstr_w(event), pDisp);
193     return E_NOTIMPL;
194 }
195
196 static HRESULT WINAPI HTMLDocument3_put_onrowsdelete(IHTMLDocument3 *iface, VARIANT v)
197 {
198     HTMLDocument *This = HTMLDOC3_THIS(iface);
199     FIXME("(%p)->()\n", This);
200     return E_NOTIMPL;
201 }
202
203 static HRESULT WINAPI HTMLDocument3_get_onrowsdelete(IHTMLDocument3 *iface, VARIANT *p)
204 {
205     HTMLDocument *This = HTMLDOC3_THIS(iface);
206     FIXME("(%p)->(%p)\n", This, p);
207     return E_NOTIMPL;
208 }
209
210 static HRESULT WINAPI HTMLDocument3_put_onrowsinserted(IHTMLDocument3 *iface, VARIANT v)
211 {
212     HTMLDocument *This = HTMLDOC3_THIS(iface);
213     FIXME("(%p)->()\n", This);
214     return E_NOTIMPL;
215 }
216
217 static HRESULT WINAPI HTMLDocument3_get_onrowsinserted(IHTMLDocument3 *iface, VARIANT *p)
218 {
219     HTMLDocument *This = HTMLDOC3_THIS(iface);
220     FIXME("(%p)->(%p)\n", This, p);
221     return E_NOTIMPL;
222 }
223
224 static HRESULT WINAPI HTMLDocument3_put_oncellchange(IHTMLDocument3 *iface, VARIANT v)
225 {
226     HTMLDocument *This = HTMLDOC3_THIS(iface);
227     FIXME("(%p)->()\n", This);
228     return E_NOTIMPL;
229 }
230
231 static HRESULT WINAPI HTMLDocument3_get_oncellchange(IHTMLDocument3 *iface, VARIANT *p)
232 {
233     HTMLDocument *This = HTMLDOC3_THIS(iface);
234     FIXME("(%p)->(%p)\n", This, p);
235     return E_NOTIMPL;
236 }
237
238 static HRESULT WINAPI HTMLDocument3_put_ondatasetchanged(IHTMLDocument3 *iface, VARIANT v)
239 {
240     HTMLDocument *This = HTMLDOC3_THIS(iface);
241     FIXME("(%p)->()\n", This);
242     return E_NOTIMPL;
243 }
244
245 static HRESULT WINAPI HTMLDocument3_get_ondatasetchanged(IHTMLDocument3 *iface, VARIANT *p)
246 {
247     HTMLDocument *This = HTMLDOC3_THIS(iface);
248     FIXME("(%p)->(%p)\n", This, p);
249     return E_NOTIMPL;
250 }
251
252 static HRESULT WINAPI HTMLDocument3_put_ondataavailable(IHTMLDocument3 *iface, VARIANT v)
253 {
254     HTMLDocument *This = HTMLDOC3_THIS(iface);
255     FIXME("(%p)->()\n", This);
256     return E_NOTIMPL;
257 }
258
259 static HRESULT WINAPI HTMLDocument3_get_ondataavailable(IHTMLDocument3 *iface, VARIANT *p)
260 {
261     HTMLDocument *This = HTMLDOC3_THIS(iface);
262     FIXME("(%p)->(%p)\n", This, p);
263     return E_NOTIMPL;
264 }
265
266 static HRESULT WINAPI HTMLDocument3_put_ondatasetcomplete(IHTMLDocument3 *iface, VARIANT v)
267 {
268     HTMLDocument *This = HTMLDOC3_THIS(iface);
269     FIXME("(%p)->()\n", This);
270     return E_NOTIMPL;
271 }
272
273 static HRESULT WINAPI HTMLDocument3_get_ondatasetcomplete(IHTMLDocument3 *iface, VARIANT *p)
274 {
275     HTMLDocument *This = HTMLDOC3_THIS(iface);
276     FIXME("(%p)->(%p)\n", This, p);
277     return E_NOTIMPL;
278 }
279
280 static HRESULT WINAPI HTMLDocument3_put_onpropertychange(IHTMLDocument3 *iface, VARIANT v)
281 {
282     HTMLDocument *This = HTMLDOC3_THIS(iface);
283     FIXME("(%p)->()\n", This);
284     return E_NOTIMPL;
285 }
286
287 static HRESULT WINAPI HTMLDocument3_get_onpropertychange(IHTMLDocument3 *iface, VARIANT *p)
288 {
289     HTMLDocument *This = HTMLDOC3_THIS(iface);
290     FIXME("(%p)->(%p)\n", This, p);
291     return E_NOTIMPL;
292 }
293
294 static HRESULT WINAPI HTMLDocument3_put_dir(IHTMLDocument3 *iface, BSTR v)
295 {
296     HTMLDocument *This = HTMLDOC3_THIS(iface);
297     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
298     return E_NOTIMPL;
299 }
300
301 static HRESULT WINAPI HTMLDocument3_get_dir(IHTMLDocument3 *iface, BSTR *p)
302 {
303     HTMLDocument *This = HTMLDOC3_THIS(iface);
304     FIXME("(%p)->(%p)\n", This, p);
305     return E_NOTIMPL;
306 }
307
308 static HRESULT WINAPI HTMLDocument3_put_oncontextmenu(IHTMLDocument3 *iface, VARIANT v)
309 {
310     HTMLDocument *This = HTMLDOC3_THIS(iface);
311     FIXME("(%p)->()\n", This);
312     return E_NOTIMPL;
313 }
314
315 static HRESULT WINAPI HTMLDocument3_get_oncontextmenu(IHTMLDocument3 *iface, VARIANT *p)
316 {
317     HTMLDocument *This = HTMLDOC3_THIS(iface);
318     FIXME("(%p)->(%p)\n", This, p);
319     return E_NOTIMPL;
320 }
321
322 static HRESULT WINAPI HTMLDocument3_put_onstop(IHTMLDocument3 *iface, VARIANT v)
323 {
324     HTMLDocument *This = HTMLDOC3_THIS(iface);
325     FIXME("(%p)->()\n", This);
326     return E_NOTIMPL;
327 }
328
329 static HRESULT WINAPI HTMLDocument3_get_onstop(IHTMLDocument3 *iface, VARIANT *p)
330 {
331     HTMLDocument *This = HTMLDOC3_THIS(iface);
332     FIXME("(%p)->(%p)\n", This, p);
333     return E_NOTIMPL;
334 }
335
336 static HRESULT WINAPI HTMLDocument3_createDocumentFragment(IHTMLDocument3 *iface,
337                                                            IHTMLDocument2 **ppNewDoc)
338 {
339     HTMLDocument *This = HTMLDOC3_THIS(iface);
340     FIXME("(%p)->(%p)\n", This, ppNewDoc);
341     return E_NOTIMPL;
342 }
343
344 static HRESULT WINAPI HTMLDocument3_get_parentDocument(IHTMLDocument3 *iface,
345                                                        IHTMLDocument2 **p)
346 {
347     HTMLDocument *This = HTMLDOC3_THIS(iface);
348     FIXME("(%p)->(%p)\n", This, p);
349     return E_NOTIMPL;
350 }
351
352 static HRESULT WINAPI HTMLDocument3_put_enableDownload(IHTMLDocument3 *iface,
353                                                        VARIANT_BOOL v)
354 {
355     HTMLDocument *This = HTMLDOC3_THIS(iface);
356     FIXME("(%p)->(%x)\n", This, v);
357     return E_NOTIMPL;
358 }
359
360 static HRESULT WINAPI HTMLDocument3_get_enableDownload(IHTMLDocument3 *iface,
361                                                        VARIANT_BOOL *p)
362 {
363     HTMLDocument *This = HTMLDOC3_THIS(iface);
364     FIXME("(%p)->(%p)\n", This, p);
365     return E_NOTIMPL;
366 }
367
368 static HRESULT WINAPI HTMLDocument3_put_baseUrl(IHTMLDocument3 *iface, BSTR v)
369 {
370     HTMLDocument *This = HTMLDOC3_THIS(iface);
371     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
372     return E_NOTIMPL;
373 }
374
375 static HRESULT WINAPI HTMLDocument3_get_baseUrl(IHTMLDocument3 *iface, BSTR *p)
376 {
377     HTMLDocument *This = HTMLDOC3_THIS(iface);
378     FIXME("(%p)->(%p)\n", This, p);
379     return E_NOTIMPL;
380 }
381
382 static HRESULT WINAPI HTMLDocument3_get_childNodes(IHTMLDocument3 *iface, IDispatch **p)
383 {
384     HTMLDocument *This = HTMLDOC3_THIS(iface);
385     FIXME("(%p)->(%p)\n", This, p);
386     return E_NOTIMPL;
387 }
388
389 static HRESULT WINAPI HTMLDocument3_put_inheritStyleSheets(IHTMLDocument3 *iface,
390                                                            VARIANT_BOOL v)
391 {
392     HTMLDocument *This = HTMLDOC3_THIS(iface);
393     FIXME("(%p)->()\n", This);
394     return E_NOTIMPL;
395 }
396
397 static HRESULT WINAPI HTMLDocument3_get_inheritStyleSheets(IHTMLDocument3 *iface,
398                                                            VARIANT_BOOL *p)
399 {
400     HTMLDocument *This = HTMLDOC3_THIS(iface);
401     FIXME("(%p)->(%p)\n", This, p);
402     return E_NOTIMPL;
403 }
404
405 static HRESULT WINAPI HTMLDocument3_put_onbeforeeditfocus(IHTMLDocument3 *iface, VARIANT v)
406 {
407     HTMLDocument *This = HTMLDOC3_THIS(iface);
408     FIXME("(%p)->()\n", This);
409     return E_NOTIMPL;
410 }
411
412 static HRESULT WINAPI HTMLDocument3_get_onbeforeeditfocus(IHTMLDocument3 *iface, VARIANT *p)
413 {
414     HTMLDocument *This = HTMLDOC3_THIS(iface);
415     FIXME("(%p)->(%p)\n", This, p);
416     return E_NOTIMPL;
417 }
418
419 static HRESULT WINAPI HTMLDocument3_getElementsByName(IHTMLDocument3 *iface, BSTR v,
420                                                       IHTMLElementCollection **ppelColl)
421 {
422     HTMLDocument *This = HTMLDOC3_THIS(iface);
423     FIXME("(%p)->(%s %p)\n", This, debugstr_w(v), ppelColl);
424     return E_NOTIMPL;
425 }
426
427
428 static HRESULT WINAPI HTMLDocument3_getElementById(IHTMLDocument3 *iface, BSTR v,
429                                                    IHTMLElement **pel)
430 {
431     HTMLDocument *This = HTMLDOC3_THIS(iface);
432     nsIDOMElement *nselem;
433     HTMLDOMNode *node;
434     nsAString id_str;
435     nsresult nsres;
436
437     TRACE("(%p)->(%s %p)\n", This, debugstr_w(v), pel);
438
439     if(!This->doc_node->nsdoc) {
440         WARN("NULL nsdoc\n");
441         return E_UNEXPECTED;
442     }
443
444     nsAString_Init(&id_str, v);
445     nsres = nsIDOMHTMLDocument_GetElementById(This->doc_node->nsdoc, &id_str, &nselem);
446     nsAString_Finish(&id_str);
447     if(FAILED(nsres)) {
448         ERR("GetElementById failed: %08x\n", nsres);
449         return E_FAIL;
450     }
451
452     if(nselem) {
453         node = get_node(This->doc_node, (nsIDOMNode*)nselem, TRUE);
454         nsIDOMElement_Release(nselem);
455
456         IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)pel);
457     }else {
458         *pel = NULL;
459     }
460
461     return S_OK;
462 }
463
464
465 static HRESULT WINAPI HTMLDocument3_getElementsByTagName(IHTMLDocument3 *iface, BSTR v,
466                                                          IHTMLElementCollection **pelColl)
467 {
468     HTMLDocument *This = HTMLDOC3_THIS(iface);
469     nsIDOMNodeList *nslist;
470     nsAString id_str, ns_str;
471     nsresult nsres;
472     static const WCHAR str[] = {'*',0};
473
474     TRACE("(%p)->(%s %p)\n", This, debugstr_w(v), pelColl);
475
476     if(!This->doc_node->nsdoc) {
477         WARN("NULL nsdoc\n");
478         return E_UNEXPECTED;
479     }
480
481     nsAString_Init(&id_str, v);
482     nsAString_Init(&ns_str, str);
483     nsres = nsIDOMHTMLDocument_GetElementsByTagNameNS(This->doc_node->nsdoc, &ns_str, &id_str, &nslist);
484     nsAString_Finish(&id_str);
485     nsAString_Finish(&ns_str);
486     if(FAILED(nsres)) {
487         ERR("GetElementByName failed: %08x\n", nsres);
488         return E_FAIL;
489     }
490
491     *pelColl = (IHTMLElementCollection*)create_collection_from_nodelist(This->doc_node, (IUnknown*)HTMLDOC3(This), nslist);
492     nsIDOMNodeList_Release(nslist);
493
494     return S_OK;
495 }
496
497 #undef HTMLDOC3_THIS
498
499 static const IHTMLDocument3Vtbl HTMLDocument3Vtbl = {
500     HTMLDocument3_QueryInterface,
501     HTMLDocument3_AddRef,
502     HTMLDocument3_Release,
503     HTMLDocument3_GetTypeInfoCount,
504     HTMLDocument3_GetTypeInfo,
505     HTMLDocument3_GetIDsOfNames,
506     HTMLDocument3_Invoke,
507     HTMLDocument3_releaseCapture,
508     HTMLDocument3_recalc,
509     HTMLDocument3_createTextNode,
510     HTMLDocument3_get_documentElement,
511     HTMLDocument3_uniqueID,
512     HTMLDocument3_attachEvent,
513     HTMLDocument3_detachEvent,
514     HTMLDocument3_put_onrowsdelete,
515     HTMLDocument3_get_onrowsdelete,
516     HTMLDocument3_put_onrowsinserted,
517     HTMLDocument3_get_onrowsinserted,
518     HTMLDocument3_put_oncellchange,
519     HTMLDocument3_get_oncellchange,
520     HTMLDocument3_put_ondatasetchanged,
521     HTMLDocument3_get_ondatasetchanged,
522     HTMLDocument3_put_ondataavailable,
523     HTMLDocument3_get_ondataavailable,
524     HTMLDocument3_put_ondatasetcomplete,
525     HTMLDocument3_get_ondatasetcomplete,
526     HTMLDocument3_put_onpropertychange,
527     HTMLDocument3_get_onpropertychange,
528     HTMLDocument3_put_dir,
529     HTMLDocument3_get_dir,
530     HTMLDocument3_put_oncontextmenu,
531     HTMLDocument3_get_oncontextmenu,
532     HTMLDocument3_put_onstop,
533     HTMLDocument3_get_onstop,
534     HTMLDocument3_createDocumentFragment,
535     HTMLDocument3_get_parentDocument,
536     HTMLDocument3_put_enableDownload,
537     HTMLDocument3_get_enableDownload,
538     HTMLDocument3_put_baseUrl,
539     HTMLDocument3_get_baseUrl,
540     HTMLDocument3_get_childNodes,
541     HTMLDocument3_put_inheritStyleSheets,
542     HTMLDocument3_get_inheritStyleSheets,
543     HTMLDocument3_put_onbeforeeditfocus,
544     HTMLDocument3_get_onbeforeeditfocus,
545     HTMLDocument3_getElementsByName,
546     HTMLDocument3_getElementById,
547     HTMLDocument3_getElementsByTagName
548 };
549
550 #define HTMLDOC4_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument4, iface)
551
552 static HRESULT WINAPI HTMLDocument4_QueryInterface(IHTMLDocument4 *iface,
553                                                    REFIID riid, void **ppv)
554 {
555     HTMLDocument *This = HTMLDOC4_THIS(iface);
556     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
557 }
558
559 static ULONG WINAPI HTMLDocument4_AddRef(IHTMLDocument4 *iface)
560 {
561     HTMLDocument *This = HTMLDOC4_THIS(iface);
562     return IHTMLDocument2_AddRef(HTMLDOC(This));
563 }
564
565 static ULONG WINAPI HTMLDocument4_Release(IHTMLDocument4 *iface)
566 {
567     HTMLDocument *This = HTMLDOC4_THIS(iface);
568     return IHTMLDocument2_Release(HTMLDOC(This));
569 }
570
571 static HRESULT WINAPI HTMLDocument4_GetTypeInfoCount(IHTMLDocument4 *iface, UINT *pctinfo)
572 {
573     HTMLDocument *This = HTMLDOC4_THIS(iface);
574     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
575 }
576
577 static HRESULT WINAPI HTMLDocument4_GetTypeInfo(IHTMLDocument4 *iface, UINT iTInfo,
578                                                 LCID lcid, ITypeInfo **ppTInfo)
579 {
580     HTMLDocument *This = HTMLDOC4_THIS(iface);
581     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
582 }
583
584 static HRESULT WINAPI HTMLDocument4_GetIDsOfNames(IHTMLDocument4 *iface, REFIID riid,
585                                                 LPOLESTR *rgszNames, UINT cNames,
586                                                 LCID lcid, DISPID *rgDispId)
587 {
588     HTMLDocument *This = HTMLDOC4_THIS(iface);
589     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
590 }
591
592 static HRESULT WINAPI HTMLDocument4_Invoke(IHTMLDocument4 *iface, DISPID dispIdMember,
593                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
594                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
595 {
596     HTMLDocument *This = HTMLDOC4_THIS(iface);
597     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
598             pVarResult, pExcepInfo, puArgErr);
599 }
600
601 static HRESULT WINAPI HTMLDocument4_focus(IHTMLDocument4 *iface)
602 {
603     HTMLDocument *This = HTMLDOC4_THIS(iface);
604     nsIDOMNSHTMLElement *nselem;
605     nsIDOMHTMLElement *nsbody;
606     nsresult nsres;
607
608     TRACE("(%p)->()\n", This);
609
610     nsres = nsIDOMHTMLDocument_GetBody(This->doc_node->nsdoc, &nsbody);
611     if(NS_FAILED(nsres) || !nsbody) {
612         ERR("GetBody failed: %08x\n", nsres);
613         return E_FAIL;
614     }
615
616     nsres = nsIDOMHTMLElement_QueryInterface(nsbody, &IID_nsIDOMNSHTMLElement, (void**)&nselem);
617     nsIDOMHTMLElement_Release(nsbody);
618     if(NS_FAILED(nsres)) {
619         ERR("Could not get nsIDOMNSHTMLElement: %08x\n", nsres);
620         return E_FAIL;
621     }
622
623     nsres = nsIDOMNSHTMLElement_focus(nselem);
624     nsIDOMNSHTMLElement_Release(nselem);
625     if(NS_FAILED(nsres)) {
626         ERR("Focus failed: %08x\n", nsres);
627         return E_FAIL;
628     }
629
630     return S_OK;
631 }
632
633 static HRESULT WINAPI HTMLDocument4_hasFocus(IHTMLDocument4 *iface, VARIANT_BOOL *pfFocus)
634 {
635     HTMLDocument *This = HTMLDOC4_THIS(iface);
636     FIXME("(%p)->(%p)\n", This, pfFocus);
637     return E_NOTIMPL;
638 }
639
640 static HRESULT WINAPI HTMLDocument4_put_onselectionchange(IHTMLDocument4 *iface, VARIANT v)
641 {
642     HTMLDocument *This = HTMLDOC4_THIS(iface);
643     FIXME("(%p)->(v)\n", This);
644     return E_NOTIMPL;
645 }
646
647 static HRESULT WINAPI HTMLDocument4_get_onselectionchange(IHTMLDocument4 *iface, VARIANT *p)
648 {
649     HTMLDocument *This = HTMLDOC4_THIS(iface);
650     FIXME("(%p)->(%p)\n", This, p);
651     return E_NOTIMPL;
652 }
653
654 static HRESULT WINAPI HTMLDocument4_get_namespace(IHTMLDocument4 *iface, IDispatch **p)
655 {
656     HTMLDocument *This = HTMLDOC4_THIS(iface);
657     FIXME("(%p)->(%p)\n", This, p);
658     return E_NOTIMPL;
659 }
660
661 static HRESULT WINAPI HTMLDocument4_createDocumentFromUrl(IHTMLDocument4 *iface, BSTR bstrUrl,
662         BSTR bstrOptions, IHTMLDocument2 **newDoc)
663 {
664     HTMLDocument *This = HTMLDOC4_THIS(iface);
665     FIXME("(%p)->(%s %s %p)\n", This, debugstr_w(bstrUrl), debugstr_w(bstrOptions), newDoc);
666     return E_NOTIMPL;
667 }
668
669 static HRESULT WINAPI HTMLDocument4_put_media(IHTMLDocument4 *iface, BSTR v)
670 {
671     HTMLDocument *This = HTMLDOC4_THIS(iface);
672     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
673     return E_NOTIMPL;
674 }
675
676 static HRESULT WINAPI HTMLDocument4_get_media(IHTMLDocument4 *iface, BSTR *p)
677 {
678     HTMLDocument *This = HTMLDOC4_THIS(iface);
679     FIXME("(%p)->(%p)\n", This, p);
680     return E_NOTIMPL;
681 }
682
683 static HRESULT WINAPI HTMLDocument4_createEventObject(IHTMLDocument4 *iface,
684         VARIANT *pvarEventObject, IHTMLEventObj **ppEventObj)
685 {
686     HTMLDocument *This = HTMLDOC4_THIS(iface);
687     FIXME("(%p)->(%p %p)\n", This, pvarEventObject, ppEventObj);
688     return E_NOTIMPL;
689 }
690
691 static HRESULT WINAPI HTMLDocument4_fireEvent(IHTMLDocument4 *iface, BSTR bstrEventName,
692         VARIANT *pvarEventObject, VARIANT_BOOL *pfCanceled)
693 {
694     HTMLDocument *This = HTMLDOC4_THIS(iface);
695     FIXME("(%p)->(%s %p %p)\n", This, debugstr_w(bstrEventName), pvarEventObject, pfCanceled);
696     return E_NOTIMPL;
697 }
698
699 static HRESULT WINAPI HTMLDocument4_createRenderStyle(IHTMLDocument4 *iface, BSTR v,
700         IHTMLRenderStyle **ppIHTMLRenderStyle)
701 {
702     HTMLDocument *This = HTMLDOC4_THIS(iface);
703     FIXME("(%p)->(%s %p)\n", This, debugstr_w(v), ppIHTMLRenderStyle);
704     return E_NOTIMPL;
705 }
706
707 static HRESULT WINAPI HTMLDocument4_put_oncontrolselect(IHTMLDocument4 *iface, VARIANT v)
708 {
709     HTMLDocument *This = HTMLDOC4_THIS(iface);
710     FIXME("(%p)->(v)\n", This);
711     return E_NOTIMPL;
712 }
713
714 static HRESULT WINAPI HTMLDocument4_get_oncontrolselect(IHTMLDocument4 *iface, VARIANT *p)
715 {
716     HTMLDocument *This = HTMLDOC4_THIS(iface);
717     FIXME("(%p)->(%p)\n", This, p);
718     return E_NOTIMPL;
719 }
720
721 static HRESULT WINAPI HTMLDocument4_get_URLEncoded(IHTMLDocument4 *iface, BSTR *p)
722 {
723     HTMLDocument *This = HTMLDOC4_THIS(iface);
724     FIXME("(%p)->(%p)\n", This, p);
725     return E_NOTIMPL;
726 }
727
728 #undef HTMLDOC4_THIS
729
730 static const IHTMLDocument4Vtbl HTMLDocument4Vtbl = {
731     HTMLDocument4_QueryInterface,
732     HTMLDocument4_AddRef,
733     HTMLDocument4_Release,
734     HTMLDocument4_GetTypeInfoCount,
735     HTMLDocument4_GetTypeInfo,
736     HTMLDocument4_GetIDsOfNames,
737     HTMLDocument4_Invoke,
738     HTMLDocument4_focus,
739     HTMLDocument4_hasFocus,
740     HTMLDocument4_put_onselectionchange,
741     HTMLDocument4_get_onselectionchange,
742     HTMLDocument4_get_namespace,
743     HTMLDocument4_createDocumentFromUrl,
744     HTMLDocument4_put_media,
745     HTMLDocument4_get_media,
746     HTMLDocument4_createEventObject,
747     HTMLDocument4_fireEvent,
748     HTMLDocument4_createRenderStyle,
749     HTMLDocument4_put_oncontrolselect,
750     HTMLDocument4_get_oncontrolselect,
751     HTMLDocument4_get_URLEncoded
752 };
753
754 void HTMLDocument_HTMLDocument3_Init(HTMLDocument *This)
755 {
756     This->lpHTMLDocument3Vtbl = &HTMLDocument3Vtbl;
757     This->lpHTMLDocument4Vtbl = &HTMLDocument4Vtbl;
758 }