git.oblomov.eu Git - wine/blob - dlls/mshtml/htmlelem.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
  20 #include <stdarg.h>
  21
  22 #define COBJMACROS
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "winreg.h"
  28 #include "ole2.h"
  29 #include "shlwapi.h"
  30
  31 #include "wine/debug.h"
  32 #include "wine/unicode.h"
  33
  34 #include "mshtml_private.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  37
  38 static IHTMLElementCollection *HTMLElementCollection_Create(IUnknown*,HTMLElement**,DWORD);
  39
  40 typedef struct {
  41     HTMLElement **buf;
  42     DWORD len;
  43     DWORD size;
  44 } elem_vector;
  45
  46 static void elem_vector_add(elem_vector *buf, HTMLElement *elem)
  47 {
  48     if(buf->len == buf->size) {
  49         buf->size <<= 1;
  50         buf->buf = heap_realloc(buf->buf, buf->size*sizeof(HTMLElement**));
  51     }
  52
  53     buf->buf[buf->len++] = elem;
  54 }
  55
  56 static void elem_vector_normalize(elem_vector *buf)
  57 {
  58     if(!buf->len) {
  59         heap_free(buf->buf);
  60         buf->buf = NULL;
  61     }else if(buf->size > buf->len) {
  62         buf->buf = heap_realloc(buf->buf, buf->len*sizeof(HTMLElement**));
  63     }
  64
  65     buf->size = buf->len;
  66 }
  67
  68 static BOOL is_elem_node(nsIDOMNode *node)
  69 {
  70     PRUint16 type=0;
  71
  72     nsIDOMNode_GetNodeType(node, &type);
  73
  74     return type == ELEMENT_NODE || type == COMMENT_NODE;
  75 }
  76
  77 #define HTMLELEM_THIS(iface) DEFINE_THIS(HTMLElement, HTMLElement, iface)
  78
  79 #define HTMLELEM_NODE_THIS(iface) DEFINE_THIS2(HTMLElement, node, iface)
  80
  81 static HRESULT WINAPI HTMLElement_QueryInterface(IHTMLElement *iface,
  82                                                  REFIID riid, void **ppv)
  83 {
  84     HTMLElement *This = HTMLELEM_THIS(iface);
  85
  86     return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This->node), riid, ppv);
  87 }
  88
  89 static ULONG WINAPI HTMLElement_AddRef(IHTMLElement *iface)
  90 {
  91     HTMLElement *This = HTMLELEM_THIS(iface);
  92
  93     return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This->node));
  94 }
  95
  96 static ULONG WINAPI HTMLElement_Release(IHTMLElement *iface)
  97 {
  98     HTMLElement *This = HTMLELEM_THIS(iface);
  99
 100     return IHTMLDOMNode_Release(HTMLDOMNODE(&This->node));
 101 }
 102
 103 static HRESULT WINAPI HTMLElement_GetTypeInfoCount(IHTMLElement *iface, UINT *pctinfo)
 104 {
 105     HTMLElement *This = HTMLELEM_THIS(iface);
 106     FIXME("(%p)->(%p)\n", This, pctinfo);
 107     return E_NOTIMPL;
 108 }
 109
 110 static HRESULT WINAPI HTMLElement_GetTypeInfo(IHTMLElement *iface, UINT iTInfo,
 111                                               LCID lcid, ITypeInfo **ppTInfo)
 112 {
 113     HTMLElement *This = HTMLELEM_THIS(iface);
 114     FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 115     return E_NOTIMPL;
 116 }
 117
 118 static HRESULT WINAPI HTMLElement_GetIDsOfNames(IHTMLElement *iface, REFIID riid,
 119                                                 LPOLESTR *rgszNames, UINT cNames,
 120                                                 LCID lcid, DISPID *rgDispId)
 121 {
 122     HTMLElement *This = HTMLELEM_THIS(iface);
 123     FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 124                                         lcid, rgDispId);
 125     return E_NOTIMPL;
 126 }
 127
 128 static HRESULT WINAPI HTMLElement_Invoke(IHTMLElement *iface, DISPID dispIdMember,
 129                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 130                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 131 {
 132     HTMLElement *This = HTMLELEM_THIS(iface);
 133     FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 134             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 135     return E_NOTIMPL;
 136 }
 137
 138 static HRESULT WINAPI HTMLElement_setAttribute(IHTMLElement *iface, BSTR strAttributeName,
 139                                                VARIANT AttributeValue, LONG lFlags)
 140 {
 141     HTMLElement *This = HTMLELEM_THIS(iface);
 142     nsAString attr_str;
 143     nsAString value_str;
 144     nsresult nsres;
 145     HRESULT hres;
 146     VARIANT AttributeValueChanged;
 147
 148     WARN("(%p)->(%s . %08x)\n", This, debugstr_w(strAttributeName), lFlags);
 149
 150     if(!This->nselem) {
 151         FIXME("NULL nselem\n");
 152         return E_NOTIMPL;
 153     }
 154
 155     VariantInit(&AttributeValueChanged);
 156
 157     hres = VariantChangeType(&AttributeValueChanged, &AttributeValue, 0, VT_BSTR);
 158     if (FAILED(hres)) {
 159         WARN("couldn't convert input attribute value %d to VT_BSTR\n", V_VT(&AttributeValue));
 160         return hres;
 161     }
 162
 163     nsAString_Init(&attr_str, strAttributeName);
 164     nsAString_Init(&value_str, V_BSTR(&AttributeValueChanged));
 165
 166     TRACE("setting %s to %s\n", debugstr_w(strAttributeName),
 167         debugstr_w(V_BSTR(&AttributeValueChanged)));
 168
 169     nsres = nsIDOMHTMLElement_SetAttribute(This->nselem, &attr_str, &value_str);
 170     nsAString_Finish(&attr_str);
 171     nsAString_Finish(&value_str);
 172
 173     if(NS_SUCCEEDED(nsres)) {
 174         hres = S_OK;
 175     }else {
 176         ERR("SetAttribute failed: %08x\n", nsres);
 177         hres = E_FAIL;
 178     }
 179
 180     return hres;
 181 }
 182
 183 static HRESULT WINAPI HTMLElement_getAttribute(IHTMLElement *iface, BSTR strAttributeName,
 184                                                LONG lFlags, VARIANT *AttributeValue)
 185 {
 186     HTMLElement *This = HTMLELEM_THIS(iface);
 187     nsAString attr_str;
 188     nsAString value_str;
 189     const PRUnichar *value;
 190     nsresult nsres;
 191     HRESULT hres = S_OK;
 192
 193     WARN("(%p)->(%s %08x %p)\n", This, debugstr_w(strAttributeName), lFlags, AttributeValue);
 194
 195     if(!This->nselem) {
 196         FIXME("NULL nselem\n");
 197         V_VT(AttributeValue) = VT_NULL;
 198         return S_OK;
 199     }
 200
 201     V_VT(AttributeValue) = VT_NULL;
 202
 203     nsAString_Init(&attr_str, strAttributeName);
 204     nsAString_Init(&value_str, NULL);
 205
 206     nsres = nsIDOMHTMLElement_GetAttribute(This->nselem, &attr_str, &value_str);
 207     nsAString_Finish(&attr_str);
 208
 209     if(NS_SUCCEEDED(nsres)) {
 210         static const WCHAR wszSRC[] = {'s','r','c',0};
 211         nsAString_GetData(&value_str, &value);
 212         if(!strcmpiW(strAttributeName, wszSRC))
 213         {
 214             WCHAR buffer[256];
 215             DWORD len;
 216             BSTR bstrBaseUrl;
 217             hres = IHTMLDocument2_get_URL(HTMLDOC(This->node.doc), &bstrBaseUrl);
 218             if(SUCCEEDED(hres)) {
 219                 hres = CoInternetCombineUrl(bstrBaseUrl, value,
 220                                             URL_ESCAPE_SPACES_ONLY|URL_DONT_ESCAPE_EXTRA_INFO,
 221                                             buffer, sizeof(buffer)/sizeof(WCHAR), &len, 0);
 222                 SysFreeString(bstrBaseUrl);
 223                 if(SUCCEEDED(hres)) {
 224                     V_VT(AttributeValue) = VT_BSTR;
 225                     V_BSTR(AttributeValue) = SysAllocString(buffer);
 226                     TRACE("attr_value=%s\n", debugstr_w(V_BSTR(AttributeValue)));
 227                 }
 228             }
 229         }else if(*value) {
 230             V_VT(AttributeValue) = VT_BSTR;
 231             V_BSTR(AttributeValue) = SysAllocString(value);
 232             TRACE("attr_value=%s\n", debugstr_w(V_BSTR(AttributeValue)));
 233         }
 234     }else {
 235         ERR("GetAttribute failed: %08x\n", nsres);
 236         hres = E_FAIL;
 237     }
 238
 239     nsAString_Finish(&value_str);
 240
 241     return hres;
 242 }
 243
 244 static HRESULT WINAPI HTMLElement_removeAttribute(IHTMLElement *iface, BSTR strAttributeName,
 245                                                   LONG lFlags, VARIANT_BOOL *pfSuccess)
 246 {
 247     HTMLElement *This = HTMLELEM_THIS(iface);
 248     FIXME("(%p)->()\n", This);
 249     return E_NOTIMPL;
 250 }
 251
 252 static HRESULT WINAPI HTMLElement_put_className(IHTMLElement *iface, BSTR v)
 253 {
 254     HTMLElement *This = HTMLELEM_THIS(iface);
 255     nsAString classname_str;
 256     nsresult nsres;
 257
 258     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 259
 260     if(!This->nselem) {
 261         FIXME("NULL nselem\n");
 262         return E_NOTIMPL;
 263     }
 264
 265     nsAString_Init(&classname_str, v);
 266     nsres = nsIDOMHTMLElement_SetClassName(This->nselem, &classname_str);
 267     nsAString_Finish(&classname_str);
 268     if(NS_FAILED(nsres))
 269         ERR("SetClassName failed: %08x\n", nsres);
 270
 271     return S_OK;
 272 }
 273
 274 static HRESULT WINAPI HTMLElement_get_className(IHTMLElement *iface, BSTR *p)
 275 {
 276     HTMLElement *This = HTMLELEM_THIS(iface);
 277     nsAString class_str;
 278     nsresult nsres;
 279     HRESULT hres = S_OK;
 280
 281     TRACE("(%p)->(%p)\n", This, p);
 282
 283     if(!This->nselem) {
 284         FIXME("NULL nselem\n");
 285         return E_NOTIMPL;
 286     }
 287
 288     nsAString_Init(&class_str, NULL);
 289     nsres = nsIDOMHTMLElement_GetClassName(This->nselem, &class_str);
 290
 291     if(NS_SUCCEEDED(nsres)) {
 292         const PRUnichar *class;
 293         nsAString_GetData(&class_str, &class);
 294         *p = *class ? SysAllocString(class) : NULL;
 295     }else {
 296         ERR("GetClassName failed: %08x\n", nsres);
 297         hres = E_FAIL;
 298     }
 299
 300     nsAString_Finish(&class_str);
 301
 302     TRACE("className=%s\n", debugstr_w(*p));
 303     return hres;
 304 }
 305
 306 static HRESULT WINAPI HTMLElement_put_id(IHTMLElement *iface, BSTR v)
 307 {
 308     HTMLElement *This = HTMLELEM_THIS(iface);
 309     nsAString id_str;
 310     nsresult nsres;
 311
 312     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 313
 314     if(!This->nselem) {
 315         FIXME("nselem == NULL\n");
 316         return S_OK;
 317     }
 318
 319     nsAString_Init(&id_str, v);
 320     nsres = nsIDOMHTMLElement_SetId(This->nselem, &id_str);
 321     nsAString_Finish(&id_str);
 322     if(NS_FAILED(nsres))
 323         ERR("SetId failed: %08x\n", nsres);
 324
 325     return S_OK;
 326 }
 327
 328 static HRESULT WINAPI HTMLElement_get_id(IHTMLElement *iface, BSTR *p)
 329 {
 330     HTMLElement *This = HTMLELEM_THIS(iface);
 331     const PRUnichar *id;
 332     nsAString id_str;
 333     nsresult nsres;
 334
 335     TRACE("(%p)->(%p)\n", This, p);
 336
 337     *p = NULL;
 338
 339     if(!This->nselem)
 340         return S_OK;
 341
 342     nsAString_Init(&id_str, NULL);
 343     nsres = nsIDOMHTMLElement_GetId(This->nselem, &id_str);
 344     nsAString_GetData(&id_str, &id);
 345
 346     if(NS_FAILED(nsres))
 347         ERR("GetId failed: %08x\n", nsres);
 348     else if(*id)
 349         *p = SysAllocString(id);
 350
 351     nsAString_Finish(&id_str);
 352     return S_OK;
 353 }
 354
 355 static HRESULT WINAPI HTMLElement_get_tagName(IHTMLElement *iface, BSTR *p)
 356 {
 357     HTMLElement *This = HTMLELEM_THIS(iface);
 358     const PRUnichar *tag;
 359     nsAString tag_str;
 360     nsresult nsres;
 361
 362     TRACE("(%p)->(%p)\n", This, p);
 363
 364     if(!This->nselem) {
 365         static const WCHAR comment_tagW[] = {'!',0};
 366
 367         WARN("NULL nselem, assuming comment\n");
 368
 369         *p = SysAllocString(comment_tagW);
 370         return S_OK;
 371     }
 372
 373     nsAString_Init(&tag_str, NULL);
 374     nsres = nsIDOMHTMLElement_GetTagName(This->nselem, &tag_str);
 375     if(NS_SUCCEEDED(nsres)) {
 376         nsAString_GetData(&tag_str, &tag);
 377         *p = SysAllocString(tag);
 378     }else {
 379         ERR("GetTagName failed: %08x\n", nsres);
 380         *p = NULL;
 381     }
 382     nsAString_Finish(&tag_str);
 383
 384     return S_OK;
 385 }
 386
 387 static HRESULT WINAPI HTMLElement_get_parentElement(IHTMLElement *iface, IHTMLElement **p)
 388 {
 389     HTMLElement *This = HTMLELEM_THIS(iface);
 390     FIXME("(%p)->(%p)\n", This, p);
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT WINAPI HTMLElement_get_style(IHTMLElement *iface, IHTMLStyle **p)
 395 {
 396     HTMLElement *This = HTMLELEM_THIS(iface);
 397     nsIDOMElementCSSInlineStyle *nselemstyle;
 398     nsIDOMCSSStyleDeclaration *nsstyle;
 399     nsresult nsres;
 400
 401     TRACE("(%p)->(%p)\n", This, p);
 402
 403     if(!This->nselem) {
 404         FIXME("NULL nselem\n");
 405         return E_NOTIMPL;
 406     }
 407
 408     nsres = nsIDOMHTMLElement_QueryInterface(This->nselem, &IID_nsIDOMElementCSSInlineStyle,
 409                                              (void**)&nselemstyle);
 410     if(NS_FAILED(nsres)) {
 411         ERR("Coud not get nsIDOMCSSStyleDeclaration interface: %08x\n", nsres);
 412         return E_FAIL;
 413     }
 414
 415     nsres = nsIDOMElementCSSInlineStyle_GetStyle(nselemstyle, &nsstyle);
 416     nsIDOMElementCSSInlineStyle_Release(nselemstyle);
 417     if(NS_FAILED(nsres)) {
 418         ERR("GetStyle failed: %08x\n", nsres);
 419         return E_FAIL;
 420     }
 421
 422     /* FIXME: Store style instead of creating a new instance in each call */
 423     *p = HTMLStyle_Create(nsstyle);
 424
 425     nsIDOMCSSStyleDeclaration_Release(nsstyle);
 426     return S_OK;
 427 }
 428
 429 static HRESULT WINAPI HTMLElement_put_onhelp(IHTMLElement *iface, VARIANT v)
 430 {
 431     HTMLElement *This = HTMLELEM_THIS(iface);
 432     FIXME("(%p)->()\n", This);
 433     return E_NOTIMPL;
 434 }
 435
 436 static HRESULT WINAPI HTMLElement_get_onhelp(IHTMLElement *iface, VARIANT *p)
 437 {
 438     HTMLElement *This = HTMLELEM_THIS(iface);
 439     FIXME("(%p)->(%p)\n", This, p);
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT WINAPI HTMLElement_put_onclick(IHTMLElement *iface, VARIANT v)
 444 {
 445     HTMLElement *This = HTMLELEM_THIS(iface);
 446
 447     TRACE("(%p)->()\n", This);
 448
 449     return set_node_event(&This->node, EVENTID_CLICK, &v);
 450 }
 451
 452 static HRESULT WINAPI HTMLElement_get_onclick(IHTMLElement *iface, VARIANT *p)
 453 {
 454     HTMLElement *This = HTMLELEM_THIS(iface);
 455     FIXME("(%p)->(%p)\n", This, p);
 456     return E_NOTIMPL;
 457 }
 458
 459 static HRESULT WINAPI HTMLElement_put_ondblclick(IHTMLElement *iface, VARIANT v)
 460 {
 461     HTMLElement *This = HTMLELEM_THIS(iface);
 462     FIXME("(%p)->()\n", This);
 463     return E_NOTIMPL;
 464 }
 465
 466 static HRESULT WINAPI HTMLElement_get_ondblclick(IHTMLElement *iface, VARIANT *p)
 467 {
 468     HTMLElement *This = HTMLELEM_THIS(iface);
 469     FIXME("(%p)->(%p)\n", This, p);
 470     return E_NOTIMPL;
 471 }
 472
 473 static HRESULT WINAPI HTMLElement_put_onkeydown(IHTMLElement *iface, VARIANT v)
 474 {
 475     HTMLElement *This = HTMLELEM_THIS(iface);
 476     FIXME("(%p)->()\n", This);
 477     return E_NOTIMPL;
 478 }
 479
 480 static HRESULT WINAPI HTMLElement_get_onkeydown(IHTMLElement *iface, VARIANT *p)
 481 {
 482     HTMLElement *This = HTMLELEM_THIS(iface);
 483     FIXME("(%p)->(%p)\n", This, p);
 484     return E_NOTIMPL;
 485 }
 486
 487 static HRESULT WINAPI HTMLElement_put_onkeyup(IHTMLElement *iface, VARIANT v)
 488 {
 489     HTMLElement *This = HTMLELEM_THIS(iface);
 490
 491     TRACE("(%p)->()\n", This);
 492
 493     return set_node_event(&This->node, EVENTID_KEYUP, &v);
 494 }
 495
 496 static HRESULT WINAPI HTMLElement_get_onkeyup(IHTMLElement *iface, VARIANT *p)
 497 {
 498     HTMLElement *This = HTMLELEM_THIS(iface);
 499     FIXME("(%p)->(%p)\n", This, p);
 500     return E_NOTIMPL;
 501 }
 502
 503 static HRESULT WINAPI HTMLElement_put_onkeypress(IHTMLElement *iface, VARIANT v)
 504 {
 505     HTMLElement *This = HTMLELEM_THIS(iface);
 506     FIXME("(%p)->()\n", This);
 507     return E_NOTIMPL;
 508 }
 509
 510 static HRESULT WINAPI HTMLElement_get_onkeypress(IHTMLElement *iface, VARIANT *p)
 511 {
 512     HTMLElement *This = HTMLELEM_THIS(iface);
 513     FIXME("(%p)->(%p)\n", This, p);
 514     return E_NOTIMPL;
 515 }
 516
 517 static HRESULT WINAPI HTMLElement_put_onmouseout(IHTMLElement *iface, VARIANT v)
 518 {
 519     HTMLElement *This = HTMLELEM_THIS(iface);
 520     FIXME("(%p)->()\n", This);
 521     return E_NOTIMPL;
 522 }
 523
 524 static HRESULT WINAPI HTMLElement_get_onmouseout(IHTMLElement *iface, VARIANT *p)
 525 {
 526     HTMLElement *This = HTMLELEM_THIS(iface);
 527     FIXME("(%p)->(%p)\n", This, p);
 528     return E_NOTIMPL;
 529 }
 530
 531 static HRESULT WINAPI HTMLElement_put_onmouseover(IHTMLElement *iface, VARIANT v)
 532 {
 533     HTMLElement *This = HTMLELEM_THIS(iface);
 534     FIXME("(%p)->()\n", This);
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI HTMLElement_get_onmouseover(IHTMLElement *iface, VARIANT *p)
 539 {
 540     HTMLElement *This = HTMLELEM_THIS(iface);
 541     FIXME("(%p)->(%p)\n", This, p);
 542     return E_NOTIMPL;
 543 }
 544
 545 static HRESULT WINAPI HTMLElement_put_onmousemove(IHTMLElement *iface, VARIANT v)
 546 {
 547     HTMLElement *This = HTMLELEM_THIS(iface);
 548     FIXME("(%p)->()\n", This);
 549     return E_NOTIMPL;
 550 }
 551
 552 static HRESULT WINAPI HTMLElement_get_onmousemove(IHTMLElement *iface, VARIANT *p)
 553 {
 554     HTMLElement *This = HTMLELEM_THIS(iface);
 555     FIXME("(%p)->(%p)\n", This, p);
 556     return E_NOTIMPL;
 557 }
 558
 559 static HRESULT WINAPI HTMLElement_put_onmousedown(IHTMLElement *iface, VARIANT v)
 560 {
 561     HTMLElement *This = HTMLELEM_THIS(iface);
 562     FIXME("(%p)->()\n", This);
 563     return E_NOTIMPL;
 564 }
 565
 566 static HRESULT WINAPI HTMLElement_get_onmousedown(IHTMLElement *iface, VARIANT *p)
 567 {
 568     HTMLElement *This = HTMLELEM_THIS(iface);
 569     FIXME("(%p)->(%p)\n", This, p);
 570     return E_NOTIMPL;
 571 }
 572
 573 static HRESULT WINAPI HTMLElement_put_onmouseup(IHTMLElement *iface, VARIANT v)
 574 {
 575     HTMLElement *This = HTMLELEM_THIS(iface);
 576     FIXME("(%p)->()\n", This);
 577     return E_NOTIMPL;
 578 }
 579
 580 static HRESULT WINAPI HTMLElement_get_onmouseup(IHTMLElement *iface, VARIANT *p)
 581 {
 582     HTMLElement *This = HTMLELEM_THIS(iface);
 583     FIXME("(%p)->(%p)\n", This, p);
 584     return E_NOTIMPL;
 585 }
 586
 587 static HRESULT WINAPI HTMLElement_get_document(IHTMLElement *iface, IDispatch **p)
 588 {
 589     HTMLElement *This = HTMLELEM_THIS(iface);
 590     FIXME("(%p)->(%p)\n", This, p);
 591     return E_NOTIMPL;
 592 }
 593
 594 static HRESULT WINAPI HTMLElement_put_title(IHTMLElement *iface, BSTR v)
 595 {
 596     HTMLElement *This = HTMLELEM_THIS(iface);
 597     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 598     return E_NOTIMPL;
 599 }
 600
 601 static HRESULT WINAPI HTMLElement_get_title(IHTMLElement *iface, BSTR *p)
 602 {
 603     HTMLElement *This = HTMLELEM_THIS(iface);
 604     FIXME("(%p)->(%p)\n", This, p);
 605     return E_NOTIMPL;
 606 }
 607
 608 static HRESULT WINAPI HTMLElement_put_language(IHTMLElement *iface, BSTR v)
 609 {
 610     HTMLElement *This = HTMLELEM_THIS(iface);
 611     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 612     return E_NOTIMPL;
 613 }
 614
 615 static HRESULT WINAPI HTMLElement_get_language(IHTMLElement *iface, BSTR *p)
 616 {
 617     HTMLElement *This = HTMLELEM_THIS(iface);
 618     FIXME("(%p)->(%p)\n", This, p);
 619     return E_NOTIMPL;
 620 }
 621
 622 static HRESULT WINAPI HTMLElement_put_onselectstart(IHTMLElement *iface, VARIANT v)
 623 {
 624     HTMLElement *This = HTMLELEM_THIS(iface);
 625     FIXME("(%p)->()\n", This);
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT WINAPI HTMLElement_get_onselectstart(IHTMLElement *iface, VARIANT *p)
 630 {
 631     HTMLElement *This = HTMLELEM_THIS(iface);
 632     FIXME("(%p)->(%p)\n", This, p);
 633     return E_NOTIMPL;
 634 }
 635
 636 static HRESULT WINAPI HTMLElement_scrollIntoView(IHTMLElement *iface, VARIANT varargStart)
 637 {
 638     HTMLElement *This = HTMLELEM_THIS(iface);
 639     FIXME("(%p)->()\n", This);
 640     return E_NOTIMPL;
 641 }
 642
 643 static HRESULT WINAPI HTMLElement_contains(IHTMLElement *iface, IHTMLElement *pChild,
 644                                            VARIANT_BOOL *pfResult)
 645 {
 646     HTMLElement *This = HTMLELEM_THIS(iface);
 647     FIXME("(%p)->(%p %p)\n", This, pChild, pfResult);
 648     return E_NOTIMPL;
 649 }
 650
 651 static HRESULT WINAPI HTMLElement_get_sourceIndex(IHTMLElement *iface, long *p)
 652 {
 653     HTMLElement *This = HTMLELEM_THIS(iface);
 654     FIXME("(%p)->(%p)\n", This, p);
 655     return E_NOTIMPL;
 656 }
 657
 658 static HRESULT WINAPI HTMLElement_get_recordNumber(IHTMLElement *iface, VARIANT *p)
 659 {
 660     HTMLElement *This = HTMLELEM_THIS(iface);
 661     FIXME("(%p)->(%p)\n", This, p);
 662     return E_NOTIMPL;
 663 }
 664
 665 static HRESULT WINAPI HTMLElement_put_lang(IHTMLElement *iface, BSTR v)
 666 {
 667     HTMLElement *This = HTMLELEM_THIS(iface);
 668     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 669     return E_NOTIMPL;
 670 }
 671
 672 static HRESULT WINAPI HTMLElement_get_lang(IHTMLElement *iface, BSTR *p)
 673 {
 674     HTMLElement *This = HTMLELEM_THIS(iface);
 675     FIXME("(%p)->(%p)\n", This, p);
 676     return E_NOTIMPL;
 677 }
 678
 679 static HRESULT WINAPI HTMLElement_get_offsetLeft(IHTMLElement *iface, long *p)
 680 {
 681     HTMLElement *This = HTMLELEM_THIS(iface);
 682     FIXME("(%p)->(%p)\n", This, p);
 683     return E_NOTIMPL;
 684 }
 685
 686 static HRESULT WINAPI HTMLElement_get_offsetTop(IHTMLElement *iface, long *p)
 687 {
 688     HTMLElement *This = HTMLELEM_THIS(iface);
 689     FIXME("(%p)->(%p)\n", This, p);
 690     return E_NOTIMPL;
 691 }
 692
 693 static HRESULT WINAPI HTMLElement_get_offsetWidth(IHTMLElement *iface, long *p)
 694 {
 695     HTMLElement *This = HTMLELEM_THIS(iface);
 696     FIXME("(%p)->(%p)\n", This, p);
 697     return E_NOTIMPL;
 698 }
 699
 700 static HRESULT WINAPI HTMLElement_get_offsetHeight(IHTMLElement *iface, long *p)
 701 {
 702     HTMLElement *This = HTMLELEM_THIS(iface);
 703     FIXME("(%p)->(%p)\n", This, p);
 704     return E_NOTIMPL;
 705 }
 706
 707 static HRESULT WINAPI HTMLElement_get_offsetParent(IHTMLElement *iface, IHTMLElement **p)
 708 {
 709     HTMLElement *This = HTMLELEM_THIS(iface);
 710     FIXME("(%p)->(%p)\n", This, p);
 711     return E_NOTIMPL;
 712 }
 713
 714 static HRESULT WINAPI HTMLElement_put_innerHTML(IHTMLElement *iface, BSTR v)
 715 {
 716     HTMLElement *This = HTMLELEM_THIS(iface);
 717     nsIDOMNSHTMLElement *nselem;
 718     nsAString html_str;
 719     nsresult nsres;
 720
 721     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 722
 723     if(!This->nselem) {
 724         FIXME("NULL nselem\n");
 725         return E_NOTIMPL;
 726     }
 727
 728     nsres = nsIDOMHTMLElement_QueryInterface(This->nselem, &IID_nsIDOMNSHTMLElement, (void**)&nselem);
 729     if(NS_FAILED(nsres)) {
 730         ERR("Could not get nsIDOMNSHTMLElement: %08x\n", nsres);
 731         return E_FAIL;
 732     }
 733
 734     nsAString_Init(&html_str, v);
 735     nsres = nsIDOMNSHTMLElement_SetInnerHTML(nselem, &html_str);
 736     nsAString_Finish(&html_str);
 737
 738     if(NS_FAILED(nsres)) {
 739         FIXME("SetInnerHtml failed %08x\n", nsres);
 740         return E_FAIL;
 741     }
 742
 743     return S_OK;
 744 }
 745
 746 static HRESULT WINAPI HTMLElement_get_innerHTML(IHTMLElement *iface, BSTR *p)
 747 {
 748     HTMLElement *This = HTMLELEM_THIS(iface);
 749     FIXME("(%p)->(%p)\n", This, p);
 750     return E_NOTIMPL;
 751 }
 752
 753 static HRESULT WINAPI HTMLElement_put_innerText(IHTMLElement *iface, BSTR v)
 754 {
 755     HTMLElement *This = HTMLELEM_THIS(iface);
 756     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 757     return E_NOTIMPL;
 758 }
 759
 760 static HRESULT WINAPI HTMLElement_get_innerText(IHTMLElement *iface, BSTR *p)
 761 {
 762     HTMLElement *This = HTMLELEM_THIS(iface);
 763     FIXME("(%p)->(%p)\n", This, p);
 764     return E_NOTIMPL;
 765 }
 766
 767 static HRESULT WINAPI HTMLElement_put_outerHTML(IHTMLElement *iface, BSTR v)
 768 {
 769     HTMLElement *This = HTMLELEM_THIS(iface);
 770     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 771     return E_NOTIMPL;
 772 }
 773
 774 static HRESULT WINAPI HTMLElement_get_outerHTML(IHTMLElement *iface, BSTR *p)
 775 {
 776     HTMLElement *This = HTMLELEM_THIS(iface);
 777     FIXME("(%p)->(%p)\n", This, p);
 778     return E_NOTIMPL;
 779 }
 780
 781 static HRESULT WINAPI HTMLElement_put_outerText(IHTMLElement *iface, BSTR v)
 782 {
 783     HTMLElement *This = HTMLELEM_THIS(iface);
 784     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 785     return E_NOTIMPL;
 786 }
 787
 788 static HRESULT WINAPI HTMLElement_get_outerText(IHTMLElement *iface, BSTR *p)
 789 {
 790     HTMLElement *This = HTMLELEM_THIS(iface);
 791     FIXME("(%p)->(%p)\n", This, p);
 792     return E_NOTIMPL;
 793 }
 794
 795 static HRESULT HTMLElement_InsertAdjacentNode(HTMLElement *This, BSTR where, nsIDOMNode *nsnode)
 796 {
 797     static const WCHAR wszBeforeBegin[] = {'b','e','f','o','r','e','B','e','g','i','n',0};
 798     static const WCHAR wszAfterBegin[] = {'a','f','t','e','r','B','e','g','i','n',0};
 799     static const WCHAR wszBeforeEnd[] = {'b','e','f','o','r','e','E','n','d',0};
 800     static const WCHAR wszAfterEnd[] = {'a','f','t','e','r','E','n','d',0};
 801     nsresult nsres;
 802
 803     if(!This->nselem) {
 804         FIXME("NULL nselem\n");
 805         return E_NOTIMPL;
 806     }
 807
 808     if (!strcmpiW(where, wszBeforeBegin))
 809     {
 810         nsIDOMNode *unused;
 811         nsIDOMNode *parent;
 812         nsres = nsIDOMNode_GetParentNode(This->nselem, &parent);
 813         if (!parent) return E_INVALIDARG;
 814         nsres = nsIDOMNode_InsertBefore(parent, nsnode,
 815                                         (nsIDOMNode *)This->nselem, &unused);
 816         if (unused) nsIDOMNode_Release(unused);
 817         nsIDOMNode_Release(parent);
 818     }
 819     else if (!strcmpiW(where, wszAfterBegin))
 820     {
 821         nsIDOMNode *unused;
 822         nsIDOMNode *first_child;
 823         nsIDOMNode_GetFirstChild(This->nselem, &first_child);
 824         nsres = nsIDOMNode_InsertBefore(This->nselem, nsnode, first_child, &unused);
 825         if (unused) nsIDOMNode_Release(unused);
 826         if (first_child) nsIDOMNode_Release(first_child);
 827     }
 828     else if (!strcmpiW(where, wszBeforeEnd))
 829     {
 830         nsIDOMNode *unused;
 831         nsres = nsIDOMNode_AppendChild(This->nselem, nsnode, &unused);
 832         if (unused) nsIDOMNode_Release(unused);
 833     }
 834     else if (!strcmpiW(where, wszAfterEnd))
 835     {
 836         nsIDOMNode *unused;
 837         nsIDOMNode *next_sibling;
 838         nsIDOMNode *parent;
 839         nsIDOMNode_GetParentNode(This->nselem, &parent);
 840         if (!parent) return E_INVALIDARG;
 841
 842         nsIDOMNode_GetNextSibling(This->nselem, &next_sibling);
 843         if (next_sibling)
 844         {
 845             nsres = nsIDOMNode_InsertBefore(parent, nsnode, next_sibling, &unused);
 846             nsIDOMNode_Release(next_sibling);
 847         }
 848         else
 849             nsres = nsIDOMNode_AppendChild(parent, nsnode, &unused);
 850         nsIDOMNode_Release(parent);
 851         if (unused) nsIDOMNode_Release(unused);
 852     }
 853     else
 854     {
 855         ERR("invalid where: %s\n", debugstr_w(where));
 856         return E_INVALIDARG;
 857     }
 858
 859     if (NS_FAILED(nsres))
 860         return E_FAIL;
 861     else
 862         return S_OK;
 863 }
 864
 865 static HRESULT WINAPI HTMLElement_insertAdjacentHTML(IHTMLElement *iface, BSTR where,
 866                                                      BSTR html)
 867 {
 868     HTMLElement *This = HTMLELEM_THIS(iface);
 869     nsresult nsres;
 870     nsIDOMDocument *nsdoc;
 871     nsIDOMDocumentRange *nsdocrange;
 872     nsIDOMRange *range;
 873     nsIDOMNSRange *nsrange;
 874     nsIDOMNode *nsnode;
 875     nsAString ns_html;
 876     HRESULT hr;
 877
 878     TRACE("(%p)->(%s %s)\n", This, debugstr_w(where), debugstr_w(html));
 879
 880     nsres = nsIWebNavigation_GetDocument(This->node.doc->nscontainer->navigation, &nsdoc);
 881     if(NS_FAILED(nsres))
 882     {
 883         ERR("GetDocument failed: %08x\n", nsres);
 884         return E_FAIL;
 885     }
 886
 887     nsres = nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentRange, (void **)&nsdocrange);
 888     nsIDOMDocument_Release(nsdoc);
 889     if(NS_FAILED(nsres))
 890     {
 891         ERR("getting nsIDOMDocumentRange failed: %08x\n", nsres);
 892         return E_FAIL;
 893     }
 894     nsres = nsIDOMDocumentRange_CreateRange(nsdocrange, &range);
 895     nsIDOMDocumentRange_Release(nsdocrange);
 896     if(NS_FAILED(nsres))
 897     {
 898         ERR("CreateRange failed: %08x\n", nsres);
 899         return E_FAIL;
 900     }
 901
 902     nsIDOMRange_SetStartBefore(range, (nsIDOMNode *)This->nselem);
 903
 904     nsIDOMRange_QueryInterface(range, &IID_nsIDOMNSRange, (void **)&nsrange);
 905     nsIDOMRange_Release(range);
 906     if(NS_FAILED(nsres))
 907     {
 908         ERR("getting nsIDOMNSRange failed: %08x\n", nsres);
 909         return E_FAIL;
 910     }
 911
 912     nsAString_Init(&ns_html, html);
 913
 914     nsres = nsIDOMNSRange_CreateContextualFragment(nsrange, &ns_html, (nsIDOMDocumentFragment **)&nsnode);
 915     nsIDOMNSRange_Release(nsrange);
 916     nsAString_Finish(&ns_html);
 917
 918     if(NS_FAILED(nsres) || !nsnode)
 919     {
 920         ERR("CreateTextNode failed: %08x\n", nsres);
 921         return E_FAIL;
 922     }
 923
 924     hr = HTMLElement_InsertAdjacentNode(This, where, nsnode);
 925     nsIDOMNode_Release(nsnode);
 926
 927     return hr;
 928 }
 929
 930 static HRESULT WINAPI HTMLElement_insertAdjacentText(IHTMLElement *iface, BSTR where,
 931                                                      BSTR text)
 932 {
 933     HTMLElement *This = HTMLELEM_THIS(iface);
 934     nsresult nsres;
 935     nsIDOMDocument *nsdoc;
 936     nsIDOMNode *nsnode;
 937     nsAString ns_text;
 938     HRESULT hr;
 939
 940     TRACE("(%p)->(%s %s)\n", This, debugstr_w(where), debugstr_w(text));
 941
 942     nsres = nsIWebNavigation_GetDocument(This->node.doc->nscontainer->navigation, &nsdoc);
 943     if(NS_FAILED(nsres) || !nsdoc)
 944     {
 945         ERR("GetDocument failed: %08x\n", nsres);
 946         return E_FAIL;
 947     }
 948
 949     nsAString_Init(&ns_text, text);
 950
 951     nsres = nsIDOMDocument_CreateTextNode(nsdoc, &ns_text, (nsIDOMText **)&nsnode);
 952     nsIDOMDocument_Release(nsdoc);
 953     nsAString_Finish(&ns_text);
 954
 955     if(NS_FAILED(nsres) || !nsnode)
 956     {
 957         ERR("CreateTextNode failed: %08x\n", nsres);
 958         return E_FAIL;
 959     }
 960
 961     hr = HTMLElement_InsertAdjacentNode(This, where, nsnode);
 962     nsIDOMNode_Release(nsnode);
 963
 964     return hr;
 965 }
 966
 967 static HRESULT WINAPI HTMLElement_get_parentTextEdit(IHTMLElement *iface, IHTMLElement **p)
 968 {
 969     HTMLElement *This = HTMLELEM_THIS(iface);
 970     FIXME("(%p)->(%p)\n", This, p);
 971     return E_NOTIMPL;
 972 }
 973
 974 static HRESULT WINAPI HTMLElement_get_isTextEdit(IHTMLElement *iface, VARIANT_BOOL *p)
 975 {
 976     HTMLElement *This = HTMLELEM_THIS(iface);
 977     FIXME("(%p)->(%p)\n", This, p);
 978     return E_NOTIMPL;
 979 }
 980
 981 static HRESULT WINAPI HTMLElement_click(IHTMLElement *iface)
 982 {
 983     HTMLElement *This = HTMLELEM_THIS(iface);
 984     FIXME("(%p)\n", This);
 985     return E_NOTIMPL;
 986 }
 987
 988 static HRESULT WINAPI HTMLElement_get_filters(IHTMLElement *iface,
 989                                               IHTMLFiltersCollection **p)
 990 {
 991     HTMLElement *This = HTMLELEM_THIS(iface);
 992     FIXME("(%p)->(%p)\n", This, p);
 993     return E_NOTIMPL;
 994 }
 995
 996 static HRESULT WINAPI HTMLElement_put_ondragstart(IHTMLElement *iface, VARIANT v)
 997 {
 998     HTMLElement *This = HTMLELEM_THIS(iface);
 999     FIXME("(%p)->()\n", This);
1000     return E_NOTIMPL;
1001 }
1002
1003 static HRESULT WINAPI HTMLElement_get_ondragstart(IHTMLElement *iface, VARIANT *p)
1004 {
1005     HTMLElement *This = HTMLELEM_THIS(iface);
1006     FIXME("(%p)->(%p)\n", This, p);
1007     return E_NOTIMPL;
1008 }
1009
1010 static HRESULT WINAPI HTMLElement_toString(IHTMLElement *iface, BSTR *String)
1011 {
1012     HTMLElement *This = HTMLELEM_THIS(iface);
1013     FIXME("(%p)->(%p)\n", This, String);
1014     return E_NOTIMPL;
1015 }
1016
1017 static HRESULT WINAPI HTMLElement_put_onbeforeupdate(IHTMLElement *iface, VARIANT v)
1018 {
1019     HTMLElement *This = HTMLELEM_THIS(iface);
1020     FIXME("(%p)->()\n", This);
1021     return E_NOTIMPL;
1022 }
1023
1024 static HRESULT WINAPI HTMLElement_get_onbeforeupdate(IHTMLElement *iface, VARIANT *p)
1025 {
1026     HTMLElement *This = HTMLELEM_THIS(iface);
1027     FIXME("(%p)->(%p)\n", This, p);
1028     return E_NOTIMPL;
1029 }
1030
1031 static HRESULT WINAPI HTMLElement_put_onafterupdate(IHTMLElement *iface, VARIANT v)
1032 {
1033     HTMLElement *This = HTMLELEM_THIS(iface);
1034     FIXME("(%p)->()\n", This);
1035     return E_NOTIMPL;
1036 }
1037
1038 static HRESULT WINAPI HTMLElement_get_onafterupdate(IHTMLElement *iface, VARIANT *p)
1039 {
1040     HTMLElement *This = HTMLELEM_THIS(iface);
1041     FIXME("(%p)->(%p)\n", This, p);
1042     return E_NOTIMPL;
1043 }
1044
1045 static HRESULT WINAPI HTMLElement_put_onerrorupdate(IHTMLElement *iface, VARIANT v)
1046 {
1047     HTMLElement *This = HTMLELEM_THIS(iface);
1048     FIXME("(%p)->()\n", This);
1049     return E_NOTIMPL;
1050 }
1051
1052 static HRESULT WINAPI HTMLElement_get_onerrorupdate(IHTMLElement *iface, VARIANT *p)
1053 {
1054     HTMLElement *This = HTMLELEM_THIS(iface);
1055     FIXME("(%p)->(%p)\n", This, p);
1056     return E_NOTIMPL;
1057 }
1058
1059 static HRESULT WINAPI HTMLElement_put_onrowexit(IHTMLElement *iface, VARIANT v)
1060 {
1061     HTMLElement *This = HTMLELEM_THIS(iface);
1062     FIXME("(%p)->()\n", This);
1063     return E_NOTIMPL;
1064 }
1065
1066 static HRESULT WINAPI HTMLElement_get_onrowexit(IHTMLElement *iface, VARIANT *p)
1067 {
1068     HTMLElement *This = HTMLELEM_THIS(iface);
1069     FIXME("(%p)->(%p)\n", This, p);
1070     return E_NOTIMPL;
1071 }
1072
1073 static HRESULT WINAPI HTMLElement_put_onrowenter(IHTMLElement *iface, VARIANT v)
1074 {
1075     HTMLElement *This = HTMLELEM_THIS(iface);
1076     FIXME("(%p)->()\n", This);
1077     return E_NOTIMPL;
1078 }
1079
1080 static HRESULT WINAPI HTMLElement_get_onrowenter(IHTMLElement *iface, VARIANT *p)
1081 {
1082     HTMLElement *This = HTMLELEM_THIS(iface);
1083     FIXME("(%p)->(%p)\n", This, p);
1084     return E_NOTIMPL;
1085 }
1086
1087 static HRESULT WINAPI HTMLElement_put_ondatasetchanged(IHTMLElement *iface, VARIANT v)
1088 {
1089     HTMLElement *This = HTMLELEM_THIS(iface);
1090     FIXME("(%p)->()\n", This);
1091     return E_NOTIMPL;
1092 }
1093
1094 static HRESULT WINAPI HTMLElement_get_ondatasetchanged(IHTMLElement *iface, VARIANT *p)
1095 {
1096     HTMLElement *This = HTMLELEM_THIS(iface);
1097     FIXME("(%p)->(%p)\n", This, p);
1098     return E_NOTIMPL;
1099 }
1100
1101 static HRESULT WINAPI HTMLElement_put_ondataavailable(IHTMLElement *iface, VARIANT v)
1102 {
1103     HTMLElement *This = HTMLELEM_THIS(iface);
1104     FIXME("(%p)->()\n", This);
1105     return E_NOTIMPL;
1106 }
1107
1108 static HRESULT WINAPI HTMLElement_get_ondataavailable(IHTMLElement *iface, VARIANT *p)
1109 {
1110     HTMLElement *This = HTMLELEM_THIS(iface);
1111     FIXME("(%p)->(%p)\n", This, p);
1112     return E_NOTIMPL;
1113 }
1114
1115 static HRESULT WINAPI HTMLElement_put_ondatasetcomplete(IHTMLElement *iface, VARIANT v)
1116 {
1117     HTMLElement *This = HTMLELEM_THIS(iface);
1118     FIXME("(%p)->()\n", This);
1119     return E_NOTIMPL;
1120 }
1121
1122 static HRESULT WINAPI HTMLElement_get_ondatasetcomplete(IHTMLElement *iface, VARIANT *p)
1123 {
1124     HTMLElement *This = HTMLELEM_THIS(iface);
1125     FIXME("(%p)->(%p)\n", This, p);
1126     return E_NOTIMPL;
1127 }
1128
1129 static HRESULT WINAPI HTMLElement_put_onfilterchange(IHTMLElement *iface, VARIANT v)
1130 {
1131     HTMLElement *This = HTMLELEM_THIS(iface);
1132     FIXME("(%p)->()\n", This);
1133     return E_NOTIMPL;
1134 }
1135
1136 static HRESULT WINAPI HTMLElement_get_onfilterchange(IHTMLElement *iface, VARIANT *p)
1137 {
1138     HTMLElement *This = HTMLELEM_THIS(iface);
1139     FIXME("(%p)->(%p)\n", This, p);
1140     return E_NOTIMPL;
1141 }
1142
1143 static void create_child_list(HTMLDocument *doc, HTMLElement *elem, elem_vector *buf)
1144 {
1145     nsIDOMNodeList *nsnode_list;
1146     nsIDOMNode *iter;
1147     PRUint32 list_len = 0, i;
1148     nsresult nsres;
1149
1150     nsres = nsIDOMNode_GetChildNodes(elem->node.nsnode, &nsnode_list);
1151     if(NS_FAILED(nsres)) {
1152         ERR("GetChildNodes failed: %08x\n", nsres);
1153         return;
1154     }
1155
1156     nsIDOMNodeList_GetLength(nsnode_list, &list_len);
1157     if(!list_len)
1158         return;
1159
1160     buf->size = list_len;
1161     buf->buf = heap_alloc(buf->size*sizeof(HTMLElement**));
1162
1163     for(i=0; i<list_len; i++) {
1164         nsres = nsIDOMNodeList_Item(nsnode_list, i, &iter);
1165         if(NS_FAILED(nsres)) {
1166             ERR("Item failed: %08x\n", nsres);
1167             continue;
1168         }
1169
1170         if(is_elem_node(iter))
1171             elem_vector_add(buf, HTMLELEM_NODE_THIS(get_node(doc, iter, TRUE)));
1172     }
1173 }
1174
1175 static HRESULT WINAPI HTMLElement_get_children(IHTMLElement *iface, IDispatch **p)
1176 {
1177     HTMLElement *This = HTMLELEM_THIS(iface);
1178     elem_vector buf = {NULL, 0, 0};
1179
1180     TRACE("(%p)->(%p)\n", This, p);
1181
1182     create_child_list(This->node.doc, This, &buf);
1183
1184     *p = (IDispatch*)HTMLElementCollection_Create((IUnknown*)HTMLELEM(This), buf.buf, buf.len);
1185     return S_OK;
1186 }
1187
1188 static void create_all_list(HTMLDocument *doc, HTMLDOMNode *elem, elem_vector *buf)
1189 {
1190     nsIDOMNodeList *nsnode_list;
1191     nsIDOMNode *iter;
1192     PRUint32 list_len = 0, i;
1193     nsresult nsres;
1194
1195     nsres = nsIDOMNode_GetChildNodes(elem->nsnode, &nsnode_list);
1196     if(NS_FAILED(nsres)) {
1197         ERR("GetChildNodes failed: %08x\n", nsres);
1198         return;
1199     }
1200
1201     nsIDOMNodeList_GetLength(nsnode_list, &list_len);
1202     if(!list_len)
1203         return;
1204
1205     for(i=0; i<list_len; i++) {
1206         nsres = nsIDOMNodeList_Item(nsnode_list, i, &iter);
1207         if(NS_FAILED(nsres)) {
1208             ERR("Item failed: %08x\n", nsres);
1209             continue;
1210         }
1211
1212         if(is_elem_node(iter)) {
1213             HTMLDOMNode *node = get_node(doc, iter, TRUE);
1214
1215             elem_vector_add(buf, HTMLELEM_NODE_THIS(node));
1216             create_all_list(doc, node, buf);
1217         }
1218     }
1219 }
1220
1221 static HRESULT WINAPI HTMLElement_get_all(IHTMLElement *iface, IDispatch **p)
1222 {
1223     HTMLElement *This = HTMLELEM_THIS(iface);
1224     elem_vector buf = {NULL, 0, 8};
1225
1226     TRACE("(%p)->(%p)\n", This, p);
1227
1228     buf.buf = heap_alloc(buf.size*sizeof(HTMLElement**));
1229
1230     create_all_list(This->node.doc, &This->node, &buf);
1231     elem_vector_normalize(&buf);
1232
1233     *p = (IDispatch*)HTMLElementCollection_Create((IUnknown*)HTMLELEM(This), buf.buf, buf.len);
1234     return S_OK;
1235 }
1236
1237 #undef HTMLELEM_THIS
1238
1239 static const IHTMLElementVtbl HTMLElementVtbl = {
1240     HTMLElement_QueryInterface,
1241     HTMLElement_AddRef,
1242     HTMLElement_Release,
1243     HTMLElement_GetTypeInfoCount,
1244     HTMLElement_GetTypeInfo,
1245     HTMLElement_GetIDsOfNames,
1246     HTMLElement_Invoke,
1247     HTMLElement_setAttribute,
1248     HTMLElement_getAttribute,
1249     HTMLElement_removeAttribute,
1250     HTMLElement_put_className,
1251     HTMLElement_get_className,
1252     HTMLElement_put_id,
1253     HTMLElement_get_id,
1254     HTMLElement_get_tagName,
1255     HTMLElement_get_parentElement,
1256     HTMLElement_get_style,
1257     HTMLElement_put_onhelp,
1258     HTMLElement_get_onhelp,
1259     HTMLElement_put_onclick,
1260     HTMLElement_get_onclick,
1261     HTMLElement_put_ondblclick,
1262     HTMLElement_get_ondblclick,
1263     HTMLElement_put_onkeydown,
1264     HTMLElement_get_onkeydown,
1265     HTMLElement_put_onkeyup,
1266     HTMLElement_get_onkeyup,
1267     HTMLElement_put_onkeypress,
1268     HTMLElement_get_onkeypress,
1269     HTMLElement_put_onmouseout,
1270     HTMLElement_get_onmouseout,
1271     HTMLElement_put_onmouseover,
1272     HTMLElement_get_onmouseover,
1273     HTMLElement_put_onmousemove,
1274     HTMLElement_get_onmousemove,
1275     HTMLElement_put_onmousedown,
1276     HTMLElement_get_onmousedown,
1277     HTMLElement_put_onmouseup,
1278     HTMLElement_get_onmouseup,
1279     HTMLElement_get_document,
1280     HTMLElement_put_title,
1281     HTMLElement_get_title,
1282     HTMLElement_put_language,
1283     HTMLElement_get_language,
1284     HTMLElement_put_onselectstart,
1285     HTMLElement_get_onselectstart,
1286     HTMLElement_scrollIntoView,
1287     HTMLElement_contains,
1288     HTMLElement_get_sourceIndex,
1289     HTMLElement_get_recordNumber,
1290     HTMLElement_put_lang,
1291     HTMLElement_get_lang,
1292     HTMLElement_get_offsetLeft,
1293     HTMLElement_get_offsetTop,
1294     HTMLElement_get_offsetWidth,
1295     HTMLElement_get_offsetHeight,
1296     HTMLElement_get_offsetParent,
1297     HTMLElement_put_innerHTML,
1298     HTMLElement_get_innerHTML,
1299     HTMLElement_put_innerText,
1300     HTMLElement_get_innerText,
1301     HTMLElement_put_outerHTML,
1302     HTMLElement_get_outerHTML,
1303     HTMLElement_put_outerText,
1304     HTMLElement_get_outerText,
1305     HTMLElement_insertAdjacentHTML,
1306     HTMLElement_insertAdjacentText,
1307     HTMLElement_get_parentTextEdit,
1308     HTMLElement_get_isTextEdit,
1309     HTMLElement_click,
1310     HTMLElement_get_filters,
1311     HTMLElement_put_ondragstart,
1312     HTMLElement_get_ondragstart,
1313     HTMLElement_toString,
1314     HTMLElement_put_onbeforeupdate,
1315     HTMLElement_get_onbeforeupdate,
1316     HTMLElement_put_onafterupdate,
1317     HTMLElement_get_onafterupdate,
1318     HTMLElement_put_onerrorupdate,
1319     HTMLElement_get_onerrorupdate,
1320     HTMLElement_put_onrowexit,
1321     HTMLElement_get_onrowexit,
1322     HTMLElement_put_onrowenter,
1323     HTMLElement_get_onrowenter,
1324     HTMLElement_put_ondatasetchanged,
1325     HTMLElement_get_ondatasetchanged,
1326     HTMLElement_put_ondataavailable,
1327     HTMLElement_get_ondataavailable,
1328     HTMLElement_put_ondatasetcomplete,
1329     HTMLElement_get_ondatasetcomplete,
1330     HTMLElement_put_onfilterchange,
1331     HTMLElement_get_onfilterchange,
1332     HTMLElement_get_children,
1333     HTMLElement_get_all
1334 };
1335
1336 HRESULT HTMLElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
1337 {
1338     HTMLElement *This = HTMLELEM_NODE_THIS(iface);
1339
1340     *ppv =  NULL;
1341
1342     if(IsEqualGUID(&IID_IUnknown, riid)) {
1343         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1344         *ppv = HTMLELEM(This);
1345     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
1346         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
1347         *ppv = HTMLELEM(This);
1348     }else if(IsEqualGUID(&IID_IHTMLElement, riid)) {
1349         TRACE("(%p)->(IID_IHTMLElement %p)\n", This, ppv);
1350         *ppv = HTMLELEM(This);
1351     }else if(IsEqualGUID(&IID_IHTMLElement2, riid)) {
1352         TRACE("(%p)->(IID_IHTMLElement2 %p)\n", This, ppv);
1353         *ppv = HTMLELEM2(This);
1354     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
1355         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
1356         *ppv = CONPTCONT(&This->cp_container);
1357     }
1358
1359     if(*ppv) {
1360         IHTMLElement_AddRef(HTMLELEM(This));
1361         return S_OK;
1362     }
1363
1364     return HTMLDOMNode_QI(&This->node, riid, ppv);
1365 }
1366
1367 void HTMLElement_destructor(HTMLDOMNode *iface)
1368 {
1369     HTMLElement *This = HTMLELEM_NODE_THIS(iface);
1370
1371     ConnectionPointContainer_Destroy(&This->cp_container);
1372
1373     if(This->nselem)
1374         nsIDOMHTMLElement_Release(This->nselem);
1375
1376     HTMLDOMNode_destructor(&This->node);
1377 }
1378
1379 static const NodeImplVtbl HTMLElementImplVtbl = {
1380     HTMLElement_QI,
1381     HTMLElement_destructor
1382 };
1383
1384 static const tid_t HTMLElement_iface_tids[] = {
1385     IHTMLDOMNode_tid,
1386     IHTMLDOMNode2_tid,
1387     IHTMLElement_tid,
1388     IHTMLElement2_tid,
1389     0
1390 };
1391 static dispex_static_data_t HTMLElement_dispex = {
1392     NULL,
1393     DispHTMLUnknownElement_tid,
1394     NULL,
1395     HTMLElement_iface_tids
1396 };
1397
1398 void HTMLElement_Init(HTMLElement *This)
1399 {
1400     This->lpHTMLElementVtbl = &HTMLElementVtbl;
1401
1402     ConnectionPointContainer_Init(&This->cp_container, (IUnknown*)HTMLELEM(This));
1403
1404     HTMLElement2_Init(This);
1405
1406     if(!This->node.dispex.data)
1407         init_dispex(&This->node.dispex, (IUnknown*)HTMLELEM(This), &HTMLElement_dispex);
1408 }
1409
1410 HTMLElement *HTMLElement_Create(HTMLDocument *doc, nsIDOMNode *nsnode, BOOL use_generic)
1411 {
1412     nsIDOMHTMLElement *nselem;
1413     HTMLElement *ret = NULL;
1414     nsAString class_name_str;
1415     const PRUnichar *class_name;
1416     nsresult nsres;
1417
1418     static const WCHAR wszA[]        = {'A',0};
1419     static const WCHAR wszBODY[]     = {'B','O','D','Y',0};
1420     static const WCHAR wszIMG[]      = {'I','M','G',0};
1421     static const WCHAR wszINPUT[]    = {'I','N','P','U','T',0};
1422     static const WCHAR wszOPTION[]   = {'O','P','T','I','O','N',0};
1423     static const WCHAR wszSCRIPT[]   = {'S','C','R','I','P','T',0};
1424     static const WCHAR wszSELECT[]   = {'S','E','L','E','C','T',0};
1425     static const WCHAR wszTABLE[]    = {'T','A','B','L','E',0};
1426     static const WCHAR wszTEXTAREA[] = {'T','E','X','T','A','R','E','A',0};
1427
1428     nsres = nsIDOMNode_QueryInterface(nsnode, &IID_nsIDOMHTMLElement, (void**)&nselem);
1429     if(NS_FAILED(nsres))
1430         return NULL;
1431
1432     nsAString_Init(&class_name_str, NULL);
1433     nsIDOMHTMLElement_GetTagName(nselem, &class_name_str);
1434
1435     nsAString_GetData(&class_name_str, &class_name);
1436
1437     if(!strcmpW(class_name, wszA))
1438         ret = HTMLAnchorElement_Create(nselem);
1439     else if(!strcmpW(class_name, wszBODY))
1440         ret = HTMLBodyElement_Create(nselem);
1441     else if(!strcmpW(class_name, wszIMG))
1442         ret = HTMLImgElement_Create(nselem);
1443     else if(!strcmpW(class_name, wszINPUT))
1444         ret = HTMLInputElement_Create(nselem);
1445     else if(!strcmpW(class_name, wszOPTION))
1446         ret = HTMLOptionElement_Create(nselem);
1447     else if(!strcmpW(class_name, wszSCRIPT))
1448         ret = HTMLScriptElement_Create(nselem);
1449     else if(!strcmpW(class_name, wszSELECT))
1450         ret = HTMLSelectElement_Create(nselem);
1451     else if(!strcmpW(class_name, wszTABLE))
1452         ret = HTMLTable_Create(nselem);
1453     else if(!strcmpW(class_name, wszTEXTAREA))
1454         ret = HTMLTextAreaElement_Create(nselem);
1455     else if(use_generic)
1456         ret = HTMLGenericElement_Create(nselem);
1457
1458     if(!ret) {
1459         ret = heap_alloc_zero(sizeof(HTMLElement));
1460         HTMLElement_Init(ret);
1461         ret->node.vtbl = &HTMLElementImplVtbl;
1462     }
1463
1464     TRACE("%s ret %p\n", debugstr_w(class_name), ret);
1465
1466     nsAString_Finish(&class_name_str);
1467
1468     ret->nselem = nselem;
1469     HTMLDOMNode_Init(doc, &ret->node, (nsIDOMNode*)nselem);
1470
1471     return ret;
1472 }
1473
1474 typedef struct {
1475     DispatchEx dispex;
1476     const IHTMLElementCollectionVtbl *lpHTMLElementCollectionVtbl;
1477
1478     IUnknown *ref_unk;
1479     HTMLElement **elems;
1480     DWORD len;
1481
1482     LONG ref;
1483 } HTMLElementCollection;
1484
1485 #define HTMLELEMCOL(x)  ((IHTMLElementCollection*) &(x)->lpHTMLElementCollectionVtbl)
1486
1487 #define ELEMCOL_THIS(iface) DEFINE_THIS(HTMLElementCollection, HTMLElementCollection, iface)
1488
1489 static HRESULT WINAPI HTMLElementCollection_QueryInterface(IHTMLElementCollection *iface,
1490                                                            REFIID riid, void **ppv)
1491 {
1492     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1493
1494     *ppv = NULL;
1495
1496     if(IsEqualGUID(&IID_IUnknown, riid)) {
1497         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1498         *ppv = HTMLELEMCOL(This);
1499     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
1500         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
1501         *ppv = HTMLELEMCOL(This);
1502     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
1503         TRACE("(%p)->(IID_IDispatchEx %p)\n", This, ppv);
1504         *ppv = DISPATCHEX(&This->dispex);
1505     }else if(IsEqualGUID(&IID_IHTMLElementCollection, riid)) {
1506         TRACE("(%p)->(IID_IHTMLElementCollection %p)\n", This, ppv);
1507         *ppv = HTMLELEMCOL(This);
1508     }
1509
1510     if(*ppv) {
1511         IHTMLElementCollection_AddRef(HTMLELEMCOL(This));
1512         return S_OK;
1513     }
1514
1515     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
1516     return E_NOINTERFACE;
1517 }
1518
1519 static ULONG WINAPI HTMLElementCollection_AddRef(IHTMLElementCollection *iface)
1520 {
1521     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1522     LONG ref = InterlockedIncrement(&This->ref);
1523
1524     TRACE("(%p) ref=%d\n", This, ref);
1525
1526     return ref;
1527 }
1528
1529 static ULONG WINAPI HTMLElementCollection_Release(IHTMLElementCollection *iface)
1530 {
1531     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1532     LONG ref = InterlockedDecrement(&This->ref);
1533
1534     TRACE("(%p) ref=%d\n", This, ref);
1535
1536     if(!ref) {
1537         IUnknown_Release(This->ref_unk);
1538         heap_free(This->elems);
1539         heap_free(This);
1540     }
1541
1542     return ref;
1543 }
1544
1545 static HRESULT WINAPI HTMLElementCollection_GetTypeInfoCount(IHTMLElementCollection *iface,
1546                                                              UINT *pctinfo)
1547 {
1548     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1549     FIXME("(%p)->(%p)\n", This, pctinfo);
1550     return E_NOTIMPL;
1551 }
1552
1553 static HRESULT WINAPI HTMLElementCollection_GetTypeInfo(IHTMLElementCollection *iface,
1554         UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
1555 {
1556     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1557     FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1558     return E_NOTIMPL;
1559 }
1560
1561 static HRESULT WINAPI HTMLElementCollection_GetIDsOfNames(IHTMLElementCollection *iface,
1562         REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
1563 {
1564     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1565     FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1566                                         lcid, rgDispId);
1567     return E_NOTIMPL;
1568 }
1569
1570 static HRESULT WINAPI HTMLElementCollection_Invoke(IHTMLElementCollection *iface,
1571         DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1572         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1573 {
1574     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1575     FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1576             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1577     return E_NOTIMPL;
1578 }
1579
1580 static HRESULT WINAPI HTMLElementCollection_toString(IHTMLElementCollection *iface,
1581                                                      BSTR *String)
1582 {
1583     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1584     FIXME("(%p)->(%p)\n", This, String);
1585     return E_NOTIMPL;
1586 }
1587
1588 static HRESULT WINAPI HTMLElementCollection_put_length(IHTMLElementCollection *iface,
1589                                                        long v)
1590 {
1591     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1592     FIXME("(%p)->(%ld)\n", This, v);
1593     return E_NOTIMPL;
1594 }
1595
1596 static HRESULT WINAPI HTMLElementCollection_get_length(IHTMLElementCollection *iface,
1597                                                        long *p)
1598 {
1599     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1600
1601     TRACE("(%p)->(%p)\n", This, p);
1602
1603     *p = This->len;
1604     return S_OK;
1605 }
1606
1607 static HRESULT WINAPI HTMLElementCollection_get__newEnum(IHTMLElementCollection *iface,
1608                                                          IUnknown **p)
1609 {
1610     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1611     FIXME("(%p)->(%p)\n", This, p);
1612     return E_NOTIMPL;
1613 }
1614
1615 static BOOL is_elem_name(HTMLElement *elem, LPCWSTR name)
1616 {
1617     const PRUnichar *str;
1618     nsAString nsstr, nsname;
1619     BOOL ret = FALSE;
1620     nsresult nsres;
1621
1622     static const PRUnichar nameW[] = {'n','a','m','e',0};
1623
1624     if(!elem->nselem)
1625         return FALSE;
1626
1627     nsAString_Init(&nsstr, NULL);
1628     nsIDOMHTMLElement_GetId(elem->nselem, &nsstr);
1629     nsAString_GetData(&nsstr, &str);
1630     if(!strcmpiW(str, name)) {
1631         nsAString_Finish(&nsstr);
1632         return TRUE;
1633     }
1634
1635     nsAString_Init(&nsname, nameW);
1636     nsres =  nsIDOMHTMLElement_GetAttribute(elem->nselem, &nsname, &nsstr);
1637     nsAString_Finish(&nsname);
1638     if(NS_SUCCEEDED(nsres)) {
1639         nsAString_GetData(&nsstr, &str);
1640         ret = !strcmpiW(str, name);
1641     }
1642
1643     nsAString_Finish(&nsstr);
1644     return ret;
1645 }
1646
1647 static HRESULT WINAPI HTMLElementCollection_item(IHTMLElementCollection *iface,
1648         VARIANT name, VARIANT index, IDispatch **pdisp)
1649 {
1650     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1651
1652     TRACE("(%p)->(v(%d) v(%d) %p)\n", This, V_VT(&name), V_VT(&index), pdisp);
1653
1654     *pdisp = NULL;
1655
1656     if(V_VT(&name) == VT_I4) {
1657         TRACE("name is VT_I4: %d\n", V_I4(&name));
1658
1659         if(V_I4(&name) < 0)
1660             return E_INVALIDARG;
1661         if(V_I4(&name) >= This->len)
1662             return S_OK;
1663
1664         *pdisp = (IDispatch*)This->elems[V_I4(&name)];
1665         IDispatch_AddRef(*pdisp);
1666         TRACE("Returning pdisp=%p\n", pdisp);
1667         return S_OK;
1668     }
1669
1670     if(V_VT(&name) == VT_BSTR) {
1671         DWORD i;
1672
1673         TRACE("name is VT_BSTR: %s\n", debugstr_w(V_BSTR(&name)));
1674
1675         if(V_VT(&index) == VT_I4) {
1676             LONG idx = V_I4(&index);
1677
1678             TRACE("index = %d\n", idx);
1679
1680             if(idx < 0)
1681                 return E_INVALIDARG;
1682
1683             for(i=0; i<This->len; i++) {
1684                 if(is_elem_name(This->elems[i], V_BSTR(&name)) && !idx--)
1685                     break;
1686             }
1687
1688             if(i != This->len) {
1689                 *pdisp = (IDispatch*)HTMLELEM(This->elems[i]);
1690                 IDispatch_AddRef(*pdisp);
1691             }
1692
1693             return S_OK;
1694         }else {
1695             elem_vector buf = {NULL, 0, 8};
1696
1697             buf.buf = heap_alloc(buf.size*sizeof(HTMLElement*));
1698
1699             for(i=0; i<This->len; i++) {
1700                 if(is_elem_name(This->elems[i], V_BSTR(&name)))
1701                     elem_vector_add(&buf, This->elems[i]);
1702             }
1703
1704             if(buf.len > 1) {
1705                 elem_vector_normalize(&buf);
1706                 *pdisp = (IDispatch*)HTMLElementCollection_Create(This->ref_unk, buf.buf, buf.len);
1707             }else {
1708                 if(buf.len == 1) {
1709                     *pdisp = (IDispatch*)HTMLELEM(buf.buf[0]);
1710                     IDispatch_AddRef(*pdisp);
1711                 }
1712
1713                 heap_free(buf.buf);
1714             }
1715
1716             return S_OK;
1717         }
1718     }
1719
1720     FIXME("unsupported arguments\n");
1721     return E_INVALIDARG;
1722 }
1723
1724 static HRESULT WINAPI HTMLElementCollection_tags(IHTMLElementCollection *iface,
1725                                                  VARIANT tagName, IDispatch **pdisp)
1726 {
1727     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1728     DWORD i;
1729     nsAString tag_str;
1730     const PRUnichar *tag;
1731     elem_vector buf = {NULL, 0, 8};
1732
1733     if(V_VT(&tagName) != VT_BSTR) {
1734         WARN("Invalid arg\n");
1735         return DISP_E_MEMBERNOTFOUND;
1736     }
1737
1738     TRACE("(%p)->(%s %p)\n", This, debugstr_w(V_BSTR(&tagName)), pdisp);
1739
1740     buf.buf = heap_alloc(buf.size*sizeof(HTMLElement*));
1741
1742     nsAString_Init(&tag_str, NULL);
1743
1744     for(i=0; i<This->len; i++) {
1745         if(!This->elems[i]->nselem)
1746             continue;
1747
1748         nsIDOMElement_GetTagName(This->elems[i]->nselem, &tag_str);
1749         nsAString_GetData(&tag_str, &tag);
1750
1751         if(CompareStringW(LOCALE_SYSTEM_DEFAULT, NORM_IGNORECASE, tag, -1,
1752                           V_BSTR(&tagName), -1) == CSTR_EQUAL)
1753             elem_vector_add(&buf, This->elems[i]);
1754     }
1755
1756     nsAString_Finish(&tag_str);
1757     elem_vector_normalize(&buf);
1758
1759     TRACE("fount %d tags\n", buf.len);
1760
1761     *pdisp = (IDispatch*)HTMLElementCollection_Create(This->ref_unk, buf.buf, buf.len);
1762     return S_OK;
1763 }
1764
1765 #define DISPID_ELEMCOL_0 MSHTML_DISPID_CUSTOM_MIN
1766
1767 static HRESULT HTMLElementCollection_get_dispid(IUnknown *iface, BSTR name, DWORD flags, DISPID *dispid)
1768 {
1769     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1770     WCHAR *ptr;
1771     DWORD idx=0;
1772
1773     for(ptr = name; *ptr && isdigitW(*ptr); ptr++)
1774         idx = idx*10 + (*ptr-'0');
1775
1776     if(*ptr || idx >= This->len)
1777         return DISP_E_UNKNOWNNAME;
1778
1779     *dispid = DISPID_ELEMCOL_0 + idx;
1780     TRACE("ret %x\n", *dispid);
1781     return S_OK;
1782 }
1783
1784 static HRESULT HTMLElementCollection_invoke(IUnknown *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
1785         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
1786 {
1787     HTMLElementCollection *This = ELEMCOL_THIS(iface);
1788     DWORD idx;
1789
1790     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, flags, params, res, ei, caller);
1791
1792     idx = id - DISPID_ELEMCOL_0;
1793     if(idx >= This->len)
1794         return DISP_E_UNKNOWNNAME;
1795
1796     switch(flags) {
1797     case INVOKE_PROPERTYGET:
1798         V_VT(res) = VT_DISPATCH;
1799         V_DISPATCH(res) = (IDispatch*)HTMLELEM(This->elems[idx]);
1800         IHTMLElement_AddRef(HTMLELEM(This->elems[idx]));
1801         break;
1802     default:
1803         FIXME("unimplemented flags %x\n", flags);
1804         return E_NOTIMPL;
1805     }
1806
1807     return S_OK;
1808 }
1809
1810 #undef ELEMCOL_THIS
1811
1812 static const IHTMLElementCollectionVtbl HTMLElementCollectionVtbl = {
1813     HTMLElementCollection_QueryInterface,
1814     HTMLElementCollection_AddRef,
1815     HTMLElementCollection_Release,
1816     HTMLElementCollection_GetTypeInfoCount,
1817     HTMLElementCollection_GetTypeInfo,
1818     HTMLElementCollection_GetIDsOfNames,
1819     HTMLElementCollection_Invoke,
1820     HTMLElementCollection_toString,
1821     HTMLElementCollection_put_length,
1822     HTMLElementCollection_get_length,
1823     HTMLElementCollection_get__newEnum,
1824     HTMLElementCollection_item,
1825     HTMLElementCollection_tags
1826 };
1827
1828 static const dispex_static_data_vtbl_t HTMLElementColection_dispex_vtbl = {
1829     HTMLElementCollection_get_dispid,
1830     HTMLElementCollection_invoke
1831 };
1832
1833 static const tid_t HTMLElementCollection_iface_tids[] = {
1834     IHTMLElementCollection_tid,
1835     0
1836 };
1837 static dispex_static_data_t HTMLElementCollection_dispex = {
1838     &HTMLElementColection_dispex_vtbl,
1839     DispHTMLElementCollection_tid,
1840     NULL,
1841     HTMLElementCollection_iface_tids
1842 };
1843
1844 IHTMLElementCollection *create_all_collection(HTMLDOMNode *node)
1845 {
1846     elem_vector buf = {NULL, 0, 8};
1847
1848     buf.buf = heap_alloc(buf.size*sizeof(HTMLElement**));
1849
1850     elem_vector_add(&buf, HTMLELEM_NODE_THIS(node));
1851     create_all_list(node->doc, node, &buf);
1852     elem_vector_normalize(&buf);
1853
1854     return HTMLElementCollection_Create((IUnknown*)HTMLDOMNODE(node), buf.buf, buf.len);
1855 }
1856
1857 static IHTMLElementCollection *HTMLElementCollection_Create(IUnknown *ref_unk,
1858             HTMLElement **elems, DWORD len)
1859 {
1860     HTMLElementCollection *ret = heap_alloc_zero(sizeof(HTMLElementCollection));
1861
1862     ret->lpHTMLElementCollectionVtbl = &HTMLElementCollectionVtbl;
1863     ret->ref = 1;
1864     ret->elems = elems;
1865     ret->len = len;
1866
1867     init_dispex(&ret->dispex, (IUnknown*)HTMLELEMCOL(ret), &HTMLElementCollection_dispex);
1868
1869     IUnknown_AddRef(ref_unk);
1870     ret->ref_unk = ref_unk;
1871
1872     TRACE("ret=%p len=%d\n", ret, len);
1873
1874     return HTMLELEMCOL(ret);
1875 }