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