dlls/mshtml/htmlwindow.c

   1 /*
   2  * Copyright 2006-2012 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 #include <assert.h>
  21
  22 #define COBJMACROS
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "ole2.h"
  28 #include "mshtmdid.h"
  29 #include "shlguid.h"
  30 #include "shobjidl.h"
  31 #include "exdispid.h"
  32
  33 #define NO_SHLWAPI_REG
  34 #include "shlwapi.h"
  35
  36 #include "wine/debug.h"
  37
  38 #include "mshtml_private.h"
  39 #include "htmlevent.h"
  40 #include "htmlscript.h"
  41 #include "pluginhost.h"
  42 #include "binding.h"
  43 #include "resource.h"
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  46
  47 static int window_map_compare(const void *key, const struct wine_rb_entry *entry)
  48 {
  49     HTMLOuterWindow *window = WINE_RB_ENTRY_VALUE(entry, HTMLOuterWindow, entry);
  50
  51     if(window->window_proxy == key)
  52         return 0;
  53     return (void*)window->window_proxy > key ? -1 : 1;
  54 }
  55
  56 static struct wine_rb_tree window_map = { window_map_compare };
  57
  58 HTMLOuterWindow *mozwindow_to_window(const mozIDOMWindowProxy *mozwindow)
  59 {
  60     struct wine_rb_entry *entry = wine_rb_get(&window_map, mozwindow);
  61     return entry ? WINE_RB_ENTRY_VALUE(entry, HTMLOuterWindow, entry) : NULL;
  62 }
  63
  64 static inline BOOL is_outer_window(HTMLWindow *window)
  65 {
  66     return &window->outer_window->base == window;
  67 }
  68
  69 static void release_children(HTMLOuterWindow *This)
  70 {
  71     HTMLOuterWindow *child;
  72
  73     while(!list_empty(&This->children)) {
  74         child = LIST_ENTRY(list_tail(&This->children), HTMLOuterWindow, sibling_entry);
  75
  76         list_remove(&child->sibling_entry);
  77         child->parent = NULL;
  78         IHTMLWindow2_Release(&child->base.IHTMLWindow2_iface);
  79     }
  80 }
  81
  82 static HRESULT get_location(HTMLInnerWindow *This, HTMLLocation **ret)
  83 {
  84     if(This->location) {
  85         IHTMLLocation_AddRef(&This->location->IHTMLLocation_iface);
  86     }else {
  87         HRESULT hres;
  88
  89         hres = HTMLLocation_Create(This, &This->location);
  90         if(FAILED(hres))
  91             return hres;
  92     }
  93
  94     *ret = This->location;
  95     return S_OK;
  96 }
  97
  98 void get_top_window(HTMLOuterWindow *window, HTMLOuterWindow **ret)
  99 {
 100     HTMLOuterWindow *iter;
 101
 102     for(iter = window; iter->parent; iter = iter->parent);
 103     *ret = iter;
 104 }
 105
 106 static inline HRESULT set_window_event(HTMLWindow *window, eventid_t eid, VARIANT *var)
 107 {
 108     if(!window->inner_window->doc) {
 109         FIXME("No document\n");
 110         return E_FAIL;
 111     }
 112
 113     return set_event_handler(&window->inner_window->event_target, eid, var);
 114 }
 115
 116 static inline HRESULT get_window_event(HTMLWindow *window, eventid_t eid, VARIANT *var)
 117 {
 118     if(!window->inner_window->doc) {
 119         FIXME("No document\n");
 120         return E_FAIL;
 121     }
 122
 123     return get_event_handler(&window->inner_window->event_target, eid, var);
 124 }
 125
 126 static void detach_inner_window(HTMLInnerWindow *window)
 127 {
 128     HTMLOuterWindow *outer_window = window->base.outer_window;
 129
 130     if(outer_window && outer_window->doc_obj && outer_window == outer_window->doc_obj->basedoc.window)
 131         window->doc->basedoc.cp_container.forward_container = NULL;
 132
 133     if(window->doc) {
 134         detach_events(window->doc);
 135         while(!list_empty(&window->doc->plugin_hosts))
 136             detach_plugin_host(LIST_ENTRY(list_head(&window->doc->plugin_hosts), PluginHost, entry));
 137     }
 138
 139     abort_window_bindings(window);
 140     remove_target_tasks(window->task_magic);
 141     release_script_hosts(window);
 142     window->base.outer_window = NULL;
 143
 144     if(outer_window && outer_window->base.inner_window == window) {
 145         outer_window->base.inner_window = NULL;
 146         IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
 147     }
 148 }
 149
 150 static inline HTMLWindow *impl_from_IHTMLWindow2(IHTMLWindow2 *iface)
 151 {
 152     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow2_iface);
 153 }
 154
 155 static HRESULT WINAPI HTMLWindow2_QueryInterface(IHTMLWindow2 *iface, REFIID riid, void **ppv)
 156 {
 157     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 158
 159     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 160
 161     if(IsEqualGUID(&IID_IUnknown, riid)) {
 162         *ppv = &This->IHTMLWindow2_iface;
 163     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 164         *ppv = &This->IHTMLWindow2_iface;
 165     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
 166         *ppv = &This->IDispatchEx_iface;
 167     }else if(IsEqualGUID(&IID_IHTMLFramesCollection2, riid)) {
 168         *ppv = &This->IHTMLWindow2_iface;
 169     }else if(IsEqualGUID(&IID_IHTMLWindow2, riid)) {
 170         *ppv = &This->IHTMLWindow2_iface;
 171     }else if(IsEqualGUID(&IID_IHTMLWindow3, riid)) {
 172         *ppv = &This->IHTMLWindow3_iface;
 173     }else if(IsEqualGUID(&IID_IHTMLWindow4, riid)) {
 174         *ppv = &This->IHTMLWindow4_iface;
 175     }else if(IsEqualGUID(&IID_IHTMLWindow5, riid)) {
 176         *ppv = &This->IHTMLWindow5_iface;
 177     }else if(IsEqualGUID(&IID_IHTMLWindow6, riid)) {
 178         *ppv = &This->IHTMLWindow6_iface;
 179     }else if(IsEqualGUID(&IID_IHTMLPrivateWindow, riid)) {
 180         *ppv = &This->IHTMLPrivateWindow_iface;
 181     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 182         *ppv = &This->IServiceProvider_iface;
 183     }else if(IsEqualGUID(&IID_ITravelLogClient, riid)) {
 184         *ppv = &This->ITravelLogClient_iface;
 185     }else if(IsEqualGUID(&IID_IObjectIdentity, riid)) {
 186         *ppv = &This->IObjectIdentity_iface;
 187     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
 188         *ppv = &This->IProvideMultipleClassInfo_iface;
 189     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
 190         *ppv = &This->IProvideMultipleClassInfo_iface;
 191     }else if(IsEqualGUID(&IID_IProvideMultipleClassInfo, riid)) {
 192         *ppv = &This->IProvideMultipleClassInfo_iface;
 193     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
 194         *ppv = NULL;
 195         FIXME("(%p)->(IID_IMarshal %p)\n", This, ppv);
 196         return E_NOINTERFACE;
 197     }else if(dispex_query_interface(&This->inner_window->event_target.dispex, riid, ppv)) {
 198         assert(!*ppv);
 199         return E_NOINTERFACE;
 200     }else {
 201         return EventTarget_QI(&This->inner_window->event_target, riid, ppv);
 202     }
 203
 204     IUnknown_AddRef((IUnknown*)*ppv);
 205     return S_OK;
 206 }
 207
 208 static ULONG WINAPI HTMLWindow2_AddRef(IHTMLWindow2 *iface)
 209 {
 210     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 211     LONG ref = InterlockedIncrement(&This->ref);
 212
 213     TRACE("(%p) ref=%d\n", This, ref);
 214
 215     return ref;
 216 }
 217
 218 static void release_outer_window(HTMLOuterWindow *This)
 219 {
 220     if(This->pending_window) {
 221         abort_window_bindings(This->pending_window);
 222         This->pending_window->base.outer_window = NULL;
 223         IHTMLWindow2_Release(&This->pending_window->base.IHTMLWindow2_iface);
 224     }
 225
 226     remove_target_tasks(This->task_magic);
 227     set_current_mon(This, NULL, 0);
 228     set_current_uri(This, NULL);
 229     if(This->base.inner_window)
 230         detach_inner_window(This->base.inner_window);
 231     release_children(This);
 232
 233     if(This->secmgr)
 234         IInternetSecurityManager_Release(This->secmgr);
 235
 236     if(This->frame_element)
 237         This->frame_element->content_window = NULL;
 238
 239     This->window_ref->window = NULL;
 240     windowref_release(This->window_ref);
 241
 242     if(This->nswindow)
 243         nsIDOMWindow_Release(This->nswindow);
 244     if(This->window_proxy)
 245         mozIDOMWindowProxy_Release(This->window_proxy);
 246
 247     wine_rb_remove(&window_map, &This->entry);
 248     heap_free(This);
 249 }
 250
 251 static void release_inner_window(HTMLInnerWindow *This)
 252 {
 253     unsigned i;
 254
 255     TRACE("%p\n", This);
 256
 257     detach_inner_window(This);
 258
 259     if(This->doc) {
 260         This->doc->window = NULL;
 261         htmldoc_release(&This->doc->basedoc);
 262     }
 263
 264     release_event_target(&This->event_target);
 265     release_dispex(&This->event_target.dispex);
 266
 267     for(i=0; i < This->global_prop_cnt; i++)
 268         heap_free(This->global_props[i].name);
 269     heap_free(This->global_props);
 270
 271     if(This->location) {
 272         This->location->window = NULL;
 273         IHTMLLocation_Release(&This->location->IHTMLLocation_iface);
 274     }
 275
 276     if(This->image_factory) {
 277         This->image_factory->window = NULL;
 278         IHTMLImageElementFactory_Release(&This->image_factory->IHTMLImageElementFactory_iface);
 279     }
 280
 281     if(This->option_factory) {
 282         This->option_factory->window = NULL;
 283         IHTMLOptionElementFactory_Release(&This->option_factory->IHTMLOptionElementFactory_iface);
 284     }
 285
 286     if(This->xhr_factory) {
 287         This->xhr_factory->window = NULL;
 288         IHTMLXMLHttpRequestFactory_Release(&This->xhr_factory->IHTMLXMLHttpRequestFactory_iface);
 289     }
 290
 291     if(This->screen)
 292         IHTMLScreen_Release(This->screen);
 293
 294     if(This->history) {
 295         This->history->window = NULL;
 296         IOmHistory_Release(&This->history->IOmHistory_iface);
 297     }
 298
 299     if(This->session_storage)
 300         IHTMLStorage_Release(This->session_storage);
 301
 302     if(This->mon)
 303         IMoniker_Release(This->mon);
 304
 305     heap_free(This);
 306 }
 307
 308 static ULONG WINAPI HTMLWindow2_Release(IHTMLWindow2 *iface)
 309 {
 310     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 311     LONG ref = InterlockedDecrement(&This->ref);
 312
 313     TRACE("(%p) ref=%d\n", This, ref);
 314
 315     if(!ref) {
 316         if(is_outer_window(This))
 317             release_outer_window(This->outer_window);
 318         else
 319             release_inner_window(This->inner_window);
 320     }
 321
 322     return ref;
 323 }
 324
 325 static HRESULT WINAPI HTMLWindow2_GetTypeInfoCount(IHTMLWindow2 *iface, UINT *pctinfo)
 326 {
 327     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 328
 329     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
 330 }
 331
 332 static HRESULT WINAPI HTMLWindow2_GetTypeInfo(IHTMLWindow2 *iface, UINT iTInfo,
 333                                               LCID lcid, ITypeInfo **ppTInfo)
 334 {
 335     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 336
 337     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 338 }
 339
 340 static HRESULT WINAPI HTMLWindow2_GetIDsOfNames(IHTMLWindow2 *iface, REFIID riid,
 341                                                 LPOLESTR *rgszNames, UINT cNames,
 342                                                 LCID lcid, DISPID *rgDispId)
 343 {
 344     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 345
 346     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
 347             rgDispId);
 348 }
 349
 350 static HRESULT WINAPI HTMLWindow2_Invoke(IHTMLWindow2 *iface, DISPID dispIdMember,
 351                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 352                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 353 {
 354     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 355
 356     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 357             pDispParams, pVarResult, pExcepInfo, puArgErr);
 358 }
 359
 360 static HRESULT get_frame_by_index(HTMLOuterWindow *This, UINT32 index, HTMLOuterWindow **ret)
 361 {
 362     nsIDOMWindowCollection *nsframes;
 363     mozIDOMWindowProxy *mozwindow;
 364     UINT32 length;
 365     nsresult nsres;
 366
 367     nsres = nsIDOMWindow_GetFrames(This->nswindow, &nsframes);
 368     if(NS_FAILED(nsres)) {
 369         FIXME("nsIDOMWindow_GetFrames failed: 0x%08x\n", nsres);
 370         return E_FAIL;
 371     }
 372
 373     nsres = nsIDOMWindowCollection_GetLength(nsframes, &length);
 374     assert(nsres == NS_OK);
 375
 376     if(index >= length) {
 377         nsIDOMWindowCollection_Release(nsframes);
 378         return DISP_E_MEMBERNOTFOUND;
 379     }
 380
 381     nsres = nsIDOMWindowCollection_Item(nsframes, index, &mozwindow);
 382     nsIDOMWindowCollection_Release(nsframes);
 383     if(NS_FAILED(nsres)) {
 384         FIXME("nsIDOMWindowCollection_Item failed: 0x%08x\n", nsres);
 385         return E_FAIL;
 386     }
 387
 388     *ret = mozwindow_to_window(mozwindow);
 389
 390     mozIDOMWindowProxy_Release(mozwindow);
 391     return S_OK;
 392 }
 393
 394 HRESULT get_frame_by_name(HTMLOuterWindow *This, const WCHAR *name, BOOL deep, HTMLOuterWindow **ret)
 395 {
 396     nsIDOMWindowCollection *nsframes;
 397     HTMLOuterWindow *window = NULL;
 398     mozIDOMWindowProxy *mozwindow;
 399     nsAString name_str;
 400     UINT32 length, i;
 401     nsresult nsres;
 402     HRESULT hres = S_OK;
 403
 404     nsres = nsIDOMWindow_GetFrames(This->nswindow, &nsframes);
 405     if(NS_FAILED(nsres)) {
 406         FIXME("nsIDOMWindow_GetFrames failed: 0x%08x\n", nsres);
 407         return E_FAIL;
 408     }
 409
 410     if(!nsframes) {
 411         WARN("nsIDOMWindow_GetFrames returned NULL nsframes: %p\n", This->nswindow);
 412         return DISP_E_MEMBERNOTFOUND;
 413     }
 414
 415     nsAString_InitDepend(&name_str, name);
 416     nsres = nsIDOMWindowCollection_NamedItem(nsframes, &name_str, &mozwindow);
 417     nsAString_Finish(&name_str);
 418     if(NS_FAILED(nsres)) {
 419         nsIDOMWindowCollection_Release(nsframes);
 420         return E_FAIL;
 421     }
 422
 423     if(mozwindow) {
 424         *ret = mozwindow_to_window(mozwindow);
 425         return S_OK;
 426     }
 427
 428     nsres = nsIDOMWindowCollection_GetLength(nsframes, &length);
 429     assert(nsres == NS_OK);
 430
 431     for(i = 0; i < length && !window; ++i) {
 432         HTMLOuterWindow *window_iter;
 433         BSTR id;
 434
 435         nsres = nsIDOMWindowCollection_Item(nsframes, i, &mozwindow);
 436         if(NS_FAILED(nsres)) {
 437             FIXME("nsIDOMWindowCollection_Item failed: 0x%08x\n", nsres);
 438             hres = E_FAIL;
 439             break;
 440         }
 441
 442         window_iter = mozwindow_to_window(mozwindow);
 443
 444         mozIDOMWindowProxy_Release(mozwindow);
 445
 446         if(!window_iter) {
 447             WARN("nsIDOMWindow without HTMLOuterWindow: %p\n", mozwindow);
 448             continue;
 449         }
 450
 451         hres = IHTMLElement_get_id(&window_iter->frame_element->element.IHTMLElement_iface, &id);
 452         if(FAILED(hres)) {
 453             FIXME("IHTMLElement_get_id failed: 0x%08x\n", hres);
 454             break;
 455         }
 456
 457         if(id && !strcmpiW(id, name))
 458             window = window_iter;
 459
 460         SysFreeString(id);
 461
 462         if(!window && deep)
 463             get_frame_by_name(window_iter, name, TRUE, &window);
 464     }
 465
 466     nsIDOMWindowCollection_Release(nsframes);
 467     if(FAILED(hres))
 468         return hres;
 469
 470     *ret = window;
 471     return S_OK;
 472 }
 473
 474 static HRESULT WINAPI HTMLWindow2_item(IHTMLWindow2 *iface, VARIANT *pvarIndex, VARIANT *pvarResult)
 475 {
 476     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 477     HTMLOuterWindow *window = NULL;
 478     HRESULT hres;
 479
 480     TRACE("(%p)->(%p %p)\n", This, pvarIndex, pvarResult);
 481
 482     switch(V_VT(pvarIndex)) {
 483     case VT_I4: {
 484         int index = V_I4(pvarIndex);
 485         TRACE("Getting index %d\n", index);
 486         if(index < 0)
 487             return DISP_E_MEMBERNOTFOUND;
 488         hres = get_frame_by_index(This->outer_window, index, &window);
 489         break;
 490     }
 491     case VT_UINT: {
 492         unsigned int index = V_UINT(pvarIndex);
 493         TRACE("Getting index %u\n", index);
 494         hres = get_frame_by_index(This->outer_window, index, &window);
 495         break;
 496     }
 497     case VT_BSTR: {
 498         BSTR str = V_BSTR(pvarIndex);
 499         TRACE("Getting name %s\n", wine_dbgstr_w(str));
 500         hres = get_frame_by_name(This->outer_window, str, FALSE, &window);
 501         break;
 502     }
 503     default:
 504         WARN("Invalid index %s\n", debugstr_variant(pvarIndex));
 505         return E_INVALIDARG;
 506     }
 507
 508     if(FAILED(hres))
 509         return hres;
 510     if(!window)
 511         return DISP_E_MEMBERNOTFOUND;
 512
 513     IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
 514     V_VT(pvarResult) = VT_DISPATCH;
 515     V_DISPATCH(pvarResult) = (IDispatch*)window;
 516     return S_OK;
 517 }
 518
 519 static HRESULT WINAPI HTMLWindow2_get_length(IHTMLWindow2 *iface, LONG *p)
 520 {
 521     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 522     nsIDOMWindowCollection *nscollection;
 523     UINT32 length;
 524     nsresult nsres;
 525
 526     TRACE("(%p)->(%p)\n", This, p);
 527
 528     nsres = nsIDOMWindow_GetFrames(This->outer_window->nswindow, &nscollection);
 529     if(NS_FAILED(nsres)) {
 530         ERR("GetFrames failed: %08x\n", nsres);
 531         return E_FAIL;
 532     }
 533
 534     nsres = nsIDOMWindowCollection_GetLength(nscollection, &length);
 535     nsIDOMWindowCollection_Release(nscollection);
 536     if(NS_FAILED(nsres)) {
 537         ERR("GetLength failed: %08x\n", nsres);
 538         return E_FAIL;
 539     }
 540
 541     *p = length;
 542     return S_OK;
 543 }
 544
 545 static HRESULT WINAPI HTMLWindow2_get_frames(IHTMLWindow2 *iface, IHTMLFramesCollection2 **p)
 546 {
 547     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 548     FIXME("(%p)->(%p): semi-stub\n", This, p);
 549
 550     /* FIXME: Should return a separate Window object */
 551     *p = (IHTMLFramesCollection2*)&This->IHTMLWindow2_iface;
 552     IHTMLWindow2_AddRef(iface);
 553     return S_OK;
 554 }
 555
 556 static HRESULT WINAPI HTMLWindow2_put_defaultStatus(IHTMLWindow2 *iface, BSTR v)
 557 {
 558     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 559     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 560     return E_NOTIMPL;
 561 }
 562
 563 static HRESULT WINAPI HTMLWindow2_get_defaultStatus(IHTMLWindow2 *iface, BSTR *p)
 564 {
 565     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 566     FIXME("(%p)->(%p)\n", This, p);
 567     return E_NOTIMPL;
 568 }
 569
 570 static HRESULT WINAPI HTMLWindow2_put_status(IHTMLWindow2 *iface, BSTR v)
 571 {
 572     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 573
 574     WARN("(%p)->(%s)\n", This, debugstr_w(v));
 575
 576     /*
 577      * FIXME: Since IE7, setting status is blocked, but still possible in certain circumstances.
 578      * Ignoring the call should be enough for us.
 579      */
 580     return S_OK;
 581 }
 582
 583 static HRESULT WINAPI HTMLWindow2_get_status(IHTMLWindow2 *iface, BSTR *p)
 584 {
 585     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 586
 587     TRACE("(%p)->(%p)\n", This, p);
 588
 589     /* See put_status */
 590     *p = NULL;
 591     return S_OK;
 592 }
 593
 594 static HRESULT WINAPI HTMLWindow2_setTimeout(IHTMLWindow2 *iface, BSTR expression,
 595         LONG msec, VARIANT *language, LONG *timerID)
 596 {
 597     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 598     VARIANT expr_var;
 599
 600     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 601
 602     V_VT(&expr_var) = VT_BSTR;
 603     V_BSTR(&expr_var) = expression;
 604
 605     return IHTMLWindow3_setTimeout(&This->IHTMLWindow3_iface, &expr_var, msec, language, timerID);
 606 }
 607
 608 static HRESULT WINAPI HTMLWindow2_clearTimeout(IHTMLWindow2 *iface, LONG timerID)
 609 {
 610     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 611
 612     TRACE("(%p)->(%d)\n", This, timerID);
 613
 614     return clear_task_timer(This->inner_window, timerID);
 615 }
 616
 617 #define MAX_MESSAGE_LEN 2000
 618
 619 static HRESULT WINAPI HTMLWindow2_alert(IHTMLWindow2 *iface, BSTR message)
 620 {
 621     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 622     WCHAR title[100], *msg = message;
 623     DWORD len;
 624
 625     TRACE("(%p)->(%s)\n", This, debugstr_w(message));
 626
 627     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, title,
 628                     sizeof(title)/sizeof(WCHAR))) {
 629         WARN("Could not load message box title: %d\n", GetLastError());
 630         return S_OK;
 631     }
 632
 633     len = SysStringLen(message);
 634     if(len > MAX_MESSAGE_LEN) {
 635         msg = heap_alloc((MAX_MESSAGE_LEN+1)*sizeof(WCHAR));
 636         if(!msg)
 637             return E_OUTOFMEMORY;
 638         memcpy(msg, message, MAX_MESSAGE_LEN*sizeof(WCHAR));
 639         msg[MAX_MESSAGE_LEN] = 0;
 640     }
 641
 642     MessageBoxW(This->outer_window->doc_obj->hwnd, msg, title, MB_ICONWARNING);
 643     if(msg != message)
 644         heap_free(msg);
 645     return S_OK;
 646 }
 647
 648 static HRESULT WINAPI HTMLWindow2_confirm(IHTMLWindow2 *iface, BSTR message,
 649         VARIANT_BOOL *confirmed)
 650 {
 651     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 652     WCHAR wszTitle[100];
 653
 654     TRACE("(%p)->(%s %p)\n", This, debugstr_w(message), confirmed);
 655
 656     if(!confirmed) return E_INVALIDARG;
 657
 658     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 659                 sizeof(wszTitle)/sizeof(WCHAR))) {
 660         WARN("Could not load message box title: %d\n", GetLastError());
 661         *confirmed = VARIANT_TRUE;
 662         return S_OK;
 663     }
 664
 665     if(MessageBoxW(This->outer_window->doc_obj->hwnd, message, wszTitle,
 666                 MB_OKCANCEL|MB_ICONQUESTION)==IDOK)
 667         *confirmed = VARIANT_TRUE;
 668     else *confirmed = VARIANT_FALSE;
 669
 670     return S_OK;
 671 }
 672
 673 typedef struct
 674 {
 675     BSTR message;
 676     BSTR dststr;
 677     VARIANT *textdata;
 678 }prompt_arg;
 679
 680 static INT_PTR CALLBACK prompt_dlgproc(HWND hwnd, UINT msg,
 681         WPARAM wparam, LPARAM lparam)
 682 {
 683     switch(msg)
 684     {
 685         case WM_INITDIALOG:
 686         {
 687             prompt_arg *arg = (prompt_arg*)lparam;
 688             WCHAR wszTitle[100];
 689
 690             if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 691                         sizeof(wszTitle)/sizeof(WCHAR))) {
 692                 WARN("Could not load message box title: %d\n", GetLastError());
 693                 EndDialog(hwnd, wparam);
 694                 return FALSE;
 695             }
 696
 697             SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
 698             SetWindowTextW(hwnd, wszTitle);
 699             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_PROMPT), arg->message);
 700             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_EDIT), arg->dststr);
 701             return FALSE;
 702         }
 703         case WM_COMMAND:
 704             switch(wparam)
 705             {
 706                 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
 707                     EndDialog(hwnd, wparam);
 708                     return TRUE;
 709                 case MAKEWPARAM(IDOK, BN_CLICKED):
 710                 {
 711                     prompt_arg *arg =
 712                         (prompt_arg*)GetWindowLongPtrW(hwnd, DWLP_USER);
 713                     HWND hwndPrompt = GetDlgItem(hwnd, ID_PROMPT_EDIT);
 714                     INT len = GetWindowTextLengthW(hwndPrompt);
 715
 716                     if(!arg->textdata)
 717                     {
 718                         EndDialog(hwnd, wparam);
 719                         return TRUE;
 720                     }
 721
 722                     V_VT(arg->textdata) = VT_BSTR;
 723                     if(!len && !arg->dststr)
 724                         V_BSTR(arg->textdata) = NULL;
 725                     else
 726                     {
 727                         V_BSTR(arg->textdata) = SysAllocStringLen(NULL, len);
 728                         GetWindowTextW(hwndPrompt, V_BSTR(arg->textdata), len+1);
 729                     }
 730                     EndDialog(hwnd, wparam);
 731                     return TRUE;
 732                 }
 733             }
 734             return FALSE;
 735         case WM_CLOSE:
 736             EndDialog(hwnd, IDCANCEL);
 737             return TRUE;
 738         default:
 739             return FALSE;
 740     }
 741 }
 742
 743 static HRESULT WINAPI HTMLWindow2_prompt(IHTMLWindow2 *iface, BSTR message,
 744         BSTR dststr, VARIANT *textdata)
 745 {
 746     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 747     prompt_arg arg;
 748
 749     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(message), debugstr_w(dststr), textdata);
 750
 751     if(textdata) V_VT(textdata) = VT_NULL;
 752
 753     arg.message = message;
 754     arg.dststr = dststr;
 755     arg.textdata = textdata;
 756
 757     DialogBoxParamW(hInst, MAKEINTRESOURCEW(ID_PROMPT_DIALOG),
 758             This->outer_window->doc_obj->hwnd, prompt_dlgproc, (LPARAM)&arg);
 759     return S_OK;
 760 }
 761
 762 static HRESULT WINAPI HTMLWindow2_get_Image(IHTMLWindow2 *iface, IHTMLImageElementFactory **p)
 763 {
 764     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 765     HTMLInnerWindow *window = This->inner_window;
 766
 767     TRACE("(%p)->(%p)\n", This, p);
 768
 769     if(!window->image_factory) {
 770         HRESULT hres;
 771
 772         hres = HTMLImageElementFactory_Create(window, &window->image_factory);
 773         if(FAILED(hres))
 774             return hres;
 775     }
 776
 777     *p = &window->image_factory->IHTMLImageElementFactory_iface;
 778     IHTMLImageElementFactory_AddRef(*p);
 779
 780     return S_OK;
 781 }
 782
 783 static HRESULT WINAPI HTMLWindow2_get_location(IHTMLWindow2 *iface, IHTMLLocation **p)
 784 {
 785     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 786     HTMLLocation *location;
 787     HRESULT hres;
 788
 789     TRACE("(%p)->(%p)\n", This, p);
 790
 791     hres = get_location(This->inner_window, &location);
 792     if(FAILED(hres))
 793         return hres;
 794
 795     *p = &location->IHTMLLocation_iface;
 796     return S_OK;
 797 }
 798
 799 static HRESULT WINAPI HTMLWindow2_get_history(IHTMLWindow2 *iface, IOmHistory **p)
 800 {
 801     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 802     HTMLInnerWindow *window = This->inner_window;
 803
 804     TRACE("(%p)->(%p)\n", This, p);
 805
 806     if(!window->history) {
 807         HRESULT hres;
 808
 809         hres = create_history(window, &window->history);
 810         if(FAILED(hres))
 811             return hres;
 812     }
 813
 814     IOmHistory_AddRef(&window->history->IOmHistory_iface);
 815     *p = &window->history->IOmHistory_iface;
 816     return S_OK;
 817 }
 818
 819 static BOOL notify_webbrowser_close(HTMLOuterWindow *window, HTMLDocumentObj *doc)
 820 {
 821     IConnectionPointContainer *cp_container;
 822     VARIANT_BOOL cancel = VARIANT_FALSE;
 823     IEnumConnections *enum_conn;
 824     VARIANT args[2];
 825     DISPPARAMS dp = {args, NULL, 2, 0};
 826     CONNECTDATA conn_data;
 827     IConnectionPoint *cp;
 828     IDispatch *disp;
 829     ULONG fetched;
 830     HRESULT hres;
 831
 832     if(!doc->webbrowser)
 833         return TRUE;
 834
 835     hres = IUnknown_QueryInterface(doc->webbrowser, &IID_IConnectionPointContainer, (void**)&cp_container);
 836     if(FAILED(hres))
 837         return TRUE;
 838
 839     hres = IConnectionPointContainer_FindConnectionPoint(cp_container, &DIID_DWebBrowserEvents2, &cp);
 840     IConnectionPointContainer_Release(cp_container);
 841     if(FAILED(hres))
 842         return TRUE;
 843
 844     hres = IConnectionPoint_EnumConnections(cp, &enum_conn);
 845     IConnectionPoint_Release(cp);
 846     if(FAILED(hres))
 847         return TRUE;
 848
 849     while(!cancel) {
 850         conn_data.pUnk = NULL;
 851         conn_data.dwCookie = 0;
 852         fetched = 0;
 853         hres = IEnumConnections_Next(enum_conn, 1, &conn_data, &fetched);
 854         if(hres != S_OK)
 855             break;
 856
 857         hres = IUnknown_QueryInterface(conn_data.pUnk, &IID_IDispatch, (void**)&disp);
 858         IUnknown_Release(conn_data.pUnk);
 859         if(FAILED(hres))
 860             continue;
 861
 862         V_VT(args) = VT_BYREF|VT_BOOL;
 863         V_BOOLREF(args) = &cancel;
 864         V_VT(args+1) = VT_BOOL;
 865         V_BOOL(args+1) = variant_bool(window->parent != NULL);
 866         hres = IDispatch_Invoke(disp, DISPID_WINDOWCLOSING, &IID_NULL, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
 867         IDispatch_Release(disp);
 868         if(FAILED(hres))
 869             cancel = VARIANT_FALSE;
 870     }
 871
 872     IEnumConnections_Release(enum_conn);
 873     return !cancel;
 874 }
 875
 876 static HRESULT WINAPI HTMLWindow2_close(IHTMLWindow2 *iface)
 877 {
 878     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 879     HTMLOuterWindow *window = This->outer_window;
 880
 881     TRACE("(%p)\n", This);
 882
 883     if(!window->doc_obj) {
 884         FIXME("No document object\n");
 885         return E_FAIL;
 886     }
 887
 888     if(!notify_webbrowser_close(window, window->doc_obj))
 889         return S_OK;
 890
 891     FIXME("default action not implemented\n");
 892     return E_NOTIMPL;
 893 }
 894
 895 static HRESULT WINAPI HTMLWindow2_put_opener(IHTMLWindow2 *iface, VARIANT v)
 896 {
 897     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 898     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 899     return E_NOTIMPL;
 900 }
 901
 902 static HRESULT WINAPI HTMLWindow2_get_opener(IHTMLWindow2 *iface, VARIANT *p)
 903 {
 904     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 905
 906     FIXME("(%p)->(%p) returning empty\n", This, p);
 907
 908     V_VT(p) = VT_EMPTY;
 909     return S_OK;
 910 }
 911
 912 static HRESULT WINAPI HTMLWindow2_get_navigator(IHTMLWindow2 *iface, IOmNavigator **p)
 913 {
 914     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 915
 916     TRACE("(%p)->(%p)\n", This, p);
 917
 918     *p = OmNavigator_Create();
 919     return *p ? S_OK : E_OUTOFMEMORY;
 920 }
 921
 922 static HRESULT WINAPI HTMLWindow2_put_name(IHTMLWindow2 *iface, BSTR v)
 923 {
 924     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 925     nsAString name_str;
 926     nsresult nsres;
 927
 928     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 929
 930     nsAString_InitDepend(&name_str, v);
 931     nsres = nsIDOMWindow_SetName(This->outer_window->nswindow, &name_str);
 932     nsAString_Finish(&name_str);
 933     if(NS_FAILED(nsres))
 934         ERR("SetName failed: %08x\n", nsres);
 935
 936     return S_OK;
 937 }
 938
 939 static HRESULT WINAPI HTMLWindow2_get_name(IHTMLWindow2 *iface, BSTR *p)
 940 {
 941     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 942     nsAString name_str;
 943     nsresult nsres;
 944
 945     TRACE("(%p)->(%p)\n", This, p);
 946
 947     nsAString_Init(&name_str, NULL);
 948     nsres = nsIDOMWindow_GetName(This->outer_window->nswindow, &name_str);
 949     return return_nsstr(nsres, &name_str, p);
 950 }
 951
 952 static HRESULT WINAPI HTMLWindow2_get_parent(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 953 {
 954     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 955     HTMLOuterWindow *window = This->outer_window;
 956
 957     TRACE("(%p)->(%p)\n", This, p);
 958
 959     if(!window->parent)
 960         return IHTMLWindow2_get_self(&This->IHTMLWindow2_iface, p);
 961
 962     *p = &window->parent->base.IHTMLWindow2_iface;
 963     IHTMLWindow2_AddRef(*p);
 964     return S_OK;
 965 }
 966
 967 static HRESULT WINAPI HTMLWindow2_open(IHTMLWindow2 *iface, BSTR url, BSTR name,
 968          BSTR features, VARIANT_BOOL replace, IHTMLWindow2 **pomWindowResult)
 969 {
 970     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 971     HTMLOuterWindow *window = This->outer_window;
 972     IUri *uri;
 973     HRESULT hres;
 974
 975     static const WCHAR _selfW[] = {'_','s','e','l','f',0};
 976
 977     TRACE("(%p)->(%s %s %s %x %p)\n", This, debugstr_w(url), debugstr_w(name),
 978           debugstr_w(features), replace, pomWindowResult);
 979     if(features)
 980         FIXME("unsupported features argument %s\n", debugstr_w(features));
 981     if(replace)
 982         FIXME("unsupported relace argument\n");
 983
 984     if(!window->doc_obj || !window->uri_nofrag)
 985         return E_UNEXPECTED;
 986
 987     if(name && *name == '_') {
 988         if(!strcmpW(name, _selfW)) {
 989             if((features && *features) || replace)
 990                 FIXME("Unsupported arguments for _self target\n");
 991
 992             hres = IHTMLWindow2_navigate(&This->IHTMLWindow2_iface, url);
 993             if(FAILED(hres))
 994                 return hres;
 995
 996             if(pomWindowResult) {
 997                 FIXME("Returning this window for _self target\n");
 998                 *pomWindowResult = &This->IHTMLWindow2_iface;
 999                 IHTMLWindow2_AddRef(*pomWindowResult);
1000             }
1001
1002             return S_OK;
1003         }
1004
1005         FIXME("Unsupported name %s\n", debugstr_w(name));
1006         return E_NOTIMPL;
1007     }
1008
1009     hres = create_relative_uri(window, url, &uri);
1010     if(FAILED(hres))
1011         return hres;
1012
1013     hres = navigate_new_window(window, uri, name, NULL, pomWindowResult);
1014     IUri_Release(uri);
1015     return hres;
1016 }
1017
1018 static HRESULT WINAPI HTMLWindow2_get_self(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1019 {
1020     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1021
1022     TRACE("(%p)->(%p)\n", This, p);
1023
1024     /* FIXME: We should return kind of proxy window here. */
1025     IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1026     *p = &This->IHTMLWindow2_iface;
1027     return S_OK;
1028 }
1029
1030 static HRESULT WINAPI HTMLWindow2_get_top(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1031 {
1032     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1033     HTMLOuterWindow *top;
1034
1035     TRACE("(%p)->(%p)\n", This, p);
1036
1037     get_top_window(This->outer_window, &top);
1038     *p = &top->base.IHTMLWindow2_iface;
1039     IHTMLWindow2_AddRef(*p);
1040
1041     return S_OK;
1042 }
1043
1044 static HRESULT WINAPI HTMLWindow2_get_window(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1045 {
1046     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1047
1048     TRACE("(%p)->(%p)\n", This, p);
1049
1050     /* FIXME: We should return kind of proxy window here. */
1051     IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1052     *p = &This->IHTMLWindow2_iface;
1053     return S_OK;
1054 }
1055
1056 static HRESULT WINAPI HTMLWindow2_navigate(IHTMLWindow2 *iface, BSTR url)
1057 {
1058     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1059
1060     TRACE("(%p)->(%s)\n", This, debugstr_w(url));
1061
1062     return navigate_url(This->outer_window, url, This->outer_window->uri, BINDING_NAVIGATED);
1063 }
1064
1065 static HRESULT WINAPI HTMLWindow2_put_onfocus(IHTMLWindow2 *iface, VARIANT v)
1066 {
1067     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1068
1069     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1070
1071     return set_window_event(This, EVENTID_FOCUS, &v);
1072 }
1073
1074 static HRESULT WINAPI HTMLWindow2_get_onfocus(IHTMLWindow2 *iface, VARIANT *p)
1075 {
1076     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1077
1078     TRACE("(%p)->(%p)\n", This, p);
1079
1080     return get_window_event(This, EVENTID_FOCUS, p);
1081 }
1082
1083 static HRESULT WINAPI HTMLWindow2_put_onblur(IHTMLWindow2 *iface, VARIANT v)
1084 {
1085     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1086
1087     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1088
1089     return set_window_event(This, EVENTID_BLUR, &v);
1090 }
1091
1092 static HRESULT WINAPI HTMLWindow2_get_onblur(IHTMLWindow2 *iface, VARIANT *p)
1093 {
1094     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1095
1096     TRACE("(%p)->(%p)\n", This, p);
1097
1098     return get_window_event(This, EVENTID_BLUR, p);
1099 }
1100
1101 static HRESULT WINAPI HTMLWindow2_put_onload(IHTMLWindow2 *iface, VARIANT v)
1102 {
1103     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1104
1105     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1106
1107     return set_window_event(This, EVENTID_LOAD, &v);
1108 }
1109
1110 static HRESULT WINAPI HTMLWindow2_get_onload(IHTMLWindow2 *iface, VARIANT *p)
1111 {
1112     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1113
1114     TRACE("(%p)->(%p)\n", This, p);
1115
1116     return get_window_event(This, EVENTID_LOAD, p);
1117 }
1118
1119 static HRESULT WINAPI HTMLWindow2_put_onbeforeunload(IHTMLWindow2 *iface, VARIANT v)
1120 {
1121     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1122
1123     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1124
1125     return set_window_event(This, EVENTID_BEFOREUNLOAD, &v);
1126 }
1127
1128 static HRESULT WINAPI HTMLWindow2_get_onbeforeunload(IHTMLWindow2 *iface, VARIANT *p)
1129 {
1130     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1131
1132     TRACE("(%p)->(%p)\n", This, p);
1133
1134     return get_window_event(This, EVENTID_BEFOREUNLOAD, p);
1135 }
1136
1137 static HRESULT WINAPI HTMLWindow2_put_onunload(IHTMLWindow2 *iface, VARIANT v)
1138 {
1139     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1140
1141     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1142
1143     return set_window_event(This, EVENTID_UNLOAD, &v);
1144 }
1145
1146 static HRESULT WINAPI HTMLWindow2_get_onunload(IHTMLWindow2 *iface, VARIANT *p)
1147 {
1148     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1149
1150     TRACE("(%p)->(%p)\n", This, p);
1151
1152     return get_window_event(This, EVENTID_UNLOAD, p);
1153 }
1154
1155 static HRESULT WINAPI HTMLWindow2_put_onhelp(IHTMLWindow2 *iface, VARIANT v)
1156 {
1157     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1158
1159     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1160
1161     return set_window_event(This, EVENTID_HELP, &v);
1162 }
1163
1164 static HRESULT WINAPI HTMLWindow2_get_onhelp(IHTMLWindow2 *iface, VARIANT *p)
1165 {
1166     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1167
1168     TRACE("(%p)->(%p)\n", This, p);
1169
1170     return get_window_event(This, EVENTID_HELP, p);
1171 }
1172
1173 static HRESULT WINAPI HTMLWindow2_put_onerror(IHTMLWindow2 *iface, VARIANT v)
1174 {
1175     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1176
1177     FIXME("(%p)->(%s) semi-stub\n", This, debugstr_variant(&v));
1178
1179     return set_window_event(This, EVENTID_ERROR, &v);
1180 }
1181
1182 static HRESULT WINAPI HTMLWindow2_get_onerror(IHTMLWindow2 *iface, VARIANT *p)
1183 {
1184     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1185
1186     TRACE("(%p)->(%p)\n", This, p);
1187
1188     return get_window_event(This, EVENTID_ERROR, p);
1189 }
1190
1191 static HRESULT WINAPI HTMLWindow2_put_onresize(IHTMLWindow2 *iface, VARIANT v)
1192 {
1193     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1194
1195     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1196
1197     return set_window_event(This, EVENTID_RESIZE, &v);
1198 }
1199
1200 static HRESULT WINAPI HTMLWindow2_get_onresize(IHTMLWindow2 *iface, VARIANT *p)
1201 {
1202     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1203
1204     TRACE("(%p)->(%p)\n", This, p);
1205
1206     return get_window_event(This, EVENTID_RESIZE, p);
1207 }
1208
1209 static HRESULT WINAPI HTMLWindow2_put_onscroll(IHTMLWindow2 *iface, VARIANT v)
1210 {
1211     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1212
1213     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1214
1215     return set_window_event(This, EVENTID_SCROLL, &v);
1216 }
1217
1218 static HRESULT WINAPI HTMLWindow2_get_onscroll(IHTMLWindow2 *iface, VARIANT *p)
1219 {
1220     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1221
1222     TRACE("(%p)->(%p)\n", This, p);
1223
1224     return get_window_event(This, EVENTID_SCROLL, p);
1225 }
1226
1227 static HRESULT WINAPI HTMLWindow2_get_document(IHTMLWindow2 *iface, IHTMLDocument2 **p)
1228 {
1229     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1230
1231     TRACE("(%p)->(%p)\n", This, p);
1232
1233     if(This->inner_window->doc) {
1234         /* FIXME: We should return a wrapper object here */
1235         *p = &This->inner_window->doc->basedoc.IHTMLDocument2_iface;
1236         IHTMLDocument2_AddRef(*p);
1237     }else {
1238         *p = NULL;
1239     }
1240
1241     return S_OK;
1242 }
1243
1244 IHTMLEventObj *default_set_current_event(HTMLInnerWindow *window, IHTMLEventObj *event_obj)
1245 {
1246     IHTMLEventObj *prev_event = NULL;
1247
1248     if(window) {
1249         if(event_obj)
1250             IHTMLEventObj_AddRef(event_obj);
1251         prev_event = window->event;
1252         window->event = event_obj;
1253     }
1254
1255     return prev_event;
1256 }
1257
1258 static HRESULT WINAPI HTMLWindow2_get_event(IHTMLWindow2 *iface, IHTMLEventObj **p)
1259 {
1260     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1261     HTMLInnerWindow *window = This->inner_window;
1262
1263     TRACE("(%p)->(%p)\n", This, p);
1264
1265     if(window->event)
1266         IHTMLEventObj_AddRef(window->event);
1267     *p = window->event;
1268     return S_OK;
1269 }
1270
1271 static HRESULT WINAPI HTMLWindow2_get__newEnum(IHTMLWindow2 *iface, IUnknown **p)
1272 {
1273     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1274     FIXME("(%p)->(%p)\n", This, p);
1275     return E_NOTIMPL;
1276 }
1277
1278 static HRESULT WINAPI HTMLWindow2_showModalDialog(IHTMLWindow2 *iface, BSTR dialog,
1279         VARIANT *varArgIn, VARIANT *varOptions, VARIANT *varArgOut)
1280 {
1281     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1282     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(dialog), varArgIn, varOptions, varArgOut);
1283     return E_NOTIMPL;
1284 }
1285
1286 static HRESULT WINAPI HTMLWindow2_showHelp(IHTMLWindow2 *iface, BSTR helpURL, VARIANT helpArg,
1287         BSTR features)
1288 {
1289     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1290     FIXME("(%p)->(%s %s %s)\n", This, debugstr_w(helpURL), debugstr_variant(&helpArg), debugstr_w(features));
1291     return E_NOTIMPL;
1292 }
1293
1294 static HRESULT WINAPI HTMLWindow2_get_screen(IHTMLWindow2 *iface, IHTMLScreen **p)
1295 {
1296     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1297     HTMLInnerWindow *window = This->inner_window;
1298
1299     TRACE("(%p)->(%p)\n", This, p);
1300
1301     if(!window->screen) {
1302         HRESULT hres;
1303
1304         hres = HTMLScreen_Create(&window->screen);
1305         if(FAILED(hres))
1306             return hres;
1307     }
1308
1309     *p = window->screen;
1310     IHTMLScreen_AddRef(window->screen);
1311     return S_OK;
1312 }
1313
1314 static HRESULT WINAPI HTMLWindow2_get_Option(IHTMLWindow2 *iface, IHTMLOptionElementFactory **p)
1315 {
1316     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1317     HTMLInnerWindow *window = This->inner_window;
1318
1319     TRACE("(%p)->(%p)\n", This, p);
1320
1321     if(!window->option_factory) {
1322         HRESULT hres;
1323
1324         hres = HTMLOptionElementFactory_Create(window, &window->option_factory);
1325         if(FAILED(hres))
1326             return hres;
1327     }
1328
1329     *p = &window->option_factory->IHTMLOptionElementFactory_iface;
1330     IHTMLOptionElementFactory_AddRef(*p);
1331
1332     return S_OK;
1333 }
1334
1335 static HRESULT WINAPI HTMLWindow2_focus(IHTMLWindow2 *iface)
1336 {
1337     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1338
1339     TRACE("(%p)->()\n", This);
1340
1341     if(This->outer_window->doc_obj)
1342         SetFocus(This->outer_window->doc_obj->hwnd);
1343     return S_OK;
1344 }
1345
1346 static HRESULT WINAPI HTMLWindow2_get_closed(IHTMLWindow2 *iface, VARIANT_BOOL *p)
1347 {
1348     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1349     FIXME("(%p)->(%p)\n", This, p);
1350     return E_NOTIMPL;
1351 }
1352
1353 static HRESULT WINAPI HTMLWindow2_blur(IHTMLWindow2 *iface)
1354 {
1355     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1356     FIXME("(%p)->()\n", This);
1357     return E_NOTIMPL;
1358 }
1359
1360 static HRESULT WINAPI HTMLWindow2_scroll(IHTMLWindow2 *iface, LONG x, LONG y)
1361 {
1362     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1363     nsresult nsres;
1364
1365     TRACE("(%p)->(%d %d)\n", This, x, y);
1366
1367     nsres = nsIDOMWindow_Scroll(This->outer_window->nswindow, x, y);
1368     if(NS_FAILED(nsres)) {
1369         ERR("ScrollBy failed: %08x\n", nsres);
1370         return E_FAIL;
1371     }
1372
1373     return S_OK;
1374 }
1375
1376 static HRESULT WINAPI HTMLWindow2_get_clientInformation(IHTMLWindow2 *iface, IOmNavigator **p)
1377 {
1378     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1379
1380     TRACE("(%p)->(%p)\n", This, p);
1381
1382     return IHTMLWindow2_get_navigator(&This->IHTMLWindow2_iface, p);
1383 }
1384
1385 static HRESULT WINAPI HTMLWindow2_setInterval(IHTMLWindow2 *iface, BSTR expression,
1386         LONG msec, VARIANT *language, LONG *timerID)
1387 {
1388     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1389     VARIANT expr;
1390
1391     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
1392
1393     V_VT(&expr) = VT_BSTR;
1394     V_BSTR(&expr) = expression;
1395     return IHTMLWindow3_setInterval(&This->IHTMLWindow3_iface, &expr, msec, language, timerID);
1396 }
1397
1398 static HRESULT WINAPI HTMLWindow2_clearInterval(IHTMLWindow2 *iface, LONG timerID)
1399 {
1400     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1401
1402     TRACE("(%p)->(%d)\n", This, timerID);
1403
1404     return clear_task_timer(This->inner_window, timerID);
1405 }
1406
1407 static HRESULT WINAPI HTMLWindow2_put_offscreenBuffering(IHTMLWindow2 *iface, VARIANT v)
1408 {
1409     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1410     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1411     return E_NOTIMPL;
1412 }
1413
1414 static HRESULT WINAPI HTMLWindow2_get_offscreenBuffering(IHTMLWindow2 *iface, VARIANT *p)
1415 {
1416     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1417     FIXME("(%p)->(%p)\n", This, p);
1418     return E_NOTIMPL;
1419 }
1420
1421 static HRESULT WINAPI HTMLWindow2_execScript(IHTMLWindow2 *iface, BSTR scode, BSTR language,
1422         VARIANT *pvarRet)
1423 {
1424     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1425
1426     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(scode), debugstr_w(language), pvarRet);
1427
1428     return exec_script(This->inner_window, scode, language, pvarRet);
1429 }
1430
1431 static HRESULT WINAPI HTMLWindow2_toString(IHTMLWindow2 *iface, BSTR *String)
1432 {
1433     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1434
1435     static const WCHAR objectW[] = {'[','o','b','j','e','c','t',']',0};
1436
1437     TRACE("(%p)->(%p)\n", This, String);
1438
1439     if(!String)
1440         return E_INVALIDARG;
1441
1442     *String = SysAllocString(objectW);
1443     return *String ? S_OK : E_OUTOFMEMORY;
1444 }
1445
1446 static HRESULT WINAPI HTMLWindow2_scrollBy(IHTMLWindow2 *iface, LONG x, LONG y)
1447 {
1448     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1449     nsresult nsres;
1450
1451     TRACE("(%p)->(%d %d)\n", This, x, y);
1452
1453     nsres = nsIDOMWindow_ScrollBy(This->outer_window->nswindow, x, y);
1454     if(NS_FAILED(nsres))
1455         ERR("ScrollBy failed: %08x\n", nsres);
1456
1457     return S_OK;
1458 }
1459
1460 static HRESULT WINAPI HTMLWindow2_scrollTo(IHTMLWindow2 *iface, LONG x, LONG y)
1461 {
1462     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1463     nsresult nsres;
1464
1465     TRACE("(%p)->(%d %d)\n", This, x, y);
1466
1467     nsres = nsIDOMWindow_ScrollTo(This->outer_window->nswindow, x, y);
1468     if(NS_FAILED(nsres))
1469         ERR("ScrollTo failed: %08x\n", nsres);
1470
1471     return S_OK;
1472 }
1473
1474 static HRESULT WINAPI HTMLWindow2_moveTo(IHTMLWindow2 *iface, LONG x, LONG y)
1475 {
1476     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1477     FIXME("(%p)->(%d %d)\n", This, x, y);
1478     return E_NOTIMPL;
1479 }
1480
1481 static HRESULT WINAPI HTMLWindow2_moveBy(IHTMLWindow2 *iface, LONG x, LONG y)
1482 {
1483     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1484     FIXME("(%p)->(%d %d)\n", This, x, y);
1485     return S_FALSE;
1486 }
1487
1488 static HRESULT WINAPI HTMLWindow2_resizeTo(IHTMLWindow2 *iface, LONG x, LONG y)
1489 {
1490     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1491     FIXME("(%p)->(%d %d)\n", This, x, y);
1492     return E_NOTIMPL;
1493 }
1494
1495 static HRESULT WINAPI HTMLWindow2_resizeBy(IHTMLWindow2 *iface, LONG x, LONG y)
1496 {
1497     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1498     FIXME("(%p)->(%d %d)\n", This, x, y);
1499     return S_FALSE;
1500 }
1501
1502 static HRESULT WINAPI HTMLWindow2_get_external(IHTMLWindow2 *iface, IDispatch **p)
1503 {
1504     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1505
1506     TRACE("(%p)->(%p)\n", This, p);
1507
1508     *p = NULL;
1509
1510     if(!This->outer_window->doc_obj->hostui)
1511         return S_OK;
1512
1513     return IDocHostUIHandler_GetExternal(This->outer_window->doc_obj->hostui, p);
1514 }
1515
1516 static const IHTMLWindow2Vtbl HTMLWindow2Vtbl = {
1517     HTMLWindow2_QueryInterface,
1518     HTMLWindow2_AddRef,
1519     HTMLWindow2_Release,
1520     HTMLWindow2_GetTypeInfoCount,
1521     HTMLWindow2_GetTypeInfo,
1522     HTMLWindow2_GetIDsOfNames,
1523     HTMLWindow2_Invoke,
1524     HTMLWindow2_item,
1525     HTMLWindow2_get_length,
1526     HTMLWindow2_get_frames,
1527     HTMLWindow2_put_defaultStatus,
1528     HTMLWindow2_get_defaultStatus,
1529     HTMLWindow2_put_status,
1530     HTMLWindow2_get_status,
1531     HTMLWindow2_setTimeout,
1532     HTMLWindow2_clearTimeout,
1533     HTMLWindow2_alert,
1534     HTMLWindow2_confirm,
1535     HTMLWindow2_prompt,
1536     HTMLWindow2_get_Image,
1537     HTMLWindow2_get_location,
1538     HTMLWindow2_get_history,
1539     HTMLWindow2_close,
1540     HTMLWindow2_put_opener,
1541     HTMLWindow2_get_opener,
1542     HTMLWindow2_get_navigator,
1543     HTMLWindow2_put_name,
1544     HTMLWindow2_get_name,
1545     HTMLWindow2_get_parent,
1546     HTMLWindow2_open,
1547     HTMLWindow2_get_self,
1548     HTMLWindow2_get_top,
1549     HTMLWindow2_get_window,
1550     HTMLWindow2_navigate,
1551     HTMLWindow2_put_onfocus,
1552     HTMLWindow2_get_onfocus,
1553     HTMLWindow2_put_onblur,
1554     HTMLWindow2_get_onblur,
1555     HTMLWindow2_put_onload,
1556     HTMLWindow2_get_onload,
1557     HTMLWindow2_put_onbeforeunload,
1558     HTMLWindow2_get_onbeforeunload,
1559     HTMLWindow2_put_onunload,
1560     HTMLWindow2_get_onunload,
1561     HTMLWindow2_put_onhelp,
1562     HTMLWindow2_get_onhelp,
1563     HTMLWindow2_put_onerror,
1564     HTMLWindow2_get_onerror,
1565     HTMLWindow2_put_onresize,
1566     HTMLWindow2_get_onresize,
1567     HTMLWindow2_put_onscroll,
1568     HTMLWindow2_get_onscroll,
1569     HTMLWindow2_get_document,
1570     HTMLWindow2_get_event,
1571     HTMLWindow2_get__newEnum,
1572     HTMLWindow2_showModalDialog,
1573     HTMLWindow2_showHelp,
1574     HTMLWindow2_get_screen,
1575     HTMLWindow2_get_Option,
1576     HTMLWindow2_focus,
1577     HTMLWindow2_get_closed,
1578     HTMLWindow2_blur,
1579     HTMLWindow2_scroll,
1580     HTMLWindow2_get_clientInformation,
1581     HTMLWindow2_setInterval,
1582     HTMLWindow2_clearInterval,
1583     HTMLWindow2_put_offscreenBuffering,
1584     HTMLWindow2_get_offscreenBuffering,
1585     HTMLWindow2_execScript,
1586     HTMLWindow2_toString,
1587     HTMLWindow2_scrollBy,
1588     HTMLWindow2_scrollTo,
1589     HTMLWindow2_moveTo,
1590     HTMLWindow2_moveBy,
1591     HTMLWindow2_resizeTo,
1592     HTMLWindow2_resizeBy,
1593     HTMLWindow2_get_external
1594 };
1595
1596 static inline HTMLWindow *impl_from_IHTMLWindow3(IHTMLWindow3 *iface)
1597 {
1598     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow3_iface);
1599 }
1600
1601 static HRESULT WINAPI HTMLWindow3_QueryInterface(IHTMLWindow3 *iface, REFIID riid, void **ppv)
1602 {
1603     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1604
1605     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1606 }
1607
1608 static ULONG WINAPI HTMLWindow3_AddRef(IHTMLWindow3 *iface)
1609 {
1610     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1611
1612     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1613 }
1614
1615 static ULONG WINAPI HTMLWindow3_Release(IHTMLWindow3 *iface)
1616 {
1617     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1618
1619     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1620 }
1621
1622 static HRESULT WINAPI HTMLWindow3_GetTypeInfoCount(IHTMLWindow3 *iface, UINT *pctinfo)
1623 {
1624     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1625
1626     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1627 }
1628
1629 static HRESULT WINAPI HTMLWindow3_GetTypeInfo(IHTMLWindow3 *iface, UINT iTInfo,
1630                                               LCID lcid, ITypeInfo **ppTInfo)
1631 {
1632     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1633
1634     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1635 }
1636
1637 static HRESULT WINAPI HTMLWindow3_GetIDsOfNames(IHTMLWindow3 *iface, REFIID riid,
1638                                                 LPOLESTR *rgszNames, UINT cNames,
1639                                                 LCID lcid, DISPID *rgDispId)
1640 {
1641     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1642
1643     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
1644             rgDispId);
1645 }
1646
1647 static HRESULT WINAPI HTMLWindow3_Invoke(IHTMLWindow3 *iface, DISPID dispIdMember,
1648                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1649                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1650 {
1651     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1652
1653     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
1654             pDispParams, pVarResult, pExcepInfo, puArgErr);
1655 }
1656
1657 static HRESULT WINAPI HTMLWindow3_get_screenLeft(IHTMLWindow3 *iface, LONG *p)
1658 {
1659     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1660     nsresult nsres;
1661
1662     TRACE("(%p)->(%p)\n", This, p);
1663
1664     nsres = nsIDOMWindow_GetScreenX(This->outer_window->nswindow, p);
1665     if(NS_FAILED(nsres)) {
1666         ERR("GetScreenX failed: %08x\n", nsres);
1667         return E_FAIL;
1668     }
1669
1670     return S_OK;
1671 }
1672
1673 static HRESULT WINAPI HTMLWindow3_get_screenTop(IHTMLWindow3 *iface, LONG *p)
1674 {
1675     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1676     nsresult nsres;
1677
1678     TRACE("(%p)->(%p)\n", This, p);
1679
1680     nsres = nsIDOMWindow_GetScreenY(This->outer_window->nswindow, p);
1681     if(NS_FAILED(nsres)) {
1682         ERR("GetScreenY failed: %08x\n", nsres);
1683         return E_FAIL;
1684     }
1685
1686     return S_OK;
1687 }
1688
1689 static HRESULT WINAPI HTMLWindow3_attachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp, VARIANT_BOOL *pfResult)
1690 {
1691     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1692     HTMLInnerWindow *window = This->inner_window;
1693
1694     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(event), pDisp, pfResult);
1695
1696     if(!window->doc) {
1697         FIXME("No document\n");
1698         return E_FAIL;
1699     }
1700
1701     return attach_event(&window->event_target, event, pDisp, pfResult);
1702 }
1703
1704 static HRESULT WINAPI HTMLWindow3_detachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp)
1705 {
1706     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1707     HTMLInnerWindow *window = This->inner_window;
1708
1709     TRACE("(%p)->()\n", This);
1710
1711     if(!window->doc) {
1712         FIXME("No document\n");
1713         return E_FAIL;
1714     }
1715
1716     return detach_event(&window->event_target, event, pDisp);
1717 }
1718
1719 static HRESULT window_set_timer(HTMLInnerWindow *This, VARIANT *expr, LONG msec, VARIANT *language,
1720         BOOL interval, LONG *timer_id)
1721 {
1722     IDispatch *disp = NULL;
1723     HRESULT hres;
1724
1725     switch(V_VT(expr)) {
1726     case VT_DISPATCH:
1727         disp = V_DISPATCH(expr);
1728         IDispatch_AddRef(disp);
1729         break;
1730
1731     case VT_BSTR:
1732         disp = script_parse_event(This->base.inner_window, V_BSTR(expr));
1733         break;
1734
1735     default:
1736         FIXME("unimplemented expr %s\n", debugstr_variant(expr));
1737         return E_NOTIMPL;
1738     }
1739
1740     if(!disp)
1741         return E_FAIL;
1742
1743     hres = set_task_timer(This, msec, interval, disp, timer_id);
1744     IDispatch_Release(disp);
1745
1746     return hres;
1747 }
1748
1749 static HRESULT WINAPI HTMLWindow3_setTimeout(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1750         VARIANT *language, LONG *timerID)
1751 {
1752     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1753
1754     TRACE("(%p)->(%s %d %s %p)\n", This, debugstr_variant(expression), msec, debugstr_variant(language), timerID);
1755
1756     return window_set_timer(This->inner_window, expression, msec, language, FALSE, timerID);
1757 }
1758
1759 static HRESULT WINAPI HTMLWindow3_setInterval(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1760         VARIANT *language, LONG *timerID)
1761 {
1762     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1763
1764     TRACE("(%p)->(%p %d %p %p)\n", This, expression, msec, language, timerID);
1765
1766     return window_set_timer(This->inner_window, expression, msec, language, TRUE, timerID);
1767 }
1768
1769 static HRESULT WINAPI HTMLWindow3_print(IHTMLWindow3 *iface)
1770 {
1771     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1772     FIXME("(%p)\n", This);
1773     return E_NOTIMPL;
1774 }
1775
1776 static HRESULT WINAPI HTMLWindow3_put_onbeforeprint(IHTMLWindow3 *iface, VARIANT v)
1777 {
1778     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1779     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1780     return E_NOTIMPL;
1781 }
1782
1783 static HRESULT WINAPI HTMLWindow3_get_onbeforeprint(IHTMLWindow3 *iface, VARIANT *p)
1784 {
1785     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1786     FIXME("(%p)->(%p)\n", This, p);
1787     return E_NOTIMPL;
1788 }
1789
1790 static HRESULT WINAPI HTMLWindow3_put_onafterprint(IHTMLWindow3 *iface, VARIANT v)
1791 {
1792     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1793     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1794     return E_NOTIMPL;
1795 }
1796
1797 static HRESULT WINAPI HTMLWindow3_get_onafterprint(IHTMLWindow3 *iface, VARIANT *p)
1798 {
1799     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1800     FIXME("(%p)->(%p)\n", This, p);
1801     return E_NOTIMPL;
1802 }
1803
1804 static HRESULT WINAPI HTMLWindow3_get_clipboardData(IHTMLWindow3 *iface, IHTMLDataTransfer **p)
1805 {
1806     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1807     FIXME("(%p)->(%p)\n", This, p);
1808     return E_NOTIMPL;
1809 }
1810
1811 static HRESULT WINAPI HTMLWindow3_showModelessDialog(IHTMLWindow3 *iface, BSTR url,
1812         VARIANT *varArgIn, VARIANT *options, IHTMLWindow2 **pDialog)
1813 {
1814     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1815     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(url), varArgIn, options, pDialog);
1816     return E_NOTIMPL;
1817 }
1818
1819 static const IHTMLWindow3Vtbl HTMLWindow3Vtbl = {
1820     HTMLWindow3_QueryInterface,
1821     HTMLWindow3_AddRef,
1822     HTMLWindow3_Release,
1823     HTMLWindow3_GetTypeInfoCount,
1824     HTMLWindow3_GetTypeInfo,
1825     HTMLWindow3_GetIDsOfNames,
1826     HTMLWindow3_Invoke,
1827     HTMLWindow3_get_screenLeft,
1828     HTMLWindow3_get_screenTop,
1829     HTMLWindow3_attachEvent,
1830     HTMLWindow3_detachEvent,
1831     HTMLWindow3_setTimeout,
1832     HTMLWindow3_setInterval,
1833     HTMLWindow3_print,
1834     HTMLWindow3_put_onbeforeprint,
1835     HTMLWindow3_get_onbeforeprint,
1836     HTMLWindow3_put_onafterprint,
1837     HTMLWindow3_get_onafterprint,
1838     HTMLWindow3_get_clipboardData,
1839     HTMLWindow3_showModelessDialog
1840 };
1841
1842 static inline HTMLWindow *impl_from_IHTMLWindow4(IHTMLWindow4 *iface)
1843 {
1844     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow4_iface);
1845 }
1846
1847 static HRESULT WINAPI HTMLWindow4_QueryInterface(IHTMLWindow4 *iface, REFIID riid, void **ppv)
1848 {
1849     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1850
1851     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1852 }
1853
1854 static ULONG WINAPI HTMLWindow4_AddRef(IHTMLWindow4 *iface)
1855 {
1856     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1857
1858     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1859 }
1860
1861 static ULONG WINAPI HTMLWindow4_Release(IHTMLWindow4 *iface)
1862 {
1863     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1864
1865     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1866 }
1867
1868 static HRESULT WINAPI HTMLWindow4_GetTypeInfoCount(IHTMLWindow4 *iface, UINT *pctinfo)
1869 {
1870     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1871
1872     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1873 }
1874
1875 static HRESULT WINAPI HTMLWindow4_GetTypeInfo(IHTMLWindow4 *iface, UINT iTInfo,
1876                                               LCID lcid, ITypeInfo **ppTInfo)
1877 {
1878     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1879
1880     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1881 }
1882
1883 static HRESULT WINAPI HTMLWindow4_GetIDsOfNames(IHTMLWindow4 *iface, REFIID riid,
1884                                                 LPOLESTR *rgszNames, UINT cNames,
1885                                                 LCID lcid, DISPID *rgDispId)
1886 {
1887     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1888
1889     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
1890             rgDispId);
1891 }
1892
1893 static HRESULT WINAPI HTMLWindow4_Invoke(IHTMLWindow4 *iface, DISPID dispIdMember,
1894                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1895                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1896 {
1897     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1898
1899     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
1900             pDispParams, pVarResult, pExcepInfo, puArgErr);
1901 }
1902
1903 static HRESULT WINAPI HTMLWindow4_createPopup(IHTMLWindow4 *iface, VARIANT *varArgIn,
1904                             IDispatch **ppPopup)
1905 {
1906     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1907     FIXME("(%p)->(%p %p)\n", This, varArgIn, ppPopup);
1908     return E_NOTIMPL;
1909 }
1910
1911 static HRESULT WINAPI HTMLWindow4_get_frameElement(IHTMLWindow4 *iface, IHTMLFrameBase **p)
1912 {
1913     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1914     TRACE("(%p)->(%p)\n", This, p);
1915
1916     if(This->outer_window->frame_element) {
1917         *p = &This->outer_window->frame_element->IHTMLFrameBase_iface;
1918         IHTMLFrameBase_AddRef(*p);
1919     }else
1920         *p = NULL;
1921
1922     return S_OK;
1923 }
1924
1925 static const IHTMLWindow4Vtbl HTMLWindow4Vtbl = {
1926     HTMLWindow4_QueryInterface,
1927     HTMLWindow4_AddRef,
1928     HTMLWindow4_Release,
1929     HTMLWindow4_GetTypeInfoCount,
1930     HTMLWindow4_GetTypeInfo,
1931     HTMLWindow4_GetIDsOfNames,
1932     HTMLWindow4_Invoke,
1933     HTMLWindow4_createPopup,
1934     HTMLWindow4_get_frameElement
1935 };
1936
1937 static inline HTMLWindow *impl_from_IHTMLWindow5(IHTMLWindow5 *iface)
1938 {
1939     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow5_iface);
1940 }
1941
1942 static HRESULT WINAPI HTMLWindow5_QueryInterface(IHTMLWindow5 *iface, REFIID riid, void **ppv)
1943 {
1944     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1945
1946     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1947 }
1948
1949 static ULONG WINAPI HTMLWindow5_AddRef(IHTMLWindow5 *iface)
1950 {
1951     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1952
1953     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1954 }
1955
1956 static ULONG WINAPI HTMLWindow5_Release(IHTMLWindow5 *iface)
1957 {
1958     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1959
1960     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1961 }
1962
1963 static HRESULT WINAPI HTMLWindow5_GetTypeInfoCount(IHTMLWindow5 *iface, UINT *pctinfo)
1964 {
1965     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1966
1967     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1968 }
1969
1970 static HRESULT WINAPI HTMLWindow5_GetTypeInfo(IHTMLWindow5 *iface, UINT iTInfo,
1971         LCID lcid, ITypeInfo **ppTInfo)
1972 {
1973     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1974
1975     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1976 }
1977
1978 static HRESULT WINAPI HTMLWindow5_GetIDsOfNames(IHTMLWindow5 *iface, REFIID riid,
1979         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
1980 {
1981     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1982
1983     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
1984             rgDispId);
1985 }
1986
1987 static HRESULT WINAPI HTMLWindow5_Invoke(IHTMLWindow5 *iface, DISPID dispIdMember,
1988         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1989         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1990 {
1991     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1992
1993     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
1994             pDispParams, pVarResult, pExcepInfo, puArgErr);
1995 }
1996
1997 static HRESULT WINAPI HTMLWindow5_put_XMLHttpRequest(IHTMLWindow5 *iface, VARIANT v)
1998 {
1999     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2000     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2001     return E_NOTIMPL;
2002 }
2003
2004 static HRESULT WINAPI HTMLWindow5_get_XMLHttpRequest(IHTMLWindow5 *iface, VARIANT *p)
2005 {
2006     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2007     HTMLInnerWindow *window = This->inner_window;
2008
2009     TRACE("(%p)->(%p)\n", This, p);
2010
2011     if(!window->xhr_factory) {
2012         HRESULT hres;
2013
2014         hres = HTMLXMLHttpRequestFactory_Create(window, &window->xhr_factory);
2015         if(FAILED(hres)) {
2016             return hres;
2017         }
2018     }
2019
2020     V_VT(p) = VT_DISPATCH;
2021     V_DISPATCH(p) = (IDispatch*)&window->xhr_factory->IHTMLXMLHttpRequestFactory_iface;
2022     IDispatch_AddRef(V_DISPATCH(p));
2023
2024     return S_OK;
2025 }
2026
2027 static const IHTMLWindow5Vtbl HTMLWindow5Vtbl = {
2028     HTMLWindow5_QueryInterface,
2029     HTMLWindow5_AddRef,
2030     HTMLWindow5_Release,
2031     HTMLWindow5_GetTypeInfoCount,
2032     HTMLWindow5_GetTypeInfo,
2033     HTMLWindow5_GetIDsOfNames,
2034     HTMLWindow5_Invoke,
2035     HTMLWindow5_put_XMLHttpRequest,
2036     HTMLWindow5_get_XMLHttpRequest
2037 };
2038
2039 static inline HTMLWindow *impl_from_IHTMLWindow6(IHTMLWindow6 *iface)
2040 {
2041     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow6_iface);
2042 }
2043
2044 static HRESULT WINAPI HTMLWindow6_QueryInterface(IHTMLWindow6 *iface, REFIID riid, void **ppv)
2045 {
2046     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2047
2048     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2049 }
2050
2051 static ULONG WINAPI HTMLWindow6_AddRef(IHTMLWindow6 *iface)
2052 {
2053     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2054
2055     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2056 }
2057
2058 static ULONG WINAPI HTMLWindow6_Release(IHTMLWindow6 *iface)
2059 {
2060     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2061
2062     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2063 }
2064
2065 static HRESULT WINAPI HTMLWindow6_GetTypeInfoCount(IHTMLWindow6 *iface, UINT *pctinfo)
2066 {
2067     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2068
2069     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
2070 }
2071
2072 static HRESULT WINAPI HTMLWindow6_GetTypeInfo(IHTMLWindow6 *iface, UINT iTInfo,
2073                                               LCID lcid, ITypeInfo **ppTInfo)
2074 {
2075     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2076
2077     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2078 }
2079
2080 static HRESULT WINAPI HTMLWindow6_GetIDsOfNames(IHTMLWindow6 *iface, REFIID riid,
2081                                                 LPOLESTR *rgszNames, UINT cNames,
2082                                                 LCID lcid, DISPID *rgDispId)
2083 {
2084     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2085
2086     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
2087             rgDispId);
2088 }
2089
2090 static HRESULT WINAPI HTMLWindow6_Invoke(IHTMLWindow6 *iface, DISPID dispIdMember,
2091                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2092                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2093 {
2094     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2095
2096     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
2097             pDispParams, pVarResult, pExcepInfo, puArgErr);
2098 }
2099
2100 static HRESULT WINAPI HTMLWindow6_put_XDomainRequest(IHTMLWindow6 *iface, VARIANT v)
2101 {
2102     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2103     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2104     return E_NOTIMPL;
2105 }
2106
2107 static HRESULT WINAPI HTMLWindow6_get_XDomainRequest(IHTMLWindow6 *iface, VARIANT *p)
2108 {
2109     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2110     FIXME("(%p)->(%p)\n", This, p);
2111     return E_NOTIMPL;
2112 }
2113
2114 static HRESULT WINAPI HTMLWindow6_get_sessionStorage(IHTMLWindow6 *iface, IHTMLStorage **p)
2115 {
2116     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2117
2118     FIXME("(%p)->(%p)\n", This, p);
2119
2120     if(!This->inner_window->session_storage) {
2121         HRESULT hres;
2122
2123         hres = create_storage(&This->inner_window->session_storage);
2124         if(FAILED(hres))
2125             return hres;
2126     }
2127
2128     IHTMLStorage_AddRef(This->inner_window->session_storage);
2129     *p = This->inner_window->session_storage;
2130     return S_OK;
2131 }
2132
2133 static HRESULT WINAPI HTMLWindow6_get_localStorage(IHTMLWindow6 *iface, IHTMLStorage **p)
2134 {
2135     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2136     FIXME("(%p)->(%p)\n", This, p);
2137     return E_NOTIMPL;
2138 }
2139
2140 static HRESULT WINAPI HTMLWindow6_put_onhashchange(IHTMLWindow6 *iface, VARIANT v)
2141 {
2142     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2143     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2144     return E_NOTIMPL;
2145 }
2146
2147 static HRESULT WINAPI HTMLWindow6_get_onhashchange(IHTMLWindow6 *iface, VARIANT *p)
2148 {
2149     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2150     FIXME("(%p)->(%p)\n", This, p);
2151     return E_NOTIMPL;
2152 }
2153
2154 static HRESULT WINAPI HTMLWindow6_get_maxConnectionsPerServer(IHTMLWindow6 *iface, LONG *p)
2155 {
2156     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2157     FIXME("(%p)->(%p)\n", This, p);
2158     return E_NOTIMPL;
2159 }
2160
2161 static HRESULT WINAPI HTMLWindow6_postMessage(IHTMLWindow6 *iface, BSTR msg, VARIANT targetOrigin)
2162 {
2163     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2164     DOMEvent *event;
2165     HRESULT hres;
2166
2167     FIXME("(%p)->(%s %s) semi-stub\n", This, debugstr_w(msg), debugstr_variant(&targetOrigin));
2168
2169     if(!This->inner_window->doc) {
2170         FIXME("No document\n");
2171         return E_FAIL;
2172     }
2173
2174     hres = create_document_event(This->inner_window->doc, EVENTID_MESSAGE, &event);
2175     if(FAILED(hres))
2176         return hres;
2177
2178     dispatch_event(&This->inner_window->event_target, event);
2179     IDOMEvent_Release(&event->IDOMEvent_iface);
2180     return S_OK;
2181 }
2182
2183 static HRESULT WINAPI HTMLWindow6_toStaticHTML(IHTMLWindow6 *iface, BSTR bstrHTML, BSTR *pbstrStaticHTML)
2184 {
2185     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2186     FIXME("(%p)->(%s %p)\n", This, debugstr_w(bstrHTML), pbstrStaticHTML);
2187     return E_NOTIMPL;
2188 }
2189
2190 static HRESULT WINAPI HTMLWindow6_put_onmessage(IHTMLWindow6 *iface, VARIANT v)
2191 {
2192     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2193
2194     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
2195
2196     return set_window_event(This, EVENTID_MESSAGE, &v);
2197 }
2198
2199 static HRESULT WINAPI HTMLWindow6_get_onmessage(IHTMLWindow6 *iface, VARIANT *p)
2200 {
2201     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2202
2203     TRACE("(%p)->(%p)\n", This, p);
2204
2205     return get_window_event(This, EVENTID_MESSAGE, p);
2206 }
2207
2208 static HRESULT WINAPI HTMLWindow6_msWriteProfilerMark(IHTMLWindow6 *iface, BSTR bstrProfilerMark)
2209 {
2210     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2211     FIXME("(%p)->(%s)\n", This, debugstr_w(bstrProfilerMark));
2212     return E_NOTIMPL;
2213 }
2214
2215 static const IHTMLWindow6Vtbl HTMLWindow6Vtbl = {
2216     HTMLWindow6_QueryInterface,
2217     HTMLWindow6_AddRef,
2218     HTMLWindow6_Release,
2219     HTMLWindow6_GetTypeInfoCount,
2220     HTMLWindow6_GetTypeInfo,
2221     HTMLWindow6_GetIDsOfNames,
2222     HTMLWindow6_Invoke,
2223     HTMLWindow6_put_XDomainRequest,
2224     HTMLWindow6_get_XDomainRequest,
2225     HTMLWindow6_get_sessionStorage,
2226     HTMLWindow6_get_localStorage,
2227     HTMLWindow6_put_onhashchange,
2228     HTMLWindow6_get_onhashchange,
2229     HTMLWindow6_get_maxConnectionsPerServer,
2230     HTMLWindow6_postMessage,
2231     HTMLWindow6_toStaticHTML,
2232     HTMLWindow6_put_onmessage,
2233     HTMLWindow6_get_onmessage,
2234     HTMLWindow6_msWriteProfilerMark
2235 };
2236
2237 static inline HTMLWindow *impl_from_IHTMLPrivateWindow(IHTMLPrivateWindow *iface)
2238 {
2239     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLPrivateWindow_iface);
2240 }
2241
2242 static HRESULT WINAPI HTMLPrivateWindow_QueryInterface(IHTMLPrivateWindow *iface, REFIID riid, void **ppv)
2243 {
2244     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2245
2246     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2247 }
2248
2249 static ULONG WINAPI HTMLPrivateWindow_AddRef(IHTMLPrivateWindow *iface)
2250 {
2251     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2252
2253     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2254 }
2255
2256 static ULONG WINAPI HTMLPrivateWindow_Release(IHTMLPrivateWindow *iface)
2257 {
2258     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2259
2260     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2261 }
2262
2263 static HRESULT WINAPI HTMLPrivateWindow_SuperNavigate(IHTMLPrivateWindow *iface, BSTR url, BSTR arg2, BSTR arg3,
2264         BSTR arg4, VARIANT *post_data_var, VARIANT *headers_var, ULONG flags)
2265 {
2266     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2267     HTMLOuterWindow *window = This->outer_window;
2268     OLECHAR *translated_url = NULL;
2269     DWORD post_data_size = 0;
2270     BYTE *post_data = NULL;
2271     WCHAR *headers = NULL;
2272     IUri *uri;
2273     HRESULT hres;
2274
2275     TRACE("(%p)->(%s %s %s %s %s %s %x)\n", This, debugstr_w(url), debugstr_w(arg2), debugstr_w(arg3), debugstr_w(arg4),
2276           debugstr_variant(post_data_var), debugstr_variant(headers_var), flags);
2277
2278     if(window->doc_obj->hostui) {
2279         hres = IDocHostUIHandler_TranslateUrl(window->doc_obj->hostui, 0, url, &translated_url);
2280         if(hres != S_OK)
2281             translated_url = NULL;
2282     }
2283
2284     hres = create_uri(translated_url ? translated_url : url, 0, &uri);
2285     CoTaskMemFree(translated_url);
2286     if(FAILED(hres))
2287         return hres;
2288
2289     if(post_data_var) {
2290         if(V_VT(post_data_var) == (VT_ARRAY|VT_UI1)) {
2291             SafeArrayAccessData(V_ARRAY(post_data_var), (void**)&post_data);
2292             post_data_size = V_ARRAY(post_data_var)->rgsabound[0].cElements;
2293         }
2294     }
2295
2296     if(headers_var && V_VT(headers_var) != VT_EMPTY && V_VT(headers_var) != VT_ERROR) {
2297         if(V_VT(headers_var) != VT_BSTR)
2298             return E_INVALIDARG;
2299
2300         headers = V_BSTR(headers_var);
2301     }
2302
2303     hres = super_navigate(window, uri, BINDING_NAVIGATED|BINDING_NOFRAG, headers, post_data, post_data_size);
2304     IUri_Release(uri);
2305     if(post_data)
2306         SafeArrayUnaccessData(V_ARRAY(post_data_var));
2307
2308     return hres;
2309 }
2310
2311 static HRESULT WINAPI HTMLPrivateWindow_GetPendingUrl(IHTMLPrivateWindow *iface, BSTR *url)
2312 {
2313     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2314     FIXME("(%p)->(%p)\n", This, url);
2315     return E_NOTIMPL;
2316 }
2317
2318 static HRESULT WINAPI HTMLPrivateWindow_SetPICSTarget(IHTMLPrivateWindow *iface, IOleCommandTarget *cmdtrg)
2319 {
2320     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2321     FIXME("(%p)->(%p)\n", This, cmdtrg);
2322     return E_NOTIMPL;
2323 }
2324
2325 static HRESULT WINAPI HTMLPrivateWindow_PICSComplete(IHTMLPrivateWindow *iface, int arg)
2326 {
2327     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2328     FIXME("(%p)->(%x)\n", This, arg);
2329     return E_NOTIMPL;
2330 }
2331
2332 static HRESULT WINAPI HTMLPrivateWindow_FindWindowByName(IHTMLPrivateWindow *iface, LPCWSTR name, IHTMLWindow2 **ret)
2333 {
2334     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2335     FIXME("(%p)->(%s %p)\n", This, debugstr_w(name), ret);
2336     return E_NOTIMPL;
2337 }
2338
2339 static HRESULT WINAPI HTMLPrivateWindow_GetAddressBarUrl(IHTMLPrivateWindow *iface, BSTR *url)
2340 {
2341     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2342     TRACE("(%p)->(%p)\n", This, url);
2343
2344     if(!url)
2345         return E_INVALIDARG;
2346
2347     *url = SysAllocString(This->outer_window->url);
2348     return S_OK;
2349 }
2350
2351 static const IHTMLPrivateWindowVtbl HTMLPrivateWindowVtbl = {
2352     HTMLPrivateWindow_QueryInterface,
2353     HTMLPrivateWindow_AddRef,
2354     HTMLPrivateWindow_Release,
2355     HTMLPrivateWindow_SuperNavigate,
2356     HTMLPrivateWindow_GetPendingUrl,
2357     HTMLPrivateWindow_SetPICSTarget,
2358     HTMLPrivateWindow_PICSComplete,
2359     HTMLPrivateWindow_FindWindowByName,
2360     HTMLPrivateWindow_GetAddressBarUrl
2361 };
2362
2363 static inline HTMLWindow *impl_from_ITravelLogClient(ITravelLogClient *iface)
2364 {
2365     return CONTAINING_RECORD(iface, HTMLWindow, ITravelLogClient_iface);
2366 }
2367
2368 static HRESULT WINAPI TravelLogClient_QueryInterface(ITravelLogClient *iface, REFIID riid, void **ppv)
2369 {
2370     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2371
2372     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2373 }
2374
2375 static ULONG WINAPI TravelLogClient_AddRef(ITravelLogClient *iface)
2376 {
2377     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2378
2379     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2380 }
2381
2382 static ULONG WINAPI TravelLogClient_Release(ITravelLogClient *iface)
2383 {
2384     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2385
2386     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2387 }
2388
2389 static HRESULT WINAPI TravelLogClient_FindWindowByIndex(ITravelLogClient *iface, DWORD dwID, IUnknown **ppunk)
2390 {
2391     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2392
2393     FIXME("(%p)->(%d %p) semi-stub\n", This, dwID, ppunk);
2394
2395     *ppunk = NULL;
2396     return E_FAIL;
2397 }
2398
2399 static HRESULT WINAPI TravelLogClient_GetWindowData(ITravelLogClient *iface, IStream *pStream, LPWINDOWDATA pWinData)
2400 {
2401     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2402     FIXME("(%p)->(%p %p)\n", This, pStream, pWinData);
2403     return E_NOTIMPL;
2404 }
2405
2406 static HRESULT WINAPI TravelLogClient_LoadHistoryPosition(ITravelLogClient *iface, LPWSTR pszUrlLocation, DWORD dwPosition)
2407 {
2408     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2409     FIXME("(%p)->(%s %d)\n", This, debugstr_w(pszUrlLocation), dwPosition);
2410     return E_NOTIMPL;
2411 }
2412
2413 static const ITravelLogClientVtbl TravelLogClientVtbl = {
2414     TravelLogClient_QueryInterface,
2415     TravelLogClient_AddRef,
2416     TravelLogClient_Release,
2417     TravelLogClient_FindWindowByIndex,
2418     TravelLogClient_GetWindowData,
2419     TravelLogClient_LoadHistoryPosition
2420 };
2421
2422 static inline HTMLWindow *impl_from_IObjectIdentity(IObjectIdentity *iface)
2423 {
2424     return CONTAINING_RECORD(iface, HTMLWindow, IObjectIdentity_iface);
2425 }
2426
2427 static HRESULT WINAPI ObjectIdentity_QueryInterface(IObjectIdentity *iface, REFIID riid, void **ppv)
2428 {
2429     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2430
2431     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2432 }
2433
2434 static ULONG WINAPI ObjectIdentity_AddRef(IObjectIdentity *iface)
2435 {
2436     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2437
2438     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2439 }
2440
2441 static ULONG WINAPI ObjectIdentity_Release(IObjectIdentity *iface)
2442 {
2443     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2444
2445     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2446 }
2447
2448 static HRESULT WINAPI ObjectIdentity_IsEqualObject(IObjectIdentity *iface, IUnknown *unk)
2449 {
2450     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2451     IServiceProvider *sp;
2452     HRESULT hres;
2453
2454     TRACE("(%p)->(%p)\n", This, unk);
2455
2456     hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&sp);
2457     if(hres != S_OK)
2458         return hres;
2459
2460     hres = &This->inner_window->base.IServiceProvider_iface==sp ||
2461         &This->outer_window->base.IServiceProvider_iface==sp ? S_OK : S_FALSE;
2462     IServiceProvider_Release(sp);
2463     return hres;
2464 }
2465
2466 static const IObjectIdentityVtbl ObjectIdentityVtbl = {
2467     ObjectIdentity_QueryInterface,
2468     ObjectIdentity_AddRef,
2469     ObjectIdentity_Release,
2470     ObjectIdentity_IsEqualObject
2471 };
2472
2473 static inline HTMLWindow *impl_from_IProvideMultipleClassInfo(IProvideMultipleClassInfo *iface)
2474 {
2475     return CONTAINING_RECORD(iface, HTMLWindow, IProvideMultipleClassInfo_iface);
2476 }
2477
2478 static HRESULT WINAPI ProvideClassInfo_QueryInterface(IProvideMultipleClassInfo *iface,
2479         REFIID riid, void **ppv)
2480 {
2481     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2482     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2483 }
2484
2485 static ULONG WINAPI ProvideClassInfo_AddRef(IProvideMultipleClassInfo *iface)
2486 {
2487     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2488     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2489 }
2490
2491 static ULONG WINAPI ProvideClassInfo_Release(IProvideMultipleClassInfo *iface)
2492 {
2493     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2494     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2495 }
2496
2497 static HRESULT WINAPI ProvideClassInfo_GetClassInfo(IProvideMultipleClassInfo *iface, ITypeInfo **ppTI)
2498 {
2499     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2500     TRACE("(%p)->(%p)\n", This, ppTI);
2501     return get_class_typeinfo(&CLSID_HTMLWindow2, ppTI);
2502 }
2503
2504 static HRESULT WINAPI ProvideClassInfo2_GetGUID(IProvideMultipleClassInfo *iface, DWORD dwGuidKind, GUID *pGUID)
2505 {
2506     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2507     FIXME("(%p)->(%u %p)\n", This, dwGuidKind, pGUID);
2508     return E_NOTIMPL;
2509 }
2510
2511 static HRESULT WINAPI ProvideMultipleClassInfo_GetMultiTypeInfoCount(IProvideMultipleClassInfo *iface, ULONG *pcti)
2512 {
2513     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2514     FIXME("(%p)->(%p)\n", This, pcti);
2515     *pcti = 1;
2516     return S_OK;
2517 }
2518
2519 static HRESULT WINAPI ProvideMultipleClassInfo_GetInfoOfIndex(IProvideMultipleClassInfo *iface, ULONG iti,
2520         DWORD dwFlags, ITypeInfo **pptiCoClass, DWORD *pdwTIFlags, ULONG *pcdispidReserved, IID *piidPrimary, IID *piidSource)
2521 {
2522     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2523     FIXME("(%p)->(%u %x %p %p %p %p %p)\n", This, iti, dwFlags, pptiCoClass, pdwTIFlags, pcdispidReserved, piidPrimary, piidSource);
2524     return E_NOTIMPL;
2525 }
2526
2527 static const IProvideMultipleClassInfoVtbl ProvideMultipleClassInfoVtbl = {
2528     ProvideClassInfo_QueryInterface,
2529     ProvideClassInfo_AddRef,
2530     ProvideClassInfo_Release,
2531     ProvideClassInfo_GetClassInfo,
2532     ProvideClassInfo2_GetGUID,
2533     ProvideMultipleClassInfo_GetMultiTypeInfoCount,
2534     ProvideMultipleClassInfo_GetInfoOfIndex
2535 };
2536
2537 static inline HTMLWindow *impl_from_IDispatchEx(IDispatchEx *iface)
2538 {
2539     return CONTAINING_RECORD(iface, HTMLWindow, IDispatchEx_iface);
2540 }
2541
2542 static HRESULT WINAPI WindowDispEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
2543 {
2544     HTMLWindow *This = impl_from_IDispatchEx(iface);
2545
2546     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2547 }
2548
2549 static ULONG WINAPI WindowDispEx_AddRef(IDispatchEx *iface)
2550 {
2551     HTMLWindow *This = impl_from_IDispatchEx(iface);
2552
2553     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2554 }
2555
2556 static ULONG WINAPI WindowDispEx_Release(IDispatchEx *iface)
2557 {
2558     HTMLWindow *This = impl_from_IDispatchEx(iface);
2559
2560     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2561 }
2562
2563 static HRESULT WINAPI WindowDispEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
2564 {
2565     HTMLWindow *This = impl_from_IDispatchEx(iface);
2566
2567     TRACE("(%p)->(%p)\n", This, pctinfo);
2568
2569     return IDispatchEx_GetTypeInfoCount(&This->inner_window->event_target.dispex.IDispatchEx_iface, pctinfo);
2570 }
2571
2572 static HRESULT WINAPI WindowDispEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
2573                                                LCID lcid, ITypeInfo **ppTInfo)
2574 {
2575     HTMLWindow *This = impl_from_IDispatchEx(iface);
2576
2577     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
2578
2579     return IDispatchEx_GetTypeInfo(&This->inner_window->event_target.dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2580 }
2581
2582 static HRESULT WINAPI WindowDispEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
2583                                                  LPOLESTR *rgszNames, UINT cNames,
2584                                                  LCID lcid, DISPID *rgDispId)
2585 {
2586     HTMLWindow *This = impl_from_IDispatchEx(iface);
2587     UINT i;
2588     HRESULT hres;
2589
2590     WARN("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames, lcid, rgDispId);
2591
2592     for(i=0; i < cNames; i++) {
2593         /* We shouldn't use script's IDispatchEx here, so we shouldn't use GetDispID */
2594         hres = IDispatchEx_GetDispID(&This->IDispatchEx_iface, rgszNames[i], 0, rgDispId+i);
2595         if(FAILED(hres))
2596             return hres;
2597     }
2598
2599     return S_OK;
2600 }
2601
2602 static HRESULT WINAPI WindowDispEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
2603                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2604                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2605 {
2606     HTMLWindow *This = impl_from_IDispatchEx(iface);
2607
2608     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
2609           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
2610
2611     /* FIXME: Use script dispatch */
2612
2613     return IDispatchEx_Invoke(&This->inner_window->event_target.dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
2614             pDispParams, pVarResult, pExcepInfo, puArgErr);
2615 }
2616
2617 static global_prop_t *alloc_global_prop(HTMLInnerWindow *This, global_prop_type_t type, BSTR name)
2618 {
2619     if(This->global_prop_cnt == This->global_prop_size) {
2620         global_prop_t *new_props;
2621         DWORD new_size;
2622
2623         if(This->global_props) {
2624             new_size = This->global_prop_size*2;
2625             new_props = heap_realloc(This->global_props, new_size*sizeof(global_prop_t));
2626         }else {
2627             new_size = 16;
2628             new_props = heap_alloc(new_size*sizeof(global_prop_t));
2629         }
2630         if(!new_props)
2631             return NULL;
2632         This->global_props = new_props;
2633         This->global_prop_size = new_size;
2634     }
2635
2636     This->global_props[This->global_prop_cnt].name = heap_strdupW(name);
2637     if(!This->global_props[This->global_prop_cnt].name)
2638         return NULL;
2639
2640     This->global_props[This->global_prop_cnt].type = type;
2641     return This->global_props + This->global_prop_cnt++;
2642 }
2643
2644 static inline DWORD prop_to_dispid(HTMLInnerWindow *This, global_prop_t *prop)
2645 {
2646     return MSHTML_DISPID_CUSTOM_MIN + (prop-This->global_props);
2647 }
2648
2649 HRESULT search_window_props(HTMLInnerWindow *This, BSTR bstrName, DWORD grfdex, DISPID *pid)
2650 {
2651     DWORD i;
2652     ScriptHost *script_host;
2653     DISPID id;
2654
2655     for(i=0; i < This->global_prop_cnt; i++) {
2656         /* FIXME: case sensitivity */
2657         if(!strcmpW(This->global_props[i].name, bstrName)) {
2658             *pid = MSHTML_DISPID_CUSTOM_MIN+i;
2659             return S_OK;
2660         }
2661     }
2662
2663     if(find_global_prop(This->base.inner_window, bstrName, grfdex, &script_host, &id)) {
2664         global_prop_t *prop;
2665
2666         prop = alloc_global_prop(This, GLOBAL_SCRIPTVAR, bstrName);
2667         if(!prop)
2668             return E_OUTOFMEMORY;
2669
2670         prop->script_host = script_host;
2671         prop->id = id;
2672
2673         *pid = prop_to_dispid(This, prop);
2674         return S_OK;
2675     }
2676
2677     return DISP_E_UNKNOWNNAME;
2678 }
2679
2680 static HRESULT WINAPI WindowDispEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
2681 {
2682     HTMLWindow *This = impl_from_IDispatchEx(iface);
2683     HTMLInnerWindow *window = This->inner_window;
2684     HRESULT hres;
2685
2686     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
2687
2688     hres = search_window_props(window, bstrName, grfdex, pid);
2689     if(hres != DISP_E_UNKNOWNNAME)
2690         return hres;
2691
2692     hres = IDispatchEx_GetDispID(&window->base.inner_window->event_target.dispex.IDispatchEx_iface, bstrName, grfdex, pid);
2693     if(hres != DISP_E_UNKNOWNNAME)
2694         return hres;
2695
2696     if(This->outer_window) {
2697         HTMLOuterWindow *frame;
2698
2699         hres = get_frame_by_name(This->outer_window, bstrName, FALSE, &frame);
2700         if(SUCCEEDED(hres) && frame) {
2701             global_prop_t *prop;
2702
2703             IHTMLWindow2_Release(&frame->base.IHTMLWindow2_iface);
2704
2705             prop = alloc_global_prop(window, GLOBAL_FRAMEVAR, bstrName);
2706             if(!prop)
2707                 return E_OUTOFMEMORY;
2708
2709             *pid = prop_to_dispid(window, prop);
2710             return S_OK;
2711         }
2712     }
2713
2714     if(window->doc) {
2715         global_prop_t *prop;
2716         IHTMLElement *elem;
2717
2718         hres = IHTMLDocument3_getElementById(&window->base.inner_window->doc->basedoc.IHTMLDocument3_iface,
2719                                              bstrName, &elem);
2720         if(SUCCEEDED(hres) && elem) {
2721             IHTMLElement_Release(elem);
2722
2723             prop = alloc_global_prop(window, GLOBAL_ELEMENTVAR, bstrName);
2724             if(!prop)
2725                 return E_OUTOFMEMORY;
2726
2727             *pid = prop_to_dispid(window, prop);
2728             return S_OK;
2729         }
2730     }
2731
2732     return DISP_E_UNKNOWNNAME;
2733 }
2734
2735 static HRESULT WINAPI WindowDispEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
2736         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
2737 {
2738     HTMLWindow *This = impl_from_IDispatchEx(iface);
2739     HTMLInnerWindow *window = This->inner_window;
2740
2741     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
2742
2743     switch(id) {
2744     case DISPID_IHTMLWINDOW2_LOCATION: {
2745         HTMLLocation *location;
2746         HRESULT hres;
2747
2748         if(!(wFlags & DISPATCH_PROPERTYPUT))
2749             break;
2750
2751         TRACE("forwarding to location.href\n");
2752
2753         hres = get_location(window, &location);
2754         if(FAILED(hres))
2755             return hres;
2756
2757         hres = IDispatchEx_InvokeEx(&location->dispex.IDispatchEx_iface, DISPID_VALUE, lcid,
2758                 wFlags, pdp, pvarRes, pei, pspCaller);
2759         IHTMLLocation_Release(&location->IHTMLLocation_iface);
2760         return hres;
2761     }
2762     case DISPID_IHTMLWINDOW2_SETTIMEOUT:
2763     case DISPID_IHTMLWINDOW3_SETTIMEOUT: {
2764         VARIANT args[2];
2765         DISPPARAMS dp = {args, NULL, 2, 0};
2766
2767         /*
2768          * setTimeout calls should use default value 0 for the second argument if only one is provided,
2769          * but IDL file does not reflect that. We fixup arguments here instead.
2770          */
2771         if(!(wFlags & DISPATCH_METHOD) || pdp->cArgs != 1 || pdp->cNamedArgs)
2772             break;
2773
2774         TRACE("Fixing args\n");
2775
2776         V_VT(args) = VT_I4;
2777         V_I4(args) = 0;
2778         args[1] = *pdp->rgvarg;
2779         return IDispatchEx_InvokeEx(&window->event_target.dispex.IDispatchEx_iface, id, lcid,
2780                 wFlags, &dp, pvarRes, pei, pspCaller);
2781     }
2782     }
2783
2784     return IDispatchEx_InvokeEx(&window->event_target.dispex.IDispatchEx_iface, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
2785 }
2786
2787 static HRESULT WINAPI WindowDispEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
2788 {
2789     HTMLWindow *This = impl_from_IDispatchEx(iface);
2790
2791     TRACE("(%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
2792
2793     return IDispatchEx_DeleteMemberByName(&This->inner_window->event_target.dispex.IDispatchEx_iface, bstrName, grfdex);
2794 }
2795
2796 static HRESULT WINAPI WindowDispEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
2797 {
2798     HTMLWindow *This = impl_from_IDispatchEx(iface);
2799
2800     TRACE("(%p)->(%x)\n", This, id);
2801
2802     return IDispatchEx_DeleteMemberByDispID(&This->inner_window->event_target.dispex.IDispatchEx_iface, id);
2803 }
2804
2805 static HRESULT WINAPI WindowDispEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
2806 {
2807     HTMLWindow *This = impl_from_IDispatchEx(iface);
2808
2809     TRACE("(%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex);
2810
2811     return IDispatchEx_GetMemberProperties(&This->inner_window->event_target.dispex.IDispatchEx_iface, id, grfdexFetch,
2812             pgrfdex);
2813 }
2814
2815 static HRESULT WINAPI WindowDispEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
2816 {
2817     HTMLWindow *This = impl_from_IDispatchEx(iface);
2818
2819     TRACE("(%p)->(%x %p)\n", This, id, pbstrName);
2820
2821     return IDispatchEx_GetMemberName(&This->inner_window->event_target.dispex.IDispatchEx_iface, id, pbstrName);
2822 }
2823
2824 static HRESULT WINAPI WindowDispEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
2825 {
2826     HTMLWindow *This = impl_from_IDispatchEx(iface);
2827
2828     TRACE("(%p)->(%x %x %p)\n", This, grfdex, id, pid);
2829
2830     return IDispatchEx_GetNextDispID(&This->inner_window->event_target.dispex.IDispatchEx_iface, grfdex, id, pid);
2831 }
2832
2833 static HRESULT WINAPI WindowDispEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
2834 {
2835     HTMLWindow *This = impl_from_IDispatchEx(iface);
2836
2837     TRACE("(%p)->(%p)\n", This, ppunk);
2838
2839     *ppunk = NULL;
2840     return S_OK;
2841 }
2842
2843 static const IDispatchExVtbl WindowDispExVtbl = {
2844     WindowDispEx_QueryInterface,
2845     WindowDispEx_AddRef,
2846     WindowDispEx_Release,
2847     WindowDispEx_GetTypeInfoCount,
2848     WindowDispEx_GetTypeInfo,
2849     WindowDispEx_GetIDsOfNames,
2850     WindowDispEx_Invoke,
2851     WindowDispEx_GetDispID,
2852     WindowDispEx_InvokeEx,
2853     WindowDispEx_DeleteMemberByName,
2854     WindowDispEx_DeleteMemberByDispID,
2855     WindowDispEx_GetMemberProperties,
2856     WindowDispEx_GetMemberName,
2857     WindowDispEx_GetNextDispID,
2858     WindowDispEx_GetNameSpaceParent
2859 };
2860
2861 static inline HTMLWindow *impl_from_IServiceProvider(IServiceProvider *iface)
2862 {
2863     return CONTAINING_RECORD(iface, HTMLWindow, IServiceProvider_iface);
2864 }
2865
2866 static HRESULT WINAPI HTMLWindowSP_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
2867 {
2868     HTMLWindow *This = impl_from_IServiceProvider(iface);
2869     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2870 }
2871
2872 static ULONG WINAPI HTMLWindowSP_AddRef(IServiceProvider *iface)
2873 {
2874     HTMLWindow *This = impl_from_IServiceProvider(iface);
2875     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2876 }
2877
2878 static ULONG WINAPI HTMLWindowSP_Release(IServiceProvider *iface)
2879 {
2880     HTMLWindow *This = impl_from_IServiceProvider(iface);
2881     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2882 }
2883
2884 static HRESULT WINAPI HTMLWindowSP_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
2885 {
2886     HTMLWindow *This = impl_from_IServiceProvider(iface);
2887
2888     if(IsEqualGUID(guidService, &IID_IHTMLWindow2)) {
2889         TRACE("IID_IHTMLWindow2\n");
2890         return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2891     }
2892
2893     TRACE("(%p)->(%s %s %p)\n", This, debugstr_mshtml_guid(guidService), debugstr_mshtml_guid(riid), ppv);
2894
2895     if(!This->outer_window->doc_obj)
2896         return E_NOINTERFACE;
2897
2898     return IServiceProvider_QueryService(&This->outer_window->doc_obj->basedoc.IServiceProvider_iface,
2899             guidService, riid, ppv);
2900 }
2901
2902 static const IServiceProviderVtbl ServiceProviderVtbl = {
2903     HTMLWindowSP_QueryInterface,
2904     HTMLWindowSP_AddRef,
2905     HTMLWindowSP_Release,
2906     HTMLWindowSP_QueryService
2907 };
2908
2909 static inline HTMLInnerWindow *impl_from_DispatchEx(DispatchEx *iface)
2910 {
2911     return CONTAINING_RECORD(iface, HTMLInnerWindow, event_target.dispex);
2912 }
2913
2914 static HRESULT HTMLWindow_invoke(DispatchEx *dispex, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
2915         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
2916 {
2917     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
2918     global_prop_t *prop;
2919     DWORD idx;
2920     HRESULT hres;
2921
2922     idx = id - MSHTML_DISPID_CUSTOM_MIN;
2923     if(idx >= This->global_prop_cnt)
2924         return DISP_E_MEMBERNOTFOUND;
2925
2926     prop = This->global_props+idx;
2927
2928     switch(prop->type) {
2929     case GLOBAL_SCRIPTVAR: {
2930         IDispatchEx *iface;
2931         IDispatch *disp;
2932
2933         disp = get_script_disp(prop->script_host);
2934         if(!disp)
2935             return E_UNEXPECTED;
2936
2937         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&iface);
2938         if(SUCCEEDED(hres)) {
2939             TRACE("%s >>>\n", debugstr_w(prop->name));
2940             hres = IDispatchEx_InvokeEx(iface, prop->id, lcid, flags, params, res, ei, caller);
2941             if(hres == S_OK)
2942                 TRACE("%s <<<\n", debugstr_w(prop->name));
2943             else
2944                 WARN("%s <<< %08x\n", debugstr_w(prop->name), hres);
2945             IDispatchEx_Release(iface);
2946         }else {
2947             FIXME("No IDispatchEx\n");
2948         }
2949         IDispatch_Release(disp);
2950         break;
2951     }
2952     case GLOBAL_ELEMENTVAR:
2953         switch(flags) {
2954         case DISPATCH_PROPERTYGET|DISPATCH_METHOD:
2955         case DISPATCH_PROPERTYGET: {
2956             IHTMLElement *elem;
2957
2958             hres = IHTMLDocument3_getElementById(&This->base.inner_window->doc->basedoc.IHTMLDocument3_iface,
2959                     prop->name, &elem);
2960             if(FAILED(hres))
2961                 return hres;
2962
2963             if(!elem)
2964                 return DISP_E_MEMBERNOTFOUND;
2965
2966             V_VT(res) = VT_DISPATCH;
2967             V_DISPATCH(res) = (IDispatch*)elem;
2968             return S_OK;
2969         }
2970         case DISPATCH_PROPERTYPUT: {
2971             DISPID dispex_id;
2972
2973             hres = dispex_get_dynid(&This->event_target.dispex, prop->name, &dispex_id);
2974             if(FAILED(hres))
2975                 return hres;
2976
2977             prop->type = GLOBAL_DISPEXVAR;
2978             prop->id = dispex_id;
2979             return IDispatchEx_InvokeEx(&This->event_target.dispex.IDispatchEx_iface, dispex_id, 0, flags, params, res, ei, caller);
2980         }
2981         default:
2982             FIXME("Not supported flags: %x\n", flags);
2983             return E_NOTIMPL;
2984         }
2985     case GLOBAL_FRAMEVAR:
2986         if(!This->base.outer_window)
2987             return E_UNEXPECTED;
2988
2989         switch(flags) {
2990         case DISPATCH_PROPERTYGET: {
2991             HTMLOuterWindow *frame;
2992
2993             hres = get_frame_by_name(This->base.outer_window, prop->name, FALSE, &frame);
2994             if(FAILED(hres))
2995                 return hres;
2996
2997             if(!frame)
2998                 return DISP_E_MEMBERNOTFOUND;
2999
3000             V_VT(res) = VT_DISPATCH;
3001             V_DISPATCH(res) = (IDispatch*)&frame->base.inner_window->base.IHTMLWindow2_iface;
3002             IDispatch_AddRef(V_DISPATCH(res));
3003             return S_OK;
3004         }
3005         default:
3006             FIXME("Not supported flags: %x\n", flags);
3007             return E_NOTIMPL;
3008         }
3009     case GLOBAL_DISPEXVAR:
3010         return IDispatchEx_InvokeEx(&This->event_target.dispex.IDispatchEx_iface, prop->id, 0, flags, params, res, ei, caller);
3011     default:
3012         ERR("invalid type %d\n", prop->type);
3013         hres = DISP_E_MEMBERNOTFOUND;
3014     }
3015
3016     return hres;
3017 }
3018
3019 static compat_mode_t HTMLWindow_get_compat_mode(DispatchEx *dispex)
3020 {
3021     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3022     return lock_document_mode(This->doc);
3023 }
3024
3025 static nsISupports *HTMLWindow_get_gecko_target(DispatchEx *dispex)
3026 {
3027     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3028     return (nsISupports*)This->base.outer_window->nswindow;
3029 }
3030
3031 static void HTMLWindow_bind_event(DispatchEx *dispex, eventid_t eid)
3032 {
3033     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3034     ensure_doc_nsevent_handler(This->doc, NULL, eid);
3035 }
3036
3037 static void HTMLWindow_init_dispex_info(dispex_data_t *info, compat_mode_t compat_mode)
3038 {
3039     dispex_info_add_interface(info, IHTMLWindow5_tid, NULL);
3040     EventTarget_init_dispex_info(info, compat_mode);
3041 }
3042
3043 static IHTMLEventObj *HTMLWindow_set_current_event(DispatchEx *dispex, IHTMLEventObj *event)
3044 {
3045     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3046     return default_set_current_event(This, event);
3047 }
3048
3049 static const event_target_vtbl_t HTMLWindow_event_target_vtbl = {
3050     {
3051         NULL,
3052         NULL,
3053         HTMLWindow_invoke,
3054         HTMLWindow_get_compat_mode,
3055         NULL
3056     },
3057     HTMLWindow_get_gecko_target,
3058     HTMLWindow_bind_event,
3059     NULL,
3060     NULL,
3061     NULL,
3062     HTMLWindow_set_current_event
3063 };
3064
3065 static const tid_t HTMLWindow_iface_tids[] = {
3066     IHTMLWindow2_tid,
3067     IHTMLWindow3_tid,
3068     IHTMLWindow4_tid,
3069     IHTMLWindow6_tid,
3070     0
3071 };
3072
3073 static dispex_static_data_t HTMLWindow_dispex = {
3074     &HTMLWindow_event_target_vtbl.dispex_vtbl,
3075     DispHTMLWindow2_tid,
3076     HTMLWindow_iface_tids,
3077     HTMLWindow_init_dispex_info
3078 };
3079
3080 static void *alloc_window(size_t size)
3081 {
3082     HTMLWindow *window;
3083
3084     window = heap_alloc_zero(size);
3085     if(!window)
3086         return NULL;
3087
3088     window->IHTMLWindow2_iface.lpVtbl = &HTMLWindow2Vtbl;
3089     window->IHTMLWindow3_iface.lpVtbl = &HTMLWindow3Vtbl;
3090     window->IHTMLWindow4_iface.lpVtbl = &HTMLWindow4Vtbl;
3091     window->IHTMLWindow5_iface.lpVtbl = &HTMLWindow5Vtbl;
3092     window->IHTMLWindow6_iface.lpVtbl = &HTMLWindow6Vtbl;
3093     window->IHTMLPrivateWindow_iface.lpVtbl = &HTMLPrivateWindowVtbl;
3094     window->IDispatchEx_iface.lpVtbl = &WindowDispExVtbl;
3095     window->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
3096     window->ITravelLogClient_iface.lpVtbl = &TravelLogClientVtbl;
3097     window->IObjectIdentity_iface.lpVtbl = &ObjectIdentityVtbl;
3098     window->IProvideMultipleClassInfo_iface.lpVtbl = &ProvideMultipleClassInfoVtbl;
3099     window->ref = 1;
3100
3101     return window;
3102 }
3103
3104 static HRESULT create_inner_window(HTMLOuterWindow *outer_window, IMoniker *mon, HTMLInnerWindow **ret)
3105 {
3106     HTMLInnerWindow *window;
3107
3108     window = alloc_window(sizeof(HTMLInnerWindow));
3109     if(!window)
3110         return E_OUTOFMEMORY;
3111
3112     list_init(&window->script_hosts);
3113     list_init(&window->bindings);
3114     list_init(&window->script_queue);
3115
3116     window->base.outer_window = outer_window;
3117     window->base.inner_window = window;
3118
3119     EventTarget_Init(&window->event_target, (IUnknown*)&window->base.IHTMLWindow2_iface,
3120                      &HTMLWindow_dispex, COMPAT_MODE_NONE);
3121
3122     window->task_magic = get_task_target_magic();
3123
3124     if(mon) {
3125         IMoniker_AddRef(mon);
3126         window->mon = mon;
3127     }
3128
3129     *ret = window;
3130     return S_OK;
3131 }
3132
3133 HRESULT HTMLOuterWindow_Create(HTMLDocumentObj *doc_obj, nsIDOMWindow *nswindow,
3134         HTMLOuterWindow *parent, HTMLOuterWindow **ret)
3135 {
3136     HTMLOuterWindow *window;
3137     HRESULT hres;
3138
3139     window = alloc_window(sizeof(HTMLOuterWindow));
3140     if(!window)
3141         return E_OUTOFMEMORY;
3142
3143     window->base.outer_window = window;
3144     window->base.inner_window = NULL;
3145
3146     window->window_ref = heap_alloc(sizeof(windowref_t));
3147     if(!window->window_ref) {
3148         heap_free(window);
3149         return E_OUTOFMEMORY;
3150     }
3151
3152     window->doc_obj = doc_obj;
3153
3154     window->window_ref->window = window;
3155     window->window_ref->ref = 1;
3156
3157     if(nswindow) {
3158         nsresult nsres;
3159
3160         nsIDOMWindow_AddRef(nswindow);
3161         window->nswindow = nswindow;
3162
3163         nsres = nsIDOMWindow_QueryInterface(nswindow, &IID_mozIDOMWindowProxy, (void**)&window->window_proxy);
3164         assert(nsres == NS_OK);
3165     }
3166
3167     window->scriptmode = parent ? parent->scriptmode : SCRIPTMODE_GECKO;
3168     window->readystate = READYSTATE_UNINITIALIZED;
3169     window->task_magic = get_task_target_magic();
3170
3171     list_init(&window->children);
3172     wine_rb_put(&window_map, window->window_proxy, &window->entry);
3173
3174     hres = create_pending_window(window, NULL);
3175     if(SUCCEEDED(hres))
3176         hres = update_window_doc(window->pending_window);
3177     if(FAILED(hres)) {
3178         IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
3179         return hres;
3180     }
3181
3182     hres = CoInternetCreateSecurityManager(NULL, &window->secmgr, 0);
3183     if(FAILED(hres)) {
3184         IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
3185         return hres;
3186     }
3187
3188     if(parent) {
3189         IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
3190
3191         window->parent = parent;
3192         list_add_tail(&parent->children, &window->sibling_entry);
3193     }
3194
3195     TRACE("%p inner_window %p\n", window, window->base.inner_window);
3196
3197     *ret = window;
3198     return S_OK;
3199 }
3200
3201 HRESULT create_pending_window(HTMLOuterWindow *outer_window, nsChannelBSC *channelbsc)
3202 {
3203     HTMLInnerWindow *pending_window;
3204     HRESULT hres;
3205
3206     hres = create_inner_window(outer_window, outer_window->mon /* FIXME */, &pending_window);
3207     if(FAILED(hres))
3208         return hres;
3209
3210     if(channelbsc) {
3211         IBindStatusCallback_AddRef(&channelbsc->bsc.IBindStatusCallback_iface);
3212         pending_window->bscallback = channelbsc;
3213     }
3214
3215     if(outer_window->pending_window) {
3216         abort_window_bindings(outer_window->pending_window);
3217         outer_window->pending_window->base.outer_window = NULL;
3218         IHTMLWindow2_Release(&outer_window->pending_window->base.IHTMLWindow2_iface);
3219     }
3220
3221     outer_window->pending_window = pending_window;
3222     return S_OK;
3223 }
3224
3225 HRESULT update_window_doc(HTMLInnerWindow *window)
3226 {
3227     HTMLOuterWindow *outer_window = window->base.outer_window;
3228     nsIDOMHTMLDocument *nshtmldoc;
3229     nsIDOMDocument *nsdoc;
3230     nsresult nsres;
3231     HRESULT hres;
3232
3233     assert(!window->doc);
3234
3235     if(!outer_window) {
3236         ERR("NULL outer window\n");
3237         return E_UNEXPECTED;
3238     }
3239
3240     nsres = nsIDOMWindow_GetDocument(outer_window->nswindow, &nsdoc);
3241     if(NS_FAILED(nsres) || !nsdoc) {
3242         ERR("GetDocument failed: %08x\n", nsres);
3243         return E_FAIL;
3244     }
3245
3246     nsres = nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMHTMLDocument, (void**)&nshtmldoc);
3247     nsIDOMDocument_Release(nsdoc);
3248     if(NS_FAILED(nsres)) {
3249         ERR("Could not get nsIDOMHTMLDocument iface: %08x\n", nsres);
3250         return E_FAIL;
3251     }
3252
3253     hres = create_doc_from_nsdoc(nshtmldoc, outer_window->doc_obj, window, &window->doc);
3254     nsIDOMHTMLDocument_Release(nshtmldoc);
3255     if(FAILED(hres))
3256         return hres;
3257
3258     if(outer_window->doc_obj->usermode == EDITMODE) {
3259         nsAString mode_str;
3260         nsresult nsres;
3261
3262         static const PRUnichar onW[] = {'o','n',0};
3263
3264         nsAString_InitDepend(&mode_str, onW);
3265         nsres = nsIDOMHTMLDocument_SetDesignMode(window->doc->nsdoc, &mode_str);
3266         nsAString_Finish(&mode_str);
3267         if(NS_FAILED(nsres))
3268             ERR("SetDesignMode failed: %08x\n", nsres);
3269     }
3270
3271     if(window != outer_window->pending_window) {
3272         ERR("not current pending window\n");
3273         return S_OK;
3274     }
3275
3276     if(outer_window->base.inner_window)
3277         detach_inner_window(outer_window->base.inner_window);
3278     outer_window->base.inner_window = window;
3279     outer_window->pending_window = NULL;
3280
3281     if(outer_window->doc_obj->basedoc.window == outer_window || !outer_window->doc_obj->basedoc.window) {
3282         if(outer_window->doc_obj->basedoc.doc_node)
3283             htmldoc_release(&outer_window->doc_obj->basedoc.doc_node->basedoc);
3284         outer_window->doc_obj->basedoc.doc_node = window->doc;
3285         htmldoc_addref(&window->doc->basedoc);
3286     }
3287
3288     return hres;
3289 }