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     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->textcont.element.node.dispex), pctinfo);
 114 }
 115
 116 static HRESULT WINAPI HTMLBodyElement_GetTypeInfo(IHTMLBodyElement *iface, UINT iTInfo,
 117                                               LCID lcid, ITypeInfo **ppTInfo)
 118 {
 119     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 120     return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->textcont.element.node.dispex), iTInfo, lcid, ppTInfo);
 121 }
 122
 123 static HRESULT WINAPI HTMLBodyElement_GetIDsOfNames(IHTMLBodyElement *iface, REFIID riid,
 124                                                 LPOLESTR *rgszNames, UINT cNames,
 125                                                 LCID lcid, DISPID *rgDispId)
 126 {
 127     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 128     return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->textcont.element.node.dispex), riid, rgszNames, cNames, lcid, rgDispId);
 129 }
 130
 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)
 134 {
 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);
 138 }
 139
 140 static HRESULT WINAPI HTMLBodyElement_put_background(IHTMLBodyElement *iface, BSTR v)
 141 {
 142     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 143     HRESULT hr = S_OK;
 144     nsAString nsstr;
 145     nsresult nsres;
 146
 147     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 148
 149     nsAString_Init(&nsstr, v);
 150
 151     nsres = nsIDOMHTMLBodyElement_SetBackground(This->nsbody, &nsstr);
 152     if(!NS_SUCCEEDED(nsres))
 153     {
 154         hr = E_FAIL;
 155     }
 156
 157     nsAString_Finish(&nsstr);
 158
 159     return hr;
 160 }
 161
 162 static HRESULT WINAPI HTMLBodyElement_get_background(IHTMLBodyElement *iface, BSTR *p)
 163 {
 164     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 165     nsAString background_str;
 166     nsresult nsres;
 167
 168     TRACE("(%p)->(%p)\n", This, p);
 169
 170     nsAString_Init(&background_str, NULL);
 171
 172     nsres = nsIDOMHTMLBodyElement_GetBackground(This->nsbody, &background_str);
 173     if(NS_SUCCEEDED(nsres)) {
 174         const PRUnichar *background;
 175         nsAString_GetData(&background_str, &background);
 176         *p = *background ? SysAllocString(background) : NULL;
 177     }else {
 178         ERR("GetBackground failed: %08x\n", nsres);
 179         *p = NULL;
 180     }
 181
 182     nsAString_Finish(&background_str);
 183
 184     TRACE("*p = %s\n", debugstr_w(*p));
 185     return S_OK;
 186 }
 187
 188 static HRESULT WINAPI HTMLBodyElement_put_bgProperties(IHTMLBodyElement *iface, BSTR v)
 189 {
 190     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 191     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI HTMLBodyElement_get_bgProperties(IHTMLBodyElement *iface, BSTR *p)
 196 {
 197     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 198     FIXME("(%p)->(%p)\n", This, p);
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI HTMLBodyElement_put_leftMargin(IHTMLBodyElement *iface, VARIANT v)
 203 {
 204     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 205     FIXME("(%p)->()\n", This);
 206     return E_NOTIMPL;
 207 }
 208
 209 static HRESULT WINAPI HTMLBodyElement_get_leftMargin(IHTMLBodyElement *iface, VARIANT *p)
 210 {
 211     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 212     FIXME("(%p)->(%p)\n", This, p);
 213     return E_NOTIMPL;
 214 }
 215
 216 static HRESULT WINAPI HTMLBodyElement_put_topMargin(IHTMLBodyElement *iface, VARIANT v)
 217 {
 218     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 219     FIXME("(%p)->()\n", This);
 220     return E_NOTIMPL;
 221 }
 222
 223 static HRESULT WINAPI HTMLBodyElement_get_topMargin(IHTMLBodyElement *iface, VARIANT *p)
 224 {
 225     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 226     FIXME("(%p)->(%p)\n", This, p);
 227     return E_NOTIMPL;
 228 }
 229
 230 static HRESULT WINAPI HTMLBodyElement_put_rightMargin(IHTMLBodyElement *iface, VARIANT v)
 231 {
 232     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 233     FIXME("(%p)->()\n", This);
 234     return E_NOTIMPL;
 235 }
 236
 237 static HRESULT WINAPI HTMLBodyElement_get_rightMargin(IHTMLBodyElement *iface, VARIANT *p)
 238 {
 239     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 240     FIXME("(%p)->(%p)\n", This, p);
 241     return E_NOTIMPL;
 242 }
 243
 244 static HRESULT WINAPI HTMLBodyElement_put_bottomMargin(IHTMLBodyElement *iface, VARIANT v)
 245 {
 246     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 247     FIXME("(%p)->()\n", This);
 248     return E_NOTIMPL;
 249 }
 250
 251 static HRESULT WINAPI HTMLBodyElement_get_bottomMargin(IHTMLBodyElement *iface, VARIANT *p)
 252 {
 253     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 254     FIXME("(%p)->(%p)\n", This, p);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI HTMLBodyElement_put_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL v)
 259 {
 260     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 261     FIXME("(%p)->(%x)\n", This, v);
 262     return E_NOTIMPL;
 263 }
 264
 265 static HRESULT WINAPI HTMLBodyElement_get_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL *p)
 266 {
 267     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 268     FIXME("(%p)->(%p)\n", This, p);
 269     return E_NOTIMPL;
 270 }
 271
 272 static HRESULT WINAPI HTMLBodyElement_put_bgColor(IHTMLBodyElement *iface, VARIANT v)
 273 {
 274     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 275     nsAString strColor;
 276     nsresult nsres;
 277
 278     TRACE("(%p)->()\n", This);
 279
 280     if(!variant_to_nscolor(&v, &strColor))
 281         return S_OK;
 282
 283     nsres = nsIDOMHTMLBodyElement_SetBgColor(This->nsbody, &strColor);
 284     nsAString_Finish(&strColor);
 285     if(NS_FAILED(nsres))
 286         ERR("SetBgColor failed: %08x\n", nsres);
 287
 288     return S_OK;
 289 }
 290
 291 static HRESULT WINAPI HTMLBodyElement_get_bgColor(IHTMLBodyElement *iface, VARIANT *p)
 292 {
 293     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 294     nsAString strColor;
 295     nsresult nsres;
 296     const PRUnichar *color;
 297
 298     TRACE("(%p)->(%p)\n", This, p);
 299
 300     nsAString_Init(&strColor, NULL);
 301     nsres = nsIDOMHTMLBodyElement_GetBgColor(This->nsbody, &strColor);
 302     if(NS_FAILED(nsres))
 303         ERR("SetBgColor failed: %08x\n", nsres);
 304
 305     nsAString_GetData(&strColor, &color);
 306
 307     V_VT(p) = VT_BSTR;
 308     V_BSTR(p) = SysAllocString(color);
 309
 310     nsAString_Finish(&strColor);
 311
 312     return S_OK;
 313 }
 314
 315 static HRESULT WINAPI HTMLBodyElement_put_text(IHTMLBodyElement *iface, VARIANT v)
 316 {
 317     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 318     nsAString text;
 319     nsresult nsres;
 320
 321     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
 322
 323     if(!variant_to_nscolor(&v, &text))
 324         return S_OK;
 325
 326     nsres = nsIDOMHTMLBodyElement_SetText(This->nsbody, &text);
 327     nsAString_Finish(&text);
 328
 329     return S_OK;
 330 }
 331
 332 static HRESULT WINAPI HTMLBodyElement_get_text(IHTMLBodyElement *iface, VARIANT *p)
 333 {
 334     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 335     nsAString text;
 336     nsresult nsres;
 337
 338     TRACE("(%p)->(%p)\n", This, p);
 339
 340     nsAString_Init(&text, NULL);
 341
 342     V_VT(p) = VT_BSTR;
 343     V_BSTR(p) = NULL;
 344
 345     nsres = nsIDOMHTMLBodyElement_GetText(This->nsbody, &text);
 346     if(NS_SUCCEEDED(nsres))
 347     {
 348         const PRUnichar *sText;
 349         nsAString_GetData(&text, &sText);
 350
 351         V_VT(p) = VT_BSTR;
 352         V_BSTR(p) = SysAllocString(sText);
 353     }
 354
 355     nsAString_Finish(&text);
 356
 357     return S_OK;
 358 }
 359
 360 static HRESULT WINAPI HTMLBodyElement_put_link(IHTMLBodyElement *iface, VARIANT v)
 361 {
 362     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 363     nsAString link_str;
 364     nsresult nsres;
 365
 366     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
 367
 368     if(!variant_to_nscolor(&v, &link_str))
 369         return S_OK;
 370
 371     nsres = nsIDOMHTMLBodyElement_SetLink(This->nsbody, &link_str);
 372     nsAString_Finish(&link_str);
 373     if(NS_FAILED(nsres))
 374         ERR("SetLink failed: %08x\n", nsres);
 375
 376     return S_OK;
 377 }
 378
 379 static HRESULT WINAPI HTMLBodyElement_get_link(IHTMLBodyElement *iface, VARIANT *p)
 380 {
 381     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 382     nsAString link_str;
 383     nsresult nsres;
 384
 385     TRACE("(%p)->(%p)\n", This, p);
 386
 387     nsAString_Init(&link_str, NULL);
 388     nsres = nsIDOMHTMLBodyElement_GetLink(This->nsbody, &link_str);
 389     if(NS_FAILED(nsres))
 390         ERR("GetLink failed: %08x\n", nsres);
 391
 392     nscolor_to_variant(&link_str, p);
 393     nsAString_Finish(&link_str);
 394
 395     return S_OK;
 396 }
 397
 398 static HRESULT WINAPI HTMLBodyElement_put_vLink(IHTMLBodyElement *iface, VARIANT v)
 399 {
 400     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 401     nsAString vlink_str;
 402     nsresult nsres;
 403
 404     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
 405
 406     if(!variant_to_nscolor(&v, &vlink_str))
 407         return S_OK;
 408
 409     nsres = nsIDOMHTMLBodyElement_SetVLink(This->nsbody, &vlink_str);
 410     nsAString_Finish(&vlink_str);
 411     if(NS_FAILED(nsres))
 412         ERR("SetLink failed: %08x\n", nsres);
 413
 414     return S_OK;
 415 }
 416
 417 static HRESULT WINAPI HTMLBodyElement_get_vLink(IHTMLBodyElement *iface, VARIANT *p)
 418 {
 419     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 420     nsAString vlink_str;
 421     nsresult nsres;
 422
 423     TRACE("(%p)->(%p)\n", This, p);
 424
 425     nsAString_Init(&vlink_str, NULL);
 426     nsres = nsIDOMHTMLBodyElement_GetVLink(This->nsbody, &vlink_str);
 427     if(NS_FAILED(nsres))
 428         ERR("GetLink failed: %08x\n", nsres);
 429
 430     nscolor_to_variant(&vlink_str, p);
 431     nsAString_Finish(&vlink_str);
 432
 433     return S_OK;
 434 }
 435
 436 static HRESULT WINAPI HTMLBodyElement_put_aLink(IHTMLBodyElement *iface, VARIANT v)
 437 {
 438     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 439     nsAString alink_str;
 440     nsresult nsres;
 441
 442     TRACE("(%p)->(v%d)\n", This, V_VT(&v));
 443
 444     if(!variant_to_nscolor(&v, &alink_str))
 445         return S_OK;
 446
 447     nsres = nsIDOMHTMLBodyElement_SetALink(This->nsbody, &alink_str);
 448     nsAString_Finish(&alink_str);
 449     if(NS_FAILED(nsres))
 450         ERR("SetALink failed: %08x\n", nsres);
 451
 452     return S_OK;
 453 }
 454
 455 static HRESULT WINAPI HTMLBodyElement_get_aLink(IHTMLBodyElement *iface, VARIANT *p)
 456 {
 457     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 458     nsAString alink_str;
 459     nsresult nsres;
 460
 461     TRACE("(%p)->(%p)\n", This, p);
 462
 463     nsAString_Init(&alink_str, NULL);
 464     nsres = nsIDOMHTMLBodyElement_GetALink(This->nsbody, &alink_str);
 465     if(NS_FAILED(nsres))
 466         ERR("GetALink failed: %08x\n", nsres);
 467
 468     nscolor_to_variant(&alink_str, p);
 469     nsAString_Finish(&alink_str);
 470
 471     return S_OK;
 472 }
 473
 474 static HRESULT WINAPI HTMLBodyElement_put_onload(IHTMLBodyElement *iface, VARIANT v)
 475 {
 476     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 477     FIXME("(%p)->()\n", This);
 478     return E_NOTIMPL;
 479 }
 480
 481 static HRESULT WINAPI HTMLBodyElement_get_onload(IHTMLBodyElement *iface, VARIANT *p)
 482 {
 483     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 484     FIXME("(%p)->(%p)\n", This, p);
 485     return E_NOTIMPL;
 486 }
 487
 488 static HRESULT WINAPI HTMLBodyElement_put_onunload(IHTMLBodyElement *iface, VARIANT v)
 489 {
 490     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 491     FIXME("(%p)->()\n", This);
 492     return E_NOTIMPL;
 493 }
 494
 495 static HRESULT WINAPI HTMLBodyElement_get_onunload(IHTMLBodyElement *iface, VARIANT *p)
 496 {
 497     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 498     FIXME("(%p)->(%p)\n", This, p);
 499     return E_NOTIMPL;
 500 }
 501
 502 static HRESULT WINAPI HTMLBodyElement_put_scroll(IHTMLBodyElement *iface, BSTR v)
 503 {
 504     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 505     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 506     return E_NOTIMPL;
 507 }
 508
 509 static HRESULT WINAPI HTMLBodyElement_get_scroll(IHTMLBodyElement *iface, BSTR *p)
 510 {
 511     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 512     FIXME("(%p)->(%p)\n", This, p);
 513     return E_NOTIMPL;
 514 }
 515
 516 static HRESULT WINAPI HTMLBodyElement_put_onselect(IHTMLBodyElement *iface, VARIANT v)
 517 {
 518     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 519     FIXME("(%p)->()\n", This);
 520     return E_NOTIMPL;
 521 }
 522
 523 static HRESULT WINAPI HTMLBodyElement_get_onselect(IHTMLBodyElement *iface, VARIANT *p)
 524 {
 525     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 526     FIXME("(%p)->(%p)\n", This, p);
 527     return E_NOTIMPL;
 528 }
 529
 530 static HRESULT WINAPI HTMLBodyElement_put_onbeforeunload(IHTMLBodyElement *iface, VARIANT v)
 531 {
 532     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 533     FIXME("(%p)->()\n", This);
 534     return E_NOTIMPL;
 535 }
 536
 537 static HRESULT WINAPI HTMLBodyElement_get_onbeforeunload(IHTMLBodyElement *iface, VARIANT *p)
 538 {
 539     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 540     FIXME("(%p)->(%p)\n", This, p);
 541     return E_NOTIMPL;
 542 }
 543
 544 static HRESULT WINAPI HTMLBodyElement_createTextRange(IHTMLBodyElement *iface, IHTMLTxtRange **range)
 545 {
 546     HTMLBodyElement *This = HTMLBODY_THIS(iface);
 547     nsIDOMRange *nsrange = NULL;
 548
 549     TRACE("(%p)->(%p)\n", This, range);
 550
 551     if(This->textcont.element.node.doc->nscontainer) {
 552         nsIDOMDocument *nsdoc;
 553         nsIDOMDocumentRange *nsdocrange;
 554         nsresult nsres;
 555
 556         nsIWebNavigation_GetDocument(This->textcont.element.node.doc->nscontainer->navigation, &nsdoc);
 557         nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentRange, (void**)&nsdocrange);
 558         nsIDOMDocument_Release(nsdoc);
 559
 560         nsres = nsIDOMDocumentRange_CreateRange(nsdocrange, &nsrange);
 561         if(NS_SUCCEEDED(nsres)) {
 562             nsres = nsIDOMRange_SelectNodeContents(nsrange, This->textcont.element.node.nsnode);
 563             if(NS_FAILED(nsres))
 564                 ERR("SelectNodeContents failed: %08x\n", nsres);
 565         }else {
 566             ERR("CreateRange failed: %08x\n", nsres);
 567         }
 568
 569         nsIDOMDocumentRange_Release(nsdocrange);
 570     }
 571
 572     *range = HTMLTxtRange_Create(This->textcont.element.node.doc, nsrange);
 573     return S_OK;
 574 }
 575
 576 #undef HTMLBODY_THIS
 577
 578 static const IHTMLBodyElementVtbl HTMLBodyElementVtbl = {
 579     HTMLBodyElement_QueryInterface,
 580     HTMLBodyElement_AddRef,
 581     HTMLBodyElement_Release,
 582     HTMLBodyElement_GetTypeInfoCount,
 583     HTMLBodyElement_GetTypeInfo,
 584     HTMLBodyElement_GetIDsOfNames,
 585     HTMLBodyElement_Invoke,
 586     HTMLBodyElement_put_background,
 587     HTMLBodyElement_get_background,
 588     HTMLBodyElement_put_bgProperties,
 589     HTMLBodyElement_get_bgProperties,
 590     HTMLBodyElement_put_leftMargin,
 591     HTMLBodyElement_get_leftMargin,
 592     HTMLBodyElement_put_topMargin,
 593     HTMLBodyElement_get_topMargin,
 594     HTMLBodyElement_put_rightMargin,
 595     HTMLBodyElement_get_rightMargin,
 596     HTMLBodyElement_put_bottomMargin,
 597     HTMLBodyElement_get_bottomMargin,
 598     HTMLBodyElement_put_noWrap,
 599     HTMLBodyElement_get_noWrap,
 600     HTMLBodyElement_put_bgColor,
 601     HTMLBodyElement_get_bgColor,
 602     HTMLBodyElement_put_text,
 603     HTMLBodyElement_get_text,
 604     HTMLBodyElement_put_link,
 605     HTMLBodyElement_get_link,
 606     HTMLBodyElement_put_vLink,
 607     HTMLBodyElement_get_vLink,
 608     HTMLBodyElement_put_aLink,
 609     HTMLBodyElement_get_aLink,
 610     HTMLBodyElement_put_onload,
 611     HTMLBodyElement_get_onload,
 612     HTMLBodyElement_put_onunload,
 613     HTMLBodyElement_get_onunload,
 614     HTMLBodyElement_put_scroll,
 615     HTMLBodyElement_get_scroll,
 616     HTMLBodyElement_put_onselect,
 617     HTMLBodyElement_get_onselect,
 618     HTMLBodyElement_put_onbeforeunload,
 619     HTMLBodyElement_get_onbeforeunload,
 620     HTMLBodyElement_createTextRange
 621 };
 622
 623 #define HTMLBODY_NODE_THIS(iface) DEFINE_THIS2(HTMLBodyElement, textcont.element.node, iface)
 624
 625 static HRESULT HTMLBodyElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 626 {
 627     HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
 628
 629     *ppv = NULL;
 630
 631     if(IsEqualGUID(&IID_IUnknown, riid)) {
 632         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 633         *ppv = HTMLBODY(This);
 634     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 635         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 636         *ppv = HTMLBODY(This);
 637     }else if(IsEqualGUID(&IID_IHTMLBodyElement, riid)) {
 638         TRACE("(%p)->(IID_IHTMLBodyElement %p)\n", This, ppv);
 639         *ppv = HTMLBODY(This);
 640     }else if(IsEqualGUID(&IID_IHTMLTextContainer, riid)) {
 641         TRACE("(%p)->(IID_IHTMLTextContainer %p)\n", &This->textcont, ppv);
 642         *ppv = HTMLTEXTCONT(&This->textcont);
 643     }
 644
 645     if(*ppv) {
 646         IUnknown_AddRef((IUnknown*)*ppv);
 647         return S_OK;
 648     }
 649
 650     return HTMLElement_QI(&This->textcont.element.node, riid, ppv);
 651 }
 652
 653 static void HTMLBodyElement_destructor(HTMLDOMNode *iface)
 654 {
 655     HTMLBodyElement *This = HTMLBODY_NODE_THIS(iface);
 656
 657     nsIDOMHTMLBodyElement_Release(This->nsbody);
 658
 659     HTMLElement_destructor(&This->textcont.element.node);
 660 }
 661
 662 #undef HTMLBODY_NODE_THIS
 663
 664 static const NodeImplVtbl HTMLBodyElementImplVtbl = {
 665     HTMLBodyElement_QI,
 666     HTMLBodyElement_destructor
 667 };
 668
 669 static const tid_t HTMLBodyElement_iface_tids[] = {
 670     IHTMLBodyElement_tid,
 671     IHTMLBodyElement2_tid,
 672     IHTMLDOMNode_tid,
 673     IHTMLDOMNode2_tid,
 674     IHTMLElement_tid,
 675     IHTMLElement2_tid,
 676     IHTMLElement3_tid,
 677     IHTMLElement4_tid,
 678     IHTMLTextContainer_tid,
 679     IHTMLUniqueName_tid,
 680     0
 681 };
 682
 683 static dispex_static_data_t HTMLBodyElement_dispex = {
 684     NULL,
 685     DispHTMLBody_tid,
 686     NULL,
 687     HTMLBodyElement_iface_tids
 688 };
 689
 690 HTMLElement *HTMLBodyElement_Create(nsIDOMHTMLElement *nselem)
 691 {
 692     HTMLBodyElement *ret = heap_alloc_zero(sizeof(HTMLBodyElement));
 693     nsresult nsres;
 694
 695     TRACE("(%p)->(%p)\n", ret, nselem);
 696
 697     HTMLTextContainer_Init(&ret->textcont);
 698
 699     ret->lpHTMLBodyElementVtbl = &HTMLBodyElementVtbl;
 700
 701     init_dispex(&ret->textcont.element.node.dispex, (IUnknown*)HTMLBODY(ret), &HTMLBodyElement_dispex);
 702     ret->textcont.element.node.vtbl = &HTMLBodyElementImplVtbl;
 703
 704     ConnectionPoint_Init(&ret->cp_propnotif, &ret->textcont.element.cp_container, &IID_IPropertyNotifySink);
 705
 706     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLBodyElement,
 707                                              (void**)&ret->nsbody);
 708     if(NS_FAILED(nsres))
 709         ERR("Could not get nsDOMHTMLBodyElement: %08x\n", nsres);
 710
 711     return &ret->textcont.element;
 712 }