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 #include "mshtmdid.h"
  29
  30 #include "wine/debug.h"
  31
  32 #include "mshtml_private.h"
  33 #include "htmlevent.h"
  34 #include "htmlstyle.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  37
  38 typedef struct {
  39     HTMLElement element;
  40
  41     IHTMLBodyElement IHTMLBodyElement_iface;
  42     IHTMLTextContainer IHTMLTextContainer_iface;
  43
  44     nsIDOMHTMLBodyElement *nsbody;
  45 } HTMLBodyElement;
  46
  47 static const struct {
  48     LPCWSTR keyword;
  49     DWORD rgb;
  50 } keyword_table[] = {
  51     {L"aqua",     0x00ffff},
  52     {L"black",    0x000000},
  53     {L"blue",     0x0000ff},
  54     {L"fuchsia",  0xff00ff},
  55     {L"gray",     0x808080},
  56     {L"green",    0x008000},
  57     {L"lime",     0x00ff00},
  58     {L"maroon",   0x800000},
  59     {L"navy",     0x000080},
  60     {L"olive",    0x808000},
  61     {L"purple",   0x800080},
  62     {L"red",      0xff0000},
  63     {L"silver",   0xc0c0c0},
  64     {L"teal",     0x008080},
  65     {L"white",    0xffffff},
  66     {L"yellow",   0xffff00}
  67 };
  68
  69 static int comp_value(const WCHAR *ptr, int dpc)
  70 {
  71     int ret = 0;
  72     WCHAR ch;
  73
  74     if(dpc > 2)
  75         dpc = 2;
  76
  77     while(dpc--) {
  78         if(!*ptr)
  79             ret *= 16;
  80         else if(is_digit(ch = *ptr++))
  81             ret = ret*16 + (ch-'0');
  82         else if('a' <= ch && ch <= 'f')
  83             ret = ret*16 + (ch-'a') + 10;
  84         else if('A' <= ch && ch <= 'F')
  85             ret = ret*16 + (ch-'A') + 10;
  86         else
  87             ret *= 16;
  88     }
  89
  90     return ret;
  91 }
  92
  93 /* Based on Gecko NS_LooseHexToRGB */
  94 static int loose_hex_to_rgb(const WCHAR *hex)
  95 {
  96     int len, dpc;
  97
  98     len = lstrlenW(hex);
  99     if(*hex == '#') {
 100         hex++;
 101         len--;
 102     }
 103     if(len <= 3)
 104         return 0;
 105
 106     dpc = min(len/3 + (len%3 ? 1 : 0), 4);
 107     return (comp_value(hex, dpc) << 16)
 108         | (comp_value(hex+dpc, dpc) << 8)
 109         | comp_value(hex+2*dpc, dpc);
 110 }
 111
 112 HRESULT nscolor_to_str(LPCWSTR color, BSTR *ret)
 113 {
 114     unsigned int i;
 115     int rgb = -1;
 116
 117     if(!color || !*color) {
 118         *ret = NULL;
 119         return S_OK;
 120     }
 121
 122     if(*color != '#') {
 123         for(i=0; i < ARRAY_SIZE(keyword_table); i++) {
 124             if(!wcsicmp(color, keyword_table[i].keyword))
 125                 rgb = keyword_table[i].rgb;
 126         }
 127     }
 128     if(rgb == -1)
 129         rgb = loose_hex_to_rgb(color);
 130
 131     *ret = SysAllocStringLen(NULL, 7);
 132     if(!*ret)
 133         return E_OUTOFMEMORY;
 134
 135     swprintf(*ret, 8, L"#%02x%02x%02x", rgb>>16, (rgb>>8)&0xff, rgb&0xff);
 136
 137     TRACE("%s -> %s\n", debugstr_w(color), debugstr_w(*ret));
 138     return S_OK;
 139 }
 140
 141 BOOL variant_to_nscolor(const VARIANT *v, nsAString *nsstr)
 142 {
 143     switch(V_VT(v)) {
 144     case VT_BSTR:
 145         nsAString_Init(nsstr, V_BSTR(v));
 146         return TRUE;
 147
 148     case VT_I4: {
 149         PRUnichar buf[10];
 150
 151         wsprintfW(buf, L"#%x", V_I4(v));
 152         nsAString_Init(nsstr, buf);
 153         return TRUE;
 154     }
 155
 156     default:
 157         FIXME("invalid color %s\n", debugstr_variant(v));
 158     }
 159
 160     return FALSE;
 161
 162 }
 163
 164 static HRESULT return_nscolor(nsresult nsres, nsAString *nsstr, VARIANT *p)
 165 {
 166     const PRUnichar *color;
 167
 168     if(NS_FAILED(nsres)) {
 169         ERR("failed: %08lx\n", nsres);
 170         nsAString_Finish(nsstr);
 171         return E_FAIL;
 172     }
 173
 174     nsAString_GetData(nsstr, &color);
 175
 176     if(*color == '#') {
 177         V_VT(p) = VT_I4;
 178         V_I4(p) = wcstol(color+1, NULL, 16);
 179     }else {
 180         V_VT(p) = VT_BSTR;
 181         V_BSTR(p) = SysAllocString(color);
 182         if(!V_BSTR(p)) {
 183             nsAString_Finish(nsstr);
 184             return E_OUTOFMEMORY;
 185         }
 186     }
 187
 188     nsAString_Finish(nsstr);
 189     TRACE("ret %s\n", debugstr_variant(p));
 190     return S_OK;
 191 }
 192
 193 static inline HTMLBodyElement *impl_from_IHTMLBodyElement(IHTMLBodyElement *iface)
 194 {
 195     return CONTAINING_RECORD(iface, HTMLBodyElement, IHTMLBodyElement_iface);
 196 }
 197
 198 static HRESULT WINAPI HTMLBodyElement_QueryInterface(IHTMLBodyElement *iface,
 199                                                      REFIID riid, void **ppv)
 200 {
 201     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 202
 203     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
 204 }
 205
 206 static ULONG WINAPI HTMLBodyElement_AddRef(IHTMLBodyElement *iface)
 207 {
 208     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 209
 210     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
 211 }
 212
 213 static ULONG WINAPI HTMLBodyElement_Release(IHTMLBodyElement *iface)
 214 {
 215     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 216
 217     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
 218 }
 219
 220 static HRESULT WINAPI HTMLBodyElement_GetTypeInfoCount(IHTMLBodyElement *iface, UINT *pctinfo)
 221 {
 222     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 223     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface,
 224             pctinfo);
 225 }
 226
 227 static HRESULT WINAPI HTMLBodyElement_GetTypeInfo(IHTMLBodyElement *iface, UINT iTInfo,
 228                                               LCID lcid, ITypeInfo **ppTInfo)
 229 {
 230     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 231     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo,
 232             lcid, ppTInfo);
 233 }
 234
 235 static HRESULT WINAPI HTMLBodyElement_GetIDsOfNames(IHTMLBodyElement *iface, REFIID riid,
 236                                                 LPOLESTR *rgszNames, UINT cNames,
 237                                                 LCID lcid, DISPID *rgDispId)
 238 {
 239     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 240     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid,
 241             rgszNames, cNames, lcid, rgDispId);
 242 }
 243
 244 static HRESULT WINAPI HTMLBodyElement_Invoke(IHTMLBodyElement *iface, DISPID dispIdMember,
 245                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 246                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 247 {
 248     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 249     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember,
 250             riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 251 }
 252
 253 static HRESULT WINAPI HTMLBodyElement_put_background(IHTMLBodyElement *iface, BSTR v)
 254 {
 255     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 256     nsAString nsstr;
 257     nsresult nsres;
 258
 259     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 260
 261     nsAString_InitDepend(&nsstr, v);
 262     nsres = nsIDOMHTMLBodyElement_SetBackground(This->nsbody, &nsstr);
 263     nsAString_Finish(&nsstr);
 264     if(NS_FAILED(nsres))
 265         return E_FAIL;
 266
 267     return S_OK;
 268 }
 269
 270 static HRESULT WINAPI HTMLBodyElement_get_background(IHTMLBodyElement *iface, BSTR *p)
 271 {
 272     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 273     nsAString background_str;
 274     nsresult nsres;
 275
 276     TRACE("(%p)->(%p)\n", This, p);
 277
 278     nsAString_Init(&background_str, NULL);
 279     nsres = nsIDOMHTMLBodyElement_GetBackground(This->nsbody, &background_str);
 280     return return_nsstr(nsres, &background_str, p);
 281 }
 282
 283 static HRESULT WINAPI HTMLBodyElement_put_bgProperties(IHTMLBodyElement *iface, BSTR v)
 284 {
 285     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 286     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 287     return E_NOTIMPL;
 288 }
 289
 290 static HRESULT WINAPI HTMLBodyElement_get_bgProperties(IHTMLBodyElement *iface, BSTR *p)
 291 {
 292     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 293     FIXME("(%p)->(%p)\n", This, p);
 294     return E_NOTIMPL;
 295 }
 296
 297 static HRESULT WINAPI HTMLBodyElement_put_leftMargin(IHTMLBodyElement *iface, VARIANT v)
 298 {
 299     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 300     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 301     return E_NOTIMPL;
 302 }
 303
 304 static HRESULT WINAPI HTMLBodyElement_get_leftMargin(IHTMLBodyElement *iface, VARIANT *p)
 305 {
 306     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 307     FIXME("(%p)->(%p)\n", This, p);
 308     return E_NOTIMPL;
 309 }
 310
 311 static HRESULT WINAPI HTMLBodyElement_put_topMargin(IHTMLBodyElement *iface, VARIANT v)
 312 {
 313     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 314     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 315     return E_NOTIMPL;
 316 }
 317
 318 static HRESULT WINAPI HTMLBodyElement_get_topMargin(IHTMLBodyElement *iface, VARIANT *p)
 319 {
 320     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 321     FIXME("(%p)->(%p)\n", This, p);
 322     return E_NOTIMPL;
 323 }
 324
 325 static HRESULT WINAPI HTMLBodyElement_put_rightMargin(IHTMLBodyElement *iface, VARIANT v)
 326 {
 327     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 328     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 329     return E_NOTIMPL;
 330 }
 331
 332 static HRESULT WINAPI HTMLBodyElement_get_rightMargin(IHTMLBodyElement *iface, VARIANT *p)
 333 {
 334     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 335     FIXME("(%p)->(%p)\n", This, p);
 336     return E_NOTIMPL;
 337 }
 338
 339 static HRESULT WINAPI HTMLBodyElement_put_bottomMargin(IHTMLBodyElement *iface, VARIANT v)
 340 {
 341     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 342     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 343     return E_NOTIMPL;
 344 }
 345
 346 static HRESULT WINAPI HTMLBodyElement_get_bottomMargin(IHTMLBodyElement *iface, VARIANT *p)
 347 {
 348     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 349     FIXME("(%p)->(%p)\n", This, p);
 350     return E_NOTIMPL;
 351 }
 352
 353 static HRESULT WINAPI HTMLBodyElement_put_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL v)
 354 {
 355     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 356     FIXME("(%p)->(%x)\n", This, v);
 357     return E_NOTIMPL;
 358 }
 359
 360 static HRESULT WINAPI HTMLBodyElement_get_noWrap(IHTMLBodyElement *iface, VARIANT_BOOL *p)
 361 {
 362     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 363     FIXME("(%p)->(%p)\n", This, p);
 364     return E_NOTIMPL;
 365 }
 366
 367 static HRESULT WINAPI HTMLBodyElement_put_bgColor(IHTMLBodyElement *iface, VARIANT v)
 368 {
 369     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 370     nsAString strColor;
 371     nsresult nsres;
 372
 373     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 374
 375     if(!variant_to_nscolor(&v, &strColor))
 376         return S_OK;
 377
 378     nsres = nsIDOMHTMLBodyElement_SetBgColor(This->nsbody, &strColor);
 379     nsAString_Finish(&strColor);
 380     if(NS_FAILED(nsres))
 381         ERR("SetBgColor failed: %08lx\n", nsres);
 382
 383     return S_OK;
 384 }
 385
 386 static HRESULT WINAPI HTMLBodyElement_get_bgColor(IHTMLBodyElement *iface, VARIANT *p)
 387 {
 388     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 389     nsAString nsstr;
 390     nsresult nsres;
 391
 392     TRACE("(%p)->(%p)\n", This, p);
 393
 394     nsAString_Init(&nsstr, NULL);
 395     nsres = nsIDOMHTMLBodyElement_GetBgColor(This->nsbody, &nsstr);
 396     return return_nsstr_variant(nsres, &nsstr, NSSTR_COLOR, p);
 397 }
 398
 399 static HRESULT WINAPI HTMLBodyElement_put_text(IHTMLBodyElement *iface, VARIANT v)
 400 {
 401     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 402     nsAString text;
 403     nsresult nsres;
 404
 405     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 406
 407     if(!variant_to_nscolor(&v, &text))
 408         return S_OK;
 409
 410     nsres = nsIDOMHTMLBodyElement_SetText(This->nsbody, &text);
 411     nsAString_Finish(&text);
 412     if(NS_FAILED(nsres)) {
 413         ERR("SetText failed: %08lx\n", nsres);
 414         return E_FAIL;
 415     }
 416
 417     return S_OK;
 418 }
 419
 420 static HRESULT WINAPI HTMLBodyElement_get_text(IHTMLBodyElement *iface, VARIANT *p)
 421 {
 422     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 423     nsAString text;
 424     nsresult nsres;
 425     HRESULT hres;
 426
 427     TRACE("(%p)->(%p)\n", This, p);
 428
 429     nsAString_Init(&text, NULL);
 430     nsres = nsIDOMHTMLBodyElement_GetText(This->nsbody, &text);
 431     if(NS_SUCCEEDED(nsres)) {
 432         const PRUnichar *color;
 433
 434         nsAString_GetData(&text, &color);
 435         V_VT(p) = VT_BSTR;
 436         hres = nscolor_to_str(color, &V_BSTR(p));
 437     }else {
 438         ERR("GetText failed: %08lx\n", nsres);
 439         hres = E_FAIL;
 440     }
 441
 442     nsAString_Finish(&text);
 443
 444     return hres;
 445 }
 446
 447 static HRESULT WINAPI HTMLBodyElement_put_link(IHTMLBodyElement *iface, VARIANT v)
 448 {
 449     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 450     nsAString link_str;
 451     nsresult nsres;
 452
 453     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 454
 455     if(!variant_to_nscolor(&v, &link_str))
 456         return S_OK;
 457
 458     nsres = nsIDOMHTMLBodyElement_SetLink(This->nsbody, &link_str);
 459     nsAString_Finish(&link_str);
 460     if(NS_FAILED(nsres))
 461         ERR("SetLink failed: %08lx\n", nsres);
 462
 463     return S_OK;
 464 }
 465
 466 static HRESULT WINAPI HTMLBodyElement_get_link(IHTMLBodyElement *iface, VARIANT *p)
 467 {
 468     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 469     nsAString link_str;
 470     nsresult nsres;
 471
 472     TRACE("(%p)->(%p)\n", This, p);
 473
 474     nsAString_Init(&link_str, NULL);
 475     nsres = nsIDOMHTMLBodyElement_GetLink(This->nsbody, &link_str);
 476     return return_nscolor(nsres, &link_str, p);
 477 }
 478
 479 static HRESULT WINAPI HTMLBodyElement_put_vLink(IHTMLBodyElement *iface, VARIANT v)
 480 {
 481     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 482     nsAString vlink_str;
 483     nsresult nsres;
 484
 485     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 486
 487     if(!variant_to_nscolor(&v, &vlink_str))
 488         return S_OK;
 489
 490     nsres = nsIDOMHTMLBodyElement_SetVLink(This->nsbody, &vlink_str);
 491     nsAString_Finish(&vlink_str);
 492     if(NS_FAILED(nsres))
 493         ERR("SetLink failed: %08lx\n", nsres);
 494
 495     return S_OK;
 496 }
 497
 498 static HRESULT WINAPI HTMLBodyElement_get_vLink(IHTMLBodyElement *iface, VARIANT *p)
 499 {
 500     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 501     nsAString vlink_str;
 502     nsresult nsres;
 503
 504     TRACE("(%p)->(%p)\n", This, p);
 505
 506     nsAString_Init(&vlink_str, NULL);
 507     nsres = nsIDOMHTMLBodyElement_GetVLink(This->nsbody, &vlink_str);
 508     return return_nscolor(nsres, &vlink_str, p);
 509 }
 510
 511 static HRESULT WINAPI HTMLBodyElement_put_aLink(IHTMLBodyElement *iface, VARIANT v)
 512 {
 513     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 514     nsAString alink_str;
 515     nsresult nsres;
 516
 517     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 518
 519     if(!variant_to_nscolor(&v, &alink_str))
 520         return S_OK;
 521
 522     nsres = nsIDOMHTMLBodyElement_SetALink(This->nsbody, &alink_str);
 523     nsAString_Finish(&alink_str);
 524     if(NS_FAILED(nsres))
 525         ERR("SetALink failed: %08lx\n", nsres);
 526
 527     return S_OK;
 528 }
 529
 530 static HRESULT WINAPI HTMLBodyElement_get_aLink(IHTMLBodyElement *iface, VARIANT *p)
 531 {
 532     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 533     nsAString alink_str;
 534     nsresult nsres;
 535
 536     TRACE("(%p)->(%p)\n", This, p);
 537
 538     nsAString_Init(&alink_str, NULL);
 539     nsres = nsIDOMHTMLBodyElement_GetALink(This->nsbody, &alink_str);
 540     return return_nscolor(nsres, &alink_str, p);
 541 }
 542
 543 static HRESULT WINAPI HTMLBodyElement_put_onload(IHTMLBodyElement *iface, VARIANT v)
 544 {
 545     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 546
 547     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 548
 549     return set_node_event(&This->element.node, EVENTID_LOAD, &v);
 550 }
 551
 552 static HRESULT WINAPI HTMLBodyElement_get_onload(IHTMLBodyElement *iface, VARIANT *p)
 553 {
 554     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 555
 556     TRACE("(%p)->(%p)\n", This, p);
 557
 558     return get_node_event(&This->element.node, EVENTID_LOAD, p);
 559 }
 560
 561 static HRESULT WINAPI HTMLBodyElement_put_onunload(IHTMLBodyElement *iface, VARIANT v)
 562 {
 563     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 564     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 565     return E_NOTIMPL;
 566 }
 567
 568 static HRESULT WINAPI HTMLBodyElement_get_onunload(IHTMLBodyElement *iface, VARIANT *p)
 569 {
 570     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 571     FIXME("(%p)->(%p)\n", This, p);
 572     return E_NOTIMPL;
 573 }
 574
 575 static HRESULT WINAPI HTMLBodyElement_put_scroll(IHTMLBodyElement *iface, BSTR v)
 576 {
 577     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 578     static const WCHAR *val;
 579
 580     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 581
 582     /* Emulate with CSS visibility attribute */
 583     if(!wcscmp(v, L"yes")) {
 584         val = L"scroll";
 585     }else if(!wcscmp(v, L"auto")) {
 586         val = L"visible";
 587     }else if(!wcscmp(v, L"no")) {
 588         val = L"hidden";
 589     }else {
 590         WARN("Invalid argument %s\n", debugstr_w(v));
 591         return E_INVALIDARG;
 592     }
 593
 594     return set_elem_style(&This->element, STYLEID_OVERFLOW, val);
 595 }
 596
 597 static HRESULT WINAPI HTMLBodyElement_get_scroll(IHTMLBodyElement *iface, BSTR *p)
 598 {
 599     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 600     const WCHAR *ret = NULL;
 601     BSTR overflow;
 602     HRESULT hres;
 603
 604     TRACE("(%p)->(%p)\n", This, p);
 605
 606     /* Emulate with CSS visibility attribute */
 607     hres = get_elem_style(&This->element, STYLEID_OVERFLOW, &overflow);
 608     if(FAILED(hres))
 609         return hres;
 610
 611     if(!overflow || !*overflow) {
 612         *p = NULL;
 613         hres = S_OK;
 614     }else if(!wcscmp(overflow, L"visible") || !wcscmp(overflow, L"auto")) {
 615         ret = L"auto";
 616     }else if(!wcscmp(overflow, L"scroll")) {
 617         ret = L"yes";
 618     }else if(!wcscmp(overflow, L"hidden")) {
 619         ret = L"no";
 620     }else {
 621         TRACE("Defaulting %s to NULL\n", debugstr_w(overflow));
 622         *p = NULL;
 623         hres = S_OK;
 624     }
 625
 626     SysFreeString(overflow);
 627     if(ret) {
 628         *p = SysAllocString(ret);
 629         hres = *p ? S_OK : E_OUTOFMEMORY;
 630     }
 631
 632     return hres;
 633 }
 634
 635 static HRESULT WINAPI HTMLBodyElement_put_onselect(IHTMLBodyElement *iface, VARIANT v)
 636 {
 637     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 638     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 639     return E_NOTIMPL;
 640 }
 641
 642 static HRESULT WINAPI HTMLBodyElement_get_onselect(IHTMLBodyElement *iface, VARIANT *p)
 643 {
 644     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 645     FIXME("(%p)->(%p)\n", This, p);
 646     return E_NOTIMPL;
 647 }
 648
 649 static HRESULT WINAPI HTMLBodyElement_put_onbeforeunload(IHTMLBodyElement *iface, VARIANT v)
 650 {
 651     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 652     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 653     return E_NOTIMPL;
 654 }
 655
 656 static HRESULT WINAPI HTMLBodyElement_get_onbeforeunload(IHTMLBodyElement *iface, VARIANT *p)
 657 {
 658     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 659     FIXME("(%p)->(%p)\n", This, p);
 660     return E_NOTIMPL;
 661 }
 662
 663 static HRESULT WINAPI HTMLBodyElement_createTextRange(IHTMLBodyElement *iface, IHTMLTxtRange **range)
 664 {
 665     HTMLBodyElement *This = impl_from_IHTMLBodyElement(iface);
 666     nsIDOMRange *nsrange = NULL;
 667     nsresult nsres;
 668     HRESULT hres;
 669
 670     TRACE("(%p)->(%p)\n", This, range);
 671
 672     if(!This->element.node.doc->dom_document) {
 673         WARN("No dom_document\n");
 674         return E_UNEXPECTED;
 675     }
 676
 677     nsres = nsIDOMDocument_CreateRange(This->element.node.doc->dom_document, &nsrange);
 678     if(NS_SUCCEEDED(nsres)) {
 679         nsres = nsIDOMRange_SelectNodeContents(nsrange, This->element.node.nsnode);
 680         if(NS_FAILED(nsres))
 681             ERR("SelectNodeContents failed: %08lx\n", nsres);
 682     }else {
 683         ERR("CreateRange failed: %08lx\n", nsres);
 684     }
 685
 686     hres = HTMLTxtRange_Create(This->element.node.doc, nsrange, range);
 687
 688     nsIDOMRange_Release(nsrange);
 689     return hres;
 690 }
 691
 692 static const IHTMLBodyElementVtbl HTMLBodyElementVtbl = {
 693     HTMLBodyElement_QueryInterface,
 694     HTMLBodyElement_AddRef,
 695     HTMLBodyElement_Release,
 696     HTMLBodyElement_GetTypeInfoCount,
 697     HTMLBodyElement_GetTypeInfo,
 698     HTMLBodyElement_GetIDsOfNames,
 699     HTMLBodyElement_Invoke,
 700     HTMLBodyElement_put_background,
 701     HTMLBodyElement_get_background,
 702     HTMLBodyElement_put_bgProperties,
 703     HTMLBodyElement_get_bgProperties,
 704     HTMLBodyElement_put_leftMargin,
 705     HTMLBodyElement_get_leftMargin,
 706     HTMLBodyElement_put_topMargin,
 707     HTMLBodyElement_get_topMargin,
 708     HTMLBodyElement_put_rightMargin,
 709     HTMLBodyElement_get_rightMargin,
 710     HTMLBodyElement_put_bottomMargin,
 711     HTMLBodyElement_get_bottomMargin,
 712     HTMLBodyElement_put_noWrap,
 713     HTMLBodyElement_get_noWrap,
 714     HTMLBodyElement_put_bgColor,
 715     HTMLBodyElement_get_bgColor,
 716     HTMLBodyElement_put_text,
 717     HTMLBodyElement_get_text,
 718     HTMLBodyElement_put_link,
 719     HTMLBodyElement_get_link,
 720     HTMLBodyElement_put_vLink,
 721     HTMLBodyElement_get_vLink,
 722     HTMLBodyElement_put_aLink,
 723     HTMLBodyElement_get_aLink,
 724     HTMLBodyElement_put_onload,
 725     HTMLBodyElement_get_onload,
 726     HTMLBodyElement_put_onunload,
 727     HTMLBodyElement_get_onunload,
 728     HTMLBodyElement_put_scroll,
 729     HTMLBodyElement_get_scroll,
 730     HTMLBodyElement_put_onselect,
 731     HTMLBodyElement_get_onselect,
 732     HTMLBodyElement_put_onbeforeunload,
 733     HTMLBodyElement_get_onbeforeunload,
 734     HTMLBodyElement_createTextRange
 735 };
 736
 737 static inline HTMLBodyElement *impl_from_IHTMLTextContainer(IHTMLTextContainer *iface)
 738 {
 739     return CONTAINING_RECORD(iface, HTMLBodyElement, IHTMLTextContainer_iface);
 740 }
 741
 742 static HRESULT WINAPI HTMLTextContainer_QueryInterface(IHTMLTextContainer *iface,
 743                                                        REFIID riid, void **ppv)
 744 {
 745     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 746     return IHTMLElement_QueryInterface(&This->element.IHTMLElement_iface, riid, ppv);
 747 }
 748
 749 static ULONG WINAPI HTMLTextContainer_AddRef(IHTMLTextContainer *iface)
 750 {
 751     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 752     return IHTMLElement_AddRef(&This->element.IHTMLElement_iface);
 753 }
 754
 755 static ULONG WINAPI HTMLTextContainer_Release(IHTMLTextContainer *iface)
 756 {
 757     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 758     return IHTMLElement_Release(&This->element.IHTMLElement_iface);
 759 }
 760
 761 static HRESULT WINAPI HTMLTextContainer_GetTypeInfoCount(IHTMLTextContainer *iface, UINT *pctinfo)
 762 {
 763     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 764     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
 765 }
 766
 767 static HRESULT WINAPI HTMLTextContainer_GetTypeInfo(IHTMLTextContainer *iface, UINT iTInfo,
 768                                               LCID lcid, ITypeInfo **ppTInfo)
 769 {
 770     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 771     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
 772             ppTInfo);
 773 }
 774
 775 static HRESULT WINAPI HTMLTextContainer_GetIDsOfNames(IHTMLTextContainer *iface, REFIID riid,
 776                                                 LPOLESTR *rgszNames, UINT cNames,
 777                                                 LCID lcid, DISPID *rgDispId)
 778 {
 779     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 780     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
 781             cNames, lcid, rgDispId);
 782 }
 783
 784 static HRESULT WINAPI HTMLTextContainer_Invoke(IHTMLTextContainer *iface, DISPID dispIdMember,
 785                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 786                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 787 {
 788     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 789     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
 790             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 791 }
 792
 793 static HRESULT WINAPI HTMLTextContainer_createControlRange(IHTMLTextContainer *iface,
 794                                                            IDispatch **range)
 795 {
 796     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 797     FIXME("(%p)->(%p)\n", This, range);
 798     return E_NOTIMPL;
 799 }
 800
 801 static HRESULT WINAPI HTMLTextContainer_get_scrollHeight(IHTMLTextContainer *iface, LONG *p)
 802 {
 803     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 804
 805     TRACE("(%p)->(%p)\n", This, p);
 806
 807     return IHTMLElement2_get_scrollHeight(&This->element.IHTMLElement2_iface, p);
 808 }
 809
 810 static HRESULT WINAPI HTMLTextContainer_get_scrollWidth(IHTMLTextContainer *iface, LONG *p)
 811 {
 812     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 813
 814     TRACE("(%p)->(%p)\n", This, p);
 815
 816     return IHTMLElement2_get_scrollWidth(&This->element.IHTMLElement2_iface, p);
 817 }
 818
 819 static HRESULT WINAPI HTMLTextContainer_put_scrollTop(IHTMLTextContainer *iface, LONG v)
 820 {
 821     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 822
 823     TRACE("(%p)->(%ld)\n", This, v);
 824
 825     return IHTMLElement2_put_scrollTop(&This->element.IHTMLElement2_iface, v);
 826 }
 827
 828 static HRESULT WINAPI HTMLTextContainer_get_scrollTop(IHTMLTextContainer *iface, LONG *p)
 829 {
 830     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 831
 832     TRACE("(%p)->(%p)\n", This, p);
 833
 834     return IHTMLElement2_get_scrollTop(&This->element.IHTMLElement2_iface, p);
 835 }
 836
 837 static HRESULT WINAPI HTMLTextContainer_put_scrollLeft(IHTMLTextContainer *iface, LONG v)
 838 {
 839     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 840
 841     TRACE("(%p)->(%ld)\n", This, v);
 842
 843     return IHTMLElement2_put_scrollLeft(&This->element.IHTMLElement2_iface, v);
 844 }
 845
 846 static HRESULT WINAPI HTMLTextContainer_get_scrollLeft(IHTMLTextContainer *iface, LONG *p)
 847 {
 848     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 849
 850     TRACE("(%p)->(%p)\n", This, p);
 851
 852     return IHTMLElement2_get_scrollLeft(&This->element.IHTMLElement2_iface, p);
 853 }
 854
 855 static HRESULT WINAPI HTMLTextContainer_put_onscroll(IHTMLTextContainer *iface, VARIANT v)
 856 {
 857     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 858     FIXME("(%p)->()\n", This);
 859     return E_NOTIMPL;
 860 }
 861
 862 static HRESULT WINAPI HTMLTextContainer_get_onscroll(IHTMLTextContainer *iface, VARIANT *p)
 863 {
 864     HTMLBodyElement *This = impl_from_IHTMLTextContainer(iface);
 865     FIXME("(%p)->(%p)\n", This, p);
 866     return E_NOTIMPL;
 867 }
 868
 869 static const IHTMLTextContainerVtbl HTMLTextContainerVtbl = {
 870     HTMLTextContainer_QueryInterface,
 871     HTMLTextContainer_AddRef,
 872     HTMLTextContainer_Release,
 873     HTMLTextContainer_GetTypeInfoCount,
 874     HTMLTextContainer_GetTypeInfo,
 875     HTMLTextContainer_GetIDsOfNames,
 876     HTMLTextContainer_Invoke,
 877     HTMLTextContainer_createControlRange,
 878     HTMLTextContainer_get_scrollHeight,
 879     HTMLTextContainer_get_scrollWidth,
 880     HTMLTextContainer_put_scrollTop,
 881     HTMLTextContainer_get_scrollTop,
 882     HTMLTextContainer_put_scrollLeft,
 883     HTMLTextContainer_get_scrollLeft,
 884     HTMLTextContainer_put_onscroll,
 885     HTMLTextContainer_get_onscroll
 886 };
 887
 888 static inline HTMLBodyElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
 889 {
 890     return CONTAINING_RECORD(iface, HTMLBodyElement, element.node);
 891 }
 892
 893 static HRESULT HTMLBodyElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 894 {
 895     HTMLBodyElement *This = impl_from_HTMLDOMNode(iface);
 896
 897     *ppv = NULL;
 898
 899     if(IsEqualGUID(&IID_IUnknown, riid)) {
 900         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 901         *ppv = &This->IHTMLBodyElement_iface;
 902     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 903         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 904         *ppv = &This->IHTMLBodyElement_iface;
 905     }else if(IsEqualGUID(&IID_IHTMLBodyElement, riid)) {
 906         TRACE("(%p)->(IID_IHTMLBodyElement %p)\n", This, ppv);
 907         *ppv = &This->IHTMLBodyElement_iface;
 908     }else if(IsEqualGUID(&IID_IHTMLTextContainer, riid)) {
 909         TRACE("(%p)->(IID_IHTMLTextContainer %p)\n", This, ppv);
 910         *ppv = &This->IHTMLTextContainer_iface;
 911     }
 912
 913     if(*ppv) {
 914         IUnknown_AddRef((IUnknown*)*ppv);
 915         return S_OK;
 916     }
 917
 918     return HTMLElement_QI(&This->element.node, riid, ppv);
 919 }
 920
 921 static void HTMLBodyElement_traverse(HTMLDOMNode *iface, nsCycleCollectionTraversalCallback *cb)
 922 {
 923     HTMLBodyElement *This = impl_from_HTMLDOMNode(iface);
 924
 925     if(This->nsbody)
 926         note_cc_edge((nsISupports*)This->nsbody, "This->nsbody", cb);
 927 }
 928
 929 static void HTMLBodyElement_unlink(HTMLDOMNode *iface)
 930 {
 931     HTMLBodyElement *This = impl_from_HTMLDOMNode(iface);
 932
 933     if(This->nsbody) {
 934         nsIDOMHTMLBodyElement *nsbody = This->nsbody;
 935         This->nsbody = NULL;
 936         nsIDOMHTMLBodyElement_Release(nsbody);
 937     }
 938 }
 939
 940 static EventTarget *HTMLBodyElement_get_event_prop_target(HTMLDOMNode *iface, int event_id)
 941 {
 942     HTMLBodyElement *This = impl_from_HTMLDOMNode(iface);
 943
 944     switch(event_id) {
 945     case EVENTID_BLUR:
 946     case EVENTID_ERROR:
 947     case EVENTID_FOCUS:
 948     case EVENTID_LOAD:
 949     case EVENTID_SCROLL:
 950         return This->element.node.doc && This->element.node.doc->window
 951             ? &This->element.node.doc->window->event_target
 952             : &This->element.node.event_target;
 953     default:
 954         return &This->element.node.event_target;
 955     }
 956 }
 957
 958 static BOOL HTMLBodyElement_is_text_edit(HTMLDOMNode *iface)
 959 {
 960     return TRUE;
 961 }
 962
 963 static BOOL HTMLBodyElement_is_settable(HTMLDOMNode *iface, DISPID dispid)
 964 {
 965     switch(dispid) {
 966     case DISPID_IHTMLELEMENT_OUTERTEXT:
 967         return FALSE;
 968     default:
 969         return TRUE;
 970     }
 971 }
 972
 973 static const cpc_entry_t HTMLBodyElement_cpc[] = {
 974     {&DIID_HTMLTextContainerEvents},
 975     {&IID_IPropertyNotifySink},
 976     HTMLELEMENT_CPC,
 977     {NULL}
 978 };
 979
 980 static const NodeImplVtbl HTMLBodyElementImplVtbl = {
 981     &CLSID_HTMLBody,
 982     HTMLBodyElement_QI,
 983     HTMLElement_destructor,
 984     HTMLBodyElement_cpc,
 985     HTMLElement_clone,
 986     HTMLElement_handle_event,
 987     HTMLElement_get_attr_col,
 988     HTMLBodyElement_get_event_prop_target,
 989     NULL,
 990     NULL,
 991     NULL,
 992     NULL,
 993     NULL,
 994     NULL,
 995     NULL,
 996     NULL,
 997     HTMLBodyElement_traverse,
 998     HTMLBodyElement_unlink,
 999     HTMLBodyElement_is_text_edit,
1000     HTMLBodyElement_is_settable
1001 };
1002
1003 static const tid_t HTMLBodyElement_iface_tids[] = {
1004     IHTMLBodyElement_tid,
1005     IHTMLBodyElement2_tid,
1006     HTMLELEMENT_TIDS,
1007     IHTMLTextContainer_tid,
1008     0
1009 };
1010
1011 static dispex_static_data_t HTMLBodyElement_dispex = {
1012     L"HTMLBodyElement",
1013     NULL,
1014     DispHTMLBody_tid,
1015     HTMLBodyElement_iface_tids,
1016     HTMLElement_init_dispex_info
1017 };
1018
1019 HRESULT HTMLBodyElement_Create(HTMLDocumentNode *doc, nsIDOMElement *nselem, HTMLElement **elem)
1020 {
1021     HTMLBodyElement *ret;
1022     nsresult nsres;
1023
1024     ret = calloc(1, sizeof(HTMLBodyElement));
1025     if(!ret)
1026         return E_OUTOFMEMORY;
1027
1028     ret->IHTMLBodyElement_iface.lpVtbl = &HTMLBodyElementVtbl;
1029     ret->IHTMLTextContainer_iface.lpVtbl = &HTMLTextContainerVtbl;
1030     ret->element.node.vtbl = &HTMLBodyElementImplVtbl;
1031
1032     HTMLElement_Init(&ret->element, doc, nselem, &HTMLBodyElement_dispex);
1033
1034     nsres = nsIDOMElement_QueryInterface(nselem, &IID_nsIDOMHTMLBodyElement, (void**)&ret->nsbody);
1035     assert(nsres == NS_OK);
1036
1037     *elem = &ret->element;
1038     return S_OK;
1039 }