2 * Copyright 2006 Jacek Caban for CodeWeavers
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.
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.
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
19 #define WIN32_NO_STATUS
21 #define COM_NO_WINDOWS_H
29 //#include "winuser.h"
32 #include <wine/debug.h>
34 #include "mshtml_private.h"
35 #include "htmlevent.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
42 const IHTMLSelectElementVtbl
*lpHTMLSelectElementVtbl
;
44 nsIDOMHTMLSelectElement
*nsselect
;
47 #define HTMLSELECT(x) ((IHTMLSelectElement*) &(x)->lpHTMLSelectElementVtbl)
49 static HRESULT
htmlselect_item(HTMLSelectElement
*This
, int i
, IDispatch
**ret
)
51 nsIDOMHTMLOptionsCollection
*nscol
;
55 nsres
= nsIDOMHTMLSelectElement_GetOptions(This
->nsselect
, &nscol
);
56 if(NS_FAILED(nsres
)) {
57 ERR("GetOptions failed: %08x\n", nsres
);
61 nsres
= nsIDOMHTMLOptionsCollection_Item(nscol
, i
, &nsnode
);
62 nsIDOMHTMLOptionsCollection_Release(nscol
);
63 if(NS_FAILED(nsres
)) {
64 ERR("Item failed: %08x\n", nsres
);
71 node
= get_node(This
->element
.node
.doc
, nsnode
, TRUE
);
72 nsIDOMNode_Release(nsnode
);
74 ERR("Could not find node\n");
78 IHTMLDOMNode_AddRef(HTMLDOMNODE(node
));
79 *ret
= (IDispatch
*)HTMLDOMNODE(node
);
86 #define HTMLSELECT_THIS(iface) DEFINE_THIS(HTMLSelectElement, HTMLSelectElement, iface)
88 static HRESULT WINAPI
HTMLSelectElement_QueryInterface(IHTMLSelectElement
*iface
,
89 REFIID riid
, void **ppv
)
91 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
93 return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This
->element
.node
), riid
, ppv
);
96 static ULONG WINAPI
HTMLSelectElement_AddRef(IHTMLSelectElement
*iface
)
98 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
100 return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This
->element
.node
));
103 static ULONG WINAPI
HTMLSelectElement_Release(IHTMLSelectElement
*iface
)
105 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
107 return IHTMLDOMNode_Release(HTMLDOMNODE(&This
->element
.node
));
110 static HRESULT WINAPI
HTMLSelectElement_GetTypeInfoCount(IHTMLSelectElement
*iface
, UINT
*pctinfo
)
112 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
114 return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This
->element
.node
.dispex
), pctinfo
);
117 static HRESULT WINAPI
HTMLSelectElement_GetTypeInfo(IHTMLSelectElement
*iface
, UINT iTInfo
,
118 LCID lcid
, ITypeInfo
**ppTInfo
)
120 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
122 return IDispatchEx_GetTypeInfo(DISPATCHEX(&This
->element
.node
.dispex
), iTInfo
, lcid
, ppTInfo
);
125 static HRESULT WINAPI
HTMLSelectElement_GetIDsOfNames(IHTMLSelectElement
*iface
, REFIID riid
,
126 LPOLESTR
*rgszNames
, UINT cNames
,
127 LCID lcid
, DISPID
*rgDispId
)
129 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
131 return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This
->element
.node
.dispex
), riid
, rgszNames
, cNames
, lcid
, rgDispId
);
134 static HRESULT WINAPI
HTMLSelectElement_Invoke(IHTMLSelectElement
*iface
, DISPID dispIdMember
,
135 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
136 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
138 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
140 return IDispatchEx_Invoke(DISPATCHEX(&This
->element
.node
.dispex
), dispIdMember
, riid
, lcid
,
141 wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
144 static HRESULT WINAPI
HTMLSelectElement_put_size(IHTMLSelectElement
*iface
, LONG v
)
146 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
147 FIXME("(%p)->(%d)\n", This
, v
);
151 static HRESULT WINAPI
HTMLSelectElement_get_size(IHTMLSelectElement
*iface
, LONG
*p
)
153 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
154 FIXME("(%p)->(%p)\n", This
, p
);
158 static HRESULT WINAPI
HTMLSelectElement_put_multiple(IHTMLSelectElement
*iface
, VARIANT_BOOL v
)
160 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
161 FIXME("(%p)->(%x)\n", This
, v
);
165 static HRESULT WINAPI
HTMLSelectElement_get_multiple(IHTMLSelectElement
*iface
, VARIANT_BOOL
*p
)
167 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
168 FIXME("(%p)->(%p)\n", This
, p
);
172 static HRESULT WINAPI
HTMLSelectElement_put_name(IHTMLSelectElement
*iface
, BSTR v
)
174 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
175 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
179 static HRESULT WINAPI
HTMLSelectElement_get_name(IHTMLSelectElement
*iface
, BSTR
*p
)
181 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
183 const PRUnichar
*name
= NULL
;
186 TRACE("(%p)->(%p)\n", This
, p
);
188 nsAString_Init(&name_str
, NULL
);
190 nsres
= nsIDOMHTMLSelectElement_GetName(This
->nsselect
, &name_str
);
191 if(NS_SUCCEEDED(nsres
)) {
192 static const WCHAR wszGarbage
[] = {'g','a','r','b','a','g','e',0};
194 nsAString_GetData(&name_str
, &name
);
197 * Native never returns empty string here. If an element has no name,
198 * name of previous element or ramdom data is returned.
200 *p
= SysAllocString(*name
? name
: wszGarbage
);
202 ERR("GetName failed: %08x\n", nsres
);
205 nsAString_Finish(&name_str
);
207 TRACE("name=%s\n", debugstr_w(*p
));
211 static HRESULT WINAPI
HTMLSelectElement_get_options(IHTMLSelectElement
*iface
, IDispatch
**p
)
213 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
215 TRACE("(%p)->(%p)\n", This
, p
);
217 *p
= (IDispatch
*)HTMLSELECT(This
);
218 IDispatch_AddRef(*p
);
222 static HRESULT WINAPI
HTMLSelectElement_put_onchange(IHTMLSelectElement
*iface
, VARIANT v
)
224 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
226 TRACE("(%p)->()\n", This
);
228 return set_node_event(&This
->element
.node
, EVENTID_CHANGE
, &v
);
231 static HRESULT WINAPI
HTMLSelectElement_get_onchange(IHTMLSelectElement
*iface
, VARIANT
*p
)
233 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
234 FIXME("(%p)->(%p)\n", This
, p
);
238 static HRESULT WINAPI
HTMLSelectElement_put_selectedIndex(IHTMLSelectElement
*iface
, LONG v
)
240 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
243 TRACE("(%p)->(%d)\n", This
, v
);
245 nsres
= nsIDOMHTMLSelectElement_SetSelectedIndex(This
->nsselect
, v
);
247 ERR("SetSelectedIndex failed: %08x\n", nsres
);
252 static HRESULT WINAPI
HTMLSelectElement_get_selectedIndex(IHTMLSelectElement
*iface
, LONG
*p
)
254 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
258 TRACE("(%p)->(%p)\n", This
, p
);
260 nsres
= nsIDOMHTMLSelectElement_GetSelectedIndex(This
->nsselect
, &idx
);
262 ERR("GetSelectedIndex failed: %08x\n", nsres
);
268 static HRESULT WINAPI
HTMLSelectElement_get_type(IHTMLSelectElement
*iface
, BSTR
*p
)
270 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
271 const PRUnichar
*type
;
276 TRACE("(%p)->(%p)\n", This
, p
);
278 nsAString_Init(&type_str
, NULL
);
279 nsres
= nsIDOMHTMLSelectElement_GetType(This
->nsselect
, &type_str
);
280 if(NS_SUCCEEDED(nsres
)) {
281 nsAString_GetData(&type_str
, &type
);
282 *p
= *type
? SysAllocString(type
) : NULL
;
284 ERR("GetType failed: %08x\n", nsres
);
288 nsAString_Finish(&type_str
);
293 static HRESULT WINAPI
HTMLSelectElement_put_value(IHTMLSelectElement
*iface
, BSTR v
)
295 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
299 TRACE("(%p)->(%s)\n", This
, debugstr_w(v
));
301 nsAString_InitDepend(&value_str
, v
);
302 nsres
= nsIDOMHTMLSelectElement_SetValue(This
->nsselect
, &value_str
);
303 nsAString_Finish(&value_str
);
305 ERR("SetValue failed: %08x\n", nsres
);
310 static HRESULT WINAPI
HTMLSelectElement_get_value(IHTMLSelectElement
*iface
, BSTR
*p
)
312 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
314 const PRUnichar
*value
= NULL
;
317 TRACE("(%p)->(%p)\n", This
, p
);
319 nsAString_Init(&value_str
, NULL
);
321 nsres
= nsIDOMHTMLSelectElement_GetValue(This
->nsselect
, &value_str
);
322 if(NS_SUCCEEDED(nsres
)) {
323 nsAString_GetData(&value_str
, &value
);
324 *p
= *value
? SysAllocString(value
) : NULL
;
326 ERR("GetValue failed: %08x\n", nsres
);
329 nsAString_Finish(&value_str
);
331 TRACE("value=%s\n", debugstr_w(*p
));
335 static HRESULT WINAPI
HTMLSelectElement_put_disabled(IHTMLSelectElement
*iface
, VARIANT_BOOL v
)
337 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
340 TRACE("(%p)->(%x)\n", This
, v
);
342 nsres
= nsIDOMHTMLSelectElement_SetDisabled(This
->nsselect
, v
!= VARIANT_FALSE
);
343 if(NS_FAILED(nsres
)) {
344 ERR("SetDisabled failed: %08x\n", nsres
);
351 static HRESULT WINAPI
HTMLSelectElement_get_disabled(IHTMLSelectElement
*iface
, VARIANT_BOOL
*p
)
353 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
354 PRBool disabled
= FALSE
;
357 TRACE("(%p)->(%p)\n", This
, p
);
359 nsres
= nsIDOMHTMLSelectElement_GetDisabled(This
->nsselect
, &disabled
);
360 if(NS_FAILED(nsres
)) {
361 ERR("GetDisabled failed: %08x\n", nsres
);
365 *p
= disabled
? VARIANT_TRUE
: VARIANT_FALSE
;
369 static HRESULT WINAPI
HTMLSelectElement_get_form(IHTMLSelectElement
*iface
, IHTMLFormElement
**p
)
371 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
372 FIXME("(%p)->(%p)\n", This
, p
);
376 static HRESULT WINAPI
HTMLSelectElement_add(IHTMLSelectElement
*iface
, IHTMLElement
*element
,
379 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
380 IHTMLDOMNode
*node
, *tmp
;
383 FIXME("(%p)->(%p %s): semi-stub\n", This
, element
, debugstr_variant(&before
));
385 if(V_VT(&before
) != VT_EMPTY
) {
386 FIXME("unhandled before %s\n", debugstr_variant(&before
));
390 hres
= IHTMLElement_QueryInterface(element
, &IID_IHTMLDOMNode
, (void**)&node
);
394 hres
= IHTMLDOMNode_appendChild(HTMLDOMNODE(&This
->element
.node
), node
, &tmp
);
395 IHTMLDOMNode_Release(node
);
396 if(SUCCEEDED(hres
) && tmp
)
397 IHTMLDOMNode_Release(tmp
);
402 static HRESULT WINAPI
HTMLSelectElement_remove(IHTMLSelectElement
*iface
, LONG index
)
404 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
405 FIXME("(%p)->(%d)\n", This
, index
);
409 static HRESULT WINAPI
HTMLSelectElement_put_length(IHTMLSelectElement
*iface
, LONG v
)
411 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
414 TRACE("(%p)->(%d)\n", This
, v
);
416 nsres
= nsIDOMHTMLSelectElement_SetLength(This
->nsselect
, v
);
418 ERR("SetLength failed: %08x\n", nsres
);
423 static HRESULT WINAPI
HTMLSelectElement_get_length(IHTMLSelectElement
*iface
, LONG
*p
)
425 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
429 TRACE("(%p)->(%p)\n", This
, p
);
431 nsres
= nsIDOMHTMLSelectElement_GetLength(This
->nsselect
, &length
);
433 ERR("GetLength failed: %08x\n", nsres
);
437 TRACE("ret %d\n", *p
);
441 static HRESULT WINAPI
HTMLSelectElement_get__newEnum(IHTMLSelectElement
*iface
, IUnknown
**p
)
443 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
444 FIXME("(%p)->(%p)\n", This
, p
);
448 static HRESULT WINAPI
HTMLSelectElement_item(IHTMLSelectElement
*iface
, VARIANT name
,
449 VARIANT index
, IDispatch
**pdisp
)
451 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
453 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_variant(&name
), debugstr_variant(&index
), pdisp
);
459 if(V_VT(&name
) == VT_I4
) {
462 return htmlselect_item(This
, V_I4(&name
), pdisp
);
465 FIXME("Unsupported args\n");
469 static HRESULT WINAPI
HTMLSelectElement_tags(IHTMLSelectElement
*iface
, VARIANT tagName
,
472 HTMLSelectElement
*This
= HTMLSELECT_THIS(iface
);
473 FIXME("(%p)->(v %p)\n", This
, pdisp
);
477 #undef HTMLSELECT_THIS
479 static const IHTMLSelectElementVtbl HTMLSelectElementVtbl
= {
480 HTMLSelectElement_QueryInterface
,
481 HTMLSelectElement_AddRef
,
482 HTMLSelectElement_Release
,
483 HTMLSelectElement_GetTypeInfoCount
,
484 HTMLSelectElement_GetTypeInfo
,
485 HTMLSelectElement_GetIDsOfNames
,
486 HTMLSelectElement_Invoke
,
487 HTMLSelectElement_put_size
,
488 HTMLSelectElement_get_size
,
489 HTMLSelectElement_put_multiple
,
490 HTMLSelectElement_get_multiple
,
491 HTMLSelectElement_put_name
,
492 HTMLSelectElement_get_name
,
493 HTMLSelectElement_get_options
,
494 HTMLSelectElement_put_onchange
,
495 HTMLSelectElement_get_onchange
,
496 HTMLSelectElement_put_selectedIndex
,
497 HTMLSelectElement_get_selectedIndex
,
498 HTMLSelectElement_get_type
,
499 HTMLSelectElement_put_value
,
500 HTMLSelectElement_get_value
,
501 HTMLSelectElement_put_disabled
,
502 HTMLSelectElement_get_disabled
,
503 HTMLSelectElement_get_form
,
504 HTMLSelectElement_add
,
505 HTMLSelectElement_remove
,
506 HTMLSelectElement_put_length
,
507 HTMLSelectElement_get_length
,
508 HTMLSelectElement_get__newEnum
,
509 HTMLSelectElement_item
,
510 HTMLSelectElement_tags
513 #define HTMLSELECT_NODE_THIS(iface) DEFINE_THIS2(HTMLSelectElement, element.node, iface)
515 static HRESULT
HTMLSelectElement_QI(HTMLDOMNode
*iface
, REFIID riid
, void **ppv
)
517 HTMLSelectElement
*This
= HTMLSELECT_NODE_THIS(iface
);
521 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
522 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
523 *ppv
= HTMLSELECT(This
);
524 }else if(IsEqualGUID(&IID_IDispatch
, riid
)) {
525 TRACE("(%p)->(IID_IDispatch %p)\n", This
, ppv
);
526 *ppv
= HTMLSELECT(This
);
527 }else if(IsEqualGUID(&IID_IHTMLSelectElement
, riid
)) {
528 TRACE("(%p)->(IID_IHTMLSelectElement %p)\n", This
, ppv
);
529 *ppv
= HTMLSELECT(This
);
533 IUnknown_AddRef((IUnknown
*)*ppv
);
537 return HTMLElement_QI(&This
->element
.node
, riid
, ppv
);
540 static void HTMLSelectElement_destructor(HTMLDOMNode
*iface
)
542 HTMLSelectElement
*This
= HTMLSELECT_NODE_THIS(iface
);
544 nsIDOMHTMLSelectElement_Release(This
->nsselect
);
546 HTMLElement_destructor(&This
->element
.node
);
549 static HRESULT
HTMLSelectElementImpl_put_disabled(HTMLDOMNode
*iface
, VARIANT_BOOL v
)
551 HTMLSelectElement
*This
= HTMLSELECT_NODE_THIS(iface
);
552 return IHTMLSelectElement_put_disabled(HTMLSELECT(This
), v
);
555 static HRESULT
HTMLSelectElementImpl_get_disabled(HTMLDOMNode
*iface
, VARIANT_BOOL
*p
)
557 HTMLSelectElement
*This
= HTMLSELECT_NODE_THIS(iface
);
558 return IHTMLSelectElement_get_disabled(HTMLSELECT(This
), p
);
561 #define DISPID_OPTIONCOL_0 MSHTML_DISPID_CUSTOM_MIN
563 static HRESULT
HTMLSelectElement_get_dispid(HTMLDOMNode
*iface
, BSTR name
, DWORD flags
, DISPID
*dispid
)
568 for(ptr
= name
; *ptr
&& isdigitW(*ptr
); ptr
++) {
569 idx
= idx
*10 + (*ptr
-'0');
570 if(idx
> MSHTML_CUSTOM_DISPID_CNT
) {
571 WARN("too big idx\n");
572 return DISP_E_UNKNOWNNAME
;
576 return DISP_E_UNKNOWNNAME
;
578 *dispid
= DISPID_OPTIONCOL_0
+ idx
;
582 static HRESULT
HTMLSelectElement_invoke(HTMLDOMNode
*iface
, DISPID id
, LCID lcid
, WORD flags
, DISPPARAMS
*params
,
583 VARIANT
*res
, EXCEPINFO
*ei
, IServiceProvider
*caller
)
585 HTMLSelectElement
*This
= HTMLSELECT_NODE_THIS(iface
);
587 TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This
, id
, lcid
, flags
, params
, res
, ei
, caller
);
590 case DISPATCH_PROPERTYGET
: {
594 hres
= htmlselect_item(This
, id
-DISPID_OPTIONCOL_0
, &ret
);
599 V_VT(res
) = VT_DISPATCH
;
600 V_DISPATCH(res
) = ret
;
608 FIXME("unimplemented flags %x\n", flags
);
615 #undef HTMLSELECT_NODE_THIS
617 static const NodeImplVtbl HTMLSelectElementImplVtbl
= {
618 HTMLSelectElement_QI
,
619 HTMLSelectElement_destructor
,
622 HTMLSelectElementImpl_put_disabled
,
623 HTMLSelectElementImpl_get_disabled
,
626 HTMLSelectElement_get_dispid
,
627 HTMLSelectElement_invoke
630 static const tid_t HTMLSelectElement_tids
[] = {
632 IHTMLSelectElement_tid
,
636 static dispex_static_data_t HTMLSelectElement_dispex
= {
638 DispHTMLSelectElement_tid
,
640 HTMLSelectElement_tids
643 HTMLElement
*HTMLSelectElement_Create(HTMLDocumentNode
*doc
, nsIDOMHTMLElement
*nselem
)
645 HTMLSelectElement
*ret
= heap_alloc_zero(sizeof(HTMLSelectElement
));
648 ret
->lpHTMLSelectElementVtbl
= &HTMLSelectElementVtbl
;
649 ret
->element
.node
.vtbl
= &HTMLSelectElementImplVtbl
;
651 HTMLElement_Init(&ret
->element
, doc
, nselem
, &HTMLSelectElement_dispex
);
653 nsres
= nsIDOMHTMLElement_QueryInterface(nselem
, &IID_nsIDOMHTMLSelectElement
,
654 (void**)&ret
->nsselect
);
656 ERR("Could not get nsIDOMHTMLSelectElement interfce: %08x\n", nsres
);
658 return &ret
->element
;