reactos/dll/win32/mshtml/htmlselect.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 "mshtml_private.h"
  20
  21 typedef struct {
  22     HTMLElement element;
  23
  24     IHTMLSelectElement IHTMLSelectElement_iface;
  25
  26     nsIDOMHTMLSelectElement *nsselect;
  27 } HTMLSelectElement;
  28
  29 static inline HTMLSelectElement *impl_from_IHTMLSelectElement(IHTMLSelectElement *iface)
  30 {
  31     return CONTAINING_RECORD(iface, HTMLSelectElement, IHTMLSelectElement_iface);
  32 }
  33
  34 static HRESULT htmlselect_item(HTMLSelectElement *This, int i, IDispatch **ret)
  35 {
  36     nsIDOMHTMLOptionsCollection *nscol;
  37     nsIDOMNode *nsnode;
  38     nsresult nsres;
  39     HRESULT hres;
  40
  41     nsres = nsIDOMHTMLSelectElement_GetOptions(This->nsselect, &nscol);
  42     if(NS_FAILED(nsres)) {
  43         ERR("GetOptions failed: %08x\n", nsres);
  44         return E_FAIL;
  45     }
  46
  47     nsres = nsIDOMHTMLOptionsCollection_Item(nscol, i, &nsnode);
  48     nsIDOMHTMLOptionsCollection_Release(nscol);
  49     if(NS_FAILED(nsres)) {
  50         ERR("Item failed: %08x\n", nsres);
  51         return E_FAIL;
  52     }
  53
  54     if(nsnode) {
  55         HTMLDOMNode *node;
  56
  57         hres = get_node(This->element.node.doc, nsnode, TRUE, &node);
  58         nsIDOMNode_Release(nsnode);
  59         if(FAILED(hres))
  60             return hres;
  61
  62         *ret = (IDispatch*)&node->IHTMLDOMNode_iface;
  63     }else {
  64         *ret = NULL;
  65     }
  66     return S_OK;
  67 }
  68
  69 static HRESULT WINAPI HTMLSelectElement_QueryInterface(IHTMLSelectElement *iface,
  70                                                          REFIID riid, void **ppv)
  71 {
  72     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
  73
  74     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
  75 }
  76
  77 static ULONG WINAPI HTMLSelectElement_AddRef(IHTMLSelectElement *iface)
  78 {
  79     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
  80
  81     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
  82 }
  83
  84 static ULONG WINAPI HTMLSelectElement_Release(IHTMLSelectElement *iface)
  85 {
  86     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
  87
  88     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
  89 }
  90
  91 static HRESULT WINAPI HTMLSelectElement_GetTypeInfoCount(IHTMLSelectElement *iface, UINT *pctinfo)
  92 {
  93     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
  94
  95     return IDispatchEx_GetTypeInfoCount(&This->element.node.dispex.IDispatchEx_iface, pctinfo);
  96 }
  97
  98 static HRESULT WINAPI HTMLSelectElement_GetTypeInfo(IHTMLSelectElement *iface, UINT iTInfo,
  99                                               LCID lcid, ITypeInfo **ppTInfo)
 100 {
 101     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 102
 103     return IDispatchEx_GetTypeInfo(&This->element.node.dispex.IDispatchEx_iface, iTInfo, lcid,
 104             ppTInfo);
 105 }
 106
 107 static HRESULT WINAPI HTMLSelectElement_GetIDsOfNames(IHTMLSelectElement *iface, REFIID riid,
 108                                                 LPOLESTR *rgszNames, UINT cNames,
 109                                                 LCID lcid, DISPID *rgDispId)
 110 {
 111     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 112
 113     return IDispatchEx_GetIDsOfNames(&This->element.node.dispex.IDispatchEx_iface, riid, rgszNames,
 114             cNames, lcid, rgDispId);
 115 }
 116
 117 static HRESULT WINAPI HTMLSelectElement_Invoke(IHTMLSelectElement *iface, DISPID dispIdMember,
 118                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 119                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 120 {
 121     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 122
 123     return IDispatchEx_Invoke(&This->element.node.dispex.IDispatchEx_iface, dispIdMember, riid,
 124             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 125 }
 126
 127 static HRESULT WINAPI HTMLSelectElement_put_size(IHTMLSelectElement *iface, LONG v)
 128 {
 129     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 130     FIXME("(%p)->(%d)\n", This, v);
 131     return E_NOTIMPL;
 132 }
 133
 134 static HRESULT WINAPI HTMLSelectElement_get_size(IHTMLSelectElement *iface, LONG *p)
 135 {
 136     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 137     FIXME("(%p)->(%p)\n", This, p);
 138     return E_NOTIMPL;
 139 }
 140
 141 static HRESULT WINAPI HTMLSelectElement_put_multiple(IHTMLSelectElement *iface, VARIANT_BOOL v)
 142 {
 143     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 144     FIXME("(%p)->(%x)\n", This, v);
 145     return E_NOTIMPL;
 146 }
 147
 148 static HRESULT WINAPI HTMLSelectElement_get_multiple(IHTMLSelectElement *iface, VARIANT_BOOL *p)
 149 {
 150     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 151     FIXME("(%p)->(%p)\n", This, p);
 152     return E_NOTIMPL;
 153 }
 154
 155 static HRESULT WINAPI HTMLSelectElement_put_name(IHTMLSelectElement *iface, BSTR v)
 156 {
 157     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 158     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 159     return E_NOTIMPL;
 160 }
 161
 162 static HRESULT WINAPI HTMLSelectElement_get_name(IHTMLSelectElement *iface, BSTR *p)
 163 {
 164     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 165     nsAString name_str;
 166     const PRUnichar *name = NULL;
 167     nsresult nsres;
 168
 169     TRACE("(%p)->(%p)\n", This, p);
 170
 171     nsAString_Init(&name_str, NULL);
 172
 173     nsres = nsIDOMHTMLSelectElement_GetName(This->nsselect, &name_str);
 174     if(NS_SUCCEEDED(nsres)) {
 175         static const WCHAR wszGarbage[] = {'g','a','r','b','a','g','e',0};
 176
 177         nsAString_GetData(&name_str, &name);
 178
 179         /*
 180          * Native never returns empty string here. If an element has no name,
 181          * name of previous element or ramdom data is returned.
 182          */
 183         *p = SysAllocString(*name ? name : wszGarbage);
 184     }else {
 185         ERR("GetName failed: %08x\n", nsres);
 186     }
 187
 188     nsAString_Finish(&name_str);
 189
 190     TRACE("name=%s\n", debugstr_w(*p));
 191     return S_OK;
 192 }
 193
 194 static HRESULT WINAPI HTMLSelectElement_get_options(IHTMLSelectElement *iface, IDispatch **p)
 195 {
 196     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 197
 198     TRACE("(%p)->(%p)\n", This, p);
 199
 200     *p = (IDispatch*)&This->IHTMLSelectElement_iface;
 201     IDispatch_AddRef(*p);
 202     return S_OK;
 203 }
 204
 205 static HRESULT WINAPI HTMLSelectElement_put_onchange(IHTMLSelectElement *iface, VARIANT v)
 206 {
 207     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 208
 209     TRACE("(%p)->()\n", This);
 210
 211     return set_node_event(&This->element.node, EVENTID_CHANGE, &v);
 212 }
 213
 214 static HRESULT WINAPI HTMLSelectElement_get_onchange(IHTMLSelectElement *iface, VARIANT *p)
 215 {
 216     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 217     FIXME("(%p)->(%p)\n", This, p);
 218     return E_NOTIMPL;
 219 }
 220
 221 static HRESULT WINAPI HTMLSelectElement_put_selectedIndex(IHTMLSelectElement *iface, LONG v)
 222 {
 223     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 224     nsresult nsres;
 225
 226     TRACE("(%p)->(%d)\n", This, v);
 227
 228     nsres = nsIDOMHTMLSelectElement_SetSelectedIndex(This->nsselect, v);
 229     if(NS_FAILED(nsres))
 230         ERR("SetSelectedIndex failed: %08x\n", nsres);
 231
 232     return S_OK;
 233 }
 234
 235 static HRESULT WINAPI HTMLSelectElement_get_selectedIndex(IHTMLSelectElement *iface, LONG *p)
 236 {
 237     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 238     nsresult nsres;
 239
 240     TRACE("(%p)->(%p)\n", This, p);
 241
 242     nsres = nsIDOMHTMLSelectElement_GetSelectedIndex(This->nsselect, p);
 243     if(NS_FAILED(nsres)) {
 244         ERR("GetSelectedIndex failed: %08x\n", nsres);
 245         return E_FAIL;
 246     }
 247
 248     return S_OK;
 249 }
 250
 251 static HRESULT WINAPI HTMLSelectElement_get_type(IHTMLSelectElement *iface, BSTR *p)
 252 {
 253     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 254     nsAString type_str;
 255     nsresult nsres;
 256
 257     TRACE("(%p)->(%p)\n", This, p);
 258
 259     nsAString_Init(&type_str, NULL);
 260     nsres = nsIDOMHTMLSelectElement_GetType(This->nsselect, &type_str);
 261     return return_nsstr(nsres, &type_str, p);
 262 }
 263
 264 static HRESULT WINAPI HTMLSelectElement_put_value(IHTMLSelectElement *iface, BSTR v)
 265 {
 266     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 267     nsAString value_str;
 268     nsresult nsres;
 269
 270     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 271
 272     nsAString_InitDepend(&value_str, v);
 273     nsres = nsIDOMHTMLSelectElement_SetValue(This->nsselect, &value_str);
 274     nsAString_Finish(&value_str);
 275     if(NS_FAILED(nsres))
 276         ERR("SetValue failed: %08x\n", nsres);
 277
 278     return S_OK;
 279 }
 280
 281 static HRESULT WINAPI HTMLSelectElement_get_value(IHTMLSelectElement *iface, BSTR *p)
 282 {
 283     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 284     nsAString value_str;
 285     nsresult nsres;
 286
 287     TRACE("(%p)->(%p)\n", This, p);
 288
 289     nsAString_Init(&value_str, NULL);
 290     nsres = nsIDOMHTMLSelectElement_GetValue(This->nsselect, &value_str);
 291     return return_nsstr(nsres, &value_str, p);
 292 }
 293
 294 static HRESULT WINAPI HTMLSelectElement_put_disabled(IHTMLSelectElement *iface, VARIANT_BOOL v)
 295 {
 296     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 297     nsresult nsres;
 298
 299     TRACE("(%p)->(%x)\n", This, v);
 300
 301     nsres = nsIDOMHTMLSelectElement_SetDisabled(This->nsselect, v != VARIANT_FALSE);
 302     if(NS_FAILED(nsres)) {
 303         ERR("SetDisabled failed: %08x\n", nsres);
 304         return E_FAIL;
 305     }
 306
 307     return S_OK;
 308 }
 309
 310 static HRESULT WINAPI HTMLSelectElement_get_disabled(IHTMLSelectElement *iface, VARIANT_BOOL *p)
 311 {
 312     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 313     cpp_bool disabled = FALSE;
 314     nsresult nsres;
 315
 316     TRACE("(%p)->(%p)\n", This, p);
 317
 318     nsres = nsIDOMHTMLSelectElement_GetDisabled(This->nsselect, &disabled);
 319     if(NS_FAILED(nsres)) {
 320         ERR("GetDisabled failed: %08x\n", nsres);
 321         return E_FAIL;
 322     }
 323
 324     *p = disabled ? VARIANT_TRUE : VARIANT_FALSE;
 325     return S_OK;
 326 }
 327
 328 static HRESULT WINAPI HTMLSelectElement_get_form(IHTMLSelectElement *iface, IHTMLFormElement **p)
 329 {
 330     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 331     FIXME("(%p)->(%p)\n", This, p);
 332     return E_NOTIMPL;
 333 }
 334
 335 static HRESULT WINAPI HTMLSelectElement_add(IHTMLSelectElement *iface, IHTMLElement *element,
 336                                             VARIANT before)
 337 {
 338     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 339     nsIWritableVariant *nsvariant;
 340     HTMLElement *element_obj;
 341     nsresult nsres;
 342
 343     TRACE("(%p)->(%p %s)\n", This, element, debugstr_variant(&before));
 344
 345     element_obj = unsafe_impl_from_IHTMLElement(element);
 346     if(!element_obj) {
 347         FIXME("External IHTMLElement implementation?\n");
 348         return E_INVALIDARG;
 349     }
 350
 351     nsvariant = create_nsvariant();
 352     if(!nsvariant)
 353         return E_FAIL;
 354
 355     switch(V_VT(&before)) {
 356     case VT_EMPTY:
 357         nsres = nsIWritableVariant_SetAsEmpty(nsvariant);
 358         break;
 359     case VT_I2:
 360         nsres = nsIWritableVariant_SetAsInt16(nsvariant, V_I2(&before));
 361         break;
 362     default:
 363         FIXME("unhandled before %s\n", debugstr_variant(&before));
 364         nsIWritableVariant_Release(nsvariant);
 365         return E_NOTIMPL;
 366     }
 367
 368     if(NS_SUCCEEDED(nsres))
 369         nsres = nsIDOMHTMLSelectElement_Add(This->nsselect, element_obj->nselem, (nsIVariant*)nsvariant);
 370     nsIWritableVariant_Release(nsvariant);
 371     if(NS_FAILED(nsres)) {
 372         ERR("Add failed: %08x\n", nsres);
 373         return E_FAIL;
 374     }
 375
 376     return S_OK;
 377 }
 378
 379 static HRESULT WINAPI HTMLSelectElement_remove(IHTMLSelectElement *iface, LONG index)
 380 {
 381     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 382     FIXME("(%p)->(%d)\n", This, index);
 383     return E_NOTIMPL;
 384 }
 385
 386 static HRESULT WINAPI HTMLSelectElement_put_length(IHTMLSelectElement *iface, LONG v)
 387 {
 388     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 389     nsresult nsres;
 390
 391     TRACE("(%p)->(%d)\n", This, v);
 392
 393     nsres = nsIDOMHTMLSelectElement_SetLength(This->nsselect, v);
 394     if(NS_FAILED(nsres))
 395         ERR("SetLength failed: %08x\n", nsres);
 396
 397     return S_OK;
 398 }
 399
 400 static HRESULT WINAPI HTMLSelectElement_get_length(IHTMLSelectElement *iface, LONG *p)
 401 {
 402     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 403     UINT32 length = 0;
 404     nsresult nsres;
 405
 406     TRACE("(%p)->(%p)\n", This, p);
 407
 408     nsres = nsIDOMHTMLSelectElement_GetLength(This->nsselect, &length);
 409     if(NS_FAILED(nsres))
 410         ERR("GetLength failed: %08x\n", nsres);
 411
 412     *p = length;
 413
 414     TRACE("ret %d\n", *p);
 415     return S_OK;
 416 }
 417
 418 static HRESULT WINAPI HTMLSelectElement_get__newEnum(IHTMLSelectElement *iface, IUnknown **p)
 419 {
 420     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 421     FIXME("(%p)->(%p)\n", This, p);
 422     return E_NOTIMPL;
 423 }
 424
 425 static HRESULT WINAPI HTMLSelectElement_item(IHTMLSelectElement *iface, VARIANT name,
 426                                              VARIANT index, IDispatch **pdisp)
 427 {
 428     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 429
 430     TRACE("(%p)->(%s %s %p)\n", This, debugstr_variant(&name), debugstr_variant(&index), pdisp);
 431
 432     if(!pdisp)
 433         return E_POINTER;
 434     *pdisp = NULL;
 435
 436     if(V_VT(&name) == VT_I4) {
 437         if(V_I4(&name) < 0)
 438             return E_INVALIDARG;
 439         return htmlselect_item(This, V_I4(&name), pdisp);
 440     }
 441
 442     FIXME("Unsupported args\n");
 443     return E_NOTIMPL;
 444 }
 445
 446 static HRESULT WINAPI HTMLSelectElement_tags(IHTMLSelectElement *iface, VARIANT tagName,
 447                                              IDispatch **pdisp)
 448 {
 449     HTMLSelectElement *This = impl_from_IHTMLSelectElement(iface);
 450     FIXME("(%p)->(v %p)\n", This, pdisp);
 451     return E_NOTIMPL;
 452 }
 453
 454 static const IHTMLSelectElementVtbl HTMLSelectElementVtbl = {
 455     HTMLSelectElement_QueryInterface,
 456     HTMLSelectElement_AddRef,
 457     HTMLSelectElement_Release,
 458     HTMLSelectElement_GetTypeInfoCount,
 459     HTMLSelectElement_GetTypeInfo,
 460     HTMLSelectElement_GetIDsOfNames,
 461     HTMLSelectElement_Invoke,
 462     HTMLSelectElement_put_size,
 463     HTMLSelectElement_get_size,
 464     HTMLSelectElement_put_multiple,
 465     HTMLSelectElement_get_multiple,
 466     HTMLSelectElement_put_name,
 467     HTMLSelectElement_get_name,
 468     HTMLSelectElement_get_options,
 469     HTMLSelectElement_put_onchange,
 470     HTMLSelectElement_get_onchange,
 471     HTMLSelectElement_put_selectedIndex,
 472     HTMLSelectElement_get_selectedIndex,
 473     HTMLSelectElement_get_type,
 474     HTMLSelectElement_put_value,
 475     HTMLSelectElement_get_value,
 476     HTMLSelectElement_put_disabled,
 477     HTMLSelectElement_get_disabled,
 478     HTMLSelectElement_get_form,
 479     HTMLSelectElement_add,
 480     HTMLSelectElement_remove,
 481     HTMLSelectElement_put_length,
 482     HTMLSelectElement_get_length,
 483     HTMLSelectElement_get__newEnum,
 484     HTMLSelectElement_item,
 485     HTMLSelectElement_tags
 486 };
 487
 488 static inline HTMLSelectElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
 489 {
 490     return CONTAINING_RECORD(iface, HTMLSelectElement, element.node);
 491 }
 492
 493 static HRESULT HTMLSelectElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 494 {
 495     HTMLSelectElement *This = impl_from_HTMLDOMNode(iface);
 496
 497     *ppv = NULL;
 498
 499     if(IsEqualGUID(&IID_IUnknown, riid)) {
 500         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 501         *ppv = &This->IHTMLSelectElement_iface;
 502     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 503         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 504         *ppv = &This->IHTMLSelectElement_iface;
 505     }else if(IsEqualGUID(&IID_IHTMLSelectElement, riid)) {
 506         TRACE("(%p)->(IID_IHTMLSelectElement %p)\n", This, ppv);
 507         *ppv = &This->IHTMLSelectElement_iface;
 508     }
 509
 510     if(*ppv) {
 511         IUnknown_AddRef((IUnknown*)*ppv);
 512         return S_OK;
 513     }
 514
 515     return HTMLElement_QI(&This->element.node, riid, ppv);
 516 }
 517
 518 static HRESULT HTMLSelectElementImpl_put_disabled(HTMLDOMNode *iface, VARIANT_BOOL v)
 519 {
 520     HTMLSelectElement *This = impl_from_HTMLDOMNode(iface);
 521     return IHTMLSelectElement_put_disabled(&This->IHTMLSelectElement_iface, v);
 522 }
 523
 524 static HRESULT HTMLSelectElementImpl_get_disabled(HTMLDOMNode *iface, VARIANT_BOOL *p)
 525 {
 526     HTMLSelectElement *This = impl_from_HTMLDOMNode(iface);
 527     return IHTMLSelectElement_get_disabled(&This->IHTMLSelectElement_iface, p);
 528 }
 529
 530 #define DISPID_OPTIONCOL_0 MSHTML_DISPID_CUSTOM_MIN
 531
 532 static HRESULT HTMLSelectElement_get_dispid(HTMLDOMNode *iface, BSTR name, DWORD flags, DISPID *dispid)
 533 {
 534     const WCHAR *ptr;
 535     DWORD idx = 0;
 536
 537     for(ptr = name; *ptr && isdigitW(*ptr); ptr++) {
 538         idx = idx*10 + (*ptr-'0');
 539         if(idx > MSHTML_CUSTOM_DISPID_CNT) {
 540             WARN("too big idx\n");
 541             return DISP_E_UNKNOWNNAME;
 542         }
 543     }
 544     if(*ptr)
 545         return DISP_E_UNKNOWNNAME;
 546
 547     *dispid = DISPID_OPTIONCOL_0 + idx;
 548     return S_OK;
 549 }
 550
 551 static HRESULT HTMLSelectElement_invoke(HTMLDOMNode *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
 552         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
 553 {
 554     HTMLSelectElement *This = impl_from_HTMLDOMNode(iface);
 555
 556     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, flags, params, res, ei, caller);
 557
 558     switch(flags) {
 559     case DISPATCH_PROPERTYGET: {
 560         IDispatch *ret;
 561         HRESULT hres;
 562
 563         hres = htmlselect_item(This, id-DISPID_OPTIONCOL_0, &ret);
 564         if(FAILED(hres))
 565             return hres;
 566
 567         if(ret) {
 568             V_VT(res) = VT_DISPATCH;
 569             V_DISPATCH(res) = ret;
 570         }else {
 571             V_VT(res) = VT_NULL;
 572         }
 573         break;
 574     }
 575
 576     default:
 577         FIXME("unimplemented flags %x\n", flags);
 578         return E_NOTIMPL;
 579     }
 580
 581     return S_OK;
 582 }
 583
 584 static const NodeImplVtbl HTMLSelectElementImplVtbl = {
 585     HTMLSelectElement_QI,
 586     HTMLElement_destructor,
 587     HTMLElement_cpc,
 588     HTMLElement_clone,
 589     HTMLElement_handle_event,
 590     HTMLElement_get_attr_col,
 591     NULL,
 592     NULL,
 593     HTMLSelectElementImpl_put_disabled,
 594     HTMLSelectElementImpl_get_disabled,
 595     NULL,
 596     NULL,
 597     HTMLSelectElement_get_dispid,
 598     HTMLSelectElement_invoke
 599 };
 600
 601 static const tid_t HTMLSelectElement_tids[] = {
 602     HTMLELEMENT_TIDS,
 603     IHTMLSelectElement_tid,
 604     0
 605 };
 606
 607 static dispex_static_data_t HTMLSelectElement_dispex = {
 608     NULL,
 609     DispHTMLSelectElement_tid,
 610     NULL,
 611     HTMLSelectElement_tids
 612 };
 613
 614 HRESULT HTMLSelectElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
 615 {
 616     HTMLSelectElement *ret;
 617     nsresult nsres;
 618
 619     ret = heap_alloc_zero(sizeof(HTMLSelectElement));
 620     if(!ret)
 621         return E_OUTOFMEMORY;
 622
 623     ret->IHTMLSelectElement_iface.lpVtbl = &HTMLSelectElementVtbl;
 624     ret->element.node.vtbl = &HTMLSelectElementImplVtbl;
 625
 626     HTMLElement_Init(&ret->element, doc, nselem, &HTMLSelectElement_dispex);
 627
 628     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLSelectElement,
 629                                              (void**)&ret->nsselect);
 630
 631     /* Share nsselect reference with nsnode */
 632     assert(nsres == NS_OK && (nsIDOMNode*)ret->nsselect == ret->element.node.nsnode);
 633     nsIDOMNode_Release(ret->element.node.nsnode);
 634
 635     *elem = &ret->element;
 636     return S_OK;
 637 }