mshtml: Added IDispatchEx support to HTMLInputElement.
[wine] / dlls / mshtml / htmlevent.c
1 /*
2  * Copyright 2008 Jacek Caban for CodeWeavers
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include <stdarg.h>
20
21 #define COBJMACROS
22
23 #include "windef.h"
24 #include "winbase.h"
25 #include "winuser.h"
26 #include "ole2.h"
27
28 #include "mshtml_private.h"
29
30 #include "wine/debug.h"
31
32 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
33
34 struct event_target_t {
35     IDispatch *event_table[EVENTID_LAST];
36 };
37
38 static const WCHAR loadW[] = {'l','o','a','d',0};
39 static const WCHAR onloadW[] = {'o','n','l','o','a','d',0};
40
41 typedef struct {
42     LPCWSTR name;
43     LPCWSTR attr_name;
44 } event_info_t;
45
46 static const event_info_t event_info[] = {
47     {loadW, onloadW}
48 };
49
50 typedef struct {
51     const IHTMLEventObjVtbl  *lpIHTMLEventObjVtbl;
52     LONG ref;
53 } HTMLEventObj;
54
55 #define HTMLEVENTOBJ(x) ((IHTMLEventObj*) &(x)->lpIHTMLEventObjVtbl)
56
57 #define HTMLEVENTOBJ_THIS(iface) DEFINE_THIS(HTMLEventObj, IHTMLEventObj, iface)
58
59 static HRESULT WINAPI HTMLEventObj_QueryInterface(IHTMLEventObj *iface, REFIID riid, void **ppv)
60 {
61     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
62
63     *ppv = NULL;
64
65     if(IsEqualGUID(&IID_IUnknown, riid)) {
66         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
67         *ppv = HTMLEVENTOBJ(This);
68     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
69         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
70         *ppv = HTMLEVENTOBJ(This);
71     }else if(IsEqualGUID(&IID_IHTMLEventObj, riid)) {
72         TRACE("(%p)->(IID_IHTMLEventObj %p)\n", This, ppv);
73         *ppv = HTMLEVENTOBJ(This);
74     }
75
76     if(*ppv) {
77         IUnknown_AddRef((IUnknown*)*ppv);
78         return S_OK;
79     }
80
81     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
82     return E_NOINTERFACE;
83 }
84
85 static ULONG WINAPI HTMLEventObj_AddRef(IHTMLEventObj *iface)
86 {
87     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
88     LONG ref = InterlockedIncrement(&This->ref);
89
90     TRACE("(%p) ref=%d\n", This, ref);
91
92     return ref;
93 }
94
95 static ULONG WINAPI HTMLEventObj_Release(IHTMLEventObj *iface)
96 {
97     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
98     LONG ref = InterlockedDecrement(&This->ref);
99
100     TRACE("(%p) ref=%d\n", This, ref);
101
102     if(!ref)
103         heap_free(This);
104
105     return ref;
106 }
107
108 static HRESULT WINAPI HTMLEventObj_GetTypeInfoCount(IHTMLEventObj *iface, UINT *pctinfo)
109 {
110     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
111     FIXME("(%p)->(%p)\n", This, pctinfo);
112     return E_NOTIMPL;
113 }
114
115 static HRESULT WINAPI HTMLEventObj_GetTypeInfo(IHTMLEventObj *iface, UINT iTInfo,
116                                               LCID lcid, ITypeInfo **ppTInfo)
117 {
118     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
119     FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
120     return E_NOTIMPL;
121 }
122
123 static HRESULT WINAPI HTMLEventObj_GetIDsOfNames(IHTMLEventObj *iface, REFIID riid,
124                                                 LPOLESTR *rgszNames, UINT cNames,
125                                                 LCID lcid, DISPID *rgDispId)
126 {
127     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
128     FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
129           lcid, rgDispId);
130     return E_NOTIMPL;
131 }
132
133 static HRESULT WINAPI HTMLEventObj_Invoke(IHTMLEventObj *iface, DISPID dispIdMember,
134                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
135                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
136 {
137     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
138     FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
139           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
140     return E_NOTIMPL;
141 }
142
143 static HRESULT WINAPI HTMLEventObj_get_srcElement(IHTMLEventObj *iface, IHTMLElement **p)
144 {
145     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
146     FIXME("(%p)->(%p)\n", This, p);
147     return E_NOTIMPL;
148 }
149
150 static HRESULT WINAPI HTMLEventObj_get_altKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
151 {
152     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
153     FIXME("(%p)->(%p)\n", This, p);
154     return E_NOTIMPL;
155 }
156
157 static HRESULT WINAPI HTMLEventObj_get_ctrlKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
158 {
159     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
160     FIXME("(%p)->(%p)\n", This, p);
161     return E_NOTIMPL;
162 }
163
164 static HRESULT WINAPI HTMLEventObj_get_shiftKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
165 {
166     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
167     FIXME("(%p)->(%p)\n", This, p);
168     return E_NOTIMPL;
169 }
170
171 static HRESULT WINAPI HTMLEventObj_put_returnValue(IHTMLEventObj *iface, VARIANT v)
172 {
173     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
174     FIXME("(%p)->()\n", This);
175     return E_NOTIMPL;
176 }
177
178 static HRESULT WINAPI HTMLEventObj_get_returnValue(IHTMLEventObj *iface, VARIANT *p)
179 {
180     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
181     FIXME("(%p)->(%p)\n", This, p);
182     return E_NOTIMPL;
183 }
184
185 static HRESULT WINAPI HTMLEventObj_put_cancelBubble(IHTMLEventObj *iface, VARIANT_BOOL v)
186 {
187     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
188     FIXME("(%p)->(%x)\n", This, v);
189     return E_NOTIMPL;
190 }
191
192 static HRESULT WINAPI HTMLEventObj_get_cancelBubble(IHTMLEventObj *iface, VARIANT_BOOL *p)
193 {
194     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
195     FIXME("(%p)->(%p)\n", This, p);
196     return E_NOTIMPL;
197 }
198
199 static HRESULT WINAPI HTMLEventObj_get_fromElement(IHTMLEventObj *iface, IHTMLElement **p)
200 {
201     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
202     FIXME("(%p)->(%p)\n", This, p);
203     return E_NOTIMPL;
204 }
205
206 static HRESULT WINAPI HTMLEventObj_get_toElement(IHTMLEventObj *iface, IHTMLElement **p)
207 {
208     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
209     FIXME("(%p)->(%p)\n", This, p);
210     return E_NOTIMPL;
211 }
212
213 static HRESULT WINAPI HTMLEventObj_put_keyCode(IHTMLEventObj *iface, long v)
214 {
215     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
216     FIXME("(%p)->(%ld)\n", This, v);
217     return E_NOTIMPL;
218 }
219
220 static HRESULT WINAPI HTMLEventObj_get_keyCode(IHTMLEventObj *iface, long *p)
221 {
222     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
223     FIXME("(%p)->(%p)\n", This, p);
224     return E_NOTIMPL;
225 }
226
227 static HRESULT WINAPI HTMLEventObj_get_button(IHTMLEventObj *iface, long *p)
228 {
229     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
230     FIXME("(%p)->(%p)\n", This, p);
231     return E_NOTIMPL;
232 }
233
234 static HRESULT WINAPI HTMLEventObj_get_type(IHTMLEventObj *iface, BSTR *p)
235 {
236     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
237     FIXME("(%p)->(%p)\n", This, p);
238     return E_NOTIMPL;
239 }
240
241 static HRESULT WINAPI HTMLEventObj_get_qualifier(IHTMLEventObj *iface, BSTR *p)
242 {
243     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
244     FIXME("(%p)->(%p)\n", This, p);
245     return E_NOTIMPL;
246 }
247
248 static HRESULT WINAPI HTMLEventObj_get_reason(IHTMLEventObj *iface, long *p)
249 {
250     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
251     FIXME("(%p)->(%p)\n", This, p);
252     return E_NOTIMPL;
253 }
254
255 static HRESULT WINAPI HTMLEventObj_get_x(IHTMLEventObj *iface, long *p)
256 {
257     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
258     FIXME("(%p)->(%p)\n", This, p);
259     return E_NOTIMPL;
260 }
261
262 static HRESULT WINAPI HTMLEventObj_get_y(IHTMLEventObj *iface, long *p)
263 {
264     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
265     FIXME("(%p)->(%p)\n", This, p);
266     return E_NOTIMPL;
267 }
268
269 static HRESULT WINAPI HTMLEventObj_get_clientX(IHTMLEventObj *iface, long *p)
270 {
271     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
272     FIXME("(%p)->(%p)\n", This, p);
273     return E_NOTIMPL;
274 }
275
276 static HRESULT WINAPI HTMLEventObj_get_clientY(IHTMLEventObj *iface, long *p)
277 {
278     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
279     FIXME("(%p)->(%p)\n", This, p);
280     return E_NOTIMPL;
281 }
282
283 static HRESULT WINAPI HTMLEventObj_get_offsetX(IHTMLEventObj *iface, long *p)
284 {
285     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
286     FIXME("(%p)->(%p)\n", This, p);
287     return E_NOTIMPL;
288 }
289
290 static HRESULT WINAPI HTMLEventObj_get_offsetY(IHTMLEventObj *iface, long *p)
291 {
292     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
293     FIXME("(%p)->(%p)\n", This, p);
294     return E_NOTIMPL;
295 }
296
297 static HRESULT WINAPI HTMLEventObj_get_screenX(IHTMLEventObj *iface, long *p)
298 {
299     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
300     FIXME("(%p)->(%p)\n", This, p);
301     return E_NOTIMPL;
302 }
303
304 static HRESULT WINAPI HTMLEventObj_get_screenY(IHTMLEventObj *iface, long *p)
305 {
306     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
307     FIXME("(%p)->(%p)\n", This, p);
308     return E_NOTIMPL;
309 }
310
311 static HRESULT WINAPI HTMLEventObj_get_srcFilter(IHTMLEventObj *iface, IDispatch **p)
312 {
313     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
314     FIXME("(%p)->(%p)\n", This, p);
315     return E_NOTIMPL;
316 }
317
318 #undef HTMLEVENTOBJ_THIS
319
320 static const IHTMLEventObjVtbl HTMLEventObjVtbl = {
321     HTMLEventObj_QueryInterface,
322     HTMLEventObj_AddRef,
323     HTMLEventObj_Release,
324     HTMLEventObj_GetTypeInfoCount,
325     HTMLEventObj_GetTypeInfo,
326     HTMLEventObj_GetIDsOfNames,
327     HTMLEventObj_Invoke,
328     HTMLEventObj_get_srcElement,
329     HTMLEventObj_get_altKey,
330     HTMLEventObj_get_ctrlKey,
331     HTMLEventObj_get_shiftKey,
332     HTMLEventObj_put_returnValue,
333     HTMLEventObj_get_returnValue,
334     HTMLEventObj_put_cancelBubble,
335     HTMLEventObj_get_cancelBubble,
336     HTMLEventObj_get_fromElement,
337     HTMLEventObj_get_toElement,
338     HTMLEventObj_put_keyCode,
339     HTMLEventObj_get_keyCode,
340     HTMLEventObj_get_button,
341     HTMLEventObj_get_type,
342     HTMLEventObj_get_qualifier,
343     HTMLEventObj_get_reason,
344     HTMLEventObj_get_x,
345     HTMLEventObj_get_y,
346     HTMLEventObj_get_clientX,
347     HTMLEventObj_get_clientY,
348     HTMLEventObj_get_offsetX,
349     HTMLEventObj_get_offsetY,
350     HTMLEventObj_get_screenX,
351     HTMLEventObj_get_screenY,
352     HTMLEventObj_get_srcFilter
353 };
354
355 static IHTMLEventObj *create_event(void)
356 {
357     HTMLEventObj *ret;
358
359     ret = heap_alloc(sizeof(*ret));
360     ret->lpIHTMLEventObjVtbl = &HTMLEventObjVtbl;
361     ret->ref = 1;
362
363     return HTMLEVENTOBJ(ret);
364 }
365
366 void fire_event(HTMLDocument *doc, eventid_t eid, nsIDOMNode *target)
367 {
368     HTMLDOMNode *node;
369
370     node = get_node(doc, target, FALSE);
371     if(!node)
372         return;
373
374     if(node->event_target && node->event_target->event_table[eid]) {
375         doc->window->event = create_event();
376
377         call_disp_func(doc, node->event_target->event_table[eid]);
378
379         IHTMLEventObj_Release(doc->window->event);
380         doc->window->event = NULL;
381     }
382 }
383
384 void check_event_attr(HTMLDocument *doc, nsIDOMElement *nselem)
385 {
386     const PRUnichar *attr_value;
387     nsAString attr_name_str, attr_value_str;
388     IDispatch *disp;
389     HTMLDOMNode *node;
390     int i;
391     nsresult nsres;
392
393     nsAString_Init(&attr_value_str, NULL);
394     nsAString_Init(&attr_name_str, NULL);
395
396     for(i=0; i < EVENTID_LAST; i++) {
397         nsAString_SetData(&attr_name_str, event_info[i].attr_name);
398         nsres = nsIDOMElement_GetAttribute(nselem, &attr_name_str, &attr_value_str);
399         if(NS_SUCCEEDED(nsres)) {
400             nsAString_GetData(&attr_value_str, &attr_value);
401             if(!*attr_value)
402                 continue;
403
404             TRACE("%p.%s = %s\n", nselem, debugstr_w(event_info[i].attr_name), debugstr_w(attr_value));
405
406             disp = script_parse_event(doc, attr_value);
407             if(disp) {
408                 node = get_node(doc, (nsIDOMNode*)nselem, TRUE);
409                 if(!node->event_target)
410                     node->event_target = heap_alloc_zero(sizeof(event_target_t));
411                 node->event_target->event_table[i] = disp;
412             }
413         }
414     }
415
416     nsAString_Finish(&attr_value_str);
417     nsAString_Finish(&attr_name_str);
418 }
419
420 void release_event_target(event_target_t *event_target)
421 {
422     int i;
423
424     for(i=0; i < EVENTID_LAST; i++) {
425         if(event_target->event_table[i])
426             IDispatch_Release(event_target->event_table[i]);
427     }
428
429     heap_free(event_target);
430 }