mshtml: Implement IDispatch for IHTMLBodyElement.
[wine/wine64.git] / dlls / mshtml / htmlbody.c
blob2d30895d7e7dea402de28c6431df9e610b4ac6a8
1 /*
2 * Copyright 2006 Jacek Caban for CodeWeavers
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.
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.
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
19 #include <stdarg.h>
20 #include <stdio.h>
22 #define COBJMACROS
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
29 #include "wine/debug.h"
31 #include "mshtml_private.h"
33 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
35 typedef struct {
36 HTMLTextContainer textcont;
38 const IHTMLBodyElementVtbl *lpHTMLBodyElementVtbl;
40 ConnectionPoint cp_propnotif;
42 nsIDOMHTMLBodyElement *nsbody;
43 } HTMLBodyElement;
45 #define HTMLBODY(x) ((IHTMLBodyElement*) &(x)->lpHTMLBodyElementVtbl)
47 static BOOL variant_to_nscolor(const VARIANT *v, nsAString *nsstr)
49 switch(V_VT(v)) {
50 case VT_BSTR:
51 nsAString_Init(nsstr, V_BSTR(v));
52 return TRUE;
54 case VT_I4: {
55 PRUnichar buf[10];
56 static const WCHAR formatW[] = {'#','%','x',0};
58 wsprintfW(buf, formatW, V_I4(v));
59 nsAString_Init(nsstr, buf);
60 return TRUE;
63 default:
64 FIXME("invalid vt=%d\n", V_VT(v));
67 return FALSE;
71 static void nscolor_to_variant(const nsAString *nsstr, VARIANT *p)
73 const PRUnichar *color;
75 nsAString_GetData(nsstr, &color);
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);
86 #define HTMLBODY_THIS(iface) DEFINE_THIS(HTMLBodyElement, HTMLBodyElement, iface)
88 static HRESULT WINAPI HTMLBodyElement_QueryInterface(IHTMLBodyElement *iface,
89 REFIID riid, void **ppv)
91 HTMLBodyElement *This = HTMLBODY_THIS(iface);
93 return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This->textcont.element.node), riid, ppv);
96 static ULONG WINAPI HTMLBodyElement_AddRef(IHTMLBodyElement *iface)
98 HTMLBodyElement *This = HTMLBODY_THIS(iface);
100 return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This->textcont.element.node));
103 static ULONG WINAPI HTMLBodyElement_Release(IHTMLBodyElement *iface)
105 HTMLBodyElement *This = HTMLBODY_THIS(iface);
107 return IHTMLDOMNode_Release(HTMLDOMNODE(&This->textcont.element.node));
110 static HRESULT WINAPI HTMLBodyElement_GetTypeInfoCount(IHTMLBodyElement *iface, UINT *pctinfo)
112 HTMLBodyElement *This = HTMLBODY_THIS(iface);
113 return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->textcont.element.node.dispex), pctinfo);
116 static HRESULT WINAPI HTMLBodyElement_GetTypeInfo(IHTMLBodyElement *iface, UINT iTInfo,
117 LCID lcid, ITypeInfo **ppTInfo)
119 HTMLBodyElement *This = HTMLBODY_THIS(iface);
120 return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->textcont.element.node.dispex), iTInfo, lcid, ppTInfo);
123 static HRESULT WINAPI HTMLBodyElement_GetIDsOfNames(IHTMLBodyElement *iface, REFIID riid,
124 LPOLESTR *rgszNames, UINT cNames,
125 LCID lcid, DISPID *rgDispId)
127 HTMLBodyElement *This = HTMLBODY_THIS(iface);
128 return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->textcont.element.node.dispex), riid, rgszNames, cNames, lcid, rgDispId);
131 static HRESULT WINAPI HTMLBodyElement_Invoke(IHTMLBodyElement *iface, DISPID dispIdMember,
132 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
133 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
135 HTMLBodyElement *This = HTMLBODY_THIS(iface);
136 return IDispatchEx_Invoke(DISPATCHEX(&This->textcont.element.node.dispex), dispIdMember, riid, lcid,
137 wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
140 static HRESULT WINAPI HTMLBodyElement_put_background(IHTMLBodyElement *iface, BSTR v)
142 HTMLBodyElement *This = HTMLBODY_THIS(iface);
143 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
144 return E_NOTIMPL;
147 static HRESULT WINAPI HTMLBodyElement_get_background(IHTMLBodyElement *iface, BSTR *p)
149 HTMLBodyElement *This = HTMLBODY_THIS(iface);
150 nsAString background_str;
151 nsresult nsres;
153 TRACE("(%p)->(%p)\n", This, p);
155 nsAString_Init(&background_str, NULL);
157 nsres = nsIDOMHTMLBodyElement_GetBackground(This->nsbody, &background_str);
158 if(NS_SUCCEEDED(nsres)) {
159 const PRUnichar *background;
160 nsAString_GetData(&background_str, &background);
161 *p = *background ? SysAllocString(background) : NULL;
162 }else {
163 ERR("GetBackground failed: %08x\n", nsres);
164 *p = NULL;
167 nsAString_Finish(&background_str);
169 TRACE("*p = %s\n", debugstr_w(*p));
170 return S_OK;
173 static HRESULT WINAPI HTMLBodyElement_put_bgProperties(IHTMLBodyElement *iface, BSTR v)
175 HTMLBodyElement *This = HTMLBODY_THIS(iface);
176 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
177 return E_NOTIMPL;
180 static HRESULT WINAPI HTMLBodyElement_get_bgProperties(IHTMLBodyElement *iface, BSTR *p)
182 HTMLBodyElement *This = HTMLBODY_THIS(iface);
183 FIXME("(%p)->(%p)\n", This, p);
184 return E_NOTIMPL;
187 static HRESULT WINAPI HTMLBodyElement_put_leftMargin(IHTMLBodyElement *iface, VARIANT v)
189 HTMLBodyElement *This = HTMLBODY_THIS(iface);
190 FIXME("(%p)->()\n", This);
191 return E_NOTIMPL;
194 static HRESULT WINAPI HTMLBodyElement_get_leftMargin(IHTMLBodyElement *iface, VARIANT *p)
196 HTMLBodyElement *This = HTMLBODY_THIS(iface);
197 FIXME("(%p)->(%p)\n", This, p);
198 return E_NOTIMPL;
201 static HRESULT WINAPI HTMLBodyElement_put_topMargin(IHTMLBodyElement *iface, VARIANT v)
203 HTMLBodyElement *This = HTMLBODY_THIS(iface);
204 FIXME("(%p)->()\n", This);
205 return E_NOTIMPL;
208 static HRESULT WINAPI HTMLBodyElement_get_topMargin(IHTMLBodyElement *iface, VARIANT *p)
210 HTMLBodyElement *This = HTMLBODY_THIS(iface);
211 FIXME("(%p)->(%p)\n", This, p);
212 return E_NOTIMPL;
215 static HRESULT WINAPI HTMLBodyElement_put_rightMargin(IHTMLBodyElement *iface, VARIANT v)
217 HTMLBodyElement *This = HTMLBODY_THIS(iface);
218 FIXME("(%p)->()\n", This);
219 return E_NOTIMPL;
222 static HRESULT WINAPI HTMLBodyElement_get_rightMargin(IHTMLBodyElement *iface, VARIANT *p)
224 HTMLBodyElement *This = HTMLBODY_THIS(iface);
225 FIXME("(%p)->(%p)\n", This, p);
226 return E_NOTIMPL;
229 static HRESULT WINAPI HTMLBodyElement_put_bottomMargin(IHTMLBodyElement *iface, VARIANT v)
231 HTMLBodyElement *This = HTMLBODY_THIS(iface);
232 FIXME("(%p)->()\n", This);
233 return E_NOTIMPL;
236 static HRESULT WINAPI HTMLBodyElement_get_bottomMargin(IHTMLBodyElement *iface, VARIANT *p)
238 HTMLBodyElement *This = HTMLBODY_THIS(iface);
239 FIXME("(%p)->(%p)\n", This, p);
240 return E_NOTIMPL;
243 static HRESULT WINAPI HTMLBodyElement_put_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL v)
245 HTMLBodyElement *This = HTMLBODY_THIS(iface);
246 FIXME("(%p)->(%x)\n", This, v);
247 return E_NOTIMPL;
250 static HRESULT WINAPI HTMLBodyElement_get_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL *p)
252 HTMLBodyElement *This = HTMLBODY_THIS(iface);
253 FIXME("(%p)->(%p)\n", This, p);
254 return E_NOTIMPL;
257 static HRESULT WINAPI HTMLBodyElement_put_bgColor(IHTMLBodyElement *iface, VARIANT v)
259 HTMLBodyElement *This = HTMLBODY_THIS(iface);
260 FIXME("(%p)->()\n", This);
261 return E_NOTIMPL;
264 static HRESULT WINAPI HTMLBodyElement_get_bgColor(IHTMLBodyElement *iface, VARIANT *p)
266 HTMLBodyElement *This = HTMLBODY_THIS(iface);
267 FIXME("(%p)->(%p)\n", This, p);
268 return E_NOTIMPL;
271 static HRESULT WINAPI HTMLBodyElement_put_text(IHTMLBodyElement *iface, VARIANT v)
273 HTMLBodyElement *This = HTMLBODY_THIS(iface);
274 FIXME("(%p)->()\n", This);
275 return E_NOTIMPL;
278 static HRESULT WINAPI HTMLBodyElement_get_text(IHTMLBodyElement *iface, VARIANT *p)
280 HTMLBodyElement *This = HTMLBODY_THIS(iface);
281 FIXME("(%p)->(%p)\n", This, p);
282 return E_NOTIMPL;
285 static HRESULT WINAPI HTMLBodyElement_put_link(IHTMLBodyElement *iface, VARIANT v)
287 HTMLBodyElement *This = HTMLBODY_THIS(iface);
288 nsAString link_str;
289 nsresult nsres;
291 TRACE("(%p)->(v%d)\n", This, V_VT(&v));
293 if(!variant_to_nscolor(&v, &link_str))
294 return S_OK;
296 nsres = nsIDOMHTMLBodyElement_SetLink(This->nsbody, &link_str);
297 nsAString_Finish(&link_str);
298 if(NS_FAILED(nsres))
299 ERR("SetLink failed: %08x\n", nsres);
301 return S_OK;
304 static HRESULT WINAPI HTMLBodyElement_get_link(IHTMLBodyElement *iface, VARIANT *p)
306 HTMLBodyElement *This = HTMLBODY_THIS(iface);
307 nsAString link_str;
308 nsresult nsres;
310 TRACE("(%p)->(%p)\n", This, p);
312 nsAString_Init(&link_str, NULL);
313 nsres = nsIDOMHTMLBodyElement_GetLink(This->nsbody, &link_str);
314 if(NS_FAILED(nsres))
315 ERR("GetLink failed: %08x\n", nsres);
317 nscolor_to_variant(&link_str, p);
318 nsAString_Finish(&link_str);
320 return S_OK;
323 static HRESULT WINAPI HTMLBodyElement_put_vLink(IHTMLBodyElement *iface, VARIANT v)
325 HTMLBodyElement *This = HTMLBODY_THIS(iface);
326 nsAString vlink_str;
327 nsresult nsres;
329 TRACE("(%p)->(v%d)\n", This, V_VT(&v));
331 if(!variant_to_nscolor(&v, &vlink_str))
332 return S_OK;
334 nsres = nsIDOMHTMLBodyElement_SetVLink(This->nsbody, &vlink_str);
335 nsAString_Finish(&vlink_str);
336 if(NS_FAILED(nsres))
337 ERR("SetLink failed: %08x\n", nsres);
339 return S_OK;
342 static HRESULT WINAPI HTMLBodyElement_get_vLink(IHTMLBodyElement *iface, VARIANT *p)
344 HTMLBodyElement *This = HTMLBODY_THIS(iface);
345 nsAString vlink_str;
346 nsresult nsres;
348 TRACE("(%p)->(%p)\n", This, p);
350 nsAString_Init(&vlink_str, NULL);
351 nsres = nsIDOMHTMLBodyElement_GetVLink(This->nsbody, &vlink_str);
352 if(NS_FAILED(nsres))
353 ERR("GetLink failed: %08x\n", nsres);
355 nscolor_to_variant(&vlink_str, p);
356 nsAString_Finish(&vlink_str);
358 return S_OK;
361 static HRESULT WINAPI HTMLBodyElement_put_aLink(IHTMLBodyElement *iface, VARIANT v)
363 HTMLBodyElement *This = HTMLBODY_THIS(iface);
364 nsAString alink_str;
365 nsresult nsres;
367 TRACE("(%p)->(v%d)\n", This, V_VT(&v));
369 if(!variant_to_nscolor(&v, &alink_str))
370 return S_OK;
372 nsres = nsIDOMHTMLBodyElement_SetALink(This->nsbody, &alink_str);
373 nsAString_Finish(&alink_str);
374 if(NS_FAILED(nsres))
375 ERR("SetALink failed: %08x\n", nsres);
377 return S_OK;
380 static HRESULT WINAPI HTMLBodyElement_get_aLink(IHTMLBodyElement *iface, VARIANT *p)
382 HTMLBodyElement *This = HTMLBODY_THIS(iface);
383 nsAString alink_str;
384 nsresult nsres;
386 TRACE("(%p)->(%p)\n", This, p);
388 nsAString_Init(&alink_str, NULL);
389 nsres = nsIDOMHTMLBodyElement_GetALink(This->nsbody, &alink_str);
390 if(NS_FAILED(nsres))
391 ERR("GetALink failed: %08x\n", nsres);
393 nscolor_to_variant(&alink_str, p);
394 nsAString_Finish(&alink_str);
396 return S_OK;
399 static HRESULT WINAPI HTMLBodyElement_put_onload(IHTMLBodyElement *iface, VARIANT v)
401 HTMLBodyElement *This = HTMLBODY_THIS(iface);
402 FIXME("(%p)->()\n", This);
403 return E_NOTIMPL;
406 static HRESULT WINAPI HTMLBodyElement_get_onload(IHTMLBodyElement *iface, VARIANT *p)
408 HTMLBodyElement *This = HTMLBODY_THIS(iface);
409 FIXME("(%p)->(%p)\n", This, p);
410 return E_NOTIMPL;
413 static HRESULT WINAPI HTMLBodyElement_put_onunload(IHTMLBodyElement *iface, VARIANT v)
415 HTMLBodyElement *This = HTMLBODY_THIS(iface);
416 FIXME("(%p)->()\n", This);
417 return E_NOTIMPL;
420 static HRESULT WINAPI HTMLBodyElement_get_onunload(IHTMLBodyElement *iface, VARIANT *p)
422 HTMLBodyElement *This = HTMLBODY_THIS(iface);
423 FIXME("(%p)->(%p)\n", This, p);
424 return E_NOTIMPL;
427 static HRESULT WINAPI HTMLBodyElement_put_scroll(IHTMLBodyElement *iface, BSTR v)
429 HTMLBodyElement *This = HTMLBODY_THIS(iface);
430 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
431 return E_NOTIMPL;
434 static HRESULT WINAPI HTMLBodyElement_get_scroll(IHTMLBodyElement *iface, BSTR *p)
436 HTMLBodyElement *This = HTMLBODY_THIS(iface);
437 FIXME("(%p)->(%p)\n", This, p);
438 return E_NOTIMPL;
441 static HRESULT WINAPI HTMLBodyElement_put_onselect(IHTMLBodyElement *iface, VARIANT v)
443 HTMLBodyElement *This = HTMLBODY_THIS(iface);
444 FIXME("(%p)->()\n", This);
445 return E_NOTIMPL;
448 static HRESULT WINAPI HTMLBodyElement_get_onselect(IHTMLBodyElement *iface, VARIANT *p)
450 HTMLBodyElement *This = HTMLBODY_THIS(iface);
451 FIXME("(%p)->(%p)\n", This, p);
452 return E_NOTIMPL;
455 static HRESULT WINAPI HTMLBodyElement_put_onbeforeunload(IHTMLBodyElement *iface, VARIANT v)
457 HTMLBodyElement *This = HTMLBODY_THIS(iface);
458 FIXME("(%p)->()\n", This);
459 return E_NOTIMPL;
462 static HRESULT WINAPI HTMLBodyElement_get_onbeforeunload(IHTMLBodyElement *iface, VARIANT *p)
464 HTMLBodyElement *This = HTMLBODY_THIS(iface);
465 FIXME("(%p)->(%p)\n", This, p);
466 return E_NOTIMPL;
469 static HRESULT WINAPI HTMLBodyElement_createTextRange(IHTMLBodyElement *iface, IHTMLTxtRange **range)
471 HTMLBodyElement *This = HTMLBODY_THIS(iface);
472 nsIDOMRange *nsrange = NULL;
474 TRACE("(%p)->(%p)\n", This, range);
476 if(This->textcont.element.node.doc->nscontainer) {
477 nsIDOMDocument *nsdoc;
478 nsIDOMDocumentRange *nsdocrange;
479 nsresult nsres;
481 nsIWebNavigation_GetDocument(This->textcont.element.node.doc->nscontainer->navigation, &nsdoc);
482 nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentRange, (void**)&nsdocrange);
483 nsIDOMDocument_Release(nsdoc);
485 nsres = nsIDOMDocumentRange_CreateRange(nsdocrange, &nsrange);
486 if(NS_SUCCEEDED(nsres)) {
487 nsres = nsIDOMRange_SelectNodeContents(nsrange, This->textcont.element.node.nsnode);
488 if(NS_FAILED(nsres))
489 ERR("SelectNodeContents failed: %08x\n", nsres);
490 }else {
491 ERR("CreateRange failed: %08x\n", nsres);
494 nsIDOMDocumentRange_Release(nsdocrange);
497 *range = HTMLTxtRange_Create(This->textcont.element.node.doc, nsrange);
498 return S_OK;
501 #undef HTMLBODY_THIS
503 static const IHTMLBodyElementVtbl HTMLBodyElementVtbl = {
504 HTMLBodyElement_QueryInterface,
505 HTMLBodyElement_AddRef,
506 HTMLBodyElement_Release,
507 HTMLBodyElement_GetTypeInfoCount,
508 HTMLBodyElement_GetTypeInfo,
509 HTMLBodyElement_GetIDsOfNames,
510 HTMLBodyElement_Invoke,
511 HTMLBodyElement_put_background,
512 HTMLBodyElement_get_background,
513 HTMLBodyElement_put_bgProperties,
514 HTMLBodyElement_get_bgProperties,
515 HTMLBodyElement_put_leftMargin,
516 HTMLBodyElement_get_leftMargin,
517 HTMLBodyElement_put_topMargin,
518 HTMLBodyElement_get_topMargin,
519 HTMLBodyElement_put_rightMargin,
520 HTMLBodyElement_get_rightMargin,
521 HTMLBodyElement_put_bottomMargin,
522 HTMLBodyElement_get_bottomMargin,
523 HTMLBodyElement_put_noWrap,
524 HTMLBodyElement_get_noWrap,
525 HTMLBodyElement_put_bgColor,
526 HTMLBodyElement_get_bgColor,
527 HTMLBodyElement_put_text,
528 HTMLBodyElement_get_text,
529 HTMLBodyElement_put_link,
530 HTMLBodyElement_get_link,
531 HTMLBodyElement_put_vLink,
532 HTMLBodyElement_get_vLink,
533 HTMLBodyElement_put_aLink,
534 HTMLBodyElement_get_aLink,
535 HTMLBodyElement_put_onload,
536 HTMLBodyElement_get_onload,
537 HTMLBodyElement_put_onunload,
538 HTMLBodyElement_get_onunload,
539 HTMLBodyElement_put_scroll,
540 HTMLBodyElement_get_scroll,
541 HTMLBodyElement_put_onselect,
542 HTMLBodyElement_get_onselect,
543 HTMLBodyElement_put_onbeforeunload,
544 HTMLBodyElement_get_onbeforeunload,
545 HTMLBodyElement_createTextRange
548 #define HTMLBODY_NODE_THIS(iface) DEFINE_THIS2(HTMLBodyElement, textcont.element.node, iface)
550 static HRESULT HTMLBodyElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
552 HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
554 *ppv = NULL;
556 if(IsEqualGUID(&IID_IUnknown, riid)) {
557 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
558 *ppv = HTMLBODY(This);
559 }else if(IsEqualGUID(&IID_IDispatch, riid)) {
560 TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
561 *ppv = HTMLBODY(This);
562 }else if(IsEqualGUID(&IID_IHTMLBodyElement, riid)) {
563 TRACE("(%p)->(IID_IHTMLBodyElement %p)\n", This, ppv);
564 *ppv = HTMLBODY(This);
565 }else if(IsEqualGUID(&IID_IHTMLTextContainer, riid)) {
566 TRACE("(%p)->(IID_IHTMLTextContainer %p)\n", &This->textcont, ppv);
567 *ppv = HTMLTEXTCONT(&This->textcont);
570 if(*ppv) {
571 IUnknown_AddRef((IUnknown*)*ppv);
572 return S_OK;
575 return HTMLElement_QI(&This->textcont.element.node, riid, ppv);
578 static void HTMLBodyElement_destructor(HTMLDOMNode *iface)
580 HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
582 nsIDOMHTMLBodyElement_Release(This->nsbody);
584 HTMLElement_destructor(&This->textcont.element.node);
587 #undef HTMLBODY_NODE_THIS
589 static const NodeImplVtbl HTMLBodyElementImplVtbl = {
590 HTMLBodyElement_QI,
591 HTMLBodyElement_destructor
594 HTMLElement *HTMLBodyElement_Create(nsIDOMHTMLElement *nselem)
596 HTMLBodyElement *ret = heap_alloc_zero(sizeof(HTMLBodyElement));
597 nsresult nsres;
599 TRACE("(%p)->(%p)\n", ret, nselem);
601 HTMLTextContainer_Init(&ret->textcont);
603 ret->lpHTMLBodyElementVtbl = &HTMLBodyElementVtbl;
604 ret->textcont.element.node.vtbl = &HTMLBodyElementImplVtbl;
606 ConnectionPoint_Init(&ret->cp_propnotif, &ret->textcont.element.cp_container, &IID_IPropertyNotifySink);
608 nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLBodyElement,
609 (void**)&ret->nsbody);
610 if(NS_FAILED(nsres))
611 ERR("Could not get nsDOMHTMLBodyElement: %08x\n", nsres);
613 return &ret->textcont.element;