mshtml: Added IDispatchEx support to HTMLInputElement.
[wine] / dlls / mshtml / htmlbody.c
1 /*
2  * Copyright 2006 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 <stdarg.h>
20 #include <stdio.h>
21
22 #define COBJMACROS
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
28
29 #include "wine/debug.h"
30
31 #include "mshtml_private.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
34
35 typedef struct {
36     HTMLTextContainer textcont;
37
38     const IHTMLBodyElementVtbl *lpHTMLBodyElementVtbl;
39
40     ConnectionPoint cp_propnotif;
41
42     nsIDOMHTMLBodyElement *nsbody;
43 } HTMLBodyElement;
44
45 #define HTMLBODY(x)  ((IHTMLBodyElement*)  &(x)->lpHTMLBodyElementVtbl)
46
47 static BOOL variant_to_nscolor(const VARIANT *v, nsAString *nsstr)
48 {
49     switch(V_VT(v)) {
50     case VT_BSTR:
51         nsAString_Init(nsstr, V_BSTR(v));
52         return TRUE;
53
54     case VT_I4: {
55         PRUnichar buf[10];
56         static const WCHAR formatW[] = {'#','%','x',0};
57
58         wsprintfW(buf, formatW, V_I4(v));
59         nsAString_Init(nsstr, buf);
60         return TRUE;
61     }
62
63     default:
64         FIXME("invalid vt=%d\n", V_VT(v));
65     }
66
67     return FALSE;
68
69 }
70
71 static void nscolor_to_variant(const nsAString *nsstr, VARIANT *p)
72 {
73     const PRUnichar *color;
74
75     nsAString_GetData(nsstr, &color);
76
77     if(*color == '#') {
78         V_VT(p) = VT_I4;
79         V_I4(p) = strtolW(color+1, NULL, 16);
80     }else {
81         V_VT(p) = VT_BSTR;
82         V_BSTR(p) = SysAllocString(color);
83     }
84 }
85
86 #define HTMLBODY_THIS(iface) DEFINE_THIS(HTMLBodyElement, HTMLBodyElement, iface)
87
88 static HRESULT WINAPI HTMLBodyElement_QueryInterface(IHTMLBodyElement *iface,
89                                                      REFIID riid, void **ppv)
90 {
91     HTMLBodyElement *This = HTMLBODY_THIS(iface);
92
93     return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This->textcont.element.node), riid, ppv);
94 }
95
96 static ULONG WINAPI HTMLBodyElement_AddRef(IHTMLBodyElement *iface)
97 {
98     HTMLBodyElement *This = HTMLBODY_THIS(iface);
99
100     return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This->textcont.element.node));
101 }
102
103 static ULONG WINAPI HTMLBodyElement_Release(IHTMLBodyElement *iface)
104 {
105     HTMLBodyElement *This = HTMLBODY_THIS(iface);
106
107     return IHTMLDOMNode_Release(HTMLDOMNODE(&This->textcont.element.node));
108 }
109
110 static HRESULT WINAPI HTMLBodyElement_GetTypeInfoCount(IHTMLBodyElement *iface, UINT *pctinfo)
111 {
112     HTMLBodyElement *This = HTMLBODY_THIS(iface);
113     FIXME("(%p)->(%p)\n", This, pctinfo);
114     return E_NOTIMPL;
115 }
116
117 static HRESULT WINAPI HTMLBodyElement_GetTypeInfo(IHTMLBodyElement *iface, UINT iTInfo,
118                                               LCID lcid, ITypeInfo **ppTInfo)
119 {
120     HTMLBodyElement *This = HTMLBODY_THIS(iface);
121     FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
122     return E_NOTIMPL;
123 }
124
125 static HRESULT WINAPI HTMLBodyElement_GetIDsOfNames(IHTMLBodyElement *iface, REFIID riid,
126                                                 LPOLESTR *rgszNames, UINT cNames,
127                                                 LCID lcid, DISPID *rgDispId)
128 {
129     HTMLBodyElement *This = HTMLBODY_THIS(iface);
130     FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
131                                         lcid, rgDispId);
132     return E_NOTIMPL;
133 }
134
135 static HRESULT WINAPI HTMLBodyElement_Invoke(IHTMLBodyElement *iface, DISPID dispIdMember,
136                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
137                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
138 {
139     HTMLBodyElement *This = HTMLBODY_THIS(iface);
140     FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
141             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
142     return E_NOTIMPL;
143 }
144
145 static HRESULT WINAPI HTMLBodyElement_put_background(IHTMLBodyElement *iface, BSTR v)
146 {
147     HTMLBodyElement *This = HTMLBODY_THIS(iface);
148     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
149     return E_NOTIMPL;
150 }
151
152 static HRESULT WINAPI HTMLBodyElement_get_background(IHTMLBodyElement *iface, BSTR *p)
153 {
154     HTMLBodyElement *This = HTMLBODY_THIS(iface);
155     nsAString background_str;
156     nsresult nsres;
157
158     TRACE("(%p)->(%p)\n", This, p);
159
160     nsAString_Init(&background_str, NULL);
161
162     nsres = nsIDOMHTMLBodyElement_GetBackground(This->nsbody, &background_str);
163     if(NS_SUCCEEDED(nsres)) {
164         const PRUnichar *background;
165         nsAString_GetData(&background_str, &background);
166         *p = *background ? SysAllocString(background) : NULL;
167     }else {
168         ERR("GetBackground failed: %08x\n", nsres);
169         *p = NULL;
170     }
171
172     nsAString_Finish(&background_str);
173
174     TRACE("*p = %s\n", debugstr_w(*p));
175     return S_OK;
176 }
177
178 static HRESULT WINAPI HTMLBodyElement_put_bgProperties(IHTMLBodyElement *iface, BSTR v)
179 {
180     HTMLBodyElement *This = HTMLBODY_THIS(iface);
181     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
182     return E_NOTIMPL;
183 }
184
185 static HRESULT WINAPI HTMLBodyElement_get_bgProperties(IHTMLBodyElement *iface, BSTR *p)
186 {
187     HTMLBodyElement *This = HTMLBODY_THIS(iface);
188     FIXME("(%p)->(%p)\n", This, p);
189     return E_NOTIMPL;
190 }
191
192 static HRESULT WINAPI HTMLBodyElement_put_leftMargin(IHTMLBodyElement *iface, VARIANT v)
193 {
194     HTMLBodyElement *This = HTMLBODY_THIS(iface);
195     FIXME("(%p)->()\n", This);
196     return E_NOTIMPL;
197 }
198
199 static HRESULT WINAPI HTMLBodyElement_get_leftMargin(IHTMLBodyElement *iface, VARIANT *p)
200 {
201     HTMLBodyElement *This = HTMLBODY_THIS(iface);
202     FIXME("(%p)->(%p)\n", This, p);
203     return E_NOTIMPL;
204 }
205
206 static HRESULT WINAPI HTMLBodyElement_put_topMargin(IHTMLBodyElement *iface, VARIANT v)
207 {
208     HTMLBodyElement *This = HTMLBODY_THIS(iface);
209     FIXME("(%p)->()\n", This);
210     return E_NOTIMPL;
211 }
212
213 static HRESULT WINAPI HTMLBodyElement_get_topMargin(IHTMLBodyElement *iface, VARIANT *p)
214 {
215     HTMLBodyElement *This = HTMLBODY_THIS(iface);
216     FIXME("(%p)->(%p)\n", This, p);
217     return E_NOTIMPL;
218 }
219
220 static HRESULT WINAPI HTMLBodyElement_put_rightMargin(IHTMLBodyElement *iface, VARIANT v)
221 {
222     HTMLBodyElement *This = HTMLBODY_THIS(iface);
223     FIXME("(%p)->()\n", This);
224     return E_NOTIMPL;
225 }
226
227 static HRESULT WINAPI HTMLBodyElement_get_rightMargin(IHTMLBodyElement *iface, VARIANT *p)
228 {
229     HTMLBodyElement *This = HTMLBODY_THIS(iface);
230     FIXME("(%p)->(%p)\n", This, p);
231     return E_NOTIMPL;
232 }
233
234 static HRESULT WINAPI HTMLBodyElement_put_bottomMargin(IHTMLBodyElement *iface, VARIANT v)
235 {
236     HTMLBodyElement *This = HTMLBODY_THIS(iface);
237     FIXME("(%p)->()\n", This);
238     return E_NOTIMPL;
239 }
240
241 static HRESULT WINAPI HTMLBodyElement_get_bottomMargin(IHTMLBodyElement *iface, VARIANT *p)
242 {
243     HTMLBodyElement *This = HTMLBODY_THIS(iface);
244     FIXME("(%p)->(%p)\n", This, p);
245     return E_NOTIMPL;
246 }
247
248 static HRESULT WINAPI HTMLBodyElement_put_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL v)
249 {
250     HTMLBodyElement *This = HTMLBODY_THIS(iface);
251     FIXME("(%p)->(%x)\n", This, v);
252     return E_NOTIMPL;
253 }
254
255 static HRESULT WINAPI HTMLBodyElement_get_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL *p)
256 {
257     HTMLBodyElement *This = HTMLBODY_THIS(iface);
258     FIXME("(%p)->(%p)\n", This, p);
259     return E_NOTIMPL;
260 }
261
262 static HRESULT WINAPI HTMLBodyElement_put_bgColor(IHTMLBodyElement *iface, VARIANT v)
263 {
264     HTMLBodyElement *This = HTMLBODY_THIS(iface);
265     FIXME("(%p)->()\n", This);
266     return E_NOTIMPL;
267 }
268
269 static HRESULT WINAPI HTMLBodyElement_get_bgColor(IHTMLBodyElement *iface, VARIANT *p)
270 {
271     HTMLBodyElement *This = HTMLBODY_THIS(iface);
272     FIXME("(%p)->(%p)\n", This, p);
273     return E_NOTIMPL;
274 }
275
276 static HRESULT WINAPI HTMLBodyElement_put_text(IHTMLBodyElement *iface, VARIANT v)
277 {
278     HTMLBodyElement *This = HTMLBODY_THIS(iface);
279     FIXME("(%p)->()\n", This);
280     return E_NOTIMPL;
281 }
282
283 static HRESULT WINAPI HTMLBodyElement_get_text(IHTMLBodyElement *iface, VARIANT *p)
284 {
285     HTMLBodyElement *This = HTMLBODY_THIS(iface);
286     FIXME("(%p)->(%p)\n", This, p);
287     return E_NOTIMPL;
288 }
289
290 static HRESULT WINAPI HTMLBodyElement_put_link(IHTMLBodyElement *iface, VARIANT v)
291 {
292     HTMLBodyElement *This = HTMLBODY_THIS(iface);
293     nsAString link_str;
294     nsresult nsres;
295
296     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
297
298     if(!variant_to_nscolor(&v, &link_str))
299         return S_OK;
300
301     nsres = nsIDOMHTMLBodyElement_SetLink(This->nsbody, &link_str);
302     nsAString_Finish(&link_str);
303     if(NS_FAILED(nsres))
304         ERR("SetLink failed: %08x\n", nsres);
305
306     return S_OK;
307 }
308
309 static HRESULT WINAPI HTMLBodyElement_get_link(IHTMLBodyElement *iface, VARIANT *p)
310 {
311     HTMLBodyElement *This = HTMLBODY_THIS(iface);
312     nsAString link_str;
313     nsresult nsres;
314
315     TRACE("(%p)->(%p)\n", This, p);
316
317     nsAString_Init(&link_str, NULL);
318     nsres = nsIDOMHTMLBodyElement_GetLink(This->nsbody, &link_str);
319     if(NS_FAILED(nsres))
320         ERR("GetLink failed: %08x\n", nsres);
321
322     nscolor_to_variant(&link_str, p);
323     nsAString_Finish(&link_str);
324
325     return S_OK;
326 }
327
328 static HRESULT WINAPI HTMLBodyElement_put_vLink(IHTMLBodyElement *iface, VARIANT v)
329 {
330     HTMLBodyElement *This = HTMLBODY_THIS(iface);
331     nsAString vlink_str;
332     nsresult nsres;
333
334     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
335
336     if(!variant_to_nscolor(&v, &vlink_str))
337         return S_OK;
338
339     nsres = nsIDOMHTMLBodyElement_SetVLink(This->nsbody, &vlink_str);
340     nsAString_Finish(&vlink_str);
341     if(NS_FAILED(nsres))
342         ERR("SetLink failed: %08x\n", nsres);
343
344     return S_OK;
345 }
346
347 static HRESULT WINAPI HTMLBodyElement_get_vLink(IHTMLBodyElement *iface, VARIANT *p)
348 {
349     HTMLBodyElement *This = HTMLBODY_THIS(iface);
350     nsAString vlink_str;
351     nsresult nsres;
352
353     TRACE("(%p)->(%p)\n", This, p);
354
355     nsAString_Init(&vlink_str, NULL);
356     nsres = nsIDOMHTMLBodyElement_GetVLink(This->nsbody, &vlink_str);
357     if(NS_FAILED(nsres))
358         ERR("GetLink failed: %08x\n", nsres);
359
360     nscolor_to_variant(&vlink_str, p);
361     nsAString_Finish(&vlink_str);
362
363     return S_OK;
364 }
365
366 static HRESULT WINAPI HTMLBodyElement_put_aLink(IHTMLBodyElement *iface, VARIANT v)
367 {
368     HTMLBodyElement *This = HTMLBODY_THIS(iface);
369     nsAString alink_str;
370     nsresult nsres;
371
372     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
373
374     if(!variant_to_nscolor(&v, &alink_str))
375         return S_OK;
376
377     nsres = nsIDOMHTMLBodyElement_SetALink(This->nsbody, &alink_str);
378     nsAString_Finish(&alink_str);
379     if(NS_FAILED(nsres))
380         ERR("SetALink failed: %08x\n", nsres);
381
382     return S_OK;
383 }
384
385 static HRESULT WINAPI HTMLBodyElement_get_aLink(IHTMLBodyElement *iface, VARIANT *p)
386 {
387     HTMLBodyElement *This = HTMLBODY_THIS(iface);
388     nsAString alink_str;
389     nsresult nsres;
390
391     TRACE("(%p)->(%p)\n", This, p);
392
393     nsAString_Init(&alink_str, NULL);
394     nsres = nsIDOMHTMLBodyElement_GetALink(This->nsbody, &alink_str);
395     if(NS_FAILED(nsres))
396         ERR("GetALink failed: %08x\n", nsres);
397
398     nscolor_to_variant(&alink_str, p);
399     nsAString_Finish(&alink_str);
400
401     return S_OK;
402 }
403
404 static HRESULT WINAPI HTMLBodyElement_put_onload(IHTMLBodyElement *iface, VARIANT v)
405 {
406     HTMLBodyElement *This = HTMLBODY_THIS(iface);
407     FIXME("(%p)->()\n", This);
408     return E_NOTIMPL;
409 }
410
411 static HRESULT WINAPI HTMLBodyElement_get_onload(IHTMLBodyElement *iface, VARIANT *p)
412 {
413     HTMLBodyElement *This = HTMLBODY_THIS(iface);
414     FIXME("(%p)->(%p)\n", This, p);
415     return E_NOTIMPL;
416 }
417
418 static HRESULT WINAPI HTMLBodyElement_put_onunload(IHTMLBodyElement *iface, VARIANT v)
419 {
420     HTMLBodyElement *This = HTMLBODY_THIS(iface);
421     FIXME("(%p)->()\n", This);
422     return E_NOTIMPL;
423 }
424
425 static HRESULT WINAPI HTMLBodyElement_get_onunload(IHTMLBodyElement *iface, VARIANT *p)
426 {
427     HTMLBodyElement *This = HTMLBODY_THIS(iface);
428     FIXME("(%p)->(%p)\n", This, p);
429     return E_NOTIMPL;
430 }
431
432 static HRESULT WINAPI HTMLBodyElement_put_scroll(IHTMLBodyElement *iface, BSTR v)
433 {
434     HTMLBodyElement *This = HTMLBODY_THIS(iface);
435     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
436     return E_NOTIMPL;
437 }
438
439 static HRESULT WINAPI HTMLBodyElement_get_scroll(IHTMLBodyElement *iface, BSTR *p)
440 {
441     HTMLBodyElement *This = HTMLBODY_THIS(iface);
442     FIXME("(%p)->(%p)\n", This, p);
443     return E_NOTIMPL;
444 }
445
446 static HRESULT WINAPI HTMLBodyElement_put_onselect(IHTMLBodyElement *iface, VARIANT v)
447 {
448     HTMLBodyElement *This = HTMLBODY_THIS(iface);
449     FIXME("(%p)->()\n", This);
450     return E_NOTIMPL;
451 }
452
453 static HRESULT WINAPI HTMLBodyElement_get_onselect(IHTMLBodyElement *iface, VARIANT *p)
454 {
455     HTMLBodyElement *This = HTMLBODY_THIS(iface);
456     FIXME("(%p)->(%p)\n", This, p);
457     return E_NOTIMPL;
458 }
459
460 static HRESULT WINAPI HTMLBodyElement_put_onbeforeunload(IHTMLBodyElement *iface, VARIANT v)
461 {
462     HTMLBodyElement *This = HTMLBODY_THIS(iface);
463     FIXME("(%p)->()\n", This);
464     return E_NOTIMPL;
465 }
466
467 static HRESULT WINAPI HTMLBodyElement_get_onbeforeunload(IHTMLBodyElement *iface, VARIANT *p)
468 {
469     HTMLBodyElement *This = HTMLBODY_THIS(iface);
470     FIXME("(%p)->(%p)\n", This, p);
471     return E_NOTIMPL;
472 }
473
474 static HRESULT WINAPI HTMLBodyElement_createTextRange(IHTMLBodyElement *iface, IHTMLTxtRange **range)
475 {
476     HTMLBodyElement *This = HTMLBODY_THIS(iface);
477     nsIDOMRange *nsrange = NULL;
478
479     TRACE("(%p)->(%p)\n", This, range);
480
481     if(This->textcont.element.node.doc->nscontainer) {
482         nsIDOMDocument *nsdoc;
483         nsIDOMDocumentRange *nsdocrange;
484         nsresult nsres;
485
486         nsIWebNavigation_GetDocument(This->textcont.element.node.doc->nscontainer->navigation, &nsdoc);
487         nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentRange, (void**)&nsdocrange);
488         nsIDOMDocument_Release(nsdoc);
489
490         nsres = nsIDOMDocumentRange_CreateRange(nsdocrange, &nsrange);
491         if(NS_SUCCEEDED(nsres)) {
492             nsres = nsIDOMRange_SelectNodeContents(nsrange, This->textcont.element.node.nsnode);
493             if(NS_FAILED(nsres))
494                 ERR("SelectNodeContents failed: %08x\n", nsres);
495         }else {
496             ERR("CreateRange failed: %08x\n", nsres);
497         }
498
499         nsIDOMDocumentRange_Release(nsdocrange);
500     }
501
502     *range = HTMLTxtRange_Create(This->textcont.element.node.doc, nsrange);
503     return S_OK;
504 }
505
506 #undef HTMLBODY_THIS
507
508 static const IHTMLBodyElementVtbl HTMLBodyElementVtbl = {
509     HTMLBodyElement_QueryInterface,
510     HTMLBodyElement_AddRef,
511     HTMLBodyElement_Release,
512     HTMLBodyElement_GetTypeInfoCount,
513     HTMLBodyElement_GetTypeInfo,
514     HTMLBodyElement_GetIDsOfNames,
515     HTMLBodyElement_Invoke,
516     HTMLBodyElement_put_background,
517     HTMLBodyElement_get_background,
518     HTMLBodyElement_put_bgProperties,
519     HTMLBodyElement_get_bgProperties,
520     HTMLBodyElement_put_leftMargin,
521     HTMLBodyElement_get_leftMargin,
522     HTMLBodyElement_put_topMargin,
523     HTMLBodyElement_get_topMargin,
524     HTMLBodyElement_put_rightMargin,
525     HTMLBodyElement_get_rightMargin,
526     HTMLBodyElement_put_bottomMargin,
527     HTMLBodyElement_get_bottomMargin,
528     HTMLBodyElement_put_noWrap,
529     HTMLBodyElement_get_noWrap,
530     HTMLBodyElement_put_bgColor,
531     HTMLBodyElement_get_bgColor,
532     HTMLBodyElement_put_text,
533     HTMLBodyElement_get_text,
534     HTMLBodyElement_put_link,
535     HTMLBodyElement_get_link,
536     HTMLBodyElement_put_vLink,
537     HTMLBodyElement_get_vLink,
538     HTMLBodyElement_put_aLink,
539     HTMLBodyElement_get_aLink,
540     HTMLBodyElement_put_onload,
541     HTMLBodyElement_get_onload,
542     HTMLBodyElement_put_onunload,
543     HTMLBodyElement_get_onunload,
544     HTMLBodyElement_put_scroll,
545     HTMLBodyElement_get_scroll,
546     HTMLBodyElement_put_onselect,
547     HTMLBodyElement_get_onselect,
548     HTMLBodyElement_put_onbeforeunload,
549     HTMLBodyElement_get_onbeforeunload,
550     HTMLBodyElement_createTextRange
551 };
552
553 #define HTMLBODY_NODE_THIS(iface) DEFINE_THIS2(HTMLBodyElement, textcont.element.node, iface)
554
555 static HRESULT HTMLBodyElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
556 {
557     HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
558
559     *ppv = NULL;
560
561     if(IsEqualGUID(&IID_IUnknown, riid)) {
562         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
563         *ppv = HTMLBODY(This);
564     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
565         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
566         *ppv = HTMLBODY(This);
567     }else if(IsEqualGUID(&IID_IHTMLBodyElement, riid)) {
568         TRACE("(%p)->(IID_IHTMLBodyElement %p)\n", This, ppv);
569         *ppv = HTMLBODY(This);
570     }else if(IsEqualGUID(&IID_IHTMLTextContainer, riid)) {
571         TRACE("(%p)->(IID_IHTMLTextContainer %p)\n", &This->textcont, ppv);
572         *ppv = HTMLTEXTCONT(&This->textcont);
573     }
574
575     if(*ppv) {
576         IUnknown_AddRef((IUnknown*)*ppv);
577         return S_OK;
578     }
579
580     return HTMLElement_QI(&This->textcont.element.node, riid, ppv);
581 }
582
583 static void HTMLBodyElement_destructor(HTMLDOMNode *iface)
584 {
585     HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
586
587     nsIDOMHTMLBodyElement_Release(This->nsbody);
588
589     HTMLElement_destructor(&This->textcont.element.node);
590 }
591
592 #undef HTMLBODY_NODE_THIS
593
594 static const NodeImplVtbl HTMLBodyElementImplVtbl = {
595     HTMLBodyElement_QI,
596     HTMLBodyElement_destructor
597 };
598
599 HTMLElement *HTMLBodyElement_Create(nsIDOMHTMLElement *nselem)
600 {
601     HTMLBodyElement *ret = heap_alloc_zero(sizeof(HTMLBodyElement));
602     nsresult nsres;
603
604     TRACE("(%p)->(%p)\n", ret, nselem);
605
606     HTMLTextContainer_Init(&ret->textcont);
607
608     ret->lpHTMLBodyElementVtbl = &HTMLBodyElementVtbl;
609     ret->textcont.element.node.vtbl = &HTMLBodyElementImplVtbl;
610
611     ConnectionPoint_Init(&ret->cp_propnotif, &ret->textcont.element.cp_container, &IID_IPropertyNotifySink);
612
613     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLBodyElement,
614                                              (void**)&ret->nsbody);
615     if(NS_FAILED(nsres))
616         ERR("Could not get nsDOMHTMLBodyElement: %08x\n", nsres);
617
618     return &ret->textcont.element;
619 }