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