mshtml: Call attached event handlers in reversed order.
[wine] / dlls / mshtml / htmlevent.c
1 /*
2  * Copyright 2008-2009 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 #include "mshtmdid.h"
28
29 #include "mshtml_private.h"
30 #include "htmlevent.h"
31
32 #include "wine/debug.h"
33
34 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
35
36 typedef struct {
37     IDispatch *handler_prop;
38     DWORD handler_cnt;
39     IDispatch *handlers[0];
40 } handler_vector_t;
41
42 struct event_target_t {
43     handler_vector_t *event_table[EVENTID_LAST];
44 };
45
46 static const WCHAR beforeunloadW[] = {'b','e','f','o','r','e','u','n','l','o','a','d',0};
47 static const WCHAR onbeforeunloadW[] = {'o','n','b','e','f','o','r','e','u','n','l','o','a','d',0};
48
49 static const WCHAR blurW[] = {'b','l','u','r',0};
50 static const WCHAR onblurW[] = {'o','n','b','l','u','r',0};
51
52 static const WCHAR changeW[] = {'c','h','a','n','g','e',0};
53 static const WCHAR onchangeW[] = {'o','n','c','h','a','n','g','e',0};
54
55 static const WCHAR clickW[] = {'c','l','i','c','k',0};
56 static const WCHAR onclickW[] = {'o','n','c','l','i','c','k',0};
57
58 static const WCHAR dblclickW[] = {'d','b','l','c','l','i','c','k',0};
59 static const WCHAR ondblclickW[] = {'o','n','d','b','l','c','l','i','c','k',0};
60
61 static const WCHAR dragW[] = {'d','r','a','g',0};
62 static const WCHAR ondragW[] = {'o','n','d','r','a','g',0};
63
64 static const WCHAR dragstartW[] = {'d','r','a','g','s','t','a','r','t',0};
65 static const WCHAR ondragstartW[] = {'o','n','d','r','a','g','s','t','a','r','t',0};
66
67 static const WCHAR focusW[] = {'f','o','c','u','s',0};
68 static const WCHAR onfocusW[] = {'o','n','f','o','c','u','s',0};
69
70 static const WCHAR keydownW[] = {'k','e','y','d','o','w','n',0};
71 static const WCHAR onkeydownW[] = {'o','n','k','e','y','d','o','w','n',0};
72
73 static const WCHAR keyupW[] = {'k','e','y','u','p',0};
74 static const WCHAR onkeyupW[] = {'o','n','k','e','y','u','p',0};
75
76 static const WCHAR loadW[] = {'l','o','a','d',0};
77 static const WCHAR onloadW[] = {'o','n','l','o','a','d',0};
78
79 static const WCHAR mousedownW[] = {'m','o','u','s','e','d','o','w','n',0};
80 static const WCHAR onmousedownW[] = {'o','n','m','o','u','s','e','d','o','w','n',0};
81
82 static const WCHAR mouseoutW[] = {'m','o','u','s','e','o','u','t',0};
83 static const WCHAR onmouseoutW[] = {'o','n','m','o','u','s','e','o','u','t',0};
84
85 static const WCHAR mouseoverW[] = {'m','o','u','s','e','o','v','e','r',0};
86 static const WCHAR onmouseoverW[] = {'o','n','m','o','u','s','e','o','v','e','r',0};
87
88 static const WCHAR mouseupW[] = {'m','o','u','s','e','u','p',0};
89 static const WCHAR onmouseupW[] = {'o','n','m','o','u','s','e','u','p',0};
90
91 static const WCHAR pasteW[] = {'p','a','s','t','e',0};
92 static const WCHAR onpasteW[] = {'o','n','p','a','s','t','e',0};
93
94 static const WCHAR readystatechangeW[] = {'r','e','a','d','y','s','t','a','t','e','c','h','a','n','g','e',0};
95 static const WCHAR onreadystatechangeW[] = {'o','n','r','e','a','d','y','s','t','a','t','e','c','h','a','n','g','e',0};
96
97 static const WCHAR resizeW[] = {'r','e','s','i','z','e',0};
98 static const WCHAR onresizeW[] = {'o','n','r','e','s','i','z','e',0};
99
100 static const WCHAR selectstartW[] = {'s','e','l','e','c','t','s','t','a','r','t',0};
101 static const WCHAR onselectstartW[] = {'o','n','s','e','l','e','c','t','s','t','a','r','t',0};
102
103 static const WCHAR HTMLEventsW[] = {'H','T','M','L','E','v','e','n','t','s',0};
104 static const WCHAR KeyboardEventW[] = {'K','e','y','b','o','a','r','d','E','v','e','n','t',0};
105 static const WCHAR MouseEventW[] = {'M','o','u','s','e','E','v','e','n','t',0};
106
107 enum {
108     EVENTT_NONE,
109     EVENTT_HTML,
110     EVENTT_KEY,
111     EVENTT_MOUSE
112 };
113
114 static const WCHAR *event_types[] = {
115     NULL,
116     HTMLEventsW,
117     KeyboardEventW,
118     MouseEventW
119 };
120
121 typedef struct {
122     LPCWSTR name;
123     LPCWSTR attr_name;
124     DWORD type;
125     DISPID dispid;
126     DWORD flags;
127 } event_info_t;
128
129 #define EVENT_DEFAULTLISTENER    0x0001
130 #define EVENT_BUBBLE             0x0002
131 #define EVENT_FORWARDBODY        0x0004
132
133 static const event_info_t event_info[] = {
134     {beforeunloadW,      onbeforeunloadW,      EVENTT_NONE,   DISPID_EVMETH_ONBEFOREUNLOAD,
135         EVENT_DEFAULTLISTENER|EVENT_FORWARDBODY},
136     {blurW,              onblurW,              EVENTT_HTML,   DISPID_EVMETH_ONBLUR,
137         EVENT_DEFAULTLISTENER},
138     {changeW,            onchangeW,            EVENTT_HTML,   DISPID_EVMETH_ONCHANGE,
139         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
140     {clickW,             onclickW,             EVENTT_MOUSE,  DISPID_EVMETH_ONCLICK,
141         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
142     {dblclickW,          ondblclickW,          EVENTT_MOUSE,  DISPID_EVMETH_ONDBLCLICK,
143         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
144     {dragW,              ondragW,              EVENTT_MOUSE,  DISPID_EVMETH_ONDRAG,
145         0},
146     {dragstartW,         ondragstartW,         EVENTT_MOUSE,  DISPID_EVMETH_ONDRAGSTART,
147         0},
148     {focusW,             onfocusW,             EVENTT_HTML,   DISPID_EVMETH_ONFOCUS,
149         EVENT_DEFAULTLISTENER},
150     {keydownW,           onkeydownW,           EVENTT_KEY,    DISPID_EVMETH_ONKEYDOWN,
151         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
152     {keyupW,             onkeyupW,             EVENTT_KEY,    DISPID_EVMETH_ONKEYUP,
153         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
154     {loadW,              onloadW,              EVENTT_HTML,   DISPID_EVMETH_ONLOAD,
155         0},
156     {mousedownW,         onmousedownW,         EVENTT_MOUSE,  DISPID_EVMETH_ONMOUSEDOWN,
157         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
158     {mouseoutW,          onmouseoutW,          EVENTT_MOUSE,  DISPID_EVMETH_ONMOUSEOUT,
159         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
160     {mouseoverW,         onmouseoverW,         EVENTT_MOUSE,  DISPID_EVMETH_ONMOUSEOVER,
161         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
162     {mouseupW,           onmouseupW,           EVENTT_MOUSE,  DISPID_EVMETH_ONMOUSEUP,
163         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
164     {pasteW,             onpasteW,             EVENTT_NONE,   DISPID_EVMETH_ONPASTE,
165         0},
166     {readystatechangeW,  onreadystatechangeW,  EVENTT_NONE,   DISPID_EVMETH_ONREADYSTATECHANGE,
167         0},
168     {resizeW,            onresizeW,            EVENTT_NONE,   DISPID_EVMETH_ONRESIZE,
169         EVENT_DEFAULTLISTENER|EVENT_BUBBLE},
170     {selectstartW,       onselectstartW,       EVENTT_MOUSE,  DISPID_EVMETH_ONSELECTSTART,
171         0}
172 };
173
174 eventid_t str_to_eid(LPCWSTR str)
175 {
176     int i;
177
178     for(i=0; i < sizeof(event_info)/sizeof(event_info[0]); i++) {
179         if(!strcmpW(event_info[i].name, str))
180             return i;
181     }
182
183     ERR("unknown type %s\n", debugstr_w(str));
184     return EVENTID_LAST;
185 }
186
187 static eventid_t attr_to_eid(LPCWSTR str)
188 {
189     int i;
190
191     for(i=0; i < sizeof(event_info)/sizeof(event_info[0]); i++) {
192         if(!strcmpW(event_info[i].attr_name, str))
193             return i;
194     }
195
196     return EVENTID_LAST;
197 }
198
199 typedef struct {
200     DispatchEx dispex;
201     const IHTMLEventObjVtbl  *lpIHTMLEventObjVtbl;
202
203     LONG ref;
204
205     HTMLDOMNode *target;
206     const event_info_t *type;
207     nsIDOMEvent *nsevent;
208 } HTMLEventObj;
209
210 #define HTMLEVENTOBJ(x) ((IHTMLEventObj*) &(x)->lpIHTMLEventObjVtbl)
211
212 #define HTMLEVENTOBJ_THIS(iface) DEFINE_THIS(HTMLEventObj, IHTMLEventObj, iface)
213
214 static HRESULT WINAPI HTMLEventObj_QueryInterface(IHTMLEventObj *iface, REFIID riid, void **ppv)
215 {
216     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
217
218     *ppv = NULL;
219
220     if(IsEqualGUID(&IID_IUnknown, riid)) {
221         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
222         *ppv = HTMLEVENTOBJ(This);
223     }else if(IsEqualGUID(&IID_IHTMLEventObj, riid)) {
224         TRACE("(%p)->(IID_IHTMLEventObj %p)\n", This, ppv);
225         *ppv = HTMLEVENTOBJ(This);
226     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
227         return *ppv ? S_OK : E_NOINTERFACE;
228     }
229
230     if(*ppv) {
231         IUnknown_AddRef((IUnknown*)*ppv);
232         return S_OK;
233     }
234
235     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
236     return E_NOINTERFACE;
237 }
238
239 static ULONG WINAPI HTMLEventObj_AddRef(IHTMLEventObj *iface)
240 {
241     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
242     LONG ref = InterlockedIncrement(&This->ref);
243
244     TRACE("(%p) ref=%d\n", This, ref);
245
246     return ref;
247 }
248
249 static ULONG WINAPI HTMLEventObj_Release(IHTMLEventObj *iface)
250 {
251     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
252     LONG ref = InterlockedDecrement(&This->ref);
253
254     TRACE("(%p) ref=%d\n", This, ref);
255
256     if(!ref) {
257         if(This->nsevent)
258             nsIDOMEvent_Release(This->nsevent);
259         release_dispex(&This->dispex);
260         heap_free(This);
261     }
262
263     return ref;
264 }
265
266 static HRESULT WINAPI HTMLEventObj_GetTypeInfoCount(IHTMLEventObj *iface, UINT *pctinfo)
267 {
268     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
269     FIXME("(%p)->(%p)\n", This, pctinfo);
270     return E_NOTIMPL;
271 }
272
273 static HRESULT WINAPI HTMLEventObj_GetTypeInfo(IHTMLEventObj *iface, UINT iTInfo,
274                                               LCID lcid, ITypeInfo **ppTInfo)
275 {
276     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
277     FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
278     return E_NOTIMPL;
279 }
280
281 static HRESULT WINAPI HTMLEventObj_GetIDsOfNames(IHTMLEventObj *iface, REFIID riid,
282                                                 LPOLESTR *rgszNames, UINT cNames,
283                                                 LCID lcid, DISPID *rgDispId)
284 {
285     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
286     FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
287           lcid, rgDispId);
288     return E_NOTIMPL;
289 }
290
291 static HRESULT WINAPI HTMLEventObj_Invoke(IHTMLEventObj *iface, DISPID dispIdMember,
292                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
293                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
294 {
295     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
296     FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
297           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
298     return E_NOTIMPL;
299 }
300
301 static HRESULT WINAPI HTMLEventObj_get_srcElement(IHTMLEventObj *iface, IHTMLElement **p)
302 {
303     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
304
305     TRACE("(%p)->(%p)\n", This, p);
306
307     return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(This->target), &IID_IHTMLElement, (void**)p);
308 }
309
310 static HRESULT WINAPI HTMLEventObj_get_altKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
311 {
312     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
313     PRBool ret = FALSE;
314
315     TRACE("(%p)->(%p)\n", This, p);
316
317     if(This->nsevent) {
318         nsIDOMKeyEvent *key_event;
319         nsresult nsres;
320
321         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMKeyEvent, (void**)&key_event);
322         if(NS_SUCCEEDED(nsres)) {
323             nsIDOMKeyEvent_GetAltKey(key_event, &ret);
324             nsIDOMKeyEvent_Release(key_event);
325         }else {
326             nsIDOMMouseEvent *mouse_event;
327
328             nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
329             if(NS_SUCCEEDED(nsres)) {
330                 nsIDOMMouseEvent_GetAltKey(mouse_event, &ret);
331                 nsIDOMMouseEvent_Release(mouse_event);
332             }
333         }
334     }
335
336     *p = ret ? VARIANT_TRUE : VARIANT_FALSE;
337     return S_OK;
338 }
339
340 static HRESULT WINAPI HTMLEventObj_get_ctrlKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
341 {
342     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
343     PRBool ret = FALSE;
344
345     TRACE("(%p)->(%p)\n", This, p);
346
347     if(This->nsevent) {
348         nsIDOMKeyEvent *key_event;
349         nsresult nsres;
350
351         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMKeyEvent, (void**)&key_event);
352         if(NS_SUCCEEDED(nsres)) {
353             nsIDOMKeyEvent_GetCtrlKey(key_event, &ret);
354             nsIDOMKeyEvent_Release(key_event);
355         }else {
356             nsIDOMMouseEvent *mouse_event;
357
358             nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
359             if(NS_SUCCEEDED(nsres)) {
360                 nsIDOMMouseEvent_GetCtrlKey(mouse_event, &ret);
361                 nsIDOMMouseEvent_Release(mouse_event);
362             }
363         }
364     }
365
366     *p = ret ? VARIANT_TRUE : VARIANT_FALSE;
367     return S_OK;
368 }
369
370 static HRESULT WINAPI HTMLEventObj_get_shiftKey(IHTMLEventObj *iface, VARIANT_BOOL *p)
371 {
372     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
373     PRBool ret = FALSE;
374
375     TRACE("(%p)->(%p)\n", This, p);
376
377     if(This->nsevent) {
378         nsIDOMKeyEvent *key_event;
379         nsresult nsres;
380
381         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMKeyEvent, (void**)&key_event);
382         if(NS_SUCCEEDED(nsres)) {
383             nsIDOMKeyEvent_GetShiftKey(key_event, &ret);
384             nsIDOMKeyEvent_Release(key_event);
385         }else {
386             nsIDOMMouseEvent *mouse_event;
387
388             nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
389             if(NS_SUCCEEDED(nsres)) {
390                 nsIDOMMouseEvent_GetShiftKey(mouse_event, &ret);
391                 nsIDOMMouseEvent_Release(mouse_event);
392             }
393         }
394     }
395
396     *p = ret ? VARIANT_TRUE : VARIANT_FALSE;
397     return S_OK;
398 }
399
400 static HRESULT WINAPI HTMLEventObj_put_returnValue(IHTMLEventObj *iface, VARIANT v)
401 {
402     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
403     FIXME("(%p)->()\n", This);
404     return E_NOTIMPL;
405 }
406
407 static HRESULT WINAPI HTMLEventObj_get_returnValue(IHTMLEventObj *iface, VARIANT *p)
408 {
409     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
410
411     FIXME("(%p)->(%p)\n", This, p);
412
413     V_VT(p) = VT_EMPTY;
414     return S_OK;
415 }
416
417 static HRESULT WINAPI HTMLEventObj_put_cancelBubble(IHTMLEventObj *iface, VARIANT_BOOL v)
418 {
419     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
420     FIXME("(%p)->(%x)\n", This, v);
421     return E_NOTIMPL;
422 }
423
424 static HRESULT WINAPI HTMLEventObj_get_cancelBubble(IHTMLEventObj *iface, VARIANT_BOOL *p)
425 {
426     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
427
428     FIXME("(%p)->(%p)\n", This, p);
429
430     *p = VARIANT_FALSE;
431     return S_OK;
432 }
433
434 static HRESULT WINAPI HTMLEventObj_get_fromElement(IHTMLEventObj *iface, IHTMLElement **p)
435 {
436     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
437
438     FIXME("(%p)->(%p)\n", This, p);
439
440     *p = NULL;
441     return S_OK;
442 }
443
444 static HRESULT WINAPI HTMLEventObj_get_toElement(IHTMLEventObj *iface, IHTMLElement **p)
445 {
446     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
447
448     FIXME("(%p)->(%p)\n", This, p);
449
450     *p = NULL;
451     return S_OK;
452 }
453
454 static HRESULT WINAPI HTMLEventObj_put_keyCode(IHTMLEventObj *iface, LONG v)
455 {
456     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
457     FIXME("(%p)->(%d)\n", This, v);
458     return E_NOTIMPL;
459 }
460
461 static HRESULT WINAPI HTMLEventObj_get_keyCode(IHTMLEventObj *iface, LONG *p)
462 {
463     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
464     PRUint32 key_code = 0;
465
466     TRACE("(%p)->(%p)\n", This, p);
467
468     if(This->nsevent) {
469         nsIDOMKeyEvent *key_event;
470         nsresult nsres;
471
472         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMKeyEvent, (void**)&key_event);
473         if(NS_SUCCEEDED(nsres)) {
474             nsIDOMKeyEvent_GetKeyCode(key_event, &key_code);
475             nsIDOMKeyEvent_Release(key_event);
476         }
477     }
478
479     *p = key_code;
480     return S_OK;
481 }
482
483 static HRESULT WINAPI HTMLEventObj_get_button(IHTMLEventObj *iface, LONG *p)
484 {
485     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
486     PRUint16 button = 0;
487
488     TRACE("(%p)->(%p)\n", This, p);
489
490     if(This->nsevent) {
491         nsIDOMMouseEvent *mouse_event;
492         nsresult nsres;
493
494         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
495         if(NS_SUCCEEDED(nsres)) {
496             nsIDOMMouseEvent_GetButton(mouse_event, &button);
497             nsIDOMMouseEvent_Release(mouse_event);
498         }
499     }
500
501     *p = button;
502     return S_OK;
503 }
504
505 static HRESULT WINAPI HTMLEventObj_get_type(IHTMLEventObj *iface, BSTR *p)
506 {
507     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
508
509     TRACE("(%p)->(%p)\n", This, p);
510
511     *p = SysAllocString(This->type->name);
512     return *p ? S_OK : E_OUTOFMEMORY;
513 }
514
515 static HRESULT WINAPI HTMLEventObj_get_qualifier(IHTMLEventObj *iface, BSTR *p)
516 {
517     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
518
519     FIXME("(%p)->(%p)\n", This, p);
520
521     *p = NULL;
522     return S_OK;
523 }
524
525 static HRESULT WINAPI HTMLEventObj_get_reason(IHTMLEventObj *iface, LONG *p)
526 {
527     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
528
529     FIXME("(%p)->(%p)\n", This, p);
530
531     *p = 0;
532     return S_OK;
533 }
534
535 static HRESULT WINAPI HTMLEventObj_get_x(IHTMLEventObj *iface, LONG *p)
536 {
537     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
538
539     FIXME("(%p)->(%p)\n", This, p);
540
541     *p = -1;
542     return S_OK;
543 }
544
545 static HRESULT WINAPI HTMLEventObj_get_y(IHTMLEventObj *iface, LONG *p)
546 {
547     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
548
549     FIXME("(%p)->(%p)\n", This, p);
550
551     *p = -1;
552     return S_OK;
553 }
554
555 static HRESULT WINAPI HTMLEventObj_get_clientX(IHTMLEventObj *iface, LONG *p)
556 {
557     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
558     PRInt32 x = 0;
559
560     TRACE("(%p)->(%p)\n", This, p);
561
562     if(This->nsevent) {
563         nsIDOMMouseEvent *mouse_event;
564         nsresult nsres;
565
566         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
567         if(NS_SUCCEEDED(nsres)) {
568             nsIDOMMouseEvent_GetClientX(mouse_event, &x);
569             nsIDOMMouseEvent_Release(mouse_event);
570         }
571     }
572
573     *p = x;
574     return S_OK;
575 }
576
577 static HRESULT WINAPI HTMLEventObj_get_clientY(IHTMLEventObj *iface, LONG *p)
578 {
579     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
580     PRInt32 y = 0;
581
582     TRACE("(%p)->(%p)\n", This, p);
583
584     if(This->nsevent) {
585         nsIDOMMouseEvent *mouse_event;
586         nsresult nsres;
587
588         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
589         if(NS_SUCCEEDED(nsres)) {
590             nsIDOMMouseEvent_GetClientY(mouse_event, &y);
591             nsIDOMMouseEvent_Release(mouse_event);
592         }
593     }
594
595     *p = y;
596     return S_OK;
597 }
598
599 static HRESULT WINAPI HTMLEventObj_get_offsetX(IHTMLEventObj *iface, LONG *p)
600 {
601     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
602
603     FIXME("(%p)->(%p)\n", This, p);
604
605     *p = 0;
606     return S_OK;
607 }
608
609 static HRESULT WINAPI HTMLEventObj_get_offsetY(IHTMLEventObj *iface, LONG *p)
610 {
611     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
612
613     FIXME("(%p)->(%p)\n", This, p);
614
615     *p = 0;
616     return S_OK;
617 }
618
619 static HRESULT WINAPI HTMLEventObj_get_screenX(IHTMLEventObj *iface, LONG *p)
620 {
621     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
622     PRInt32 x = 0;
623
624     TRACE("(%p)->(%p)\n", This, p);
625
626     if(This->nsevent) {
627         nsIDOMMouseEvent *mouse_event;
628         nsresult nsres;
629
630         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
631         if(NS_SUCCEEDED(nsres)) {
632             nsIDOMMouseEvent_GetScreenX(mouse_event, &x);
633             nsIDOMMouseEvent_Release(mouse_event);
634         }
635     }
636
637     *p = x;
638     return S_OK;
639 }
640
641 static HRESULT WINAPI HTMLEventObj_get_screenY(IHTMLEventObj *iface, LONG *p)
642 {
643     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
644     PRInt32 y = 0;
645
646     TRACE("(%p)->(%p)\n", This, p);
647
648     if(This->nsevent) {
649         nsIDOMMouseEvent *mouse_event;
650         nsresult nsres;
651
652         nsres = nsIDOMEvent_QueryInterface(This->nsevent, &IID_nsIDOMMouseEvent, (void**)&mouse_event);
653         if(NS_SUCCEEDED(nsres)) {
654             nsIDOMMouseEvent_GetScreenY(mouse_event, &y);
655             nsIDOMMouseEvent_Release(mouse_event);
656         }
657     }
658
659     *p = y;
660     return S_OK;
661 }
662
663 static HRESULT WINAPI HTMLEventObj_get_srcFilter(IHTMLEventObj *iface, IDispatch **p)
664 {
665     HTMLEventObj *This = HTMLEVENTOBJ_THIS(iface);
666
667     FIXME("(%p)->(%p)\n", This, p);
668
669     *p = NULL;
670     return S_OK;
671 }
672
673 #undef HTMLEVENTOBJ_THIS
674
675 static const IHTMLEventObjVtbl HTMLEventObjVtbl = {
676     HTMLEventObj_QueryInterface,
677     HTMLEventObj_AddRef,
678     HTMLEventObj_Release,
679     HTMLEventObj_GetTypeInfoCount,
680     HTMLEventObj_GetTypeInfo,
681     HTMLEventObj_GetIDsOfNames,
682     HTMLEventObj_Invoke,
683     HTMLEventObj_get_srcElement,
684     HTMLEventObj_get_altKey,
685     HTMLEventObj_get_ctrlKey,
686     HTMLEventObj_get_shiftKey,
687     HTMLEventObj_put_returnValue,
688     HTMLEventObj_get_returnValue,
689     HTMLEventObj_put_cancelBubble,
690     HTMLEventObj_get_cancelBubble,
691     HTMLEventObj_get_fromElement,
692     HTMLEventObj_get_toElement,
693     HTMLEventObj_put_keyCode,
694     HTMLEventObj_get_keyCode,
695     HTMLEventObj_get_button,
696     HTMLEventObj_get_type,
697     HTMLEventObj_get_qualifier,
698     HTMLEventObj_get_reason,
699     HTMLEventObj_get_x,
700     HTMLEventObj_get_y,
701     HTMLEventObj_get_clientX,
702     HTMLEventObj_get_clientY,
703     HTMLEventObj_get_offsetX,
704     HTMLEventObj_get_offsetY,
705     HTMLEventObj_get_screenX,
706     HTMLEventObj_get_screenY,
707     HTMLEventObj_get_srcFilter
708 };
709
710 static const tid_t HTMLEventObj_iface_tids[] = {
711     IHTMLEventObj_tid,
712     0
713 };
714
715 static dispex_static_data_t HTMLEventObj_dispex = {
716     NULL,
717     DispCEventObj_tid,
718     NULL,
719     HTMLEventObj_iface_tids
720 };
721
722 static IHTMLEventObj *create_event(HTMLDOMNode *target, eventid_t eid, nsIDOMEvent *nsevent)
723 {
724     HTMLEventObj *ret;
725
726     ret = heap_alloc(sizeof(*ret));
727     if(!ret)
728         return NULL;
729
730     ret->lpIHTMLEventObjVtbl = &HTMLEventObjVtbl;
731     ret->ref = 1;
732     ret->type = event_info+eid;
733
734     ret->nsevent = nsevent;
735     if(nsevent) {
736         nsIDOMEvent_AddRef(nsevent);
737     }else if(event_types[event_info[eid].type]) {
738         nsIDOMDocumentEvent *doc_event;
739         nsresult nsres;
740
741         nsres = nsIDOMHTMLDocument_QueryInterface(target->doc->nsdoc, &IID_nsIDOMDocumentEvent,
742                  (void**)&doc_event);
743         if(NS_SUCCEEDED(nsres)) {
744             nsAString type_str;
745
746             nsAString_Init(&type_str, event_types[event_info[eid].type]);
747             nsres = nsIDOMDocumentEvent_CreateEvent(doc_event, &type_str, &ret->nsevent);
748             nsAString_Finish(&type_str);
749             nsIDOMDocumentEvent_Release(doc_event);
750         }
751         if(NS_FAILED(nsres)) {
752             ERR("Could not create event: %08x\n", nsres);
753             IHTMLEventObj_Release(HTMLEVENTOBJ(ret));
754             return NULL;
755         }
756     }
757
758     ret->target = target;
759     IHTMLDOMNode_AddRef(HTMLDOMNODE(target));
760
761     init_dispex(&ret->dispex, (IUnknown*)HTMLEVENTOBJ(ret), &HTMLEventObj_dispex);
762
763     return HTMLEVENTOBJ(ret);
764 }
765
766 static HRESULT call_cp_func(IDispatch *disp, DISPID dispid)
767 {
768     DISPPARAMS dp = {NULL,NULL,0,0};
769     ULONG argerr;
770     EXCEPINFO ei;
771     VARIANT vres;
772     HRESULT hres;
773
774     V_VT(&vres) = VT_EMPTY;
775     memset(&ei, 0, sizeof(ei));
776     hres = IDispatch_Invoke(disp, dispid, &IID_NULL, 0, DISPATCH_METHOD, &dp, &vres, &ei, &argerr);
777     if(SUCCEEDED(hres) && V_VT(&vres) != VT_EMPTY) {
778         FIXME("handle result %s\n", debugstr_variant(&vres));
779         VariantClear(&vres);
780     }
781
782     return hres;
783 }
784
785 static BOOL is_cp_event(cp_static_data_t *data, DISPID dispid)
786 {
787     int min, max, i;
788     HRESULT hres;
789
790     if(!data)
791         return FALSE;
792
793     if(!data->ids) {
794         hres = get_dispids(data->tid, &data->id_cnt, &data->ids);
795         if(FAILED(hres))
796             return FALSE;
797     }
798
799     min = 0;
800     max = data->id_cnt-1;
801     while(min <= max) {
802         i = (min+max)/2;
803         if(data->ids[i] == dispid)
804             return TRUE;
805
806         if(data->ids[i] < dispid)
807             min = i+1;
808         else
809             max = i-1;
810     }
811
812     return FALSE;
813 }
814
815 static void call_event_handlers(HTMLDocumentNode *doc, IHTMLEventObj *event_obj, event_target_t *event_target,
816         ConnectionPointContainer *cp_container, eventid_t eid, IDispatch *this_obj)
817 {
818     handler_vector_t *handler_vector = NULL;
819     int i;
820     HRESULT hres;
821
822     if(event_target)
823         handler_vector = event_target->event_table[eid];
824
825     if(handler_vector && handler_vector->handler_prop) {
826         DISPID named_arg = DISPID_THIS;
827         VARIANTARG arg;
828         DISPPARAMS dp = {&arg, &named_arg, 1, 1};
829
830         V_VT(&arg) = VT_DISPATCH;
831         V_DISPATCH(&arg) = this_obj;
832
833         TRACE("%s >>>\n", debugstr_w(event_info[eid].name));
834         hres = call_disp_func(handler_vector->handler_prop, &dp);
835         if(hres == S_OK)
836             TRACE("%s <<<\n", debugstr_w(event_info[eid].name));
837         else
838             WARN("%s <<< %08x\n", debugstr_w(event_info[eid].name), hres);
839     }
840
841     if(handler_vector && handler_vector->handler_cnt) {
842         VARIANTARG arg;
843         DISPPARAMS dp = {&arg, NULL, 1, 0};
844
845         V_VT(&arg) = VT_DISPATCH;
846         V_DISPATCH(&arg) = (IDispatch*)event_obj;
847
848         i = handler_vector->handler_cnt;
849         while(i--) {
850             if(handler_vector->handlers[i]) {
851                 TRACE("%s [%d] >>>\n", debugstr_w(event_info[eid].name), i);
852                 hres = call_disp_func(handler_vector->handlers[i], &dp);
853                 if(hres == S_OK)
854                     TRACE("%s [%d] <<<\n", debugstr_w(event_info[eid].name), i);
855                 else
856                     WARN("%s [%d] <<< %08x\n", debugstr_w(event_info[eid].name), i, hres);
857             }
858         }
859     }
860
861     if(cp_container) {
862         ConnectionPoint *cp;
863
864         if(cp_container->forward_container)
865             cp_container = cp_container->forward_container;
866
867         for(cp = cp_container->cp_list; cp; cp = cp->next) {
868             if(cp->sinks_size && is_cp_event(cp->data, event_info[eid].dispid)) {
869                 for(i=0; i < cp->sinks_size; i++) {
870                     TRACE("cp %s [%d] >>>\n", debugstr_w(event_info[eid].name), i);
871                     hres = call_cp_func(cp->sinks[i].disp, event_info[eid].dispid);
872                     if(hres == S_OK)
873                         TRACE("cp %s [%d] <<<\n", debugstr_w(event_info[eid].name), i);
874                     else
875                         WARN("cp %s [%d] <<< %08x\n", debugstr_w(event_info[eid].name), i, hres);
876                 }
877             }
878         }
879     }
880 }
881
882 void fire_event(HTMLDocumentNode *doc, eventid_t eid, nsIDOMNode *target, nsIDOMEvent *nsevent)
883 {
884     IHTMLEventObj *prev_event, *event_obj = NULL;
885     nsIDOMNode *parent, *nsnode;
886     HTMLDOMNode *node;
887     PRUint16 node_type;
888
889     TRACE("(%p) %s\n", doc, debugstr_w(event_info[eid].name));
890
891     prev_event = doc->basedoc.window->event;
892     event_obj = doc->basedoc.window->event = create_event(get_node(doc, target, TRUE), eid, nsevent);
893
894     nsIDOMNode_GetNodeType(target, &node_type);
895     nsnode = target;
896     nsIDOMNode_AddRef(nsnode);
897
898     switch(node_type) {
899     case ELEMENT_NODE:
900         do {
901             node = get_node(doc, nsnode, FALSE);
902             if(node)
903                 call_event_handlers(doc, event_obj, *get_node_event_target(node), node->cp_container, eid,
904                         (IDispatch*)HTMLDOMNODE(node));
905
906             if(!(event_info[eid].flags & EVENT_BUBBLE))
907                 break;
908
909             nsIDOMNode_GetParentNode(nsnode, &parent);
910             nsIDOMNode_Release(nsnode);
911             nsnode = parent;
912             if(!nsnode)
913                 break;
914
915             nsIDOMNode_GetNodeType(nsnode, &node_type);
916         }while(node_type == ELEMENT_NODE);
917
918         if(!(event_info[eid].flags & EVENT_BUBBLE))
919             break;
920
921     case DOCUMENT_NODE:
922         if(event_info[eid].flags & EVENT_FORWARDBODY) {
923             nsIDOMHTMLElement *nsbody;
924             nsresult nsres;
925
926             nsres = nsIDOMHTMLDocument_GetBody(doc->nsdoc, &nsbody);
927             if(NS_SUCCEEDED(nsres) && nsbody) {
928                 node = get_node(doc, (nsIDOMNode*)nsbody, FALSE);
929                 if(node)
930                     call_event_handlers(doc, event_obj, *get_node_event_target(node), node->cp_container,
931                             eid, (IDispatch*)HTMLDOMNODE(node));
932                 nsIDOMHTMLElement_Release(nsbody);
933             }else {
934                 ERR("Could not get body: %08x\n", nsres);
935             }
936         }
937
938         call_event_handlers(doc, event_obj, doc->node.event_target, &doc->basedoc.cp_container, eid,
939                 (IDispatch*)HTMLDOC(&doc->basedoc));
940         break;
941
942     default:
943         FIXME("unimplemented node type %d\n", node_type);
944     }
945
946     if(nsnode)
947         nsIDOMNode_Release(nsnode);
948
949     IHTMLEventObj_Release(event_obj);
950     doc->basedoc.window->event = prev_event;
951 }
952
953 HRESULT dispatch_event(HTMLDOMNode *node, const WCHAR *event_name, VARIANT *event_obj, VARIANT_BOOL *cancelled)
954 {
955     eventid_t eid;
956
957     eid = attr_to_eid(event_name);
958     if(eid == EVENTID_LAST) {
959         WARN("unknown event %s\n", debugstr_w(event_name));
960         return E_INVALIDARG;
961     }
962
963     if(event_obj && V_VT(event_obj) != VT_EMPTY && V_VT(event_obj) != VT_ERROR)
964         FIXME("event_obj not implemented\n");
965
966     if(!(event_info[eid].flags & EVENT_DEFAULTLISTENER)) {
967         FIXME("not EVENT_DEFAULTEVENTHANDLER\n");
968         return E_NOTIMPL;
969     }
970
971     fire_event(node->doc, eid, node->nsnode, NULL);
972
973     *cancelled = VARIANT_TRUE; /* FIXME */
974     return S_OK;
975 }
976
977 HRESULT call_event(HTMLDOMNode *node, eventid_t eid)
978 {
979     HRESULT hres;
980
981     if(node->vtbl->call_event) {
982         BOOL handled = FALSE;
983
984         hres = node->vtbl->call_event(node, eid, &handled);
985         if(handled)
986             return hres;
987     }
988
989     fire_event(node->doc, eid, node->nsnode, NULL);
990     return S_OK;
991 }
992
993 static inline event_target_t *get_event_target(event_target_t **event_target_ptr)
994 {
995     if(!*event_target_ptr)
996         *event_target_ptr = heap_alloc_zero(sizeof(event_target_t));
997     return *event_target_ptr;
998 }
999
1000 static BOOL alloc_handler_vector(event_target_t *event_target, eventid_t eid, int cnt)
1001 {
1002     handler_vector_t *new_vector, *handler_vector = event_target->event_table[eid];
1003
1004     if(handler_vector) {
1005         if(cnt <= handler_vector->handler_cnt)
1006             return TRUE;
1007
1008         new_vector = heap_realloc_zero(handler_vector, sizeof(handler_vector_t) + sizeof(IDispatch*)*cnt);
1009     }else {
1010         new_vector = heap_alloc_zero(sizeof(handler_vector_t) + sizeof(IDispatch*)*cnt);
1011     }
1012
1013     if(!new_vector)
1014         return FALSE;
1015
1016     new_vector->handler_cnt = cnt;
1017     event_target->event_table[eid] = new_vector;
1018     return TRUE;
1019 }
1020
1021 static HRESULT ensure_nsevent_handler(HTMLDocumentNode *doc, eventid_t eid)
1022 {
1023     if(!doc->nsdoc || !(event_info[eid].flags & EVENT_DEFAULTLISTENER))
1024         return S_OK;
1025
1026     if(!doc->event_vector) {
1027         doc->event_vector = heap_alloc_zero(EVENTID_LAST*sizeof(BOOL));
1028         if(!doc->event_vector)
1029             return E_OUTOFMEMORY;
1030     }
1031
1032     if(!doc->event_vector[eid]) {
1033         doc->event_vector[eid] = TRUE;
1034         add_nsevent_listener(doc, event_info[eid].name);
1035     }
1036
1037     return S_OK;
1038 }
1039
1040 static HRESULT set_event_handler_disp(event_target_t **event_target_ptr, HTMLDocumentNode *doc,
1041         eventid_t eid, IDispatch *disp)
1042 {
1043     event_target_t *event_target;
1044
1045     event_target = get_event_target(event_target_ptr);
1046     if(!event_target)
1047         return E_OUTOFMEMORY;
1048
1049     if(!alloc_handler_vector(event_target, eid, 0))
1050         return E_OUTOFMEMORY;
1051
1052     if(event_target->event_table[eid]->handler_prop)
1053         IDispatch_Release(event_target->event_table[eid]->handler_prop);
1054
1055     event_target->event_table[eid]->handler_prop = disp;
1056     if(!disp)
1057         return S_OK;
1058     IDispatch_AddRef(disp);
1059
1060     return ensure_nsevent_handler(doc, eid);
1061 }
1062
1063 HRESULT set_event_handler(event_target_t **event_target, HTMLDocumentNode *doc, eventid_t eid, VARIANT *var)
1064 {
1065     switch(V_VT(var)) {
1066     case VT_NULL:
1067         if(*event_target && (*event_target)->event_table[eid] && (*event_target)->event_table[eid]->handler_prop) {
1068             IDispatch_Release((*event_target)->event_table[eid]->handler_prop);
1069             (*event_target)->event_table[eid]->handler_prop = NULL;
1070         }
1071         break;
1072
1073     case VT_DISPATCH:
1074         return set_event_handler_disp(event_target, doc, eid, V_DISPATCH(var));
1075
1076     default:
1077         FIXME("not supported vt=%d\n", V_VT(var));
1078     case VT_EMPTY:
1079         return E_NOTIMPL;
1080     }
1081
1082     return S_OK;
1083 }
1084
1085 HRESULT get_event_handler(event_target_t **event_target, eventid_t eid, VARIANT *var)
1086 {
1087     if(*event_target && (*event_target)->event_table[eid] && (*event_target)->event_table[eid]->handler_prop) {
1088         V_VT(var) = VT_DISPATCH;
1089         V_DISPATCH(var) = (*event_target)->event_table[eid]->handler_prop;
1090         IDispatch_AddRef(V_DISPATCH(var));
1091     }else {
1092         V_VT(var) = VT_NULL;
1093     }
1094
1095     return S_OK;
1096 }
1097
1098 HRESULT attach_event(event_target_t **event_target_ptr, HTMLDocument *doc, BSTR name, IDispatch *disp, VARIANT_BOOL *res)
1099 {
1100     event_target_t *event_target;
1101     eventid_t eid;
1102     DWORD i = 0;
1103
1104     eid = attr_to_eid(name);
1105     if(eid == EVENTID_LAST) {
1106         WARN("Unknown event\n");
1107         *res = VARIANT_TRUE;
1108         return S_OK;
1109     }
1110
1111     event_target = get_event_target(event_target_ptr);
1112     if(!event_target)
1113         return E_OUTOFMEMORY;
1114
1115     if(event_target->event_table[eid]) {
1116         while(i < event_target->event_table[eid]->handler_cnt && event_target->event_table[eid]->handlers[i])
1117             i++;
1118         if(i == event_target->event_table[eid]->handler_cnt && !alloc_handler_vector(event_target, eid, i+1))
1119             return E_OUTOFMEMORY;
1120     }else if(!alloc_handler_vector(event_target, eid, i+1)) {
1121         return E_OUTOFMEMORY;
1122     }
1123
1124     IDispatch_AddRef(disp);
1125     event_target->event_table[eid]->handlers[i] = disp;
1126
1127     *res = VARIANT_TRUE;
1128     return S_OK;
1129 }
1130
1131 void update_cp_events(HTMLWindow *window, cp_static_data_t *cp)
1132 {
1133     int i;
1134
1135     for(i=0; i < EVENTID_LAST; i++) {
1136         if((event_info[i].flags & EVENT_DEFAULTLISTENER) && is_cp_event(cp, event_info[i].dispid))
1137             ensure_nsevent_handler(window->doc, i);
1138     }
1139 }
1140
1141 void check_event_attr(HTMLDocumentNode *doc, nsIDOMElement *nselem)
1142 {
1143     const PRUnichar *attr_value;
1144     nsAString attr_name_str, attr_value_str;
1145     IDispatch *disp;
1146     HTMLDOMNode *node;
1147     int i;
1148     nsresult nsres;
1149
1150     nsAString_Init(&attr_value_str, NULL);
1151     nsAString_Init(&attr_name_str, NULL);
1152
1153     for(i=0; i < EVENTID_LAST; i++) {
1154         nsAString_SetData(&attr_name_str, event_info[i].attr_name);
1155         nsres = nsIDOMElement_GetAttribute(nselem, &attr_name_str, &attr_value_str);
1156         if(NS_SUCCEEDED(nsres)) {
1157             nsAString_GetData(&attr_value_str, &attr_value);
1158             if(!*attr_value)
1159                 continue;
1160
1161             TRACE("%p.%s = %s\n", nselem, debugstr_w(event_info[i].attr_name), debugstr_w(attr_value));
1162
1163             disp = script_parse_event(doc->basedoc.window, attr_value);
1164             if(disp) {
1165                 node = get_node(doc, (nsIDOMNode*)nselem, TRUE);
1166                 set_event_handler_disp(get_node_event_target(node), node->doc, i, disp);
1167                 IDispatch_Release(disp);
1168             }
1169         }
1170     }
1171
1172     nsAString_Finish(&attr_value_str);
1173     nsAString_Finish(&attr_name_str);
1174 }
1175
1176 void release_event_target(event_target_t *event_target)
1177 {
1178     int i, j;
1179
1180     for(i=0; i < EVENTID_LAST; i++) {
1181         if(event_target->event_table[i]) {
1182             if(event_target->event_table[i]->handler_prop)
1183                 IDispatch_Release(event_target->event_table[i]->handler_prop);
1184             for(j=0; j < event_target->event_table[i]->handler_cnt; j++)
1185                 IDispatch_Release(event_target->event_table[i]->handlers[j]);
1186         }
1187     }
1188
1189     heap_free(event_target);
1190 }