2 * Copyright 2008-2011 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
22 #include <wine/test.h>
35 #define DEFINE_EXPECT(func) \
36 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
38 #define SET_EXPECT(func) \
39 do { called_ ## func = FALSE; expect_ ## func = TRUE; } while(0)
41 #define CHECK_EXPECT2(func) \
44 ok(expect_ ##func, "unexpected call " #func "\n"); \
45 called_ ## func = TRUE; \
48 #define CHECK_EXPECT(func) \
50 CHECK_EXPECT2(func); \
51 expect_ ## func = FALSE; \
54 #define CHECK_CALLED(func) \
56 ok(called_ ## func, "expected " #func "\n"); \
57 expect_ ## func = called_ ## func = FALSE; \
60 DEFINE_EXPECT(document_onclick);
61 DEFINE_EXPECT(body_onclick);
62 DEFINE_EXPECT(doc_onclick_attached);
63 DEFINE_EXPECT(div_onclick);
64 DEFINE_EXPECT(div_onclick_attached);
65 DEFINE_EXPECT(timeout);
66 DEFINE_EXPECT(doccp_onclick);
67 DEFINE_EXPECT(doccp_onclick_cancel);
68 DEFINE_EXPECT(div_onclick_disp);
69 DEFINE_EXPECT(invoke_onclick);
70 DEFINE_EXPECT(iframe_onreadystatechange_loading);
71 DEFINE_EXPECT(iframe_onreadystatechange_interactive);
72 DEFINE_EXPECT(iframe_onreadystatechange_complete);
73 DEFINE_EXPECT(iframedoc_onreadystatechange);
74 DEFINE_EXPECT(img_onload);
75 DEFINE_EXPECT(input_onfocus);
76 DEFINE_EXPECT(form_onsubmit);
77 DEFINE_EXPECT(form_onclick);
78 DEFINE_EXPECT(submit_onclick);
79 DEFINE_EXPECT(submit_onclick_attached);
80 DEFINE_EXPECT(submit_onclick_setret);
82 static HWND container_hwnd = NULL;
83 static IHTMLWindow2 *window;
84 static IOleDocumentView *view;
94 static const xy_test_t no_xy = {-10,-10,-10,-10};
95 static const xy_test_t zero_xy = {0,0,0,0};
97 static const char empty_doc_str[] =
100 static const char click_doc_str[] =
102 "<div id=\"clickdiv\" style=\"text-align: center; background: red; font-size: 32\">click here</div>"
105 static const char readystate_doc_str[] =
106 "<html><body><iframe id=\"iframe\"></iframe></body></html>";
108 static const char img_doc_str[] =
109 "<html><body><img id=\"imgid\"></img></body></html>";
111 static const char input_doc_str[] =
112 "<html><body><input id=\"inputid\"></input></body></html>";
114 static const char iframe_doc_str[] =
115 "<html><body><iframe id=\"ifr\">Testing</iframe></body></html>";
117 static const char form_doc_str[] =
118 "<html><body><form id=\"formid\" method=\"post\" action=\"about:blank\">"
119 "<input type=\"text\" value=\"test\" name=\"i\"/>"
120 "<input type=\"submit\" id=\"submitid\" />"
121 "</form></body></html>";
123 static const char *debugstr_guid(REFIID riid)
127 sprintf(buf, "{%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
128 riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
129 riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
130 riid->Data4[5], riid->Data4[6], riid->Data4[7]);
135 static int strcmp_wa(LPCWSTR strw, const char *stra)
138 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
139 return lstrcmpA(stra, buf);
142 static BSTR a2bstr(const char *str)
147 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
148 ret = SysAllocStringLen(NULL, len-1);
149 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
154 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
156 IUnknown *unk1, *unk2;
161 IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
162 IUnknown_Release(unk1);
163 IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk2);
164 IUnknown_Release(unk2);
169 #define test_disp(u,id) _test_disp(__LINE__,u,id)
170 static void _test_disp(unsigned line, IUnknown *unk, const IID *diid)
177 hres = IUnknown_QueryInterface(unk, &IID_IDispatchEx, (void**)&dispex);
178 ok_(__FILE__,line) (hres == S_OK, "Could not get IDispatch: %08x\n", hres);
183 hres = IDispatchEx_GetTypeInfoCount(dispex, &ticnt);
184 ok_(__FILE__,line) (hres == S_OK, "GetTypeInfoCount failed: %08x\n", hres);
185 ok_(__FILE__,line) (ticnt == 1, "ticnt=%u\n", ticnt);
187 hres = IDispatchEx_GetTypeInfo(dispex, 0, 0, &typeinfo);
188 ok_(__FILE__,line) (hres == S_OK, "GetTypeInfo failed: %08x\n", hres);
190 if(SUCCEEDED(hres)) {
193 hres = ITypeInfo_GetTypeAttr(typeinfo, &type_attr);
194 ok_(__FILE__,line) (hres == S_OK, "GetTypeAttr failed: %08x\n", hres);
195 ok_(__FILE__,line) (IsEqualGUID(&type_attr->guid, diid), "unexpected guid %s\n",
196 debugstr_guid(&type_attr->guid));
198 ITypeInfo_ReleaseTypeAttr(typeinfo, type_attr);
199 ITypeInfo_Release(typeinfo);
202 IDispatchEx_Release(dispex);
205 #define get_doc3_iface(u) _get_doc3_iface(__LINE__,u)
206 static IHTMLDocument3 *_get_doc3_iface(unsigned line, IUnknown *unk)
208 IHTMLDocument3 *doc3;
211 hres = IUnknown_QueryInterface(unk, &IID_IHTMLDocument3, (void**)&doc3);
212 ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLDocument3 iface: %08x\n", hres);
217 #define get_elem_iface(u) _get_elem_iface(__LINE__,u)
218 static IHTMLElement *_get_elem_iface(unsigned line, IUnknown *unk)
223 hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement, (void**)&elem);
224 ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement iface: %08x\n", hres);
229 #define get_elem2_iface(u) _get_elem2_iface(__LINE__,u)
230 static IHTMLElement2 *_get_elem2_iface(unsigned line, IUnknown *unk)
232 IHTMLElement2 *elem2;
235 hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement2, (void**)&elem2);
236 ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement2 iface: %08x\n", hres);
241 #define get_elem3_iface(u) _get_elem3_iface(__LINE__,u)
242 static IHTMLElement3 *_get_elem3_iface(unsigned line, IUnknown *unk)
244 IHTMLElement3 *elem3;
247 hres = IUnknown_QueryInterface(unk, &IID_IHTMLElement3, (void**)&elem3);
248 ok_(__FILE__,line) (hres == S_OK, "Could not get IHTMLElement3 iface: %08x\n", hres);
253 #define doc_get_body(d) _doc_get_body(__LINE__,d)
254 static IHTMLElement *_doc_get_body(unsigned line, IHTMLDocument2 *doc)
256 IHTMLElement *body = NULL;
259 hres = IHTMLDocument2_get_body(doc, &body);
260 ok_(__FILE__,line) (hres == S_OK, "get_body failed: %08x\n", hres);
261 ok_(__FILE__,line) (body != NULL, "body == NULL\n");
266 #define get_elem_id(d,i) _get_elem_id(__LINE__,d,i)
267 static IHTMLElement *_get_elem_id(unsigned line, IHTMLDocument2 *doc, const char *id)
269 IHTMLDocument3 *doc3 = _get_doc3_iface(line, (IUnknown*)doc);
275 hres = IHTMLDocument3_getElementById(doc3, str, &elem);
277 IHTMLDocument3_Release(doc3);
278 ok_(__FILE__,line) (hres == S_OK, "getElementById failed: %08x\n", hres);
283 #define test_elem_tag(u,n) _test_elem_tag(__LINE__,u,n)
284 static void _test_elem_tag(unsigned line, IUnknown *unk, const char *extag)
286 IHTMLElement *elem = _get_elem_iface(line, unk);
290 hres = IHTMLElement_get_tagName(elem, &tag);
291 IHTMLElement_Release(elem);
292 ok_(__FILE__, line) (hres == S_OK, "get_tagName failed: %08x\n", hres);
293 ok_(__FILE__, line) (!strcmp_wa(tag, extag), "got tag: %s, expected %s\n", wine_dbgstr_w(tag), extag);
298 #define get_event_obj() _get_event_obj(__LINE__)
299 static IHTMLEventObj *_get_event_obj(unsigned line)
301 IHTMLEventObj *event = NULL;
304 hres = IHTMLWindow2_get_event(window, &event);
305 ok_(__FILE__,line) (hres == S_OK, "get_event failed: %08x\n", hres);
306 ok_(__FILE__,line) (event != NULL, "event = NULL\n");
307 _test_disp(line, (IUnknown*)event, &DIID_DispCEventObj);
312 #define elem_fire_event(a,b,c) _elem_fire_event(__LINE__,a,b,c)
313 static void _elem_fire_event(unsigned line, IUnknown *unk, const char *event, VARIANT *evobj)
315 IHTMLElement3 *elem3 = _get_elem3_iface(line, unk);
322 hres = IHTMLElement3_fireEvent(elem3, str, evobj, &b);
324 ok_(__FILE__,line)(hres == S_OK, "fireEvent failed: %08x\n", hres);
325 ok_(__FILE__,line)(b == VARIANT_TRUE, "fireEvent returned %x\n", b);
328 #define test_event_args(a,b,c,d,e,f,g) _test_event_args(__LINE__,a,b,c,d,e,f,g)
329 static void _test_event_args(unsigned line, const IID *dispiid, DISPID id, WORD wFlags, DISPPARAMS *pdp,
330 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
332 ok_(__FILE__,line) (id == DISPID_VALUE, "id = %d\n", id);
333 ok_(__FILE__,line) (wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
334 ok_(__FILE__,line) (pdp != NULL, "pdp == NULL\n");
335 ok_(__FILE__,line) (pdp->cArgs == 1, "pdp->cArgs = %d\n", pdp->cArgs);
336 ok_(__FILE__,line) (pdp->cNamedArgs == 1, "pdp->cNamedArgs = %d\n", pdp->cNamedArgs);
337 ok_(__FILE__,line) (pdp->rgdispidNamedArgs[0] == DISPID_THIS, "pdp->rgdispidNamedArgs[0] = %d\n",
338 pdp->rgdispidNamedArgs[0]);
339 ok_(__FILE__,line) (V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg));
340 ok_(__FILE__,line) (pvarRes != NULL, "pvarRes == NULL\n");
341 ok_(__FILE__,line) (pei != NULL, "pei == NULL");
342 ok_(__FILE__,line) (!pspCaller, "pspCaller != NULL\n");
345 _test_disp(line, (IUnknown*)V_DISPATCH(pdp->rgvarg), dispiid);
348 #define test_attached_event_args(a,b,c,d,e) _test_attached_event_args(__LINE__,a,b,c,d,e)
349 static void _test_attached_event_args(unsigned line, DISPID id, WORD wFlags, DISPPARAMS *pdp,
350 VARIANT *pvarRes, EXCEPINFO *pei)
352 IHTMLEventObj *event;
354 ok(id == DISPID_VALUE, "id = %d\n", id);
355 ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
356 ok(pdp != NULL, "pDispParams == NULL\n");
357 ok(pdp->cArgs == 1, "pdp->cArgs = %d\n", pdp->cArgs);
358 ok(!pdp->cNamedArgs, "pdp->cNamedArgs = %d\n", pdp->cNamedArgs);
359 ok(!pdp->rgdispidNamedArgs, "pdp->rgdispidNamedArgs = %p\n", pdp->rgdispidNamedArgs);
360 ok(pdp->rgvarg != NULL, "rgvarg = NULL\n");
361 ok(pvarRes != NULL, "pvarRes = NULL\n");
362 ok(pei != NULL, "pei = NULL\n");
363 ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pVarRes) = %d\n", V_VT(pvarRes));
364 ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(pdp->rgvarg) = %d\n", V_VT(pdp->rgvarg));
365 ok(V_DISPATCH(pdp->rgvarg) != NULL, "V_DISPATCH(pdp->rgvarg) = %p\n", V_DISPATCH(pdp->rgvarg));
367 event = _get_event_obj(line);
368 ok(iface_cmp((IUnknown*)event, (IUnknown*)V_DISPATCH(pdp->rgvarg)), "event != arg0\n");
369 IHTMLEventObj_Release(event);
372 #define get_event_src() _get_event_src(__LINE__)
373 static IHTMLElement *_get_event_src(unsigned line)
375 IHTMLEventObj *event = _get_event_obj(line);
376 IHTMLElement *src_elem = NULL;
379 hres = IHTMLEventObj_get_srcElement(event, &src_elem);
380 IHTMLEventObj_Release(event);
381 ok_(__FILE__,line) (hres == S_OK, "get_srcElement failed: %08x\n", hres);
386 #define test_event_src(t) _test_event_src(__LINE__,t)
387 static void _test_event_src(unsigned line, const char *src_tag)
389 IHTMLElement *src_elem = _get_event_src(line);
392 ok_(__FILE__,line) (src_elem != NULL, "src_elem = NULL\n");
393 _test_elem_tag(line, (IUnknown*)src_elem, src_tag);
394 IHTMLElement_Release(src_elem);
396 ok_(__FILE__,line) (!src_elem, "src_elem != NULL\n");
400 static void _test_event_altkey(unsigned line, IHTMLEventObj *event, VARIANT_BOOL exval)
405 hres = IHTMLEventObj_get_altKey(event, &b);
406 ok_(__FILE__,line)(hres == S_OK, "get_altKey failed: %08x\n", hres);
407 ok_(__FILE__,line)(b == exval, "altKey = %x, expected %x\n", b, exval);
410 static void _test_event_ctrlkey(unsigned line, IHTMLEventObj *event, VARIANT_BOOL exval)
415 hres = IHTMLEventObj_get_ctrlKey(event, &b);
416 ok_(__FILE__,line)(hres == S_OK, "get_ctrlKey failed: %08x\n", hres);
417 ok_(__FILE__,line)(b == exval, "ctrlKey = %x, expected %x\n", b, exval);
420 static void _test_event_shiftkey(unsigned line, IHTMLEventObj *event, VARIANT_BOOL exval)
425 hres = IHTMLEventObj_get_shiftKey(event, &b);
426 ok_(__FILE__,line)(hres == S_OK, "get_shiftKey failed: %08x\n", hres);
427 ok_(__FILE__,line)(b == exval, "shiftKey = %x, expected %x\n", b, exval);
430 static void _test_event_cancelbubble(unsigned line, IHTMLEventObj *event, VARIANT_BOOL exval)
435 hres = IHTMLEventObj_get_cancelBubble(event, &b);
436 ok_(__FILE__,line)(hres == S_OK, "get_cancelBubble failed: %08x\n", hres);
437 ok_(__FILE__,line)(b == exval, "cancelBubble = %x, expected %x\n", b, exval);
440 static void _test_event_fromelem(unsigned line, IHTMLEventObj *event, const char *from_tag)
445 hres = IHTMLEventObj_get_fromElement(event, &elem);
446 ok_(__FILE__,line)(hres == S_OK, "get_fromElement failed: %08x\n", hres);
448 _test_elem_tag(line, (IUnknown*)elem, from_tag);
450 ok_(__FILE__,line)(elem == NULL, "fromElement != NULL\n");
452 IHTMLElement_Release(elem);
455 static void _test_event_toelem(unsigned line, IHTMLEventObj *event, const char *to_tag)
460 hres = IHTMLEventObj_get_toElement(event, &elem);
461 ok_(__FILE__,line)(hres == S_OK, "get_toElement failed: %08x\n", hres);
463 _test_elem_tag(line, (IUnknown*)elem, to_tag);
465 ok_(__FILE__,line)(elem == NULL, "toElement != NULL\n");
467 IHTMLElement_Release(elem);
470 static void _test_event_keycode(unsigned line, IHTMLEventObj *event, LONG exl)
475 hres = IHTMLEventObj_get_keyCode(event, &l);
476 ok_(__FILE__,line)(hres == S_OK, "get_keyCode failed: %08x\n", hres);
477 ok_(__FILE__,line)(l == exl, "keyCode = %x, expected %x\n", l, exl);
480 static void _test_event_button(unsigned line, IHTMLEventObj *event, LONG exl)
485 hres = IHTMLEventObj_get_button(event, &l);
486 ok_(__FILE__,line)(hres == S_OK, "get_button failed: %08x\n", hres);
487 ok_(__FILE__,line)(l == exl, "button = %x, expected %x\n", l, exl);
490 static void _test_event_reason(unsigned line, IHTMLEventObj *event, LONG exl)
495 hres = IHTMLEventObj_get_reason(event, &l);
496 ok_(__FILE__,line)(hres == S_OK, "get_reason failed: %08x\n", hres);
497 ok_(__FILE__,line)(l == exl, "reason = %x, expected %x\n", l, exl);
500 static void _test_event_x(unsigned line, IHTMLEventObj *event, LONG exl)
505 hres = IHTMLEventObj_get_x(event, &l);
506 ok_(__FILE__,line)(hres == S_OK, "get_x failed: %08x\n", hres);
507 if(exl != -10) /* don't test the exact value */
508 ok_(__FILE__,line)(l == exl, "x = %d, expected %d\n", l, exl);
511 static void _test_event_y(unsigned line, IHTMLEventObj *event, LONG exl)
516 hres = IHTMLEventObj_get_y(event, &l);
517 ok_(__FILE__,line)(hres == S_OK, "get_y failed: %08x\n", hres);
518 if(exl != -10) /* don't test the exact value */
519 ok_(__FILE__,line)(l == exl, "y = %d, expected %d\n", l, exl);
522 static void _test_event_clientx(unsigned line, IHTMLEventObj *event, LONG exl)
527 hres = IHTMLEventObj_get_clientX(event, &l);
528 ok_(__FILE__,line)(hres == S_OK, "get_clientX failed: %08x\n", hres);
529 if(exl != -10) /* don't test the exact value */
530 ok_(__FILE__,line)(l == exl, "clientX = %d, expected %d\n", l, exl);
533 static void _test_event_clienty(unsigned line, IHTMLEventObj *event, LONG exl)
538 hres = IHTMLEventObj_get_clientY(event, &l);
539 ok_(__FILE__,line)(hres == S_OK, "get_clientY failed: %08x\n", hres);
540 if(exl != -10) /* don't test the exact value */
541 ok_(__FILE__,line)(l == exl, "clientY = %d, expected %d\n", l, exl);
544 static void _test_event_offsetx(unsigned line, IHTMLEventObj *event, LONG exl)
549 hres = IHTMLEventObj_get_offsetX(event, &l);
550 ok_(__FILE__,line)(hres == S_OK, "get_offsetX failed: %08x\n", hres);
551 if(exl != -10) /* don't test the exact value */
552 ok_(__FILE__,line)(l == exl, "offsetX = %d, expected %d\n", l, exl);
555 static void _test_event_offsety(unsigned line, IHTMLEventObj *event, LONG exl)
560 hres = IHTMLEventObj_get_offsetY(event, &l);
561 ok_(__FILE__,line)(hres == S_OK, "get_offsetY failed: %08x\n", hres);
562 if(exl != -10) /* don't test the exact value */
563 ok_(__FILE__,line)(l == exl, "offsetY = %d, expected %d\n", l, exl);
566 static void _test_event_screenx(unsigned line, IHTMLEventObj *event, LONG exl)
571 hres = IHTMLEventObj_get_screenX(event, &l);
572 ok_(__FILE__,line)(hres == S_OK, "get_screenX failed: %08x\n", hres);
573 if(exl != -10) /* don't test the exact value */
574 ok_(__FILE__,line)(l == exl, "screenX = %d, expected %d\n", l, exl);
577 static void _test_event_screeny(unsigned line, IHTMLEventObj *event, LONG exl)
582 hres = IHTMLEventObj_get_screenY(event, &l);
583 ok_(__FILE__,line)(hres == S_OK, "get_screenY failed: %08x\n", hres);
584 if(exl != -10) /* don't test the exact value for -10 */
585 ok_(__FILE__,line)(l == exl, "screenY = %d, expected %d\n", l, exl);
588 static void _test_event_type(unsigned line, IHTMLEventObj *event, const char *exstr)
593 hres = IHTMLEventObj_get_type(event, &str);
594 ok_(__FILE__,line)(hres == S_OK, "get_type failed: %08x\n", hres);
595 ok_(__FILE__,line)(!strcmp_wa(str, exstr), "type = %s, expected %s\n", wine_dbgstr_w(str), exstr);
598 static void _test_event_qualifier(unsigned line, IHTMLEventObj *event, const char *exstr)
603 hres = IHTMLEventObj_get_qualifier(event, &str);
604 ok_(__FILE__,line)(hres == S_OK, "get_qualifier failed: %08x\n", hres);
606 ok_(__FILE__,line)(!strcmp_wa(str, exstr), "qualifier = %s, expected %s\n", wine_dbgstr_w(str), exstr);
608 ok_(__FILE__,line)(!str, "qualifier != NULL\n");
611 static void _test_event_srcfilter(unsigned line, IHTMLEventObj *event)
616 hres = IHTMLEventObj_get_srcFilter(event, &disp);
617 ok_(__FILE__,line)(hres == S_OK, "get_srcFilter failed: %08x\n", hres);
618 ok_(__FILE__,line)(!disp, "srcFilter != NULL\n");
621 #define test_event_obj(t,x) _test_event_obj(__LINE__,t,x)
622 static void _test_event_obj(unsigned line, const char *type, const xy_test_t *xy)
624 IHTMLEventObj *event = _get_event_obj(line);
628 _test_event_altkey(line, event, VARIANT_FALSE);
629 _test_event_ctrlkey(line, event, VARIANT_FALSE);
630 _test_event_shiftkey(line, event, VARIANT_FALSE);
631 _test_event_cancelbubble(line, event, VARIANT_FALSE);
632 _test_event_fromelem(line, event, NULL);
633 _test_event_toelem(line, event, NULL);
634 _test_event_keycode(line, event, 0);
635 _test_event_button(line, event, 0);
636 _test_event_type(line, event, type);
637 _test_event_qualifier(line, event, NULL);
638 _test_event_reason(line, event, 0);
639 _test_event_srcfilter(line, event);
640 _test_event_x(line, event, xy->x);
641 _test_event_y(line, event, xy->y);
642 _test_event_clientx(line, event, -10);
643 _test_event_clienty(line, event, -10);
644 _test_event_offsetx(line, event, xy->offset_x);
645 _test_event_offsety(line, event, xy->offset_y);
646 _test_event_screenx(line, event, -10);
647 _test_event_screeny(line, event, -10);
649 hres = IHTMLEventObj_get_returnValue(event, &v);
650 ok_(__FILE__,line)(hres == S_OK, "get_returnValue failed: %08x\n", hres);
651 ok_(__FILE__,line)(V_VT(&v) == VT_EMPTY, "V_VT(returnValue) = %d\n", V_VT(&v));
653 IHTMLEventObj_Release(event);
656 #define elem_attach_event(a,b,c) _elem_attach_event(__LINE__,a,b,c)
657 static void _elem_attach_event(unsigned line, IUnknown *unk, const char *namea, IDispatch *disp)
659 IHTMLElement2 *elem = _get_elem2_iface(line, unk);
664 name = a2bstr(namea);
665 hres = IHTMLElement2_attachEvent(elem, name, disp, &res);
666 IHTMLElement2_Release(elem);
668 ok_(__FILE__,line)(hres == S_OK, "attachEvent failed: %08x\n", hres);
669 ok_(__FILE__,line)(res == VARIANT_TRUE, "attachEvent returned %x\n", res);
672 #define elem_detach_event(a,b,c) _elem_detach_event(__LINE__,a,b,c)
673 static void _elem_detach_event(unsigned line, IUnknown *unk, const char *namea, IDispatch *disp)
675 IHTMLElement2 *elem = _get_elem2_iface(line, unk);
679 name = a2bstr(namea);
680 hres = IHTMLElement2_detachEvent(elem, name, disp);
681 IHTMLElement2_Release(elem);
683 ok_(__FILE__,line)(hres == S_OK, "detachEvent failed: %08x\n", hres);
686 #define doc_attach_event(a,b,c) _doc_attach_event(__LINE__,a,b,c)
687 static void _doc_attach_event(unsigned line, IHTMLDocument2 *doc, const char *namea, IDispatch *disp)
689 IHTMLDocument3 *doc3 = _get_doc3_iface(line, (IUnknown*)doc);
694 name = a2bstr(namea);
695 hres = IHTMLDocument3_attachEvent(doc3, name, disp, &res);
696 IHTMLDocument3_Release(doc3);
698 ok_(__FILE__,line)(hres == S_OK, "attachEvent failed: %08x\n", hres);
699 ok_(__FILE__,line)(res == VARIANT_TRUE, "attachEvent returned %x\n", res);
702 #define doc_detach_event(a,b,c) _doc_detach_event(__LINE__,a,b,c)
703 static void _doc_detach_event(unsigned line, IHTMLDocument2 *doc, const char *namea, IDispatch *disp)
705 IHTMLDocument3 *doc3 = _get_doc3_iface(line, (IUnknown*)doc);
709 name = a2bstr(namea);
710 hres = IHTMLDocument3_detachEvent(doc3, name, disp);
711 IHTMLDocument3_Release(doc3);
713 ok_(__FILE__,line)(hres == S_OK, "detachEvent failed: %08x\n", hres);
716 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
720 if(IsEqualGUID(riid, &IID_IUnknown)
721 || IsEqualGUID(riid, &IID_IDispatch)
722 || IsEqualGUID(riid, &IID_IDispatchEx))
725 ok(0, "unexpected riid %s\n", debugstr_guid(riid));
726 return E_NOINTERFACE;
732 static HRESULT WINAPI Dispatch_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
736 if(IsEqualGUID(riid, &IID_IUnknown)
737 || IsEqualGUID(riid, &IID_IDispatch)) {
739 }else if(IsEqualGUID(riid, &IID_IDispatchEx)) {
740 return E_NOINTERFACE;
742 ok(0, "unexpected riid %s\n", debugstr_guid(riid));
743 return E_NOINTERFACE;
749 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
754 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
759 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
761 ok(0, "unexpected call\n");
765 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
766 LCID lcid, ITypeInfo **ppTInfo)
768 ok(0, "unexpected call\n");
772 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
773 LPOLESTR *rgszNames, UINT cNames,
774 LCID lcid, DISPID *rgDispId)
776 ok(0, "unexpected call\n");
780 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
781 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
782 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
784 ok(0, "unexpected call\n");
788 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
790 ok(0, "unexpected call\n");
794 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
795 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
797 ok(0, "unexpected call\n");
801 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
803 ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
807 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
809 ok(0, "unexpected call\n");
813 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
815 ok(0, "unexpected call\n");
819 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
821 ok(0, "unexpected call\n");
825 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
827 ok(0, "unexpected call\n");
831 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
833 ok(0, "unexpected call\n");
837 #define EVENT_HANDLER_FUNC_OBJ(event) \
838 static IDispatchExVtbl event ## FuncVtbl = { \
839 DispatchEx_QueryInterface, \
841 DispatchEx_Release, \
842 DispatchEx_GetTypeInfoCount, \
843 DispatchEx_GetTypeInfo, \
844 DispatchEx_GetIDsOfNames, \
846 DispatchEx_GetDispID, \
848 DispatchEx_DeleteMemberByName, \
849 DispatchEx_DeleteMemberByDispID, \
850 DispatchEx_GetMemberProperties, \
851 DispatchEx_GetMemberName, \
852 DispatchEx_GetNextDispID, \
853 DispatchEx_GetNameSpaceParent \
855 static IDispatchEx event ## _obj = { &event ## FuncVtbl };
857 static HRESULT WINAPI document_onclick(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
858 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
860 IHTMLDocument3 *doc3;
861 CHECK_EXPECT(document_onclick);
862 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
863 doc3 = get_doc3_iface((IUnknown*)V_DISPATCH(pdp->rgvarg));
864 IHTMLDocument3_Release(doc3);
865 test_event_src("DIV");
866 test_event_obj("click", &no_xy);
870 EVENT_HANDLER_FUNC_OBJ(document_onclick);
872 static HRESULT WINAPI div_onclick(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
873 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
875 CHECK_EXPECT(div_onclick);
876 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
877 test_event_src("DIV");
881 EVENT_HANDLER_FUNC_OBJ(div_onclick);
883 static HRESULT WINAPI div_onclick_attached(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
884 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
886 CHECK_EXPECT(div_onclick_attached);
888 test_attached_event_args(id, wFlags, pdp, pvarRes, pei);
889 test_event_src("DIV");
893 EVENT_HANDLER_FUNC_OBJ(div_onclick_attached);
895 static HRESULT WINAPI doc_onclick_attached(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
896 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
898 CHECK_EXPECT(doc_onclick_attached);
900 test_attached_event_args(id, wFlags, pdp, pvarRes, pei);
901 test_event_src("DIV");
905 EVENT_HANDLER_FUNC_OBJ(doc_onclick_attached);
907 static HRESULT WINAPI body_onclick(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
908 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
910 CHECK_EXPECT(body_onclick);
911 test_event_args(&DIID_DispHTMLBody, id, wFlags, pdp, pvarRes, pei, pspCaller);
912 test_event_src("DIV");
916 EVENT_HANDLER_FUNC_OBJ(body_onclick);
918 static HRESULT WINAPI img_onload(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
919 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
921 CHECK_EXPECT(img_onload);
922 test_event_args(&DIID_DispHTMLImg, id, wFlags, pdp, pvarRes, pei, pspCaller);
923 test_event_src("IMG");
927 EVENT_HANDLER_FUNC_OBJ(img_onload);
929 static HRESULT WINAPI input_onfocus(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
930 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
932 CHECK_EXPECT(input_onfocus);
933 test_event_args(&DIID_DispHTMLInputElement, id, wFlags, pdp, pvarRes, pei, pspCaller);
934 test_event_src("INPUT");
938 EVENT_HANDLER_FUNC_OBJ(input_onfocus);
940 static HRESULT WINAPI form_onsubmit(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
941 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
943 CHECK_EXPECT(form_onsubmit);
944 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
945 test_event_src("FORM");
947 V_VT(pvarRes) = VT_BOOL;
948 V_BOOL(pvarRes) = VARIANT_FALSE;
952 EVENT_HANDLER_FUNC_OBJ(form_onsubmit);
954 static HRESULT WINAPI form_onclick(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
955 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
957 CHECK_EXPECT(form_onclick);
958 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
963 EVENT_HANDLER_FUNC_OBJ(form_onclick);
965 static HRESULT WINAPI submit_onclick(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
966 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
968 CHECK_EXPECT(submit_onclick);
969 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
970 test_event_src("INPUT");
972 V_VT(pvarRes) = VT_BOOL;
973 V_BOOL(pvarRes) = VARIANT_FALSE;
977 EVENT_HANDLER_FUNC_OBJ(submit_onclick);
979 static HRESULT WINAPI submit_onclick_attached(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
980 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
982 CHECK_EXPECT(submit_onclick_attached);
983 test_attached_event_args(id, wFlags, pdp, pvarRes, pei);
984 test_event_src("INPUT");
986 V_VT(pvarRes) = VT_BOOL;
987 V_BOOL(pvarRes) = VARIANT_FALSE;
991 EVENT_HANDLER_FUNC_OBJ(submit_onclick_attached);
993 static VARIANT onclick_retval, onclick_event_retval;
995 static HRESULT WINAPI submit_onclick_setret(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
996 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
998 IHTMLEventObj *event;
1001 CHECK_EXPECT(submit_onclick_setret);
1002 test_event_args(NULL, id, wFlags, pdp, pvarRes, pei, pspCaller);
1003 test_event_src("INPUT");
1006 hres = IHTMLWindow2_get_event(window, &event);
1007 ok(hres == S_OK, "get_event failed: %08x\n", hres);
1008 ok(event != NULL, "event == NULL\n");
1010 hres = IHTMLEventObj_put_returnValue(event, onclick_event_retval);
1011 ok(hres == S_OK, "put_returnValue failed: %08x\n", hres);
1012 IHTMLEventObj_Release(event);
1014 *pvarRes = onclick_retval;
1018 EVENT_HANDLER_FUNC_OBJ(submit_onclick_setret);
1020 static HRESULT WINAPI iframedoc_onreadystatechange(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1021 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1023 IHTMLEventObj *event = NULL;
1026 CHECK_EXPECT2(iframedoc_onreadystatechange);
1027 test_event_args(&DIID_DispHTMLDocument, id, wFlags, pdp, pvarRes, pei, pspCaller);
1029 event = (void*)0xdeadbeef;
1030 hres = IHTMLWindow2_get_event(window, &event);
1031 ok(hres == S_OK, "get_event failed: %08x\n", hres);
1032 ok(!event, "event = %p\n", event);
1037 EVENT_HANDLER_FUNC_OBJ(iframedoc_onreadystatechange);
1039 static HRESULT WINAPI iframe_onreadystatechange(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1040 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1042 IHTMLWindow2 *iframe_window;
1043 IHTMLDocument2 *iframe_doc;
1044 IHTMLFrameBase2 *iframe;
1045 IHTMLElement2 *elem2;
1051 test_event_args(&DIID_DispHTMLIFrame, id, wFlags, pdp, pvarRes, pei, pspCaller);
1052 test_event_src("IFRAME");
1054 elem = get_event_src();
1055 elem2 = get_elem2_iface((IUnknown*)elem);
1056 IHTMLElement_Release(elem);
1058 V_VT(&v) = VT_EMPTY;
1059 hres = IHTMLElement2_get_readyState(elem2, &v);
1060 ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
1061 ok(V_VT(&v) == VT_BSTR, "V_VT(readyState) = %d\n", V_VT(&v));
1063 hres = IHTMLElement2_QueryInterface(elem2, &IID_IHTMLFrameBase2, (void**)&iframe);
1064 IHTMLElement2_Release(elem2);
1065 ok(hres == S_OK, "Could not get IHTMLFrameBase2 iface: %08x\n", hres);
1068 hres = IHTMLFrameBase2_get_readyState(iframe, &str);
1069 ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
1070 ok(str != NULL, "readyState == NULL\n");
1071 ok(!lstrcmpW(str, V_BSTR(&v)), "ready states differ\n");
1074 hres = IHTMLFrameBase2_get_contentWindow(iframe, &iframe_window);
1075 ok(hres == S_OK, "get_contentDocument failed: %08x\n", hres);
1077 hres = IHTMLWindow2_get_document(iframe_window, &iframe_doc);
1078 IHTMLWindow2_Release(iframe_window);
1079 ok(hres == S_OK, "get_document failed: %08x\n", hres);
1081 hres = IHTMLDocument2_get_readyState(iframe_doc, &str2);
1082 ok(hres == S_OK, "get_document failed: %08x\n", hres);
1083 ok(!lstrcmpW(str, str2), "unexpected document readyState %s\n", wine_dbgstr_w(str2));
1084 SysFreeString(str2);
1086 if(!strcmp_wa(str, "loading")) {
1087 CHECK_EXPECT(iframe_onreadystatechange_loading);
1089 V_VT(&v) = VT_DISPATCH;
1090 V_DISPATCH(&v) = (IDispatch*)&iframedoc_onreadystatechange_obj;
1091 hres = IHTMLDocument2_put_onreadystatechange(iframe_doc, v);
1092 ok(hres == S_OK, "put_onreadystatechange: %08x\n", hres);
1093 }else if(!strcmp_wa(str, "interactive"))
1094 CHECK_EXPECT(iframe_onreadystatechange_interactive);
1095 else if(!strcmp_wa(str, "complete"))
1096 CHECK_EXPECT(iframe_onreadystatechange_complete);
1098 ok(0, "unexpected state %s\n", wine_dbgstr_w(str));
1101 IHTMLDocument2_Release(iframe_doc);
1102 IHTMLFrameBase2_Release(iframe);
1106 EVENT_HANDLER_FUNC_OBJ(iframe_onreadystatechange);
1108 static HRESULT WINAPI nocall(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1109 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1111 ok(0, "unexpected call\n");
1115 EVENT_HANDLER_FUNC_OBJ(nocall);
1117 #define CONNECTION_POINT_OBJ(cpname, diid) \
1118 static HRESULT WINAPI cpname ## _QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv) \
1121 if(IsEqualGUID(riid, &IID_IUnknown) \
1122 || IsEqualGUID(riid, &IID_IDispatch) \
1123 || IsEqualGUID(riid, &diid)) \
1126 ok(0, "unexpected riid %s\n", debugstr_guid(riid)); \
1127 return E_NOINTERFACE; \
1131 static IDispatchExVtbl cpname ## Vtbl = { \
1132 cpname ## _QueryInterface, \
1133 DispatchEx_AddRef, \
1134 DispatchEx_Release, \
1135 DispatchEx_GetTypeInfoCount, \
1136 DispatchEx_GetTypeInfo, \
1137 DispatchEx_GetIDsOfNames, \
1139 DispatchEx_GetDispID, \
1140 DispatchEx_InvokeEx, \
1141 DispatchEx_DeleteMemberByName, \
1142 DispatchEx_DeleteMemberByDispID, \
1143 DispatchEx_GetMemberProperties, \
1144 DispatchEx_GetMemberName, \
1145 DispatchEx_GetNextDispID, \
1146 DispatchEx_GetNameSpaceParent \
1148 static IDispatchEx cpname ## _obj = { &cpname ## Vtbl }
1150 #define test_cp_args(a,b,c,d,e,f) _test_cp_args(__LINE__,a,b,c,d,e,f)
1151 static void _test_cp_args(unsigned line, REFIID riid, WORD flags, DISPPARAMS *dp, VARIANT *vres, EXCEPINFO *ei, UINT *argerr)
1153 ok_(__FILE__,line)(IsEqualGUID(&IID_NULL, riid), "riid = %s\n", debugstr_guid(riid));
1154 ok_(__FILE__,line)(flags == DISPATCH_METHOD, "flags = %x\n", flags);
1155 ok_(__FILE__,line)(dp != NULL, "dp == NULL\n");
1156 ok_(__FILE__,line)(!dp->cArgs, "dp->cArgs = %d\n", dp->cArgs);
1157 ok_(__FILE__,line)(!dp->rgvarg, "dp->rgvarg = %p\n", dp->rgvarg);
1158 ok_(__FILE__,line)(!dp->cNamedArgs, "dp->cNamedArgs = %d\n", dp->cNamedArgs);
1159 ok_(__FILE__,line)(!dp->rgdispidNamedArgs, "dp->rgdispidNamedArgs = %p\n", dp->rgdispidNamedArgs);
1160 ok_(__FILE__,line)(vres != NULL, "vres == NULL\n");
1161 ok_(__FILE__,line)(V_VT(vres) == VT_EMPTY, "V_VT(vres) = %d\n", V_VT(vres));
1162 ok_(__FILE__,line)(ei != NULL, "ei == NULL\n");
1163 ok_(__FILE__,line)(argerr != NULL, "argerr == NULL\n");
1166 static HRESULT WINAPI doccp(IDispatchEx *iface, DISPID dispIdMember,
1167 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1168 VARIANT *pVarResult, EXCEPINFO *pei, UINT *puArgErr)
1170 switch(dispIdMember) {
1171 case DISPID_HTMLDOCUMENTEVENTS_ONCLICK:
1172 CHECK_EXPECT(doccp_onclick);
1173 test_cp_args(riid, wFlags, pdp, pVarResult, pei, puArgErr);
1176 ok(0, "unexpected call %d\n", dispIdMember);
1183 CONNECTION_POINT_OBJ(doccp, DIID_HTMLDocumentEvents);
1185 static HRESULT WINAPI doccp_onclick_cancel(IDispatchEx *iface, DISPID dispIdMember,
1186 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pVarResult, EXCEPINFO *pei, UINT *puArgErr)
1188 switch(dispIdMember) {
1189 case DISPID_HTMLDOCUMENTEVENTS_ONCLICK:
1190 CHECK_EXPECT(doccp_onclick_cancel);
1191 test_cp_args(riid, wFlags, pdp, pVarResult, pei, puArgErr);
1192 V_VT(pVarResult) = VT_BOOL;
1193 V_BOOL(pVarResult) = VARIANT_FALSE;
1196 ok(0, "unexpected call %d\n", dispIdMember);
1203 CONNECTION_POINT_OBJ(doccp_onclick_cancel, DIID_HTMLDocumentEvents);
1205 static HRESULT WINAPI timeoutFunc_Invoke(IDispatchEx *iface, DISPID dispIdMember,
1206 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1207 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1209 CHECK_EXPECT(timeout);
1211 ok(dispIdMember == DISPID_VALUE, "dispIdMember = %d\n", dispIdMember);
1212 ok(IsEqualGUID(&IID_NULL, riid), "riid = %s\n", debugstr_guid(riid));
1213 ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
1214 ok(!lcid, "lcid = %x\n", lcid);
1215 ok(pDispParams != NULL, "pDispParams == NULL\n");
1216 ok(!pDispParams->cArgs, "pdp->cArgs = %d\n", pDispParams->cArgs);
1217 ok(!pDispParams->cNamedArgs, "pdp->cNamedArgs = %d\n", pDispParams->cNamedArgs);
1218 ok(!pDispParams->rgdispidNamedArgs, "pdp->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
1219 ok(!pDispParams->rgvarg, "rgvarg = %p\n", pDispParams->rgvarg);
1220 ok(pVarResult != NULL, "pVarResult = NULL\n");
1221 ok(pExcepInfo != NULL, "pExcepInfo = NULL\n");
1222 ok(!puArgErr, "puArgErr = %p\n", puArgErr);
1223 ok(V_VT(pVarResult) == VT_EMPTY, "V_VT(pVarResult) = %d\n", V_VT(pVarResult));
1228 static const IDispatchExVtbl timeoutFuncVtbl = {
1229 DispatchEx_QueryInterface,
1232 DispatchEx_GetTypeInfoCount,
1233 DispatchEx_GetTypeInfo,
1234 DispatchEx_GetIDsOfNames,
1236 DispatchEx_GetDispID,
1237 DispatchEx_InvokeEx,
1238 DispatchEx_DeleteMemberByName,
1239 DispatchEx_DeleteMemberByDispID,
1240 DispatchEx_GetMemberProperties,
1241 DispatchEx_GetMemberName,
1242 DispatchEx_GetNextDispID,
1243 DispatchEx_GetNameSpaceParent
1246 static IDispatchEx timeoutFunc = { &timeoutFuncVtbl };
1248 static HRESULT WINAPI div_onclick_disp_Invoke(IDispatchEx *iface, DISPID id,
1249 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1250 VARIANT *pvarRes, EXCEPINFO *pei, UINT *puArgErr)
1252 CHECK_EXPECT(div_onclick_disp);
1254 test_attached_event_args(id, wFlags, pdp, pvarRes, pei);
1256 ok(IsEqualGUID(&IID_NULL, riid), "riid = %s\n", debugstr_guid(riid));
1257 ok(!puArgErr, "puArgErr = %p\n", puArgErr);
1262 static const IDispatchExVtbl div_onclick_dispVtbl = {
1263 Dispatch_QueryInterface,
1266 DispatchEx_GetTypeInfoCount,
1267 DispatchEx_GetTypeInfo,
1268 DispatchEx_GetIDsOfNames,
1269 div_onclick_disp_Invoke,
1272 static IDispatchEx div_onclick_disp = { &div_onclick_dispVtbl };
1274 static void pump_msgs(BOOL *b)
1279 while(!*b && GetMessageW(&msg, NULL, 0, 0)) {
1280 TranslateMessage(&msg);
1281 DispatchMessage(&msg);
1284 while(!b && PeekMessageW(&msg, NULL, 0, 0, PM_REMOVE)) {
1285 TranslateMessage(&msg);
1286 DispatchMessage(&msg);
1291 static IConnectionPoint *get_cp(IUnknown *unk, REFIID riid)
1293 IConnectionPointContainer *cp_container;
1294 IConnectionPoint *cp;
1297 hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&cp_container);
1298 ok(hres == S_OK, "Could not get IConnectionPointContainer: %08x\n", hres);
1300 hres = IConnectionPointContainer_FindConnectionPoint(cp_container, riid, &cp);
1301 IConnectionPointContainer_Release(cp_container);
1302 ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
1307 static DWORD register_cp(IUnknown *unk, REFIID riid, IUnknown *sink)
1309 IConnectionPoint *cp;
1313 cp = get_cp(unk, riid);
1314 hres = IConnectionPoint_Advise(cp, sink, &cookie);
1315 IConnectionPoint_Release(cp);
1316 ok(hres == S_OK, "Advise failed: %08x\n", hres);
1321 static void unregister_cp(IUnknown *unk, REFIID riid, DWORD cookie)
1323 IConnectionPoint *cp;
1326 cp = get_cp(unk, riid);
1327 hres = IConnectionPoint_Unadvise(cp, cookie);
1328 IConnectionPoint_Release(cp);
1329 ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
1332 static HRESULT WINAPI EventDispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
1334 if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IDispatch, riid)) {
1339 ok(0, "Unexpected call\n");
1340 return E_NOINTERFACE;
1343 static DWORD WINAPI EventDispatch_AddRef(IDispatch *iface)
1348 static DWORD WINAPI EventDispatch_Release(IDispatch *iface)
1353 static HRESULT WINAPI EventDispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
1355 ok(0, "Unexpected call\n");
1359 static HRESULT WINAPI EventDispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
1361 ok(0, "Unexpected call\n");
1365 static HRESULT WINAPI EventDispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
1366 UINT cNames, LCID lcid, DISPID *rgDispId)
1368 ok(0, "Unexpected call\n");
1372 static HRESULT WINAPI EventDispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
1373 LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
1374 EXCEPINFO *pExcepInfo, UINT *puArgErr)
1376 ok(IsEqualGUID(&IID_NULL, riid), "riid = %s\n", debugstr_guid(riid));
1377 ok(pDispParams != NULL, "pDispParams == NULL\n");
1378 ok(pExcepInfo != NULL, "pExcepInfo == NULL\n");
1379 ok(puArgErr != NULL, "puArgErr == NULL\n");
1380 ok(V_VT(pVarResult) == 0, "V_VT(pVarResult) = %d\n", V_VT(pVarResult));
1381 ok(wFlags == DISPATCH_METHOD, "wFlags = %d\n", wFlags);
1383 switch(dispIdMember) {
1384 case DISPID_HTMLDOCUMENTEVENTS_ONCLICK:
1385 CHECK_EXPECT2(invoke_onclick);
1387 case DISPID_HTMLDOCUMENTEVENTS2_ONPROPERTYCHANGE:
1388 case DISPID_HTMLDOCUMENTEVENTS2_ONREADYSTATECHANGE:
1399 ok(0, "Unexpected call: %d\n", dispIdMember);
1405 static const IDispatchVtbl EventDispatchVtbl = {
1406 EventDispatch_QueryInterface,
1407 EventDispatch_AddRef,
1408 EventDispatch_Release,
1409 EventDispatch_GetTypeInfoCount,
1410 EventDispatch_GetTypeInfo,
1411 EventDispatch_GetIDsOfNames,
1412 EventDispatch_Invoke
1415 static IDispatch EventDispatch = { &EventDispatchVtbl };
1417 static void test_onclick(IHTMLDocument2 *doc)
1419 IHTMLElement *div, *body;
1424 register_cp((IUnknown*)doc, &IID_IDispatch, (IUnknown*)&EventDispatch);
1426 div = get_elem_id(doc, "clickdiv");
1428 elem_attach_event((IUnknown*)div, "abcde", (IDispatch*)&nocall_obj);
1429 elem_attach_event((IUnknown*)div, "onclick", (IDispatch*)&div_onclick_attached_obj);
1431 V_VT(&v) = VT_EMPTY;
1432 hres = IHTMLElement_get_onclick(div, &v);
1433 ok(hres == S_OK, "get_onclick failed: %08x\n", hres);
1434 ok(V_VT(&v) == VT_NULL, "V_VT(onclick) = %d\n", V_VT(&v));
1436 V_VT(&v) = VT_EMPTY;
1437 hres = IHTMLElement_put_onclick(div, v);
1438 ok(hres == E_NOTIMPL, "put_onclick failed: %08x\n", hres);
1440 V_VT(&v) = VT_DISPATCH;
1441 V_DISPATCH(&v) = (IDispatch*)&div_onclick_obj;
1442 hres = IHTMLElement_put_onclick(div, v);
1443 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1446 hres = IHTMLElement_put_ondblclick(div, v);
1447 ok(hres == S_OK, "put_ondblclick failed: %08x\n", hres);
1449 V_VT(&v) = VT_EMPTY;
1450 hres = IHTMLElement_get_onclick(div, &v);
1451 ok(hres == S_OK, "get_onclick failed: %08x\n", hres);
1452 ok(V_VT(&v) == VT_DISPATCH, "V_VT(onclick) = %d\n", V_VT(&v));
1453 ok(V_DISPATCH(&v) == (IDispatch*)&div_onclick_obj, "V_DISPATCH(onclick) != onclickFunc\n");
1456 V_VT(&v) = VT_EMPTY;
1457 hres = IHTMLDocument2_get_onclick(doc, &v);
1458 ok(hres == S_OK, "get_onclick failed: %08x\n", hres);
1459 ok(V_VT(&v) == VT_NULL, "V_VT(onclick) = %d\n", V_VT(&v));
1461 V_VT(&v) = VT_DISPATCH;
1462 V_DISPATCH(&v) = (IDispatch*)&document_onclick_obj;
1463 hres = IHTMLDocument2_put_onclick(doc, v);
1464 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1466 V_VT(&v) = VT_EMPTY;
1467 hres = IHTMLDocument2_get_onclick(doc, &v);
1468 ok(hres == S_OK, "get_onclick failed: %08x\n", hres);
1469 ok(V_VT(&v) == VT_DISPATCH, "V_VT(onclick) = %d\n", V_VT(&v));
1470 ok(V_DISPATCH(&v) == (IDispatch*)&document_onclick_obj, "V_DISPATCH(onclick) != onclickFunc\n");
1473 body = doc_get_body(doc);
1475 V_VT(&v) = VT_DISPATCH;
1476 V_DISPATCH(&v) = (IDispatch*)&body_onclick_obj;
1477 hres = IHTMLElement_put_onclick(body, v);
1478 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1480 if(winetest_interactive) {
1481 SET_EXPECT(div_onclick);
1482 SET_EXPECT(div_onclick_attached);
1483 SET_EXPECT(body_onclick);
1484 SET_EXPECT(document_onclick);
1485 SET_EXPECT(invoke_onclick);
1486 pump_msgs(&called_document_onclick);
1487 CHECK_CALLED(div_onclick);
1488 CHECK_CALLED(div_onclick_attached);
1489 CHECK_CALLED(body_onclick);
1490 CHECK_CALLED(document_onclick);
1491 CHECK_CALLED(invoke_onclick);
1496 SET_EXPECT(div_onclick);
1497 SET_EXPECT(div_onclick_attached);
1498 SET_EXPECT(body_onclick);
1499 SET_EXPECT(document_onclick);
1500 SET_EXPECT(invoke_onclick);
1502 hres = IHTMLElement_click(div);
1503 ok(hres == S_OK, "click failed: %08x\n", hres);
1505 CHECK_CALLED(div_onclick);
1506 CHECK_CALLED(div_onclick_attached);
1507 CHECK_CALLED(body_onclick);
1508 CHECK_CALLED(document_onclick);
1509 CHECK_CALLED(invoke_onclick);
1511 SET_EXPECT(div_onclick);
1512 SET_EXPECT(div_onclick_attached);
1513 SET_EXPECT(body_onclick);
1514 SET_EXPECT(document_onclick);
1515 SET_EXPECT(invoke_onclick);
1517 V_VT(&v) = VT_EMPTY;
1518 elem_fire_event((IUnknown*)div, "onclick", &v);
1520 CHECK_CALLED(div_onclick);
1521 CHECK_CALLED(div_onclick_attached);
1522 CHECK_CALLED(body_onclick);
1523 CHECK_CALLED(document_onclick);
1524 CHECK_CALLED(invoke_onclick);
1526 cp_cookie = register_cp((IUnknown*)doc, &DIID_HTMLDocumentEvents, (IUnknown*)&doccp_obj);
1527 elem_attach_event((IUnknown*)div, "onclick", (IDispatch*)&div_onclick_disp);
1528 doc_attach_event(doc, "onclick", (IDispatch*)&doc_onclick_attached_obj);
1530 SET_EXPECT(div_onclick);
1531 SET_EXPECT(div_onclick_disp);
1532 SET_EXPECT(div_onclick_attached);
1533 SET_EXPECT(body_onclick);
1534 SET_EXPECT(document_onclick);
1535 SET_EXPECT(doc_onclick_attached);
1536 SET_EXPECT(doccp_onclick);
1537 SET_EXPECT(invoke_onclick);
1539 hres = IHTMLElement_click(div);
1540 ok(hres == S_OK, "click failed: %08x\n", hres);
1542 CHECK_CALLED(div_onclick);
1543 CHECK_CALLED(div_onclick_disp);
1544 CHECK_CALLED(div_onclick_attached);
1545 CHECK_CALLED(body_onclick);
1546 CHECK_CALLED(document_onclick);
1547 CHECK_CALLED(doc_onclick_attached);
1548 CHECK_CALLED(doccp_onclick);
1549 CHECK_CALLED(invoke_onclick);
1551 unregister_cp((IUnknown*)doc, &DIID_HTMLDocumentEvents, cp_cookie);
1554 hres = IHTMLElement_put_onclick(div, v);
1555 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1557 hres = IHTMLElement_get_onclick(div, &v);
1558 ok(hres == S_OK, "get_onclick failed: %08x\n", hres);
1559 ok(V_VT(&v) == VT_NULL, "get_onclick returned vt %d\n", V_VT(&v));
1561 elem_detach_event((IUnknown*)div, "onclick", (IDispatch*)&div_onclick_disp);
1562 elem_detach_event((IUnknown*)div, "onclick", (IDispatch*)&div_onclick_disp);
1563 elem_detach_event((IUnknown*)div, "test", (IDispatch*)&div_onclick_disp);
1564 doc_detach_event(doc, "onclick", (IDispatch*)&doc_onclick_attached_obj);
1566 SET_EXPECT(div_onclick_attached);
1567 SET_EXPECT(body_onclick);
1568 SET_EXPECT(document_onclick);
1569 SET_EXPECT(invoke_onclick);
1571 hres = IHTMLElement_click(div);
1572 ok(hres == S_OK, "click failed: %08x\n", hres);
1574 CHECK_CALLED(div_onclick_attached);
1575 CHECK_CALLED(body_onclick);
1576 CHECK_CALLED(document_onclick);
1577 CHECK_CALLED(invoke_onclick);
1579 IHTMLElement_Release(div);
1580 IHTMLElement_Release(body);
1583 static void test_onreadystatechange(IHTMLDocument2 *doc)
1585 IHTMLFrameBase *iframe;
1586 IHTMLElement2 *elem2;
1592 elem = get_elem_id(doc, "iframe");
1593 elem2 = get_elem2_iface((IUnknown*)elem);
1594 IHTMLElement_Release(elem);
1596 V_VT(&v) = VT_EMPTY;
1597 hres = IHTMLElement2_get_onreadystatechange(elem2, &v);
1598 ok(hres == S_OK, "get_onreadystatechange failed: %08x\n", hres);
1599 ok(V_VT(&v) == VT_NULL, "V_VT(onreadystatechange) = %d\n", V_VT(&v));
1601 V_VT(&v) = VT_DISPATCH;
1602 V_DISPATCH(&v) = (IDispatch*)&iframe_onreadystatechange_obj;
1603 hres = IHTMLElement2_put_onreadystatechange(elem2, v);
1604 ok(hres == S_OK, "put_onreadystatechange failed: %08x\n", hres);
1606 V_VT(&v) = VT_EMPTY;
1607 hres = IHTMLElement2_get_onreadystatechange(elem2, &v);
1608 ok(hres == S_OK, "get_onreadystatechange failed: %08x\n", hres);
1609 ok(V_VT(&v) == VT_DISPATCH, "V_VT(onreadystatechange) = %d\n", V_VT(&v));
1610 ok(V_DISPATCH(&v) == (IDispatch*)&iframe_onreadystatechange_obj, "unexpected onreadystatechange value\n");
1612 hres = IHTMLElement2_QueryInterface(elem2, &IID_IHTMLFrameBase, (void**)&iframe);
1613 IHTMLElement2_Release(elem2);
1614 ok(hres == S_OK, "Could not get IHTMLFrameBase iface: %08x\n", hres);
1616 hres = IHTMLFrameBase_put_src(iframe, (str = a2bstr("about:blank")));
1618 ok(hres == S_OK, "put_src failed: %08x\n", hres);
1620 SET_EXPECT(iframe_onreadystatechange_loading);
1621 SET_EXPECT(iframedoc_onreadystatechange);
1622 SET_EXPECT(iframe_onreadystatechange_interactive);
1623 SET_EXPECT(iframe_onreadystatechange_complete);
1624 pump_msgs(&called_iframe_onreadystatechange_complete);
1625 CHECK_CALLED(iframe_onreadystatechange_loading);
1626 CHECK_CALLED(iframedoc_onreadystatechange);
1627 CHECK_CALLED(iframe_onreadystatechange_interactive);
1628 CHECK_CALLED(iframe_onreadystatechange_complete);
1630 IHTMLFrameBase_Release(iframe);
1633 static void test_imgload(IHTMLDocument2 *doc)
1635 IHTMLImgElement *img;
1641 elem = get_elem_id(doc, "imgid");
1642 hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLImgElement, (void**)&img);
1643 IHTMLElement_Release(elem);
1644 ok(hres == S_OK, "Could not get IHTMLImgElement iface: %08x\n", hres);
1646 V_VT(&v) = VT_EMPTY;
1647 hres = IHTMLImgElement_get_onload(img, &v);
1648 ok(hres == S_OK, "get_onload failed: %08x\n", hres);
1649 ok(V_VT(&v) == VT_NULL, "V_VT(onload) = %d\n", V_VT(&v));
1651 V_VT(&v) = VT_DISPATCH;
1652 V_DISPATCH(&v) = (IDispatch*)&img_onload_obj;
1653 hres = IHTMLImgElement_put_onload(img, v);
1654 ok(hres == S_OK, "put_onload failed: %08x\n", hres);
1656 V_VT(&v) = VT_EMPTY;
1657 hres = IHTMLImgElement_get_onload(img, &v);
1658 ok(hres == S_OK, "get_onload failed: %08x\n", hres);
1659 ok(V_VT(&v) == VT_DISPATCH, "V_VT(onload) = %d\n", V_VT(&v));
1660 ok(V_DISPATCH(&v) == (IDispatch*)&img_onload_obj, "V_DISPATCH(onload) != onloadkFunc\n");
1663 str = a2bstr("http://www.winehq.org/images/winehq_logo_text.png");
1664 hres = IHTMLImgElement_put_src(img, str);
1665 ok(hres == S_OK, "put_src failed: %08x\n", hres);
1668 SET_EXPECT(img_onload);
1669 pump_msgs(&called_img_onload);
1670 CHECK_CALLED(img_onload);
1672 IHTMLImgElement_Release(img);
1675 static void test_focus(IHTMLDocument2 *doc)
1677 IHTMLElement2 *elem2;
1682 elem = get_elem_id(doc, "inputid");
1683 elem2 = get_elem2_iface((IUnknown*)elem);
1684 IHTMLElement_Release(elem);
1686 V_VT(&v) = VT_EMPTY;
1687 hres = IHTMLElement2_get_onfocus(elem2, &v);
1688 ok(hres == S_OK, "get_onfocus failed: %08x\n", hres);
1689 ok(V_VT(&v) == VT_NULL, "V_VT(onfocus) = %d\n", V_VT(&v));
1691 V_VT(&v) = VT_DISPATCH;
1692 V_DISPATCH(&v) = (IDispatch*)&input_onfocus_obj;
1693 hres = IHTMLElement2_put_onfocus(elem2, v);
1694 ok(hres == S_OK, "put_onfocus failed: %08x\n", hres);
1696 V_VT(&v) = VT_EMPTY;
1697 hres = IHTMLElement2_get_onfocus(elem2, &v);
1698 ok(hres == S_OK, "get_onfocus failed: %08x\n", hres);
1699 ok(V_VT(&v) == VT_DISPATCH, "V_VT(onfocus) = %d\n", V_VT(&v));
1700 ok(V_DISPATCH(&v) == (IDispatch*)&input_onfocus_obj, "V_DISPATCH(onfocus) != onfocusFunc\n");
1703 if(!winetest_interactive)
1704 ShowWindow(container_hwnd, SW_SHOW);
1707 ok(!IsChild(container_hwnd, GetFocus()), "focus belongs to document window\n");
1709 hres = IHTMLWindow2_focus(window);
1710 ok(hres == S_OK, "focus failed: %08x\n", hres);
1712 ok(IsChild(container_hwnd, GetFocus()), "focus does not belong to document window\n");
1715 SET_EXPECT(input_onfocus);
1716 hres = IHTMLElement2_focus(elem2);
1718 CHECK_CALLED(input_onfocus);
1719 ok(hres == S_OK, "focus failed: %08x\n", hres);
1721 if(!winetest_interactive)
1722 ShowWindow(container_hwnd, SW_HIDE);
1724 IHTMLElement2_Release(elem2);
1727 static void test_submit(IHTMLDocument2 *doc)
1729 IHTMLElement *elem, *submit;
1730 IHTMLFormElement *form;
1735 elem = get_elem_id(doc, "formid");
1737 V_VT(&v) = VT_DISPATCH;
1738 V_DISPATCH(&v) = (IDispatch*)&form_onclick_obj;
1739 hres = IHTMLElement_put_onclick(elem, v);
1740 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1742 hres = IHTMLElement_QueryInterface(elem, &IID_IHTMLFormElement, (void**)&form);
1743 IHTMLElement_Release(elem);
1744 ok(hres == S_OK, "Could not get IHTMLFormElement iface: %08x\n", hres);
1746 V_VT(&v) = VT_DISPATCH;
1747 V_DISPATCH(&v) = (IDispatch*)&form_onsubmit_obj;
1748 hres = IHTMLFormElement_put_onsubmit(form, v);
1749 ok(hres == S_OK, "put_onsubmit failed: %08x\n", hres);
1751 IHTMLFormElement_Release(form);
1753 submit = get_elem_id(doc, "submitid");
1755 SET_EXPECT(form_onclick);
1756 SET_EXPECT(form_onsubmit);
1757 hres = IHTMLElement_click(submit);
1758 ok(hres == S_OK, "click failed: %08x\n", hres);
1759 CHECK_CALLED(form_onclick);
1760 CHECK_CALLED(form_onsubmit);
1762 V_VT(&v) = VT_DISPATCH;
1763 V_DISPATCH(&v) = (IDispatch*)&submit_onclick_obj;
1764 hres = IHTMLElement_put_onclick(submit, v);
1765 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1767 SET_EXPECT(form_onclick);
1768 SET_EXPECT(submit_onclick);
1769 hres = IHTMLElement_click(submit);
1770 ok(hres == S_OK, "click failed: %08x\n", hres);
1771 CHECK_CALLED(form_onclick);
1772 CHECK_CALLED(submit_onclick);
1774 elem_attach_event((IUnknown*)submit, "onclick", (IDispatch*)&submit_onclick_attached_obj);
1776 SET_EXPECT(form_onclick);
1777 SET_EXPECT(submit_onclick);
1778 SET_EXPECT(submit_onclick_attached);
1779 hres = IHTMLElement_click(submit);
1780 ok(hres == S_OK, "click failed: %08x\n", hres);
1781 CHECK_CALLED(form_onclick);
1782 CHECK_CALLED(submit_onclick);
1783 CHECK_CALLED(submit_onclick_attached);
1786 hres = IHTMLElement_put_onclick(submit, v);
1787 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1789 SET_EXPECT(form_onclick);
1790 SET_EXPECT(submit_onclick_attached);
1791 hres = IHTMLElement_click(submit);
1792 ok(hres == S_OK, "click failed: %08x\n", hres);
1793 CHECK_CALLED(form_onclick);
1794 CHECK_CALLED(submit_onclick_attached);
1796 elem_detach_event((IUnknown*)submit, "onclick", (IDispatch*)&submit_onclick_attached_obj);
1798 cp_cookie = register_cp((IUnknown*)doc, &DIID_HTMLDocumentEvents, (IUnknown*)&doccp_onclick_cancel_obj);
1800 SET_EXPECT(form_onclick);
1801 SET_EXPECT(doccp_onclick_cancel);
1802 hres = IHTMLElement_click(submit);
1803 ok(hres == S_OK, "click failed: %08x\n", hres);
1804 CHECK_CALLED(form_onclick);
1805 CHECK_CALLED(doccp_onclick_cancel);
1807 unregister_cp((IUnknown*)doc, &DIID_HTMLDocumentEvents, cp_cookie);
1809 V_VT(&v) = VT_DISPATCH;
1810 V_DISPATCH(&v) = (IDispatch*)&submit_onclick_setret_obj;
1811 hres = IHTMLElement_put_onclick(submit, v);
1812 ok(hres == S_OK, "put_onclick failed: %08x\n", hres);
1814 V_VT(&onclick_retval) = VT_BOOL;
1815 V_BOOL(&onclick_retval) = VARIANT_TRUE;
1816 V_VT(&onclick_event_retval) = VT_BOOL;
1817 V_BOOL(&onclick_event_retval) = VARIANT_TRUE;
1819 SET_EXPECT(submit_onclick_setret);
1820 SET_EXPECT(form_onclick);
1821 SET_EXPECT(form_onsubmit);
1822 hres = IHTMLElement_click(submit);
1823 ok(hres == S_OK, "click failed: %08x\n", hres);
1824 CHECK_CALLED(submit_onclick_setret);
1825 CHECK_CALLED(form_onclick);
1826 CHECK_CALLED(form_onsubmit);
1828 V_VT(&onclick_event_retval) = VT_BOOL;
1829 V_BOOL(&onclick_event_retval) = VARIANT_FALSE;
1831 SET_EXPECT(submit_onclick_setret);
1832 SET_EXPECT(form_onclick);
1833 hres = IHTMLElement_click(submit);
1834 ok(hres == S_OK, "click failed: %08x\n", hres);
1835 CHECK_CALLED(submit_onclick_setret);
1836 CHECK_CALLED(form_onclick);
1838 V_VT(&onclick_retval) = VT_BOOL;
1839 V_BOOL(&onclick_retval) = VARIANT_FALSE;
1840 V_VT(&onclick_event_retval) = VT_BOOL;
1841 V_BOOL(&onclick_event_retval) = VARIANT_TRUE;
1843 SET_EXPECT(submit_onclick_setret);
1844 SET_EXPECT(form_onclick);
1845 hres = IHTMLElement_click(submit);
1846 ok(hres == S_OK, "click failed: %08x\n", hres);
1847 CHECK_CALLED(submit_onclick_setret);
1848 CHECK_CALLED(form_onclick);
1850 V_VT(&onclick_event_retval) = VT_BOOL;
1851 V_BOOL(&onclick_event_retval) = VARIANT_FALSE;
1853 SET_EXPECT(submit_onclick_setret);
1854 SET_EXPECT(form_onclick);
1855 hres = IHTMLElement_click(submit);
1856 ok(hres == S_OK, "click failed: %08x\n", hres);
1857 CHECK_CALLED(submit_onclick_setret);
1858 CHECK_CALLED(form_onclick);
1860 IHTMLElement_Release(submit);
1863 static void test_timeout(IHTMLDocument2 *doc)
1870 hres = IHTMLWindow2_QueryInterface(window, &IID_IHTMLWindow3, (void**)&win3);
1871 ok(hres == S_OK, "Could not get IHTMLWindow3 iface: %08x\n", hres);
1873 V_VT(&expr) = VT_DISPATCH;
1874 V_DISPATCH(&expr) = (IDispatch*)&timeoutFunc;
1875 V_VT(&var) = VT_EMPTY;
1877 hres = IHTMLWindow3_setTimeout(win3, &expr, 0, &var, &id);
1878 ok(hres == S_OK, "setTimeout failed: %08x\n", hres);
1881 SET_EXPECT(timeout);
1882 pump_msgs(&called_timeout);
1883 CHECK_CALLED(timeout);
1885 V_VT(&expr) = VT_DISPATCH;
1886 V_DISPATCH(&expr) = (IDispatch*)&timeoutFunc;
1887 V_VT(&var) = VT_EMPTY;
1889 hres = IHTMLWindow3_setTimeout(win3, &expr, 0, &var, &id);
1890 ok(hres == S_OK, "setTimeout failed: %08x\n", hres);
1893 hres = IHTMLWindow2_clearTimeout(window, id);
1894 ok(hres == S_OK, "clearTimeout failed: %08x\n", hres);
1896 IHTMLWindow3_Release(win3);
1899 static IHTMLElement* find_element_by_id(IHTMLDocument2 *doc, const char *id)
1902 IHTMLDocument3 *doc3;
1903 IHTMLElement *result;
1904 BSTR idW = a2bstr(id);
1906 hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument3, (void**)&doc3);
1907 ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument3) failed: %08x\n", hres);
1909 hres = IHTMLDocument3_getElementById(doc3, idW, &result);
1910 ok(hres == S_OK, "getElementById failed: %08x\n", hres);
1911 ok(result != NULL, "result == NULL\n");
1914 IHTMLDocument3_Release(doc3);
1918 static IHTMLDocument2* get_iframe_doc(IHTMLIFrameElement *iframe)
1921 IHTMLFrameBase2 *base;
1922 IHTMLDocument2 *result = NULL;
1924 hres = IHTMLIFrameElement_QueryInterface(iframe, &IID_IHTMLFrameBase2, (void**)&base);
1925 ok(hres == S_OK, "QueryInterface(IID_IHTMLFrameBase2) failed: %08x\n", hres);
1927 IHTMLWindow2 *window;
1929 hres = IHTMLFrameBase2_get_contentWindow(base, &window);
1930 ok(hres == S_OK, "get_contentWindow failed: %08x\n", hres);
1931 ok(window != NULL, "window == NULL\n");
1933 hres = IHTMLWindow2_get_document(window, &result);
1934 ok(hres == S_OK, "get_document failed: %08x\n", hres);
1935 ok(result != NULL, "result == NULL\n");
1936 IHTMLWindow2_Release(window);
1939 if(base) IHTMLFrameBase2_Release(base);
1944 static void test_iframe_connections(IHTMLDocument2 *doc)
1947 IHTMLIFrameElement *iframe;
1948 IHTMLDocument2 *iframes_doc;
1950 IConnectionPoint *cp;
1951 IHTMLElement *element = find_element_by_id(doc, "ifr");
1953 hres = IHTMLElement_QueryInterface(element, &IID_IHTMLIFrameElement, (void**)&iframe);
1954 IHTMLElement_Release(element);
1955 ok(hres == S_OK, "QueryInterface(IID_IHTMLIFrameElement) failed: %08x\n", hres);
1957 iframes_doc = get_iframe_doc(iframe);
1958 IHTMLIFrameElement_Release(iframe);
1960 cookie = register_cp((IUnknown*)iframes_doc, &IID_IDispatch, (IUnknown*)&div_onclick_disp);
1962 cp = get_cp((IUnknown*)doc, &IID_IDispatch);
1963 hres = IConnectionPoint_Unadvise(cp, cookie);
1964 IConnectionPoint_Release(cp);
1965 ok(hres == CONNECT_E_NOCONNECTION, "Unadvise returned %08x, expected CONNECT_E_NOCONNECTION\n", hres);
1967 IHTMLDocument2_Release(iframes_doc);
1970 static HRESULT QueryInterface(REFIID,void**);
1972 static HRESULT WINAPI InPlaceFrame_QueryInterface(IOleInPlaceFrame *iface, REFIID riid, void **ppv)
1974 return E_NOINTERFACE;
1977 static ULONG WINAPI InPlaceFrame_AddRef(IOleInPlaceFrame *iface)
1982 static ULONG WINAPI InPlaceFrame_Release(IOleInPlaceFrame *iface)
1987 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1992 static HRESULT WINAPI InPlaceFrame_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
1997 static HRESULT WINAPI InPlaceFrame_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
2002 static HRESULT WINAPI InPlaceFrame_RequestBorderSpace(IOleInPlaceFrame *iface,
2003 LPCBORDERWIDTHS pborderwidths)
2008 static HRESULT WINAPI InPlaceFrame_SetBorderSpace(IOleInPlaceFrame *iface,
2009 LPCBORDERWIDTHS pborderwidths)
2014 static HRESULT WINAPI InPlaceUIWindow_SetActiveObject(IOleInPlaceFrame *iface,
2015 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
2020 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
2021 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
2026 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
2027 LPOLEMENUGROUPWIDTHS lpMenuWidths)
2032 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
2033 HOLEMENU holemenu, HWND hwndActiveObject)
2035 ok(0, "unexpected call\n");
2039 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
2041 ok(0, "unexpected call\n");
2045 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
2050 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
2055 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
2057 ok(0, "unexpected call\n");
2061 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
2062 InPlaceFrame_QueryInterface,
2063 InPlaceFrame_AddRef,
2064 InPlaceFrame_Release,
2065 InPlaceFrame_GetWindow,
2066 InPlaceFrame_ContextSensitiveHelp,
2067 InPlaceFrame_GetBorder,
2068 InPlaceFrame_RequestBorderSpace,
2069 InPlaceFrame_SetBorderSpace,
2070 InPlaceFrame_SetActiveObject,
2071 InPlaceFrame_InsertMenus,
2072 InPlaceFrame_SetMenu,
2073 InPlaceFrame_RemoveMenus,
2074 InPlaceFrame_SetStatusText,
2075 InPlaceFrame_EnableModeless,
2076 InPlaceFrame_TranslateAccelerator
2079 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
2081 static const IOleInPlaceFrameVtbl InPlaceUIWindowVtbl = {
2082 InPlaceFrame_QueryInterface,
2083 InPlaceFrame_AddRef,
2084 InPlaceFrame_Release,
2085 InPlaceFrame_GetWindow,
2086 InPlaceFrame_ContextSensitiveHelp,
2087 InPlaceFrame_GetBorder,
2088 InPlaceFrame_RequestBorderSpace,
2089 InPlaceFrame_SetBorderSpace,
2090 InPlaceUIWindow_SetActiveObject,
2093 static IOleInPlaceFrame InPlaceUIWindow = { &InPlaceUIWindowVtbl };
2095 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSite *iface, REFIID riid, void **ppv)
2097 return QueryInterface(riid, ppv);
2100 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSite *iface)
2105 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSite *iface)
2110 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSite *iface, HWND *phwnd)
2112 *phwnd = container_hwnd;
2116 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSite *iface, BOOL fEnterMode)
2118 ok(0, "unexpected call\n");
2122 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSite *iface)
2127 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSite *iface)
2132 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSite *iface)
2137 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSite *iface,
2138 IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
2139 LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
2141 static const RECT rect = {0,0,300,300};
2143 *ppFrame = &InPlaceFrame;
2144 *ppDoc = (IOleInPlaceUIWindow*)&InPlaceUIWindow;
2145 *lprcPosRect = rect;
2146 *lprcClipRect = rect;
2148 ok(lpFrameInfo->cb == sizeof(*lpFrameInfo), "lpFrameInfo->cb = %u, expected %u\n", lpFrameInfo->cb, (unsigned)sizeof(*lpFrameInfo));
2149 lpFrameInfo->fMDIApp = FALSE;
2150 lpFrameInfo->hwndFrame = container_hwnd;
2151 lpFrameInfo->haccel = NULL;
2152 lpFrameInfo->cAccelEntries = 0;
2157 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSite *iface, SIZE scrollExtant)
2162 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSite *iface, BOOL fUndoable)
2167 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSite *iface)
2172 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSite *iface)
2177 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSite *iface)
2182 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSite *iface, LPCRECT lprcPosRect)
2187 static const IOleInPlaceSiteVtbl InPlaceSiteVtbl = {
2188 InPlaceSite_QueryInterface,
2190 InPlaceSite_Release,
2191 InPlaceSite_GetWindow,
2192 InPlaceSite_ContextSensitiveHelp,
2193 InPlaceSite_CanInPlaceActivate,
2194 InPlaceSite_OnInPlaceActivate,
2195 InPlaceSite_OnUIActivate,
2196 InPlaceSite_GetWindowContext,
2198 InPlaceSite_OnUIDeactivate,
2199 InPlaceSite_OnInPlaceDeactivate,
2200 InPlaceSite_DiscardUndoState,
2201 InPlaceSite_DeactivateAndUndo,
2202 InPlaceSite_OnPosRectChange,
2205 static IOleInPlaceSite InPlaceSite = { &InPlaceSiteVtbl };
2207 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
2209 return QueryInterface(riid, ppv);
2212 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
2217 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
2222 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
2224 ok(0, "unexpected call\n");
2228 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker,
2231 ok(0, "unexpected call\n");
2235 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
2240 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
2242 ok(0, "unexpected call\n");
2246 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
2248 ok(0, "unexpected call\n");
2252 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
2254 ok(0, "unexpected call\n");
2258 static const IOleClientSiteVtbl ClientSiteVtbl = {
2259 ClientSite_QueryInterface,
2262 ClientSite_SaveObject,
2263 ClientSite_GetMoniker,
2264 ClientSite_GetContainer,
2265 ClientSite_ShowObject,
2266 ClientSite_OnShowWindow,
2267 ClientSite_RequestNewObjectLayout
2270 static IOleClientSite ClientSite = { &ClientSiteVtbl };
2272 static HRESULT WINAPI DocumentSite_QueryInterface(IOleDocumentSite *iface, REFIID riid, void **ppv)
2274 return QueryInterface(riid, ppv);
2277 static ULONG WINAPI DocumentSite_AddRef(IOleDocumentSite *iface)
2282 static ULONG WINAPI DocumentSite_Release(IOleDocumentSite *iface)
2287 static HRESULT WINAPI DocumentSite_ActivateMe(IOleDocumentSite *iface, IOleDocumentView *pViewToActivate)
2289 RECT rect = {0,0,300,300};
2290 IOleDocument *document;
2293 hres = IOleDocumentView_QueryInterface(pViewToActivate, &IID_IOleDocument, (void**)&document);
2294 ok(hres == S_OK, "could not get IOleDocument: %08x\n", hres);
2296 hres = IOleDocument_CreateView(document, &InPlaceSite, NULL, 0, &view);
2297 IOleDocument_Release(document);
2298 ok(hres == S_OK, "CreateView failed: %08x\n", hres);
2300 hres = IOleDocumentView_SetInPlaceSite(view, &InPlaceSite);
2301 ok(hres == S_OK, "SetInPlaceSite failed: %08x\n", hres);
2303 hres = IOleDocumentView_UIActivate(view, TRUE);
2304 ok(hres == S_OK, "UIActivate failed: %08x\n", hres);
2306 hres = IOleDocumentView_SetRect(view, &rect);
2307 ok(hres == S_OK, "SetRect failed: %08x\n", hres);
2309 hres = IOleDocumentView_Show(view, TRUE);
2310 ok(hres == S_OK, "Show failed: %08x\n", hres);
2315 static const IOleDocumentSiteVtbl DocumentSiteVtbl = {
2316 DocumentSite_QueryInterface,
2317 DocumentSite_AddRef,
2318 DocumentSite_Release,
2319 DocumentSite_ActivateMe
2322 static IOleDocumentSite DocumentSite = { &DocumentSiteVtbl };
2324 static HRESULT QueryInterface(REFIID riid, void **ppv)
2328 if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IOleClientSite, riid))
2330 else if(IsEqualGUID(&IID_IOleDocumentSite, riid))
2331 *ppv = &DocumentSite;
2332 else if(IsEqualGUID(&IID_IOleWindow, riid) || IsEqualGUID(&IID_IOleInPlaceSite, riid))
2333 *ppv = &InPlaceSite;
2335 return *ppv ? S_OK : E_NOINTERFACE;
2338 static IHTMLDocument2 *notif_doc;
2339 static BOOL doc_complete;
2341 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
2342 REFIID riid, void**ppv)
2344 if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
2349 ok(0, "unexpected call\n");
2350 return E_NOINTERFACE;
2353 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
2358 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
2363 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
2365 if(dispID == DISPID_READYSTATE){
2369 hres = IHTMLDocument2_get_readyState(notif_doc, &state);
2370 ok(hres == S_OK, "get_readyState failed: %08x\n", hres);
2372 if(!strcmp_wa(state, "complete"))
2373 doc_complete = TRUE;
2375 SysFreeString(state);
2381 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
2383 ok(0, "unexpected call\n");
2387 static const IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
2388 PropertyNotifySink_QueryInterface,
2389 PropertyNotifySink_AddRef,
2390 PropertyNotifySink_Release,
2391 PropertyNotifySink_OnChanged,
2392 PropertyNotifySink_OnRequestEdit
2395 static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl };
2397 static void doc_load_string(IHTMLDocument2 *doc, const char *str)
2399 IPersistStreamInit *init;
2406 doc_complete = FALSE;
2408 mem = GlobalAlloc(0, len);
2409 memcpy(mem, str, len);
2410 CreateStreamOnHGlobal(mem, TRUE, &stream);
2412 IHTMLDocument2_QueryInterface(doc, &IID_IPersistStreamInit, (void**)&init);
2414 IPersistStreamInit_Load(init, stream);
2415 IPersistStreamInit_Release(init);
2416 IStream_Release(stream);
2419 static void do_advise(IUnknown *unk, REFIID riid, IUnknown *unk_advise)
2421 IConnectionPointContainer *container;
2422 IConnectionPoint *cp;
2426 hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2427 ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2429 hres = IConnectionPointContainer_FindConnectionPoint(container, riid, &cp);
2430 IConnectionPointContainer_Release(container);
2431 ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2433 hres = IConnectionPoint_Advise(cp, unk_advise, &cookie);
2434 IConnectionPoint_Release(cp);
2435 ok(hres == S_OK, "Advise failed: %08x\n", hres);
2438 static void set_client_site(IHTMLDocument2 *doc, BOOL set)
2444 IOleDocumentView_Show(view, FALSE);
2445 IOleDocumentView_CloseView(view, 0);
2446 IOleDocumentView_SetInPlaceSite(view, NULL);
2447 IOleDocumentView_Release(view);
2451 hres = IHTMLDocument2_QueryInterface(doc, &IID_IOleObject, (void**)&oleobj);
2452 ok(hres == S_OK, "Could not et IOleObject: %08x\n", hres);
2454 hres = IOleObject_SetClientSite(oleobj, set ? &ClientSite : NULL);
2455 ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
2458 IHlinkTarget *hlink;
2460 hres = IOleObject_QueryInterface(oleobj, &IID_IHlinkTarget, (void**)&hlink);
2461 ok(hres == S_OK, "Could not get IHlinkTarget iface: %08x\n", hres);
2463 hres = IHlinkTarget_Navigate(hlink, 0, NULL);
2464 ok(hres == S_OK, "Navgate failed: %08x\n", hres);
2466 IHlinkTarget_Release(hlink);
2469 IOleObject_Release(oleobj);
2471 static IHTMLDocument2 *create_document(void)
2473 IHTMLDocument2 *doc;
2474 IHTMLDocument5 *doc5;
2477 hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
2478 &IID_IHTMLDocument2, (void**)&doc);
2479 ok(hres == S_OK, "CoCreateInstance failed: %08x\n", hres);
2483 hres = IHTMLDocument2_QueryInterface(doc, &IID_IHTMLDocument5, (void**)&doc5);
2485 win_skip("Could not get IHTMLDocument5 interface, probably too old IE\n");
2486 IHTMLDocument2_Release(doc);
2490 IHTMLDocument5_Release(doc5);
2495 typedef void (*testfunc_t)(IHTMLDocument2*);
2497 static void run_test(const char *str, testfunc_t test)
2499 IHTMLDocument2 *doc;
2500 IHTMLElement *body = NULL;
2505 doc = create_document();
2508 set_client_site(doc, TRUE);
2509 doc_load_string(doc, str);
2510 do_advise((IUnknown*)doc, &IID_IPropertyNotifySink, (IUnknown*)&PropertyNotifySink);
2512 while(!doc_complete && GetMessage(&msg, NULL, 0, 0)) {
2513 TranslateMessage(&msg);
2514 DispatchMessage(&msg);
2517 hres = IHTMLDocument2_get_body(doc, &body);
2518 ok(hres == S_OK, "get_body failed: %08x\n", hres);
2521 IHTMLElement_Release(body);
2523 hres = IHTMLDocument2_get_parentWindow(doc, &window);
2524 ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
2525 ok(window != NULL, "window == NULL\n");
2529 IHTMLWindow2_Release(window);
2532 skip("Could not get document body. Assuming no Gecko installed.\n");
2535 set_client_site(doc, FALSE);
2536 IHTMLDocument2_Release(doc);
2539 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
2541 return DefWindowProc(hwnd, msg, wParam, lParam);
2544 static HWND create_container_window(void)
2546 static const CHAR szHTMLDocumentTest[] = "HTMLDocumentTest";
2547 static WNDCLASSEXA wndclass = {
2548 sizeof(WNDCLASSEXA),
2551 0, 0, NULL, NULL, NULL, NULL, NULL,
2556 RegisterClassExA(&wndclass);
2557 return CreateWindowA(szHTMLDocumentTest, szHTMLDocumentTest,
2558 WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT,
2559 300, 300, NULL, NULL, NULL, NULL);
2562 static void test_empty_document(void)
2565 IHTMLWindow2 *window;
2566 IHTMLDocument2 *windows_doc, *doc;
2567 IConnectionPoint *cp;
2570 doc = create_document();
2574 hres = IHTMLDocument2_get_parentWindow(doc, &window);
2575 ok(hres == S_OK, "get_parentWindow failed: %08x\n", hres);
2577 hres = IHTMLWindow2_get_document(window, &windows_doc);
2578 IHTMLWindow2_Release(window);
2579 ok(hres == S_OK, "get_document failed: %08x\n", hres);
2581 cookie = register_cp((IUnknown*)windows_doc, &IID_IDispatch, (IUnknown*)&div_onclick_disp);
2583 cp = get_cp((IUnknown*)doc, &IID_IDispatch);
2584 hres = IConnectionPoint_Unadvise(cp, cookie);
2585 IConnectionPoint_Release(cp);
2586 ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
2588 IHTMLDocument2_Release(windows_doc);
2589 IHTMLDocument2_Release(doc);
2595 container_hwnd = create_container_window();
2597 if(winetest_interactive)
2598 ShowWindow(container_hwnd, SW_SHOW);
2600 run_test(empty_doc_str, test_timeout);
2601 run_test(click_doc_str, test_onclick);
2602 run_test(readystate_doc_str, test_onreadystatechange);
2603 run_test(img_doc_str, test_imgload);
2604 run_test(input_doc_str, test_focus);
2605 run_test(form_doc_str, test_submit);
2606 run_test(iframe_doc_str, test_iframe_connections);
2608 test_empty_document();
2610 DestroyWindow(container_hwnd);