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
  21 #define COBJMACROS
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "winuser.h"
  26 #include "ole2.h"
  27 #include "mshtmdid.h"
  28 #include "shlguid.h"
  29 #include "shobjidl.h"
  30 #include "exdispid.h"
  31
  32 #define NO_SHLWAPI_REG
  33 #include "shlwapi.h"
  34
  35 #include "wine/debug.h"
  36
  37 #include "mshtml_private.h"
  38 #include "htmlevent.h"
  39 #include "htmlscript.h"
  40 #include "htmlstyle.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 HRESULT get_location(HTMLInnerWindow *This, HTMLLocation **ret)
  70 {
  71     if(This->location) {
  72         IHTMLLocation_AddRef(&This->location->IHTMLLocation_iface);
  73     }else {
  74         HRESULT hres;
  75
  76         hres = HTMLLocation_Create(This, &This->location);
  77         if(FAILED(hres))
  78             return hres;
  79     }
  80
  81     *ret = This->location;
  82     return S_OK;
  83 }
  84
  85 void get_top_window(HTMLOuterWindow *window, HTMLOuterWindow **ret)
  86 {
  87     HTMLOuterWindow *iter;
  88
  89     for(iter = window; iter->parent && iter->parent; iter = iter->parent);
  90     *ret = iter;
  91 }
  92
  93 static inline HRESULT set_window_event(HTMLWindow *window, eventid_t eid, VARIANT *var)
  94 {
  95     if(!window->inner_window->doc) {
  96         FIXME("No document\n");
  97         return E_FAIL;
  98     }
  99
 100     return set_event_handler(&window->inner_window->event_target, eid, var);
 101 }
 102
 103 static inline HRESULT get_window_event(HTMLWindow *window, eventid_t eid, VARIANT *var)
 104 {
 105     if(!window->inner_window->doc) {
 106         FIXME("No document\n");
 107         return E_FAIL;
 108     }
 109
 110     return get_event_handler(&window->inner_window->event_target, eid, var);
 111 }
 112
 113 static void detach_inner_window(HTMLInnerWindow *window)
 114 {
 115     HTMLOuterWindow *outer_window = window->base.outer_window;
 116     HTMLDocumentNode *doc = window->doc;
 117
 118     while(!list_empty(&window->children)) {
 119         HTMLOuterWindow *child = LIST_ENTRY(list_tail(&window->children), HTMLOuterWindow, sibling_entry);
 120
 121         list_remove(&child->sibling_entry);
 122         child->parent = NULL;
 123
 124         if(child->base.inner_window)
 125             detach_inner_window(child->base.inner_window);
 126
 127         IHTMLWindow2_Release(&child->base.IHTMLWindow2_iface);
 128     }
 129
 130     if(outer_window && is_main_content_window(outer_window))
 131         window->doc->basedoc.cp_container.forward_container = NULL;
 132
 133     if(doc)
 134         detach_document_node(doc);
 135
 136     abort_window_bindings(window);
 137     remove_target_tasks(window->task_magic);
 138     release_script_hosts(window);
 139     window->base.outer_window = NULL;
 140
 141     if(outer_window && outer_window->base.inner_window == window) {
 142         outer_window->base.inner_window = NULL;
 143         IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
 144     }
 145 }
 146
 147 static inline HTMLWindow *impl_from_IHTMLWindow2(IHTMLWindow2 *iface)
 148 {
 149     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow2_iface);
 150 }
 151
 152 static HRESULT WINAPI HTMLWindow2_QueryInterface(IHTMLWindow2 *iface, REFIID riid, void **ppv)
 153 {
 154     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 155
 156     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 157
 158     if(IsEqualGUID(&IID_IUnknown, riid)) {
 159         *ppv = &This->IHTMLWindow2_iface;
 160     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 161         *ppv = &This->IHTMLWindow2_iface;
 162     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
 163         *ppv = &This->IDispatchEx_iface;
 164     }else if(IsEqualGUID(&IID_IHTMLFramesCollection2, riid)) {
 165         *ppv = &This->IHTMLWindow2_iface;
 166     }else if(IsEqualGUID(&IID_IHTMLWindow2, riid)) {
 167         *ppv = &This->IHTMLWindow2_iface;
 168     }else if(IsEqualGUID(&IID_IHTMLWindow3, riid)) {
 169         *ppv = &This->IHTMLWindow3_iface;
 170     }else if(IsEqualGUID(&IID_IHTMLWindow4, riid)) {
 171         *ppv = &This->IHTMLWindow4_iface;
 172     }else if(IsEqualGUID(&IID_IHTMLWindow5, riid)) {
 173         *ppv = &This->IHTMLWindow5_iface;
 174     }else if(IsEqualGUID(&IID_IHTMLWindow6, riid)) {
 175         *ppv = &This->IHTMLWindow6_iface;
 176     }else if(IsEqualGUID(&IID_IHTMLWindow7, riid)) {
 177         *ppv = &This->IHTMLWindow7_iface;
 178     }else if(IsEqualGUID(&IID_IHTMLPrivateWindow, riid)) {
 179         *ppv = &This->IHTMLPrivateWindow_iface;
 180     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 181         *ppv = &This->IServiceProvider_iface;
 182     }else if(IsEqualGUID(&IID_ITravelLogClient, riid)) {
 183         *ppv = &This->ITravelLogClient_iface;
 184     }else if(IsEqualGUID(&IID_IObjectIdentity, riid)) {
 185         *ppv = &This->IObjectIdentity_iface;
 186     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
 187         *ppv = &This->IProvideMultipleClassInfo_iface;
 188     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
 189         *ppv = &This->IProvideMultipleClassInfo_iface;
 190     }else if(IsEqualGUID(&IID_IProvideMultipleClassInfo, riid)) {
 191         *ppv = &This->IProvideMultipleClassInfo_iface;
 192     }else if(IsEqualGUID(&IID_IWineHTMLWindowPrivate, riid)) {
 193         *ppv = &This->IWineHTMLWindowPrivate_iface;
 194     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
 195         *ppv = NULL;
 196         FIXME("(%p)->(IID_IMarshal %p)\n", This, ppv);
 197         return E_NOINTERFACE;
 198     }else if(dispex_query_interface(&This->inner_window->event_target.dispex, riid, ppv)) {
 199         assert(!*ppv);
 200         return E_NOINTERFACE;
 201     }else {
 202         return EventTarget_QI(&This->inner_window->event_target, riid, ppv);
 203     }
 204
 205     IUnknown_AddRef((IUnknown*)*ppv);
 206     return S_OK;
 207 }
 208
 209 static ULONG WINAPI HTMLWindow2_AddRef(IHTMLWindow2 *iface)
 210 {
 211     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 212     LONG ref = InterlockedIncrement(&This->ref);
 213
 214     TRACE("(%p) ref=%d\n", This, ref);
 215
 216     return ref;
 217 }
 218
 219 static void release_outer_window(HTMLOuterWindow *This)
 220 {
 221     if(This->browser) {
 222         list_remove(&This->browser_entry);
 223         This->browser = NULL;
 224     }
 225
 226     if(This->pending_window) {
 227         abort_window_bindings(This->pending_window);
 228         This->pending_window->base.outer_window = NULL;
 229         IHTMLWindow2_Release(&This->pending_window->base.IHTMLWindow2_iface);
 230     }
 231
 232     remove_target_tasks(This->task_magic);
 233     set_current_mon(This, NULL, 0);
 234     set_current_uri(This, NULL);
 235     if(This->base.inner_window)
 236         detach_inner_window(This->base.inner_window);
 237
 238     if(This->frame_element)
 239         This->frame_element->content_window = NULL;
 240
 241     if(This->nswindow)
 242         nsIDOMWindow_Release(This->nswindow);
 243     if(This->window_proxy)
 244         mozIDOMWindowProxy_Release(This->window_proxy);
 245
 246     wine_rb_remove(&window_map, &This->entry);
 247     heap_free(This);
 248 }
 249
 250 static void release_inner_window(HTMLInnerWindow *This)
 251 {
 252     unsigned i;
 253
 254     TRACE("%p\n", This);
 255
 256     detach_inner_window(This);
 257
 258     if(This->doc) {
 259         This->doc->window = NULL;
 260         htmldoc_release(&This->doc->basedoc);
 261     }
 262
 263     release_event_target(&This->event_target);
 264     release_dispex(&This->event_target.dispex);
 265
 266     for(i=0; i < This->global_prop_cnt; i++)
 267         heap_free(This->global_props[i].name);
 268     heap_free(This->global_props);
 269
 270     if(This->location) {
 271         This->location->window = NULL;
 272         IHTMLLocation_Release(&This->location->IHTMLLocation_iface);
 273     }
 274
 275     if(This->image_factory) {
 276         This->image_factory->window = NULL;
 277         IHTMLImageElementFactory_Release(&This->image_factory->IHTMLImageElementFactory_iface);
 278     }
 279
 280     if(This->option_factory) {
 281         This->option_factory->window = NULL;
 282         IHTMLOptionElementFactory_Release(&This->option_factory->IHTMLOptionElementFactory_iface);
 283     }
 284
 285     if(This->xhr_factory) {
 286         This->xhr_factory->window = NULL;
 287         IHTMLXMLHttpRequestFactory_Release(&This->xhr_factory->IHTMLXMLHttpRequestFactory_iface);
 288     }
 289
 290     if(This->screen)
 291         IHTMLScreen_Release(This->screen);
 292
 293     if(This->history) {
 294         This->history->window = NULL;
 295         IOmHistory_Release(&This->history->IOmHistory_iface);
 296     }
 297
 298     if(This->navigator)
 299         IOmNavigator_Release(This->navigator);
 300     if(This->session_storage)
 301         IHTMLStorage_Release(This->session_storage);
 302     if(This->local_storage)
 303         IHTMLStorage_Release(This->local_storage);
 304
 305     if(This->mon)
 306         IMoniker_Release(This->mon);
 307
 308     heap_free(This);
 309 }
 310
 311 static ULONG WINAPI HTMLWindow2_Release(IHTMLWindow2 *iface)
 312 {
 313     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 314     LONG ref = InterlockedDecrement(&This->ref);
 315
 316     TRACE("(%p) ref=%d\n", This, ref);
 317
 318     if(!ref) {
 319         if (This->console)
 320             IWineMSHTMLConsole_Release(This->console);
 321
 322         if(is_outer_window(This))
 323             release_outer_window(This->outer_window);
 324         else
 325             release_inner_window(This->inner_window);
 326     }
 327
 328     return ref;
 329 }
 330
 331 static HRESULT WINAPI HTMLWindow2_GetTypeInfoCount(IHTMLWindow2 *iface, UINT *pctinfo)
 332 {
 333     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 334
 335     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
 336 }
 337
 338 static HRESULT WINAPI HTMLWindow2_GetTypeInfo(IHTMLWindow2 *iface, UINT iTInfo,
 339                                               LCID lcid, ITypeInfo **ppTInfo)
 340 {
 341     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 342
 343     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 344 }
 345
 346 static HRESULT WINAPI HTMLWindow2_GetIDsOfNames(IHTMLWindow2 *iface, REFIID riid,
 347                                                 LPOLESTR *rgszNames, UINT cNames,
 348                                                 LCID lcid, DISPID *rgDispId)
 349 {
 350     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 351
 352     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
 353             rgDispId);
 354 }
 355
 356 static HRESULT WINAPI HTMLWindow2_Invoke(IHTMLWindow2 *iface, DISPID dispIdMember,
 357                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 358                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 359 {
 360     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 361
 362     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 363             pDispParams, pVarResult, pExcepInfo, puArgErr);
 364 }
 365
 366 static HRESULT get_frame_by_index(HTMLOuterWindow *This, UINT32 index, HTMLOuterWindow **ret)
 367 {
 368     nsIDOMWindowCollection *nsframes;
 369     mozIDOMWindowProxy *mozwindow;
 370     UINT32 length;
 371     nsresult nsres;
 372
 373     nsres = nsIDOMWindow_GetFrames(This->nswindow, &nsframes);
 374     if(NS_FAILED(nsres)) {
 375         FIXME("nsIDOMWindow_GetFrames failed: 0x%08x\n", nsres);
 376         return E_FAIL;
 377     }
 378
 379     nsres = nsIDOMWindowCollection_GetLength(nsframes, &length);
 380     assert(nsres == NS_OK);
 381
 382     if(index >= length) {
 383         nsIDOMWindowCollection_Release(nsframes);
 384         return DISP_E_MEMBERNOTFOUND;
 385     }
 386
 387     nsres = nsIDOMWindowCollection_Item(nsframes, index, &mozwindow);
 388     nsIDOMWindowCollection_Release(nsframes);
 389     if(NS_FAILED(nsres)) {
 390         FIXME("nsIDOMWindowCollection_Item failed: 0x%08x\n", nsres);
 391         return E_FAIL;
 392     }
 393
 394     *ret = mozwindow_to_window(mozwindow);
 395
 396     mozIDOMWindowProxy_Release(mozwindow);
 397     return S_OK;
 398 }
 399
 400 HRESULT get_frame_by_name(HTMLOuterWindow *This, const WCHAR *name, BOOL deep, HTMLOuterWindow **ret)
 401 {
 402     nsIDOMWindowCollection *nsframes;
 403     HTMLOuterWindow *window = NULL;
 404     mozIDOMWindowProxy *mozwindow;
 405     nsAString name_str;
 406     UINT32 length, i;
 407     nsresult nsres;
 408     HRESULT hres = S_OK;
 409
 410     nsres = nsIDOMWindow_GetFrames(This->nswindow, &nsframes);
 411     if(NS_FAILED(nsres)) {
 412         FIXME("nsIDOMWindow_GetFrames failed: 0x%08x\n", nsres);
 413         return E_FAIL;
 414     }
 415
 416     if(!nsframes) {
 417         WARN("nsIDOMWindow_GetFrames returned NULL nsframes: %p\n", This->nswindow);
 418         return DISP_E_MEMBERNOTFOUND;
 419     }
 420
 421     nsAString_InitDepend(&name_str, name);
 422     nsres = nsIDOMWindowCollection_NamedItem(nsframes, &name_str, &mozwindow);
 423     nsAString_Finish(&name_str);
 424     if(NS_FAILED(nsres)) {
 425         nsIDOMWindowCollection_Release(nsframes);
 426         return E_FAIL;
 427     }
 428
 429     if(mozwindow) {
 430         *ret = mozwindow_to_window(mozwindow);
 431         return S_OK;
 432     }
 433
 434     nsres = nsIDOMWindowCollection_GetLength(nsframes, &length);
 435     assert(nsres == NS_OK);
 436
 437     for(i = 0; i < length && !window; ++i) {
 438         HTMLOuterWindow *window_iter;
 439         BSTR id;
 440
 441         nsres = nsIDOMWindowCollection_Item(nsframes, i, &mozwindow);
 442         if(NS_FAILED(nsres)) {
 443             FIXME("nsIDOMWindowCollection_Item failed: 0x%08x\n", nsres);
 444             hres = E_FAIL;
 445             break;
 446         }
 447
 448         window_iter = mozwindow_to_window(mozwindow);
 449
 450         mozIDOMWindowProxy_Release(mozwindow);
 451
 452         if(!window_iter) {
 453             WARN("nsIDOMWindow without HTMLOuterWindow: %p\n", mozwindow);
 454             continue;
 455         }
 456
 457         hres = IHTMLElement_get_id(&window_iter->frame_element->element.IHTMLElement_iface, &id);
 458         if(FAILED(hres)) {
 459             FIXME("IHTMLElement_get_id failed: 0x%08x\n", hres);
 460             break;
 461         }
 462
 463         if(id && !wcsicmp(id, name))
 464             window = window_iter;
 465
 466         SysFreeString(id);
 467
 468         if(!window && deep)
 469             get_frame_by_name(window_iter, name, TRUE, &window);
 470     }
 471
 472     nsIDOMWindowCollection_Release(nsframes);
 473     if(FAILED(hres))
 474         return hres;
 475
 476     *ret = window;
 477     return S_OK;
 478 }
 479
 480 static HRESULT WINAPI HTMLWindow2_item(IHTMLWindow2 *iface, VARIANT *pvarIndex, VARIANT *pvarResult)
 481 {
 482     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 483     HTMLOuterWindow *window = NULL;
 484     HRESULT hres;
 485
 486     TRACE("(%p)->(%p %p)\n", This, pvarIndex, pvarResult);
 487
 488     switch(V_VT(pvarIndex)) {
 489     case VT_I4: {
 490         int index = V_I4(pvarIndex);
 491         TRACE("Getting index %d\n", index);
 492         if(index < 0)
 493             return DISP_E_MEMBERNOTFOUND;
 494         hres = get_frame_by_index(This->outer_window, index, &window);
 495         break;
 496     }
 497     case VT_UINT: {
 498         unsigned int index = V_UINT(pvarIndex);
 499         TRACE("Getting index %u\n", index);
 500         hres = get_frame_by_index(This->outer_window, index, &window);
 501         break;
 502     }
 503     case VT_BSTR: {
 504         BSTR str = V_BSTR(pvarIndex);
 505         TRACE("Getting name %s\n", wine_dbgstr_w(str));
 506         hres = get_frame_by_name(This->outer_window, str, FALSE, &window);
 507         break;
 508     }
 509     default:
 510         WARN("Invalid index %s\n", debugstr_variant(pvarIndex));
 511         return E_INVALIDARG;
 512     }
 513
 514     if(FAILED(hres))
 515         return hres;
 516     if(!window)
 517         return DISP_E_MEMBERNOTFOUND;
 518
 519     IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
 520     V_VT(pvarResult) = VT_DISPATCH;
 521     V_DISPATCH(pvarResult) = (IDispatch*)window;
 522     return S_OK;
 523 }
 524
 525 static HRESULT WINAPI HTMLWindow2_get_length(IHTMLWindow2 *iface, LONG *p)
 526 {
 527     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 528     nsIDOMWindowCollection *nscollection;
 529     UINT32 length;
 530     nsresult nsres;
 531
 532     TRACE("(%p)->(%p)\n", This, p);
 533
 534     nsres = nsIDOMWindow_GetFrames(This->outer_window->nswindow, &nscollection);
 535     if(NS_FAILED(nsres)) {
 536         ERR("GetFrames failed: %08x\n", nsres);
 537         return E_FAIL;
 538     }
 539
 540     nsres = nsIDOMWindowCollection_GetLength(nscollection, &length);
 541     nsIDOMWindowCollection_Release(nscollection);
 542     if(NS_FAILED(nsres)) {
 543         ERR("GetLength failed: %08x\n", nsres);
 544         return E_FAIL;
 545     }
 546
 547     *p = length;
 548     return S_OK;
 549 }
 550
 551 static HRESULT WINAPI HTMLWindow2_get_frames(IHTMLWindow2 *iface, IHTMLFramesCollection2 **p)
 552 {
 553     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 554     FIXME("(%p)->(%p): semi-stub\n", This, p);
 555
 556     /* FIXME: Should return a separate Window object */
 557     *p = (IHTMLFramesCollection2*)&This->IHTMLWindow2_iface;
 558     IHTMLWindow2_AddRef(iface);
 559     return S_OK;
 560 }
 561
 562 static HRESULT WINAPI HTMLWindow2_put_defaultStatus(IHTMLWindow2 *iface, BSTR v)
 563 {
 564     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 565     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 566     return E_NOTIMPL;
 567 }
 568
 569 static HRESULT WINAPI HTMLWindow2_get_defaultStatus(IHTMLWindow2 *iface, BSTR *p)
 570 {
 571     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 572     FIXME("(%p)->(%p)\n", This, p);
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT WINAPI HTMLWindow2_put_status(IHTMLWindow2 *iface, BSTR v)
 577 {
 578     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 579
 580     WARN("(%p)->(%s)\n", This, debugstr_w(v));
 581
 582     /*
 583      * FIXME: Since IE7, setting status is blocked, but still possible in certain circumstances.
 584      * Ignoring the call should be enough for us.
 585      */
 586     return S_OK;
 587 }
 588
 589 static HRESULT WINAPI HTMLWindow2_get_status(IHTMLWindow2 *iface, BSTR *p)
 590 {
 591     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 592
 593     TRACE("(%p)->(%p)\n", This, p);
 594
 595     /* See put_status */
 596     *p = NULL;
 597     return S_OK;
 598 }
 599
 600 static HRESULT WINAPI HTMLWindow2_setTimeout(IHTMLWindow2 *iface, BSTR expression,
 601         LONG msec, VARIANT *language, LONG *timerID)
 602 {
 603     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 604     VARIANT expr_var;
 605
 606     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 607
 608     V_VT(&expr_var) = VT_BSTR;
 609     V_BSTR(&expr_var) = expression;
 610
 611     return IHTMLWindow3_setTimeout(&This->IHTMLWindow3_iface, &expr_var, msec, language, timerID);
 612 }
 613
 614 static HRESULT WINAPI HTMLWindow2_clearTimeout(IHTMLWindow2 *iface, LONG timerID)
 615 {
 616     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 617
 618     TRACE("(%p)->(%d)\n", This, timerID);
 619
 620     return clear_task_timer(This->inner_window, timerID);
 621 }
 622
 623 #define MAX_MESSAGE_LEN 2000
 624
 625 static HRESULT WINAPI HTMLWindow2_alert(IHTMLWindow2 *iface, BSTR message)
 626 {
 627     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 628     WCHAR title[100], *msg = message;
 629     DWORD len;
 630
 631     TRACE("(%p)->(%s)\n", This, debugstr_w(message));
 632
 633     if(!This->outer_window || !This->outer_window->browser)
 634         return E_UNEXPECTED;
 635
 636     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, title, ARRAY_SIZE(title))) {
 637         WARN("Could not load message box title: %d\n", GetLastError());
 638         return S_OK;
 639     }
 640
 641     len = SysStringLen(message);
 642     if(len > MAX_MESSAGE_LEN) {
 643         msg = heap_alloc((MAX_MESSAGE_LEN+1)*sizeof(WCHAR));
 644         if(!msg)
 645             return E_OUTOFMEMORY;
 646         memcpy(msg, message, MAX_MESSAGE_LEN*sizeof(WCHAR));
 647         msg[MAX_MESSAGE_LEN] = 0;
 648     }
 649
 650     MessageBoxW(This->outer_window->browser->doc->hwnd, msg, title, MB_ICONWARNING);
 651     if(msg != message)
 652         heap_free(msg);
 653     return S_OK;
 654 }
 655
 656 static HRESULT WINAPI HTMLWindow2_confirm(IHTMLWindow2 *iface, BSTR message,
 657         VARIANT_BOOL *confirmed)
 658 {
 659     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 660     WCHAR wszTitle[100];
 661
 662     TRACE("(%p)->(%s %p)\n", This, debugstr_w(message), confirmed);
 663
 664     if(!confirmed)
 665         return E_INVALIDARG;
 666     if(!This->outer_window || !This->outer_window->browser)
 667         return E_UNEXPECTED;
 668
 669     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle, ARRAY_SIZE(wszTitle))) {
 670         WARN("Could not load message box title: %d\n", GetLastError());
 671         *confirmed = VARIANT_TRUE;
 672         return S_OK;
 673     }
 674
 675     if(MessageBoxW(This->outer_window->browser->doc->hwnd, message, wszTitle,
 676                 MB_OKCANCEL|MB_ICONQUESTION)==IDOK)
 677         *confirmed = VARIANT_TRUE;
 678     else *confirmed = VARIANT_FALSE;
 679
 680     return S_OK;
 681 }
 682
 683 typedef struct
 684 {
 685     BSTR message;
 686     BSTR dststr;
 687     VARIANT *textdata;
 688 }prompt_arg;
 689
 690 static INT_PTR CALLBACK prompt_dlgproc(HWND hwnd, UINT msg,
 691         WPARAM wparam, LPARAM lparam)
 692 {
 693     switch(msg)
 694     {
 695         case WM_INITDIALOG:
 696         {
 697             prompt_arg *arg = (prompt_arg*)lparam;
 698             WCHAR wszTitle[100];
 699
 700             if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle, ARRAY_SIZE(wszTitle))) {
 701                 WARN("Could not load message box title: %d\n", GetLastError());
 702                 EndDialog(hwnd, wparam);
 703                 return FALSE;
 704             }
 705
 706             SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
 707             SetWindowTextW(hwnd, wszTitle);
 708             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_PROMPT), arg->message);
 709             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_EDIT), arg->dststr);
 710             return FALSE;
 711         }
 712         case WM_COMMAND:
 713             switch(wparam)
 714             {
 715                 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
 716                     EndDialog(hwnd, wparam);
 717                     return TRUE;
 718                 case MAKEWPARAM(IDOK, BN_CLICKED):
 719                 {
 720                     prompt_arg *arg =
 721                         (prompt_arg*)GetWindowLongPtrW(hwnd, DWLP_USER);
 722                     HWND hwndPrompt = GetDlgItem(hwnd, ID_PROMPT_EDIT);
 723                     INT len = GetWindowTextLengthW(hwndPrompt);
 724
 725                     if(!arg->textdata)
 726                     {
 727                         EndDialog(hwnd, wparam);
 728                         return TRUE;
 729                     }
 730
 731                     V_VT(arg->textdata) = VT_BSTR;
 732                     if(!len && !arg->dststr)
 733                         V_BSTR(arg->textdata) = NULL;
 734                     else
 735                     {
 736                         V_BSTR(arg->textdata) = SysAllocStringLen(NULL, len);
 737                         GetWindowTextW(hwndPrompt, V_BSTR(arg->textdata), len+1);
 738                     }
 739                     EndDialog(hwnd, wparam);
 740                     return TRUE;
 741                 }
 742             }
 743             return FALSE;
 744         case WM_CLOSE:
 745             EndDialog(hwnd, IDCANCEL);
 746             return TRUE;
 747         default:
 748             return FALSE;
 749     }
 750 }
 751
 752 static HRESULT WINAPI HTMLWindow2_prompt(IHTMLWindow2 *iface, BSTR message,
 753         BSTR dststr, VARIANT *textdata)
 754 {
 755     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 756     prompt_arg arg;
 757
 758     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(message), debugstr_w(dststr), textdata);
 759
 760     if(!This->outer_window || !This->outer_window->browser)
 761         return E_UNEXPECTED;
 762
 763     if(textdata) V_VT(textdata) = VT_NULL;
 764
 765     arg.message = message;
 766     arg.dststr = dststr;
 767     arg.textdata = textdata;
 768
 769     DialogBoxParamW(hInst, MAKEINTRESOURCEW(ID_PROMPT_DIALOG),
 770             This->outer_window->browser->doc->hwnd, prompt_dlgproc, (LPARAM)&arg);
 771     return S_OK;
 772 }
 773
 774 static HRESULT WINAPI HTMLWindow2_get_Image(IHTMLWindow2 *iface, IHTMLImageElementFactory **p)
 775 {
 776     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 777     HTMLInnerWindow *window = This->inner_window;
 778
 779     TRACE("(%p)->(%p)\n", This, p);
 780
 781     if(!window->image_factory) {
 782         HRESULT hres;
 783
 784         hres = HTMLImageElementFactory_Create(window, &window->image_factory);
 785         if(FAILED(hres))
 786             return hres;
 787     }
 788
 789     *p = &window->image_factory->IHTMLImageElementFactory_iface;
 790     IHTMLImageElementFactory_AddRef(*p);
 791
 792     return S_OK;
 793 }
 794
 795 static HRESULT WINAPI HTMLWindow2_get_location(IHTMLWindow2 *iface, IHTMLLocation **p)
 796 {
 797     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 798     HTMLLocation *location;
 799     HRESULT hres;
 800
 801     TRACE("(%p)->(%p)\n", This, p);
 802
 803     hres = get_location(This->inner_window, &location);
 804     if(FAILED(hres))
 805         return hres;
 806
 807     *p = &location->IHTMLLocation_iface;
 808     return S_OK;
 809 }
 810
 811 static HRESULT WINAPI HTMLWindow2_get_history(IHTMLWindow2 *iface, IOmHistory **p)
 812 {
 813     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 814     HTMLInnerWindow *window = This->inner_window;
 815
 816     TRACE("(%p)->(%p)\n", This, p);
 817
 818     if(!window->history) {
 819         HRESULT hres;
 820
 821         hres = create_history(window, &window->history);
 822         if(FAILED(hres))
 823             return hres;
 824     }
 825
 826     IOmHistory_AddRef(&window->history->IOmHistory_iface);
 827     *p = &window->history->IOmHistory_iface;
 828     return S_OK;
 829 }
 830
 831 static BOOL notify_webbrowser_close(HTMLOuterWindow *window, HTMLDocumentObj *doc)
 832 {
 833     IConnectionPointContainer *cp_container;
 834     VARIANT_BOOL cancel = VARIANT_FALSE;
 835     IEnumConnections *enum_conn;
 836     VARIANT args[2];
 837     DISPPARAMS dp = {args, NULL, 2, 0};
 838     CONNECTDATA conn_data;
 839     IConnectionPoint *cp;
 840     IDispatch *disp;
 841     ULONG fetched;
 842     HRESULT hres;
 843
 844     if(!doc->webbrowser)
 845         return TRUE;
 846
 847     hres = IUnknown_QueryInterface(doc->webbrowser, &IID_IConnectionPointContainer, (void**)&cp_container);
 848     if(FAILED(hres))
 849         return TRUE;
 850
 851     hres = IConnectionPointContainer_FindConnectionPoint(cp_container, &DIID_DWebBrowserEvents2, &cp);
 852     IConnectionPointContainer_Release(cp_container);
 853     if(FAILED(hres))
 854         return TRUE;
 855
 856     hres = IConnectionPoint_EnumConnections(cp, &enum_conn);
 857     IConnectionPoint_Release(cp);
 858     if(FAILED(hres))
 859         return TRUE;
 860
 861     while(!cancel) {
 862         conn_data.pUnk = NULL;
 863         conn_data.dwCookie = 0;
 864         fetched = 0;
 865         hres = IEnumConnections_Next(enum_conn, 1, &conn_data, &fetched);
 866         if(hres != S_OK)
 867             break;
 868
 869         hres = IUnknown_QueryInterface(conn_data.pUnk, &IID_IDispatch, (void**)&disp);
 870         IUnknown_Release(conn_data.pUnk);
 871         if(FAILED(hres))
 872             continue;
 873
 874         V_VT(args) = VT_BYREF|VT_BOOL;
 875         V_BOOLREF(args) = &cancel;
 876         V_VT(args+1) = VT_BOOL;
 877         V_BOOL(args+1) = variant_bool(window->parent != NULL);
 878         hres = IDispatch_Invoke(disp, DISPID_WINDOWCLOSING, &IID_NULL, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
 879         IDispatch_Release(disp);
 880         if(FAILED(hres))
 881             cancel = VARIANT_FALSE;
 882     }
 883
 884     IEnumConnections_Release(enum_conn);
 885     return !cancel;
 886 }
 887
 888 static HRESULT WINAPI HTMLWindow2_close(IHTMLWindow2 *iface)
 889 {
 890     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 891     HTMLOuterWindow *window = This->outer_window;
 892
 893     TRACE("(%p)\n", This);
 894
 895     if(!window || !window->browser) {
 896         FIXME("No document object\n");
 897         return E_FAIL;
 898     }
 899
 900     if(!notify_webbrowser_close(window, window->browser->doc))
 901         return S_OK;
 902
 903     FIXME("default action not implemented\n");
 904     return E_NOTIMPL;
 905 }
 906
 907 static HRESULT WINAPI HTMLWindow2_put_opener(IHTMLWindow2 *iface, VARIANT v)
 908 {
 909     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 910     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 911     return E_NOTIMPL;
 912 }
 913
 914 static HRESULT WINAPI HTMLWindow2_get_opener(IHTMLWindow2 *iface, VARIANT *p)
 915 {
 916     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 917
 918     FIXME("(%p)->(%p) returning empty\n", This, p);
 919
 920     V_VT(p) = VT_EMPTY;
 921     return S_OK;
 922 }
 923
 924 static HRESULT WINAPI HTMLWindow2_get_navigator(IHTMLWindow2 *iface, IOmNavigator **p)
 925 {
 926     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 927     HTMLInnerWindow *window = This->inner_window;
 928
 929     TRACE("(%p)->(%p)\n", This, p);
 930
 931     if(!window->navigator) {
 932         HRESULT hres;
 933         hres = create_navigator(dispex_compat_mode(&window->event_target.dispex), &window->navigator);
 934         if(FAILED(hres))
 935             return hres;
 936     }
 937
 938     IOmNavigator_AddRef(*p = window->navigator);
 939     return S_OK;
 940 }
 941
 942 static HRESULT WINAPI HTMLWindow2_put_name(IHTMLWindow2 *iface, BSTR v)
 943 {
 944     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 945     nsAString name_str;
 946     nsresult nsres;
 947
 948     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 949
 950     nsAString_InitDepend(&name_str, v);
 951     nsres = nsIDOMWindow_SetName(This->outer_window->nswindow, &name_str);
 952     nsAString_Finish(&name_str);
 953     if(NS_FAILED(nsres))
 954         ERR("SetName failed: %08x\n", nsres);
 955
 956     return S_OK;
 957 }
 958
 959 static HRESULT WINAPI HTMLWindow2_get_name(IHTMLWindow2 *iface, BSTR *p)
 960 {
 961     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 962     nsAString name_str;
 963     nsresult nsres;
 964
 965     TRACE("(%p)->(%p)\n", This, p);
 966
 967     nsAString_Init(&name_str, NULL);
 968     nsres = nsIDOMWindow_GetName(This->outer_window->nswindow, &name_str);
 969     return return_nsstr(nsres, &name_str, p);
 970 }
 971
 972 static HRESULT WINAPI HTMLWindow2_get_parent(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 973 {
 974     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 975     HTMLOuterWindow *window = This->outer_window;
 976
 977     TRACE("(%p)->(%p)\n", This, p);
 978
 979     if(!window->parent)
 980         return IHTMLWindow2_get_self(&This->IHTMLWindow2_iface, p);
 981
 982     *p = &window->parent->base.IHTMLWindow2_iface;
 983     IHTMLWindow2_AddRef(*p);
 984     return S_OK;
 985 }
 986
 987 static HRESULT WINAPI HTMLWindow2_open(IHTMLWindow2 *iface, BSTR url, BSTR name,
 988          BSTR features, VARIANT_BOOL replace, IHTMLWindow2 **pomWindowResult)
 989 {
 990     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
 991     HTMLOuterWindow *window = This->outer_window;
 992     IUri *uri;
 993     HRESULT hres;
 994
 995     TRACE("(%p)->(%s %s %s %x %p)\n", This, debugstr_w(url), debugstr_w(name),
 996           debugstr_w(features), replace, pomWindowResult);
 997     if(features)
 998         FIXME("unsupported features argument %s\n", debugstr_w(features));
 999     if(replace)
1000         FIXME("unsupported relace argument\n");
1001
1002     if(!window || !window->browser || !window->uri_nofrag)
1003         return E_UNEXPECTED;
1004
1005     if(name && *name == '_') {
1006         if(!wcscmp(name, L"_self")) {
1007             if((features && *features) || replace)
1008                 FIXME("Unsupported arguments for _self target\n");
1009
1010             hres = IHTMLWindow2_navigate(&This->IHTMLWindow2_iface, url);
1011             if(FAILED(hres))
1012                 return hres;
1013
1014             if(pomWindowResult) {
1015                 FIXME("Returning this window for _self target\n");
1016                 *pomWindowResult = &This->IHTMLWindow2_iface;
1017                 IHTMLWindow2_AddRef(*pomWindowResult);
1018             }
1019
1020             return S_OK;
1021         }
1022
1023         FIXME("Unsupported name %s\n", debugstr_w(name));
1024         return E_NOTIMPL;
1025     }
1026
1027     hres = create_relative_uri(window, url, &uri);
1028     if(FAILED(hres))
1029         return hres;
1030
1031     hres = navigate_new_window(window, uri, name, NULL, pomWindowResult);
1032     IUri_Release(uri);
1033     return hres;
1034 }
1035
1036 static HRESULT WINAPI HTMLWindow2_get_self(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1037 {
1038     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1039
1040     TRACE("(%p)->(%p)\n", This, p);
1041
1042     /* FIXME: We should return kind of proxy window here. */
1043     IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1044     *p = &This->IHTMLWindow2_iface;
1045     return S_OK;
1046 }
1047
1048 static HRESULT WINAPI HTMLWindow2_get_top(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1049 {
1050     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1051     HTMLOuterWindow *top;
1052
1053     TRACE("(%p)->(%p)\n", This, p);
1054
1055     get_top_window(This->outer_window, &top);
1056     *p = &top->base.IHTMLWindow2_iface;
1057     IHTMLWindow2_AddRef(*p);
1058
1059     return S_OK;
1060 }
1061
1062 static HRESULT WINAPI HTMLWindow2_get_window(IHTMLWindow2 *iface, IHTMLWindow2 **p)
1063 {
1064     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1065
1066     TRACE("(%p)->(%p)\n", This, p);
1067
1068     /* FIXME: We should return kind of proxy window here. */
1069     IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1070     *p = &This->IHTMLWindow2_iface;
1071     return S_OK;
1072 }
1073
1074 static HRESULT WINAPI HTMLWindow2_navigate(IHTMLWindow2 *iface, BSTR url)
1075 {
1076     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1077
1078     TRACE("(%p)->(%s)\n", This, debugstr_w(url));
1079
1080     return navigate_url(This->outer_window, url, This->outer_window->uri, BINDING_NAVIGATED);
1081 }
1082
1083 static HRESULT WINAPI HTMLWindow2_put_onfocus(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_FOCUS, &v);
1090 }
1091
1092 static HRESULT WINAPI HTMLWindow2_get_onfocus(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_FOCUS, p);
1099 }
1100
1101 static HRESULT WINAPI HTMLWindow2_put_onblur(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_BLUR, &v);
1108 }
1109
1110 static HRESULT WINAPI HTMLWindow2_get_onblur(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_BLUR, p);
1117 }
1118
1119 static HRESULT WINAPI HTMLWindow2_put_onload(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_LOAD, &v);
1126 }
1127
1128 static HRESULT WINAPI HTMLWindow2_get_onload(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_LOAD, p);
1135 }
1136
1137 static HRESULT WINAPI HTMLWindow2_put_onbeforeunload(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_BEFOREUNLOAD, &v);
1144 }
1145
1146 static HRESULT WINAPI HTMLWindow2_get_onbeforeunload(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_BEFOREUNLOAD, p);
1153 }
1154
1155 static HRESULT WINAPI HTMLWindow2_put_onunload(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_UNLOAD, &v);
1162 }
1163
1164 static HRESULT WINAPI HTMLWindow2_get_onunload(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_UNLOAD, p);
1171 }
1172
1173 static HRESULT WINAPI HTMLWindow2_put_onhelp(IHTMLWindow2 *iface, VARIANT v)
1174 {
1175     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1176
1177     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1178
1179     return set_window_event(This, EVENTID_HELP, &v);
1180 }
1181
1182 static HRESULT WINAPI HTMLWindow2_get_onhelp(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_HELP, p);
1189 }
1190
1191 static HRESULT WINAPI HTMLWindow2_put_onerror(IHTMLWindow2 *iface, VARIANT v)
1192 {
1193     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1194
1195     FIXME("(%p)->(%s) semi-stub\n", This, debugstr_variant(&v));
1196
1197     return set_window_event(This, EVENTID_ERROR, &v);
1198 }
1199
1200 static HRESULT WINAPI HTMLWindow2_get_onerror(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_ERROR, p);
1207 }
1208
1209 static HRESULT WINAPI HTMLWindow2_put_onresize(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_RESIZE, &v);
1216 }
1217
1218 static HRESULT WINAPI HTMLWindow2_get_onresize(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_RESIZE, p);
1225 }
1226
1227 static HRESULT WINAPI HTMLWindow2_put_onscroll(IHTMLWindow2 *iface, VARIANT v)
1228 {
1229     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1230
1231     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
1232
1233     return set_window_event(This, EVENTID_SCROLL, &v);
1234 }
1235
1236 static HRESULT WINAPI HTMLWindow2_get_onscroll(IHTMLWindow2 *iface, VARIANT *p)
1237 {
1238     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1239
1240     TRACE("(%p)->(%p)\n", This, p);
1241
1242     return get_window_event(This, EVENTID_SCROLL, p);
1243 }
1244
1245 static HRESULT WINAPI HTMLWindow2_get_document(IHTMLWindow2 *iface, IHTMLDocument2 **p)
1246 {
1247     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1248
1249     TRACE("(%p)->(%p)\n", This, p);
1250
1251     if(This->inner_window->doc) {
1252         /* FIXME: We should return a wrapper object here */
1253         *p = &This->inner_window->doc->basedoc.IHTMLDocument2_iface;
1254         IHTMLDocument2_AddRef(*p);
1255     }else {
1256         *p = NULL;
1257     }
1258
1259     return S_OK;
1260 }
1261
1262 IHTMLEventObj *default_set_current_event(HTMLInnerWindow *window, IHTMLEventObj *event_obj)
1263 {
1264     IHTMLEventObj *prev_event = NULL;
1265
1266     if(window) {
1267         if(event_obj)
1268             IHTMLEventObj_AddRef(event_obj);
1269         prev_event = window->event;
1270         window->event = event_obj;
1271     }
1272
1273     return prev_event;
1274 }
1275
1276 static HRESULT WINAPI HTMLWindow2_get_event(IHTMLWindow2 *iface, IHTMLEventObj **p)
1277 {
1278     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1279     HTMLInnerWindow *window = This->inner_window;
1280
1281     TRACE("(%p)->(%p)\n", This, p);
1282
1283     if(window->event)
1284         IHTMLEventObj_AddRef(window->event);
1285     *p = window->event;
1286     return S_OK;
1287 }
1288
1289 static HRESULT WINAPI HTMLWindow2_get__newEnum(IHTMLWindow2 *iface, IUnknown **p)
1290 {
1291     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1292     FIXME("(%p)->(%p)\n", This, p);
1293     return E_NOTIMPL;
1294 }
1295
1296 static HRESULT WINAPI HTMLWindow2_showModalDialog(IHTMLWindow2 *iface, BSTR dialog,
1297         VARIANT *varArgIn, VARIANT *varOptions, VARIANT *varArgOut)
1298 {
1299     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1300     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(dialog), varArgIn, varOptions, varArgOut);
1301     return E_NOTIMPL;
1302 }
1303
1304 static HRESULT WINAPI HTMLWindow2_showHelp(IHTMLWindow2 *iface, BSTR helpURL, VARIANT helpArg,
1305         BSTR features)
1306 {
1307     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1308     FIXME("(%p)->(%s %s %s)\n", This, debugstr_w(helpURL), debugstr_variant(&helpArg), debugstr_w(features));
1309     return E_NOTIMPL;
1310 }
1311
1312 static HRESULT WINAPI HTMLWindow2_get_screen(IHTMLWindow2 *iface, IHTMLScreen **p)
1313 {
1314     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1315     HTMLInnerWindow *window = This->inner_window;
1316
1317     TRACE("(%p)->(%p)\n", This, p);
1318
1319     if(!window->screen) {
1320         HRESULT hres;
1321
1322         hres = create_html_screen(dispex_compat_mode(&window->event_target.dispex), &window->screen);
1323         if(FAILED(hres))
1324             return hres;
1325     }
1326
1327     *p = window->screen;
1328     IHTMLScreen_AddRef(window->screen);
1329     return S_OK;
1330 }
1331
1332 static HRESULT WINAPI HTMLWindow2_get_Option(IHTMLWindow2 *iface, IHTMLOptionElementFactory **p)
1333 {
1334     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1335     HTMLInnerWindow *window = This->inner_window;
1336
1337     TRACE("(%p)->(%p)\n", This, p);
1338
1339     if(!window->option_factory) {
1340         HRESULT hres;
1341
1342         hres = HTMLOptionElementFactory_Create(window, &window->option_factory);
1343         if(FAILED(hres))
1344             return hres;
1345     }
1346
1347     *p = &window->option_factory->IHTMLOptionElementFactory_iface;
1348     IHTMLOptionElementFactory_AddRef(*p);
1349
1350     return S_OK;
1351 }
1352
1353 static HRESULT WINAPI HTMLWindow2_focus(IHTMLWindow2 *iface)
1354 {
1355     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1356
1357     TRACE("(%p)->()\n", This);
1358
1359     if(!This->outer_window || !This->outer_window->browser)
1360         return E_UNEXPECTED;
1361
1362     SetFocus(This->outer_window->browser->doc->hwnd);
1363     return S_OK;
1364 }
1365
1366 static HRESULT WINAPI HTMLWindow2_get_closed(IHTMLWindow2 *iface, VARIANT_BOOL *p)
1367 {
1368     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1369     FIXME("(%p)->(%p)\n", This, p);
1370     return E_NOTIMPL;
1371 }
1372
1373 static HRESULT WINAPI HTMLWindow2_blur(IHTMLWindow2 *iface)
1374 {
1375     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1376     FIXME("(%p)->()\n", This);
1377     return E_NOTIMPL;
1378 }
1379
1380 static HRESULT WINAPI HTMLWindow2_scroll(IHTMLWindow2 *iface, LONG x, LONG y)
1381 {
1382     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1383     nsresult nsres;
1384
1385     TRACE("(%p)->(%d %d)\n", This, x, y);
1386
1387     nsres = nsIDOMWindow_Scroll(This->outer_window->nswindow, x, y);
1388     if(NS_FAILED(nsres)) {
1389         ERR("ScrollBy failed: %08x\n", nsres);
1390         return E_FAIL;
1391     }
1392
1393     return S_OK;
1394 }
1395
1396 static HRESULT WINAPI HTMLWindow2_get_clientInformation(IHTMLWindow2 *iface, IOmNavigator **p)
1397 {
1398     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1399
1400     TRACE("(%p)->(%p)\n", This, p);
1401
1402     return IHTMLWindow2_get_navigator(&This->IHTMLWindow2_iface, p);
1403 }
1404
1405 static HRESULT WINAPI HTMLWindow2_setInterval(IHTMLWindow2 *iface, BSTR expression,
1406         LONG msec, VARIANT *language, LONG *timerID)
1407 {
1408     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1409     VARIANT expr;
1410
1411     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
1412
1413     V_VT(&expr) = VT_BSTR;
1414     V_BSTR(&expr) = expression;
1415     return IHTMLWindow3_setInterval(&This->IHTMLWindow3_iface, &expr, msec, language, timerID);
1416 }
1417
1418 static HRESULT WINAPI HTMLWindow2_clearInterval(IHTMLWindow2 *iface, LONG timerID)
1419 {
1420     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1421
1422     TRACE("(%p)->(%d)\n", This, timerID);
1423
1424     return clear_task_timer(This->inner_window, timerID);
1425 }
1426
1427 static HRESULT WINAPI HTMLWindow2_put_offscreenBuffering(IHTMLWindow2 *iface, VARIANT v)
1428 {
1429     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1430     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1431     return E_NOTIMPL;
1432 }
1433
1434 static HRESULT WINAPI HTMLWindow2_get_offscreenBuffering(IHTMLWindow2 *iface, VARIANT *p)
1435 {
1436     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1437     FIXME("(%p)->(%p)\n", This, p);
1438     return E_NOTIMPL;
1439 }
1440
1441 static HRESULT WINAPI HTMLWindow2_execScript(IHTMLWindow2 *iface, BSTR scode, BSTR language,
1442         VARIANT *pvarRet)
1443 {
1444     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1445
1446     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(scode), debugstr_w(language), pvarRet);
1447
1448     return exec_script(This->inner_window, scode, language, pvarRet);
1449 }
1450
1451 static HRESULT WINAPI HTMLWindow2_toString(IHTMLWindow2 *iface, BSTR *String)
1452 {
1453     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1454
1455     TRACE("(%p)->(%p)\n", This, String);
1456
1457     if(!String)
1458         return E_INVALIDARG;
1459
1460     *String = SysAllocString(L"[object]");
1461     return *String ? S_OK : E_OUTOFMEMORY;
1462 }
1463
1464 static HRESULT WINAPI HTMLWindow2_scrollBy(IHTMLWindow2 *iface, LONG x, LONG y)
1465 {
1466     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1467     nsresult nsres;
1468
1469     TRACE("(%p)->(%d %d)\n", This, x, y);
1470
1471     nsres = nsIDOMWindow_ScrollBy(This->outer_window->nswindow, x, y);
1472     if(NS_FAILED(nsres))
1473         ERR("ScrollBy failed: %08x\n", nsres);
1474
1475     return S_OK;
1476 }
1477
1478 static HRESULT WINAPI HTMLWindow2_scrollTo(IHTMLWindow2 *iface, LONG x, LONG y)
1479 {
1480     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1481     nsresult nsres;
1482
1483     TRACE("(%p)->(%d %d)\n", This, x, y);
1484
1485     nsres = nsIDOMWindow_ScrollTo(This->outer_window->nswindow, x, y);
1486     if(NS_FAILED(nsres))
1487         ERR("ScrollTo failed: %08x\n", nsres);
1488
1489     return S_OK;
1490 }
1491
1492 static HRESULT WINAPI HTMLWindow2_moveTo(IHTMLWindow2 *iface, LONG x, LONG y)
1493 {
1494     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1495     FIXME("(%p)->(%d %d)\n", This, x, y);
1496     return E_NOTIMPL;
1497 }
1498
1499 static HRESULT WINAPI HTMLWindow2_moveBy(IHTMLWindow2 *iface, LONG x, LONG y)
1500 {
1501     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1502     FIXME("(%p)->(%d %d)\n", This, x, y);
1503     return S_FALSE;
1504 }
1505
1506 static HRESULT WINAPI HTMLWindow2_resizeTo(IHTMLWindow2 *iface, LONG x, LONG y)
1507 {
1508     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1509     FIXME("(%p)->(%d %d)\n", This, x, y);
1510     return E_NOTIMPL;
1511 }
1512
1513 static HRESULT WINAPI HTMLWindow2_resizeBy(IHTMLWindow2 *iface, LONG x, LONG y)
1514 {
1515     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1516     FIXME("(%p)->(%d %d)\n", This, x, y);
1517     return S_FALSE;
1518 }
1519
1520 static HRESULT WINAPI HTMLWindow2_get_external(IHTMLWindow2 *iface, IDispatch **p)
1521 {
1522     HTMLWindow *This = impl_from_IHTMLWindow2(iface);
1523
1524     TRACE("(%p)->(%p)\n", This, p);
1525
1526     if(!This->outer_window || !This->outer_window->browser)
1527         return E_UNEXPECTED;
1528
1529     *p = NULL;
1530
1531     if(!This->outer_window->browser->doc->hostui)
1532         return S_OK;
1533
1534     return IDocHostUIHandler_GetExternal(This->outer_window->browser->doc->hostui, p);
1535 }
1536
1537 static const IHTMLWindow2Vtbl HTMLWindow2Vtbl = {
1538     HTMLWindow2_QueryInterface,
1539     HTMLWindow2_AddRef,
1540     HTMLWindow2_Release,
1541     HTMLWindow2_GetTypeInfoCount,
1542     HTMLWindow2_GetTypeInfo,
1543     HTMLWindow2_GetIDsOfNames,
1544     HTMLWindow2_Invoke,
1545     HTMLWindow2_item,
1546     HTMLWindow2_get_length,
1547     HTMLWindow2_get_frames,
1548     HTMLWindow2_put_defaultStatus,
1549     HTMLWindow2_get_defaultStatus,
1550     HTMLWindow2_put_status,
1551     HTMLWindow2_get_status,
1552     HTMLWindow2_setTimeout,
1553     HTMLWindow2_clearTimeout,
1554     HTMLWindow2_alert,
1555     HTMLWindow2_confirm,
1556     HTMLWindow2_prompt,
1557     HTMLWindow2_get_Image,
1558     HTMLWindow2_get_location,
1559     HTMLWindow2_get_history,
1560     HTMLWindow2_close,
1561     HTMLWindow2_put_opener,
1562     HTMLWindow2_get_opener,
1563     HTMLWindow2_get_navigator,
1564     HTMLWindow2_put_name,
1565     HTMLWindow2_get_name,
1566     HTMLWindow2_get_parent,
1567     HTMLWindow2_open,
1568     HTMLWindow2_get_self,
1569     HTMLWindow2_get_top,
1570     HTMLWindow2_get_window,
1571     HTMLWindow2_navigate,
1572     HTMLWindow2_put_onfocus,
1573     HTMLWindow2_get_onfocus,
1574     HTMLWindow2_put_onblur,
1575     HTMLWindow2_get_onblur,
1576     HTMLWindow2_put_onload,
1577     HTMLWindow2_get_onload,
1578     HTMLWindow2_put_onbeforeunload,
1579     HTMLWindow2_get_onbeforeunload,
1580     HTMLWindow2_put_onunload,
1581     HTMLWindow2_get_onunload,
1582     HTMLWindow2_put_onhelp,
1583     HTMLWindow2_get_onhelp,
1584     HTMLWindow2_put_onerror,
1585     HTMLWindow2_get_onerror,
1586     HTMLWindow2_put_onresize,
1587     HTMLWindow2_get_onresize,
1588     HTMLWindow2_put_onscroll,
1589     HTMLWindow2_get_onscroll,
1590     HTMLWindow2_get_document,
1591     HTMLWindow2_get_event,
1592     HTMLWindow2_get__newEnum,
1593     HTMLWindow2_showModalDialog,
1594     HTMLWindow2_showHelp,
1595     HTMLWindow2_get_screen,
1596     HTMLWindow2_get_Option,
1597     HTMLWindow2_focus,
1598     HTMLWindow2_get_closed,
1599     HTMLWindow2_blur,
1600     HTMLWindow2_scroll,
1601     HTMLWindow2_get_clientInformation,
1602     HTMLWindow2_setInterval,
1603     HTMLWindow2_clearInterval,
1604     HTMLWindow2_put_offscreenBuffering,
1605     HTMLWindow2_get_offscreenBuffering,
1606     HTMLWindow2_execScript,
1607     HTMLWindow2_toString,
1608     HTMLWindow2_scrollBy,
1609     HTMLWindow2_scrollTo,
1610     HTMLWindow2_moveTo,
1611     HTMLWindow2_moveBy,
1612     HTMLWindow2_resizeTo,
1613     HTMLWindow2_resizeBy,
1614     HTMLWindow2_get_external
1615 };
1616
1617 static inline HTMLWindow *impl_from_IHTMLWindow3(IHTMLWindow3 *iface)
1618 {
1619     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow3_iface);
1620 }
1621
1622 static HRESULT WINAPI HTMLWindow3_QueryInterface(IHTMLWindow3 *iface, REFIID riid, void **ppv)
1623 {
1624     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1625
1626     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1627 }
1628
1629 static ULONG WINAPI HTMLWindow3_AddRef(IHTMLWindow3 *iface)
1630 {
1631     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1632
1633     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1634 }
1635
1636 static ULONG WINAPI HTMLWindow3_Release(IHTMLWindow3 *iface)
1637 {
1638     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1639
1640     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1641 }
1642
1643 static HRESULT WINAPI HTMLWindow3_GetTypeInfoCount(IHTMLWindow3 *iface, UINT *pctinfo)
1644 {
1645     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1646
1647     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1648 }
1649
1650 static HRESULT WINAPI HTMLWindow3_GetTypeInfo(IHTMLWindow3 *iface, UINT iTInfo,
1651                                               LCID lcid, ITypeInfo **ppTInfo)
1652 {
1653     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1654
1655     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1656 }
1657
1658 static HRESULT WINAPI HTMLWindow3_GetIDsOfNames(IHTMLWindow3 *iface, REFIID riid,
1659                                                 LPOLESTR *rgszNames, UINT cNames,
1660                                                 LCID lcid, DISPID *rgDispId)
1661 {
1662     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1663
1664     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
1665             rgDispId);
1666 }
1667
1668 static HRESULT WINAPI HTMLWindow3_Invoke(IHTMLWindow3 *iface, DISPID dispIdMember,
1669                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1670                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1671 {
1672     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1673
1674     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
1675             pDispParams, pVarResult, pExcepInfo, puArgErr);
1676 }
1677
1678 static HRESULT WINAPI HTMLWindow3_get_screenLeft(IHTMLWindow3 *iface, LONG *p)
1679 {
1680     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1681     nsresult nsres;
1682
1683     TRACE("(%p)->(%p)\n", This, p);
1684
1685     nsres = nsIDOMWindow_GetScreenX(This->outer_window->nswindow, p);
1686     if(NS_FAILED(nsres)) {
1687         ERR("GetScreenX failed: %08x\n", nsres);
1688         return E_FAIL;
1689     }
1690
1691     return S_OK;
1692 }
1693
1694 static HRESULT WINAPI HTMLWindow3_get_screenTop(IHTMLWindow3 *iface, LONG *p)
1695 {
1696     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1697     nsresult nsres;
1698
1699     TRACE("(%p)->(%p)\n", This, p);
1700
1701     nsres = nsIDOMWindow_GetScreenY(This->outer_window->nswindow, p);
1702     if(NS_FAILED(nsres)) {
1703         ERR("GetScreenY failed: %08x\n", nsres);
1704         return E_FAIL;
1705     }
1706
1707     return S_OK;
1708 }
1709
1710 static HRESULT WINAPI HTMLWindow3_attachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp, VARIANT_BOOL *pfResult)
1711 {
1712     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1713     HTMLInnerWindow *window = This->inner_window;
1714
1715     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(event), pDisp, pfResult);
1716
1717     if(!window->doc) {
1718         FIXME("No document\n");
1719         return E_FAIL;
1720     }
1721
1722     return attach_event(&window->event_target, event, pDisp, pfResult);
1723 }
1724
1725 static HRESULT WINAPI HTMLWindow3_detachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp)
1726 {
1727     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1728     HTMLInnerWindow *window = This->inner_window;
1729
1730     TRACE("(%p)->()\n", This);
1731
1732     if(!window->doc) {
1733         FIXME("No document\n");
1734         return E_FAIL;
1735     }
1736
1737     return detach_event(&window->event_target, event, pDisp);
1738 }
1739
1740 static HRESULT window_set_timer(HTMLInnerWindow *This, VARIANT *expr, LONG msec, VARIANT *language,
1741         enum timer_type timer_type, LONG *timer_id)
1742 {
1743     IDispatch *disp = NULL;
1744     HRESULT hres;
1745
1746     switch(V_VT(expr)) {
1747     case VT_DISPATCH:
1748         disp = V_DISPATCH(expr);
1749         IDispatch_AddRef(disp);
1750         break;
1751
1752     case VT_BSTR:
1753         disp = script_parse_event(This->base.inner_window, V_BSTR(expr));
1754         break;
1755
1756     default:
1757         FIXME("unimplemented expr %s\n", debugstr_variant(expr));
1758         return E_NOTIMPL;
1759     }
1760
1761     if(!disp)
1762         return E_FAIL;
1763
1764     hres = set_task_timer(This, msec, timer_type, disp, timer_id);
1765     IDispatch_Release(disp);
1766
1767     return hres;
1768 }
1769
1770 static HRESULT WINAPI HTMLWindow3_setTimeout(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1771         VARIANT *language, LONG *timerID)
1772 {
1773     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1774
1775     TRACE("(%p)->(%s %d %s %p)\n", This, debugstr_variant(expression), msec, debugstr_variant(language), timerID);
1776
1777     return window_set_timer(This->inner_window, expression, msec, language, TIMER_TIMEOUT, timerID);
1778 }
1779
1780 static HRESULT WINAPI HTMLWindow3_setInterval(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1781         VARIANT *language, LONG *timerID)
1782 {
1783     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1784
1785     TRACE("(%p)->(%p %d %p %p)\n", This, expression, msec, language, timerID);
1786
1787     return window_set_timer(This->inner_window, expression, msec, language, TIMER_INTERVAL, timerID);
1788 }
1789
1790 static HRESULT WINAPI HTMLWindow3_print(IHTMLWindow3 *iface)
1791 {
1792     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1793     FIXME("(%p)\n", This);
1794     return E_NOTIMPL;
1795 }
1796
1797 static HRESULT WINAPI HTMLWindow3_put_onbeforeprint(IHTMLWindow3 *iface, VARIANT v)
1798 {
1799     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1800     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1801     return E_NOTIMPL;
1802 }
1803
1804 static HRESULT WINAPI HTMLWindow3_get_onbeforeprint(IHTMLWindow3 *iface, VARIANT *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_put_onafterprint(IHTMLWindow3 *iface, VARIANT v)
1812 {
1813     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1814     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1815     return E_NOTIMPL;
1816 }
1817
1818 static HRESULT WINAPI HTMLWindow3_get_onafterprint(IHTMLWindow3 *iface, VARIANT *p)
1819 {
1820     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1821     FIXME("(%p)->(%p)\n", This, p);
1822     return E_NOTIMPL;
1823 }
1824
1825 static HRESULT WINAPI HTMLWindow3_get_clipboardData(IHTMLWindow3 *iface, IHTMLDataTransfer **p)
1826 {
1827     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1828     FIXME("(%p)->(%p)\n", This, p);
1829     return E_NOTIMPL;
1830 }
1831
1832 static HRESULT WINAPI HTMLWindow3_showModelessDialog(IHTMLWindow3 *iface, BSTR url,
1833         VARIANT *varArgIn, VARIANT *options, IHTMLWindow2 **pDialog)
1834 {
1835     HTMLWindow *This = impl_from_IHTMLWindow3(iface);
1836     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(url), varArgIn, options, pDialog);
1837     return E_NOTIMPL;
1838 }
1839
1840 static const IHTMLWindow3Vtbl HTMLWindow3Vtbl = {
1841     HTMLWindow3_QueryInterface,
1842     HTMLWindow3_AddRef,
1843     HTMLWindow3_Release,
1844     HTMLWindow3_GetTypeInfoCount,
1845     HTMLWindow3_GetTypeInfo,
1846     HTMLWindow3_GetIDsOfNames,
1847     HTMLWindow3_Invoke,
1848     HTMLWindow3_get_screenLeft,
1849     HTMLWindow3_get_screenTop,
1850     HTMLWindow3_attachEvent,
1851     HTMLWindow3_detachEvent,
1852     HTMLWindow3_setTimeout,
1853     HTMLWindow3_setInterval,
1854     HTMLWindow3_print,
1855     HTMLWindow3_put_onbeforeprint,
1856     HTMLWindow3_get_onbeforeprint,
1857     HTMLWindow3_put_onafterprint,
1858     HTMLWindow3_get_onafterprint,
1859     HTMLWindow3_get_clipboardData,
1860     HTMLWindow3_showModelessDialog
1861 };
1862
1863 static inline HTMLWindow *impl_from_IHTMLWindow4(IHTMLWindow4 *iface)
1864 {
1865     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow4_iface);
1866 }
1867
1868 static HRESULT WINAPI HTMLWindow4_QueryInterface(IHTMLWindow4 *iface, REFIID riid, void **ppv)
1869 {
1870     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1871
1872     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1873 }
1874
1875 static ULONG WINAPI HTMLWindow4_AddRef(IHTMLWindow4 *iface)
1876 {
1877     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1878
1879     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1880 }
1881
1882 static ULONG WINAPI HTMLWindow4_Release(IHTMLWindow4 *iface)
1883 {
1884     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1885
1886     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1887 }
1888
1889 static HRESULT WINAPI HTMLWindow4_GetTypeInfoCount(IHTMLWindow4 *iface, UINT *pctinfo)
1890 {
1891     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1892
1893     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1894 }
1895
1896 static HRESULT WINAPI HTMLWindow4_GetTypeInfo(IHTMLWindow4 *iface, UINT iTInfo,
1897                                               LCID lcid, ITypeInfo **ppTInfo)
1898 {
1899     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1900
1901     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1902 }
1903
1904 static HRESULT WINAPI HTMLWindow4_GetIDsOfNames(IHTMLWindow4 *iface, REFIID riid,
1905                                                 LPOLESTR *rgszNames, UINT cNames,
1906                                                 LCID lcid, DISPID *rgDispId)
1907 {
1908     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1909
1910     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
1911             rgDispId);
1912 }
1913
1914 static HRESULT WINAPI HTMLWindow4_Invoke(IHTMLWindow4 *iface, DISPID dispIdMember,
1915                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1916                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1917 {
1918     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1919
1920     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
1921             pDispParams, pVarResult, pExcepInfo, puArgErr);
1922 }
1923
1924 static HRESULT WINAPI HTMLWindow4_createPopup(IHTMLWindow4 *iface, VARIANT *varArgIn,
1925                             IDispatch **ppPopup)
1926 {
1927     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1928     FIXME("(%p)->(%p %p)\n", This, varArgIn, ppPopup);
1929     return E_NOTIMPL;
1930 }
1931
1932 static HRESULT WINAPI HTMLWindow4_get_frameElement(IHTMLWindow4 *iface, IHTMLFrameBase **p)
1933 {
1934     HTMLWindow *This = impl_from_IHTMLWindow4(iface);
1935     TRACE("(%p)->(%p)\n", This, p);
1936
1937     if(This->outer_window->frame_element) {
1938         *p = &This->outer_window->frame_element->IHTMLFrameBase_iface;
1939         IHTMLFrameBase_AddRef(*p);
1940     }else
1941         *p = NULL;
1942
1943     return S_OK;
1944 }
1945
1946 static const IHTMLWindow4Vtbl HTMLWindow4Vtbl = {
1947     HTMLWindow4_QueryInterface,
1948     HTMLWindow4_AddRef,
1949     HTMLWindow4_Release,
1950     HTMLWindow4_GetTypeInfoCount,
1951     HTMLWindow4_GetTypeInfo,
1952     HTMLWindow4_GetIDsOfNames,
1953     HTMLWindow4_Invoke,
1954     HTMLWindow4_createPopup,
1955     HTMLWindow4_get_frameElement
1956 };
1957
1958 static inline HTMLWindow *impl_from_IHTMLWindow5(IHTMLWindow5 *iface)
1959 {
1960     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow5_iface);
1961 }
1962
1963 static HRESULT WINAPI HTMLWindow5_QueryInterface(IHTMLWindow5 *iface, REFIID riid, void **ppv)
1964 {
1965     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1966
1967     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
1968 }
1969
1970 static ULONG WINAPI HTMLWindow5_AddRef(IHTMLWindow5 *iface)
1971 {
1972     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1973
1974     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
1975 }
1976
1977 static ULONG WINAPI HTMLWindow5_Release(IHTMLWindow5 *iface)
1978 {
1979     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1980
1981     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
1982 }
1983
1984 static HRESULT WINAPI HTMLWindow5_GetTypeInfoCount(IHTMLWindow5 *iface, UINT *pctinfo)
1985 {
1986     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1987
1988     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
1989 }
1990
1991 static HRESULT WINAPI HTMLWindow5_GetTypeInfo(IHTMLWindow5 *iface, UINT iTInfo,
1992         LCID lcid, ITypeInfo **ppTInfo)
1993 {
1994     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
1995
1996     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1997 }
1998
1999 static HRESULT WINAPI HTMLWindow5_GetIDsOfNames(IHTMLWindow5 *iface, REFIID riid,
2000         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
2001 {
2002     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2003
2004     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
2005             rgDispId);
2006 }
2007
2008 static HRESULT WINAPI HTMLWindow5_Invoke(IHTMLWindow5 *iface, DISPID dispIdMember,
2009         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2010         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2011 {
2012     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2013
2014     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
2015             pDispParams, pVarResult, pExcepInfo, puArgErr);
2016 }
2017
2018 static HRESULT WINAPI HTMLWindow5_put_XMLHttpRequest(IHTMLWindow5 *iface, VARIANT v)
2019 {
2020     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2021     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2022     return E_NOTIMPL;
2023 }
2024
2025 static HRESULT WINAPI HTMLWindow5_get_XMLHttpRequest(IHTMLWindow5 *iface, VARIANT *p)
2026 {
2027     HTMLWindow *This = impl_from_IHTMLWindow5(iface);
2028     HTMLInnerWindow *window = This->inner_window;
2029
2030     TRACE("(%p)->(%p)\n", This, p);
2031
2032     if(!window->xhr_factory) {
2033         HRESULT hres;
2034
2035         hres = HTMLXMLHttpRequestFactory_Create(window, &window->xhr_factory);
2036         if(FAILED(hres)) {
2037             return hres;
2038         }
2039     }
2040
2041     V_VT(p) = VT_DISPATCH;
2042     V_DISPATCH(p) = (IDispatch*)&window->xhr_factory->IHTMLXMLHttpRequestFactory_iface;
2043     IDispatch_AddRef(V_DISPATCH(p));
2044
2045     return S_OK;
2046 }
2047
2048 static const IHTMLWindow5Vtbl HTMLWindow5Vtbl = {
2049     HTMLWindow5_QueryInterface,
2050     HTMLWindow5_AddRef,
2051     HTMLWindow5_Release,
2052     HTMLWindow5_GetTypeInfoCount,
2053     HTMLWindow5_GetTypeInfo,
2054     HTMLWindow5_GetIDsOfNames,
2055     HTMLWindow5_Invoke,
2056     HTMLWindow5_put_XMLHttpRequest,
2057     HTMLWindow5_get_XMLHttpRequest
2058 };
2059
2060 static inline HTMLWindow *impl_from_IHTMLWindow6(IHTMLWindow6 *iface)
2061 {
2062     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow6_iface);
2063 }
2064
2065 static HRESULT WINAPI HTMLWindow6_QueryInterface(IHTMLWindow6 *iface, REFIID riid, void **ppv)
2066 {
2067     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2068
2069     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2070 }
2071
2072 static ULONG WINAPI HTMLWindow6_AddRef(IHTMLWindow6 *iface)
2073 {
2074     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2075
2076     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2077 }
2078
2079 static ULONG WINAPI HTMLWindow6_Release(IHTMLWindow6 *iface)
2080 {
2081     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2082
2083     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2084 }
2085
2086 static HRESULT WINAPI HTMLWindow6_GetTypeInfoCount(IHTMLWindow6 *iface, UINT *pctinfo)
2087 {
2088     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2089
2090     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
2091 }
2092
2093 static HRESULT WINAPI HTMLWindow6_GetTypeInfo(IHTMLWindow6 *iface, UINT iTInfo,
2094                                               LCID lcid, ITypeInfo **ppTInfo)
2095 {
2096     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2097
2098     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2099 }
2100
2101 static HRESULT WINAPI HTMLWindow6_GetIDsOfNames(IHTMLWindow6 *iface, REFIID riid,
2102                                                 LPOLESTR *rgszNames, UINT cNames,
2103                                                 LCID lcid, DISPID *rgDispId)
2104 {
2105     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2106
2107     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
2108             rgDispId);
2109 }
2110
2111 static HRESULT WINAPI HTMLWindow6_Invoke(IHTMLWindow6 *iface, DISPID dispIdMember,
2112                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2113                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2114 {
2115     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2116
2117     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
2118             pDispParams, pVarResult, pExcepInfo, puArgErr);
2119 }
2120
2121 static HRESULT WINAPI HTMLWindow6_put_XDomainRequest(IHTMLWindow6 *iface, VARIANT v)
2122 {
2123     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2124     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2125     return E_NOTIMPL;
2126 }
2127
2128 static HRESULT WINAPI HTMLWindow6_get_XDomainRequest(IHTMLWindow6 *iface, VARIANT *p)
2129 {
2130     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2131     FIXME("(%p)->(%p)\n", This, p);
2132     return E_NOTIMPL;
2133 }
2134
2135 static HRESULT WINAPI HTMLWindow6_get_sessionStorage(IHTMLWindow6 *iface, IHTMLStorage **p)
2136 {
2137     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2138
2139     TRACE("(%p)->(%p)\n", This, p);
2140
2141     if(!This->inner_window->session_storage) {
2142         HRESULT hres;
2143
2144         hres = create_html_storage(dispex_compat_mode(&This->inner_window->event_target.dispex),
2145                                    &This->inner_window->session_storage);
2146         if(FAILED(hres))
2147             return hres;
2148     }
2149
2150     IHTMLStorage_AddRef(This->inner_window->session_storage);
2151     *p = This->inner_window->session_storage;
2152     return S_OK;
2153 }
2154
2155 static HRESULT WINAPI HTMLWindow6_get_localStorage(IHTMLWindow6 *iface, IHTMLStorage **p)
2156 {
2157     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2158
2159     TRACE("(%p)->(%p)\n", This, p);
2160
2161     if(!This->inner_window->local_storage) {
2162         HRESULT hres;
2163
2164         hres = create_html_storage(dispex_compat_mode(&This->inner_window->event_target.dispex),
2165                                    &This->inner_window->local_storage);
2166         if(FAILED(hres))
2167             return hres;
2168     }
2169
2170     IHTMLStorage_AddRef(This->inner_window->local_storage);
2171     *p = This->inner_window->local_storage;
2172     return S_OK;
2173 }
2174
2175 static HRESULT WINAPI HTMLWindow6_put_onhashchange(IHTMLWindow6 *iface, VARIANT v)
2176 {
2177     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2178     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
2179     return E_NOTIMPL;
2180 }
2181
2182 static HRESULT WINAPI HTMLWindow6_get_onhashchange(IHTMLWindow6 *iface, VARIANT *p)
2183 {
2184     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2185     FIXME("(%p)->(%p)\n", This, p);
2186     return E_NOTIMPL;
2187 }
2188
2189 static HRESULT WINAPI HTMLWindow6_get_maxConnectionsPerServer(IHTMLWindow6 *iface, LONG *p)
2190 {
2191     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2192     FIXME("(%p)->(%p)\n", This, p);
2193     return E_NOTIMPL;
2194 }
2195
2196 static HRESULT WINAPI HTMLWindow6_postMessage(IHTMLWindow6 *iface, BSTR msg, VARIANT targetOrigin)
2197 {
2198     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2199     DOMEvent *event;
2200     HRESULT hres;
2201
2202     FIXME("(%p)->(%s %s) semi-stub\n", This, debugstr_w(msg), debugstr_variant(&targetOrigin));
2203
2204     if(!This->inner_window->doc) {
2205         FIXME("No document\n");
2206         return E_FAIL;
2207     }
2208
2209     hres = create_document_event(This->inner_window->doc, EVENTID_MESSAGE, &event);
2210     if(FAILED(hres))
2211         return hres;
2212
2213     dispatch_event(&This->inner_window->event_target, event);
2214     IDOMEvent_Release(&event->IDOMEvent_iface);
2215     return S_OK;
2216 }
2217
2218 static HRESULT WINAPI HTMLWindow6_toStaticHTML(IHTMLWindow6 *iface, BSTR bstrHTML, BSTR *pbstrStaticHTML)
2219 {
2220     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2221     FIXME("(%p)->(%s %p)\n", This, debugstr_w(bstrHTML), pbstrStaticHTML);
2222     return E_NOTIMPL;
2223 }
2224
2225 static HRESULT WINAPI HTMLWindow6_put_onmessage(IHTMLWindow6 *iface, VARIANT v)
2226 {
2227     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2228
2229     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
2230
2231     return set_window_event(This, EVENTID_MESSAGE, &v);
2232 }
2233
2234 static HRESULT WINAPI HTMLWindow6_get_onmessage(IHTMLWindow6 *iface, VARIANT *p)
2235 {
2236     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2237
2238     TRACE("(%p)->(%p)\n", This, p);
2239
2240     return get_window_event(This, EVENTID_MESSAGE, p);
2241 }
2242
2243 static HRESULT WINAPI HTMLWindow6_msWriteProfilerMark(IHTMLWindow6 *iface, BSTR bstrProfilerMark)
2244 {
2245     HTMLWindow *This = impl_from_IHTMLWindow6(iface);
2246     FIXME("(%p)->(%s)\n", This, debugstr_w(bstrProfilerMark));
2247     return E_NOTIMPL;
2248 }
2249
2250 static const IHTMLWindow6Vtbl HTMLWindow6Vtbl = {
2251     HTMLWindow6_QueryInterface,
2252     HTMLWindow6_AddRef,
2253     HTMLWindow6_Release,
2254     HTMLWindow6_GetTypeInfoCount,
2255     HTMLWindow6_GetTypeInfo,
2256     HTMLWindow6_GetIDsOfNames,
2257     HTMLWindow6_Invoke,
2258     HTMLWindow6_put_XDomainRequest,
2259     HTMLWindow6_get_XDomainRequest,
2260     HTMLWindow6_get_sessionStorage,
2261     HTMLWindow6_get_localStorage,
2262     HTMLWindow6_put_onhashchange,
2263     HTMLWindow6_get_onhashchange,
2264     HTMLWindow6_get_maxConnectionsPerServer,
2265     HTMLWindow6_postMessage,
2266     HTMLWindow6_toStaticHTML,
2267     HTMLWindow6_put_onmessage,
2268     HTMLWindow6_get_onmessage,
2269     HTMLWindow6_msWriteProfilerMark
2270 };
2271
2272 static inline HTMLWindow *impl_from_IHTMLWindow7(IHTMLWindow7 *iface)
2273 {
2274     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLWindow7_iface);
2275 }
2276
2277 static HRESULT WINAPI HTMLWindow7_QueryInterface(IHTMLWindow7 *iface, REFIID riid, void **ppv)
2278 {
2279     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2280
2281     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2282 }
2283
2284 static ULONG WINAPI HTMLWindow7_AddRef(IHTMLWindow7 *iface)
2285 {
2286     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2287     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2288 }
2289
2290 static ULONG WINAPI HTMLWindow7_Release(IHTMLWindow7 *iface)
2291 {
2292     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2293     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2294 }
2295
2296 static HRESULT WINAPI HTMLWindow7_GetTypeInfoCount(IHTMLWindow7 *iface, UINT *pctinfo)
2297 {
2298     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2299     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
2300 }
2301
2302 static HRESULT WINAPI HTMLWindow7_GetTypeInfo(IHTMLWindow7 *iface, UINT iTInfo,
2303                                               LCID lcid, ITypeInfo **ppTInfo)
2304 {
2305     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2306     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2307 }
2308
2309 static HRESULT WINAPI HTMLWindow7_GetIDsOfNames(IHTMLWindow7 *iface, REFIID riid,
2310                                                 LPOLESTR *rgszNames, UINT cNames,
2311                                                 LCID lcid, DISPID *rgDispId)
2312 {
2313     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2314     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
2315             rgDispId);
2316 }
2317
2318 static HRESULT WINAPI HTMLWindow7_Invoke(IHTMLWindow7 *iface, DISPID dispIdMember,
2319                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2320                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2321 {
2322     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2323     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
2324             pDispParams, pVarResult, pExcepInfo, puArgErr);
2325 }
2326
2327 static HRESULT WINAPI HTMLWindow7_getSelection(IHTMLWindow7 *iface, IHTMLSelection **p)
2328 {
2329     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2330     FIXME("(%p)->(%p)\n", This, p);
2331     return E_NOTIMPL;
2332 }
2333
2334 static HRESULT WINAPI HTMLWindow7_getComputedStyle(IHTMLWindow7 *iface, IHTMLDOMNode *node,
2335                                                    BSTR pseudo_elt, IHTMLCSSStyleDeclaration **p)
2336 {
2337     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2338     nsIDOMCSSStyleDeclaration *nsstyle;
2339     nsAString pseudo_elt_str;
2340     HTMLElement *element;
2341     IHTMLElement *elem;
2342     nsresult nsres;
2343     HRESULT hres;
2344
2345     TRACE("(%p)->(%p %s %p)\n", This, node, debugstr_w(pseudo_elt), p);
2346
2347     if(!This->outer_window || !This->inner_window)
2348         return E_UNEXPECTED;
2349
2350     hres = IHTMLDOMNode_QueryInterface(node, &IID_IHTMLElement, (void**)&elem);
2351     if(FAILED(hres))
2352         return hres;
2353
2354     element = unsafe_impl_from_IHTMLElement(elem);
2355     if(!element) {
2356         WARN("Not our element\n");
2357         IHTMLElement_Release(elem);
2358         return E_INVALIDARG;
2359     }
2360
2361     nsAString_Init(&pseudo_elt_str, NULL);
2362     nsres = nsIDOMWindow_GetComputedStyle(This->outer_window->nswindow, element->dom_element,
2363                                           &pseudo_elt_str, &nsstyle);
2364     IHTMLElement_Release(elem);
2365     nsAString_Finish(&pseudo_elt_str);
2366     if(NS_FAILED(nsres)) {
2367         FIXME("GetComputedStyle failed: %08x\n", nsres);
2368         return E_FAIL;
2369     }
2370
2371     if (!nsstyle)
2372     {
2373         FIXME("nsIDOMWindow_GetComputedStyle returned NULL nsstyle.\n");
2374         *p = NULL;
2375         return S_OK;
2376     }
2377
2378     hres = create_computed_style(nsstyle, dispex_compat_mode(&This->inner_window->event_target.dispex), p);
2379     nsIDOMCSSStyleDeclaration_Release(nsstyle);
2380     return hres;
2381 }
2382
2383 static HRESULT WINAPI HTMLWindow7_get_styleMedia(IHTMLWindow7 *iface, IHTMLStyleMedia **p)
2384 {
2385     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2386     FIXME("(%p)->(%p)\n", This, p);
2387     return E_NOTIMPL;
2388 }
2389
2390 static HRESULT WINAPI HTMLWindow7_put_performance(IHTMLWindow7 *iface, VARIANT v)
2391 {
2392     HTMLInnerWindow *This = impl_from_IHTMLWindow7(iface)->inner_window;
2393
2394     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
2395
2396     if(!This->performance_initialized) {
2397         V_VT(&This->performance) = VT_EMPTY;
2398         This->performance_initialized = TRUE;
2399     }
2400
2401     return VariantCopy(&This->performance, &v);
2402 }
2403
2404 static HRESULT WINAPI HTMLWindow7_get_performance(IHTMLWindow7 *iface, VARIANT *p)
2405 {
2406     HTMLInnerWindow *This = impl_from_IHTMLWindow7(iface)->inner_window;
2407     HRESULT hres;
2408
2409     TRACE("(%p)->(%p)\n", This, p);
2410
2411     if(!This->performance_initialized) {
2412         IHTMLPerformance *performance;
2413
2414         hres = create_performance(dispex_compat_mode(&This->event_target.dispex), &performance);
2415         if(FAILED(hres))
2416             return hres;
2417
2418         V_VT(&This->performance) = VT_DISPATCH;
2419         V_DISPATCH(&This->performance) = (IDispatch*)performance;
2420         This->performance_initialized = TRUE;
2421     }
2422
2423     V_VT(p) = VT_NULL;
2424     return VariantCopy(p, &This->performance);
2425 }
2426
2427 static HRESULT WINAPI HTMLWindow7_get_innerWidth(IHTMLWindow7 *iface, LONG *p)
2428 {
2429     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2430     INT32 ret;
2431     nsresult nsres;
2432
2433     TRACE("(%p)->(%p)\n", This, p);
2434
2435     nsres = nsIDOMWindow_GetInnerWidth(This->outer_window->nswindow, &ret);
2436     if(NS_FAILED(nsres)) {
2437         ERR("GetInnerWidth failed: %08x\n", nsres);
2438         return E_FAIL;
2439     }
2440
2441     *p = ret;
2442     return S_OK;
2443 }
2444
2445 static HRESULT WINAPI HTMLWindow7_get_innerHeight(IHTMLWindow7 *iface, LONG *p)
2446 {
2447     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2448     INT32 ret;
2449     nsresult nsres;
2450
2451     TRACE("(%p)->(%p)\n", This, p);
2452
2453     nsres = nsIDOMWindow_GetInnerHeight(This->outer_window->nswindow, &ret);
2454     if(NS_FAILED(nsres)) {
2455         ERR("GetInnerWidth failed: %08x\n", nsres);
2456         return E_FAIL;
2457     }
2458
2459     *p = ret;
2460     return S_OK;
2461 }
2462
2463 static HRESULT WINAPI HTMLWindow7_get_pageXOffset(IHTMLWindow7 *iface, LONG *p)
2464 {
2465     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2466     nsresult nsres;
2467     INT32 ret;
2468
2469     TRACE("(%p)->(%p)\n", This, p);
2470
2471     nsres = nsIDOMWindow_GetPageXOffset(This->outer_window->nswindow, &ret);
2472     if(NS_FAILED(nsres)) {
2473         ERR("GetPageXOffset failed: %08x\n", nsres);
2474         return E_FAIL;
2475     }
2476
2477     *p = ret;
2478     return S_OK;
2479 }
2480
2481 static HRESULT WINAPI HTMLWindow7_get_pageYOffset(IHTMLWindow7 *iface, LONG *p)
2482 {
2483     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2484     nsresult nsres;
2485     INT32 ret;
2486
2487     TRACE("(%p)->(%p)\n", This, p);
2488
2489     nsres = nsIDOMWindow_GetPageYOffset(This->outer_window->nswindow, &ret);
2490     if(NS_FAILED(nsres)) {
2491         ERR("GetPageYOffset failed: %08x\n", nsres);
2492         return E_FAIL;
2493     }
2494
2495     *p = ret;
2496     return S_OK;
2497 }
2498
2499 static HRESULT WINAPI HTMLWindow7_get_screenX(IHTMLWindow7 *iface, LONG *p)
2500 {
2501     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2502     FIXME("(%p)->(%p)\n", This, p);
2503     return E_NOTIMPL;
2504 }
2505
2506 static HRESULT WINAPI HTMLWindow7_get_screenY(IHTMLWindow7 *iface, LONG *p)
2507 {
2508     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2509     FIXME("(%p)->(%p)\n", This, p);
2510     return E_NOTIMPL;
2511 }
2512
2513 static HRESULT WINAPI HTMLWindow7_get_outerWidth(IHTMLWindow7 *iface, LONG *p)
2514 {
2515     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2516     FIXME("(%p)->(%p)\n", This, p);
2517     return E_NOTIMPL;
2518 }
2519
2520 static HRESULT WINAPI HTMLWindow7_get_outerHeight(IHTMLWindow7 *iface, LONG *p)
2521 {
2522     HTMLWindow *This = impl_from_IHTMLWindow7(iface);
2523     FIXME("(%p)->(%p)\n", This, p);
2524     return E_NOTIMPL;
2525 }
2526
2527 #define HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(name, event_id) \
2528     static HRESULT WINAPI HTMLWindow7_put_on##name(IHTMLWindow7 *iface, VARIANT v) \
2529     { \
2530         HTMLWindow *This = impl_from_IHTMLWindow7(iface); \
2531         TRACE("(%p)->(%s)\n", This, debugstr_variant(&v)); \
2532         return set_window_event(This, event_id, &v); \
2533     } \
2534     static HRESULT WINAPI HTMLWindow7_get_on##name(IHTMLWindow7 *iface, VARIANT *p) \
2535     { \
2536         HTMLWindow *This = impl_from_IHTMLWindow7(iface); \
2537         TRACE("(%p)->(%p)\n", This, p); \
2538         return get_window_event(This, event_id, p); \
2539     }
2540
2541 #define HTMLWINDOW7_ONEVENT_PROPERTY_STUB(name)                         \
2542     static HRESULT WINAPI HTMLWindow7_put_on##name(IHTMLWindow7 *iface, VARIANT v) \
2543     { \
2544         HTMLWindow *This = impl_from_IHTMLWindow7(iface); \
2545         FIXME("(%p)->(%s)\n", This, debugstr_variant(&v)); \
2546         return E_NOTIMPL; \
2547     } \
2548     static HRESULT WINAPI HTMLWindow7_get_on##name(IHTMLWindow7 *iface, VARIANT *p) \
2549     { \
2550         HTMLWindow *This = impl_from_IHTMLWindow7(iface); \
2551         FIXME("(%p)->(%p)\n", This, p); \
2552         return E_NOTIMPL; \
2553     }
2554
2555 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(abort,            EVENTID_ABORT)
2556 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(canplay)
2557 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(canplaythrough)
2558 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(change)
2559 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(click)
2560 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(contextmenu,      EVENTID_CONTEXTMENU)
2561 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(dblclick,         EVENTID_DBLCLICK)
2562 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(drag,             EVENTID_DRAG)
2563 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(dragend)
2564 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(dragenter)
2565 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(dragleave)
2566 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(dragover)
2567 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(dragstart,        EVENTID_DRAGSTART)
2568 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(drop)
2569 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(durationchange)
2570 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(focusin,          EVENTID_FOCUSIN)
2571 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(focusout,         EVENTID_FOCUSOUT)
2572 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(input,            EVENTID_INPUT)
2573 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(emptied)
2574 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(ended)
2575 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(keydown,          EVENTID_KEYDOWN)
2576 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(keypress,         EVENTID_KEYPRESS)
2577 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(keyup)
2578 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(loadeddata)
2579 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(loadedmetadata)
2580 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(loadstart)
2581 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mousedown,        EVENTID_MOUSEDOWN)
2582 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(mouseenter)
2583 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(mouseleave)
2584 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mousemove,        EVENTID_MOUSEMOVE)
2585 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mouseout,         EVENTID_MOUSEOUT)
2586 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mouseover,        EVENTID_MOUSEOVER)
2587 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mouseup,          EVENTID_MOUSEUP)
2588 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(mousewheel,       EVENTID_MOUSEWHEEL)
2589 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(offline)
2590 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(online)
2591 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(progress)
2592 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(ratechange)
2593 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(readystatechange, EVENTID_READYSTATECHANGE)
2594 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(reset)
2595 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(seeked)
2596 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(seeking)
2597 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(select)
2598 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(stalled)
2599 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(storage)
2600 HTMLWINDOW7_ONEVENT_PROPERTY_IMPL(submit,           EVENTID_SUBMIT)
2601 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(suspend)
2602 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(timeupdate)
2603 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(pause)
2604 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(play)
2605 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(playing)
2606 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(volumechange)
2607 HTMLWINDOW7_ONEVENT_PROPERTY_STUB(waiting)
2608
2609 static const IHTMLWindow7Vtbl HTMLWindow7Vtbl = {
2610     HTMLWindow7_QueryInterface,
2611     HTMLWindow7_AddRef,
2612     HTMLWindow7_Release,
2613     HTMLWindow7_GetTypeInfoCount,
2614     HTMLWindow7_GetTypeInfo,
2615     HTMLWindow7_GetIDsOfNames,
2616     HTMLWindow7_Invoke,
2617     HTMLWindow7_getSelection,
2618     HTMLWindow7_getComputedStyle,
2619     HTMLWindow7_get_styleMedia,
2620     HTMLWindow7_put_performance,
2621     HTMLWindow7_get_performance,
2622     HTMLWindow7_get_innerWidth,
2623     HTMLWindow7_get_innerHeight,
2624     HTMLWindow7_get_pageXOffset,
2625     HTMLWindow7_get_pageYOffset,
2626     HTMLWindow7_get_screenX,
2627     HTMLWindow7_get_screenY,
2628     HTMLWindow7_get_outerWidth,
2629     HTMLWindow7_get_outerHeight,
2630     HTMLWindow7_put_onabort,
2631     HTMLWindow7_get_onabort,
2632     HTMLWindow7_put_oncanplay,
2633     HTMLWindow7_get_oncanplay,
2634     HTMLWindow7_put_oncanplaythrough,
2635     HTMLWindow7_get_oncanplaythrough,
2636     HTMLWindow7_put_onchange,
2637     HTMLWindow7_get_onchange,
2638     HTMLWindow7_put_onclick,
2639     HTMLWindow7_get_onclick,
2640     HTMLWindow7_put_oncontextmenu,
2641     HTMLWindow7_get_oncontextmenu,
2642     HTMLWindow7_put_ondblclick,
2643     HTMLWindow7_get_ondblclick,
2644     HTMLWindow7_put_ondrag,
2645     HTMLWindow7_get_ondrag,
2646     HTMLWindow7_put_ondragend,
2647     HTMLWindow7_get_ondragend,
2648     HTMLWindow7_put_ondragenter,
2649     HTMLWindow7_get_ondragenter,
2650     HTMLWindow7_put_ondragleave,
2651     HTMLWindow7_get_ondragleave,
2652     HTMLWindow7_put_ondragover,
2653     HTMLWindow7_get_ondragover,
2654     HTMLWindow7_put_ondragstart,
2655     HTMLWindow7_get_ondragstart,
2656     HTMLWindow7_put_ondrop,
2657     HTMLWindow7_get_ondrop,
2658     HTMLWindow7_put_ondurationchange,
2659     HTMLWindow7_get_ondurationchange,
2660     HTMLWindow7_put_onfocusin,
2661     HTMLWindow7_get_onfocusin,
2662     HTMLWindow7_put_onfocusout,
2663     HTMLWindow7_get_onfocusout,
2664     HTMLWindow7_put_oninput,
2665     HTMLWindow7_get_oninput,
2666     HTMLWindow7_put_onemptied,
2667     HTMLWindow7_get_onemptied,
2668     HTMLWindow7_put_onended,
2669     HTMLWindow7_get_onended,
2670     HTMLWindow7_put_onkeydown,
2671     HTMLWindow7_get_onkeydown,
2672     HTMLWindow7_put_onkeypress,
2673     HTMLWindow7_get_onkeypress,
2674     HTMLWindow7_put_onkeyup,
2675     HTMLWindow7_get_onkeyup,
2676     HTMLWindow7_put_onloadeddata,
2677     HTMLWindow7_get_onloadeddata,
2678     HTMLWindow7_put_onloadedmetadata,
2679     HTMLWindow7_get_onloadedmetadata,
2680     HTMLWindow7_put_onloadstart,
2681     HTMLWindow7_get_onloadstart,
2682     HTMLWindow7_put_onmousedown,
2683     HTMLWindow7_get_onmousedown,
2684     HTMLWindow7_put_onmouseenter,
2685     HTMLWindow7_get_onmouseenter,
2686     HTMLWindow7_put_onmouseleave,
2687     HTMLWindow7_get_onmouseleave,
2688     HTMLWindow7_put_onmousemove,
2689     HTMLWindow7_get_onmousemove,
2690     HTMLWindow7_put_onmouseout,
2691     HTMLWindow7_get_onmouseout,
2692     HTMLWindow7_put_onmouseover,
2693     HTMLWindow7_get_onmouseover,
2694     HTMLWindow7_put_onmouseup,
2695     HTMLWindow7_get_onmouseup,
2696     HTMLWindow7_put_onmousewheel,
2697     HTMLWindow7_get_onmousewheel,
2698     HTMLWindow7_put_onoffline,
2699     HTMLWindow7_get_onoffline,
2700     HTMLWindow7_put_ononline,
2701     HTMLWindow7_get_ononline,
2702     HTMLWindow7_put_onprogress,
2703     HTMLWindow7_get_onprogress,
2704     HTMLWindow7_put_onratechange,
2705     HTMLWindow7_get_onratechange,
2706     HTMLWindow7_put_onreadystatechange,
2707     HTMLWindow7_get_onreadystatechange,
2708     HTMLWindow7_put_onreset,
2709     HTMLWindow7_get_onreset,
2710     HTMLWindow7_put_onseeked,
2711     HTMLWindow7_get_onseeked,
2712     HTMLWindow7_put_onseeking,
2713     HTMLWindow7_get_onseeking,
2714     HTMLWindow7_put_onselect,
2715     HTMLWindow7_get_onselect,
2716     HTMLWindow7_put_onstalled,
2717     HTMLWindow7_get_onstalled,
2718     HTMLWindow7_put_onstorage,
2719     HTMLWindow7_get_onstorage,
2720     HTMLWindow7_put_onsubmit,
2721     HTMLWindow7_get_onsubmit,
2722     HTMLWindow7_put_onsuspend,
2723     HTMLWindow7_get_onsuspend,
2724     HTMLWindow7_put_ontimeupdate,
2725     HTMLWindow7_get_ontimeupdate,
2726     HTMLWindow7_put_onpause,
2727     HTMLWindow7_get_onpause,
2728     HTMLWindow7_put_onplay,
2729     HTMLWindow7_get_onplay,
2730     HTMLWindow7_put_onplaying,
2731     HTMLWindow7_get_onplaying,
2732     HTMLWindow7_put_onvolumechange,
2733     HTMLWindow7_get_onvolumechange,
2734     HTMLWindow7_put_onwaiting,
2735     HTMLWindow7_get_onwaiting
2736 };
2737
2738 static inline HTMLWindow *impl_from_IHTMLPrivateWindow(IHTMLPrivateWindow *iface)
2739 {
2740     return CONTAINING_RECORD(iface, HTMLWindow, IHTMLPrivateWindow_iface);
2741 }
2742
2743 static HRESULT WINAPI HTMLPrivateWindow_QueryInterface(IHTMLPrivateWindow *iface, REFIID riid, void **ppv)
2744 {
2745     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2746
2747     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2748 }
2749
2750 static ULONG WINAPI HTMLPrivateWindow_AddRef(IHTMLPrivateWindow *iface)
2751 {
2752     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2753
2754     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2755 }
2756
2757 static ULONG WINAPI HTMLPrivateWindow_Release(IHTMLPrivateWindow *iface)
2758 {
2759     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2760
2761     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2762 }
2763
2764 static HRESULT WINAPI HTMLPrivateWindow_SuperNavigate(IHTMLPrivateWindow *iface, BSTR url, BSTR arg2, BSTR arg3,
2765         BSTR arg4, VARIANT *post_data_var, VARIANT *headers_var, ULONG flags)
2766 {
2767     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2768     HTMLOuterWindow *window = This->outer_window;
2769     OLECHAR *translated_url = NULL;
2770     DWORD post_data_size = 0;
2771     BYTE *post_data = NULL;
2772     WCHAR *headers = NULL;
2773     IUri *uri;
2774     HRESULT hres;
2775
2776     TRACE("(%p)->(%s %s %s %s %s %s %x)\n", This, debugstr_w(url), debugstr_w(arg2), debugstr_w(arg3), debugstr_w(arg4),
2777           debugstr_variant(post_data_var), debugstr_variant(headers_var), flags);
2778
2779     if(!window || !window->browser)
2780         return E_UNEXPECTED;
2781
2782     if(window->browser->doc->hostui) {
2783         hres = IDocHostUIHandler_TranslateUrl(window->browser->doc->hostui, 0, url, &translated_url);
2784         if(hres != S_OK)
2785             translated_url = NULL;
2786     }
2787
2788     hres = create_uri(translated_url ? translated_url : url, 0, &uri);
2789     CoTaskMemFree(translated_url);
2790     if(FAILED(hres))
2791         return hres;
2792
2793     if(post_data_var) {
2794         if(V_VT(post_data_var) == (VT_ARRAY|VT_UI1)) {
2795             SafeArrayAccessData(V_ARRAY(post_data_var), (void**)&post_data);
2796             post_data_size = V_ARRAY(post_data_var)->rgsabound[0].cElements;
2797         }
2798     }
2799
2800     if(headers_var && V_VT(headers_var) != VT_EMPTY && V_VT(headers_var) != VT_ERROR) {
2801         if(V_VT(headers_var) != VT_BSTR)
2802             return E_INVALIDARG;
2803
2804         headers = V_BSTR(headers_var);
2805     }
2806
2807     hres = super_navigate(window, uri, BINDING_NAVIGATED|BINDING_NOFRAG, headers, post_data, post_data_size);
2808     IUri_Release(uri);
2809     if(post_data)
2810         SafeArrayUnaccessData(V_ARRAY(post_data_var));
2811
2812     return hres;
2813 }
2814
2815 static HRESULT WINAPI HTMLPrivateWindow_GetPendingUrl(IHTMLPrivateWindow *iface, BSTR *url)
2816 {
2817     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2818     FIXME("(%p)->(%p)\n", This, url);
2819     return E_NOTIMPL;
2820 }
2821
2822 static HRESULT WINAPI HTMLPrivateWindow_SetPICSTarget(IHTMLPrivateWindow *iface, IOleCommandTarget *cmdtrg)
2823 {
2824     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2825     FIXME("(%p)->(%p)\n", This, cmdtrg);
2826     return E_NOTIMPL;
2827 }
2828
2829 static HRESULT WINAPI HTMLPrivateWindow_PICSComplete(IHTMLPrivateWindow *iface, int arg)
2830 {
2831     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2832     FIXME("(%p)->(%x)\n", This, arg);
2833     return E_NOTIMPL;
2834 }
2835
2836 static HRESULT WINAPI HTMLPrivateWindow_FindWindowByName(IHTMLPrivateWindow *iface, LPCWSTR name, IHTMLWindow2 **ret)
2837 {
2838     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2839     FIXME("(%p)->(%s %p)\n", This, debugstr_w(name), ret);
2840     return E_NOTIMPL;
2841 }
2842
2843 static HRESULT WINAPI HTMLPrivateWindow_GetAddressBarUrl(IHTMLPrivateWindow *iface, BSTR *url)
2844 {
2845     HTMLWindow *This = impl_from_IHTMLPrivateWindow(iface);
2846     TRACE("(%p)->(%p)\n", This, url);
2847
2848     if(!url)
2849         return E_INVALIDARG;
2850
2851     *url = SysAllocString(This->outer_window->url);
2852     return S_OK;
2853 }
2854
2855 static const IHTMLPrivateWindowVtbl HTMLPrivateWindowVtbl = {
2856     HTMLPrivateWindow_QueryInterface,
2857     HTMLPrivateWindow_AddRef,
2858     HTMLPrivateWindow_Release,
2859     HTMLPrivateWindow_SuperNavigate,
2860     HTMLPrivateWindow_GetPendingUrl,
2861     HTMLPrivateWindow_SetPICSTarget,
2862     HTMLPrivateWindow_PICSComplete,
2863     HTMLPrivateWindow_FindWindowByName,
2864     HTMLPrivateWindow_GetAddressBarUrl
2865 };
2866
2867 static inline HTMLWindow *impl_from_ITravelLogClient(ITravelLogClient *iface)
2868 {
2869     return CONTAINING_RECORD(iface, HTMLWindow, ITravelLogClient_iface);
2870 }
2871
2872 static HRESULT WINAPI TravelLogClient_QueryInterface(ITravelLogClient *iface, REFIID riid, void **ppv)
2873 {
2874     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2875
2876     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2877 }
2878
2879 static ULONG WINAPI TravelLogClient_AddRef(ITravelLogClient *iface)
2880 {
2881     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2882
2883     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2884 }
2885
2886 static ULONG WINAPI TravelLogClient_Release(ITravelLogClient *iface)
2887 {
2888     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2889
2890     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2891 }
2892
2893 static HRESULT WINAPI TravelLogClient_FindWindowByIndex(ITravelLogClient *iface, DWORD dwID, IUnknown **ppunk)
2894 {
2895     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2896
2897     FIXME("(%p)->(%d %p) semi-stub\n", This, dwID, ppunk);
2898
2899     *ppunk = NULL;
2900     return E_FAIL;
2901 }
2902
2903 static HRESULT WINAPI TravelLogClient_GetWindowData(ITravelLogClient *iface, IStream *pStream, LPWINDOWDATA pWinData)
2904 {
2905     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2906     FIXME("(%p)->(%p %p)\n", This, pStream, pWinData);
2907     return E_NOTIMPL;
2908 }
2909
2910 static HRESULT WINAPI TravelLogClient_LoadHistoryPosition(ITravelLogClient *iface, LPWSTR pszUrlLocation, DWORD dwPosition)
2911 {
2912     HTMLWindow *This = impl_from_ITravelLogClient(iface);
2913     FIXME("(%p)->(%s %d)\n", This, debugstr_w(pszUrlLocation), dwPosition);
2914     return E_NOTIMPL;
2915 }
2916
2917 static const ITravelLogClientVtbl TravelLogClientVtbl = {
2918     TravelLogClient_QueryInterface,
2919     TravelLogClient_AddRef,
2920     TravelLogClient_Release,
2921     TravelLogClient_FindWindowByIndex,
2922     TravelLogClient_GetWindowData,
2923     TravelLogClient_LoadHistoryPosition
2924 };
2925
2926 static inline HTMLWindow *impl_from_IObjectIdentity(IObjectIdentity *iface)
2927 {
2928     return CONTAINING_RECORD(iface, HTMLWindow, IObjectIdentity_iface);
2929 }
2930
2931 static HRESULT WINAPI ObjectIdentity_QueryInterface(IObjectIdentity *iface, REFIID riid, void **ppv)
2932 {
2933     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2934
2935     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2936 }
2937
2938 static ULONG WINAPI ObjectIdentity_AddRef(IObjectIdentity *iface)
2939 {
2940     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2941
2942     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2943 }
2944
2945 static ULONG WINAPI ObjectIdentity_Release(IObjectIdentity *iface)
2946 {
2947     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2948
2949     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2950 }
2951
2952 static HRESULT WINAPI ObjectIdentity_IsEqualObject(IObjectIdentity *iface, IUnknown *unk)
2953 {
2954     HTMLWindow *This = impl_from_IObjectIdentity(iface);
2955     IServiceProvider *sp;
2956     HRESULT hres;
2957
2958     TRACE("(%p)->(%p)\n", This, unk);
2959
2960     hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&sp);
2961     if(hres != S_OK)
2962         return hres;
2963
2964     hres = &This->inner_window->base.IServiceProvider_iface==sp ||
2965         &This->outer_window->base.IServiceProvider_iface==sp ? S_OK : S_FALSE;
2966     IServiceProvider_Release(sp);
2967     return hres;
2968 }
2969
2970 static const IObjectIdentityVtbl ObjectIdentityVtbl = {
2971     ObjectIdentity_QueryInterface,
2972     ObjectIdentity_AddRef,
2973     ObjectIdentity_Release,
2974     ObjectIdentity_IsEqualObject
2975 };
2976
2977 static inline HTMLWindow *impl_from_IProvideMultipleClassInfo(IProvideMultipleClassInfo *iface)
2978 {
2979     return CONTAINING_RECORD(iface, HTMLWindow, IProvideMultipleClassInfo_iface);
2980 }
2981
2982 static HRESULT WINAPI ProvideClassInfo_QueryInterface(IProvideMultipleClassInfo *iface,
2983         REFIID riid, void **ppv)
2984 {
2985     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2986     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
2987 }
2988
2989 static ULONG WINAPI ProvideClassInfo_AddRef(IProvideMultipleClassInfo *iface)
2990 {
2991     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2992     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
2993 }
2994
2995 static ULONG WINAPI ProvideClassInfo_Release(IProvideMultipleClassInfo *iface)
2996 {
2997     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
2998     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
2999 }
3000
3001 static HRESULT WINAPI ProvideClassInfo_GetClassInfo(IProvideMultipleClassInfo *iface, ITypeInfo **ppTI)
3002 {
3003     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
3004     TRACE("(%p)->(%p)\n", This, ppTI);
3005     return get_class_typeinfo(&CLSID_HTMLWindow2, ppTI);
3006 }
3007
3008 static HRESULT WINAPI ProvideClassInfo2_GetGUID(IProvideMultipleClassInfo *iface, DWORD dwGuidKind, GUID *pGUID)
3009 {
3010     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
3011     FIXME("(%p)->(%u %p)\n", This, dwGuidKind, pGUID);
3012     return E_NOTIMPL;
3013 }
3014
3015 static HRESULT WINAPI ProvideMultipleClassInfo_GetMultiTypeInfoCount(IProvideMultipleClassInfo *iface, ULONG *pcti)
3016 {
3017     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
3018     FIXME("(%p)->(%p)\n", This, pcti);
3019     *pcti = 1;
3020     return S_OK;
3021 }
3022
3023 static HRESULT WINAPI ProvideMultipleClassInfo_GetInfoOfIndex(IProvideMultipleClassInfo *iface, ULONG iti,
3024         DWORD dwFlags, ITypeInfo **pptiCoClass, DWORD *pdwTIFlags, ULONG *pcdispidReserved, IID *piidPrimary, IID *piidSource)
3025 {
3026     HTMLWindow *This = impl_from_IProvideMultipleClassInfo(iface);
3027     FIXME("(%p)->(%u %x %p %p %p %p %p)\n", This, iti, dwFlags, pptiCoClass, pdwTIFlags, pcdispidReserved, piidPrimary, piidSource);
3028     return E_NOTIMPL;
3029 }
3030
3031 static const IProvideMultipleClassInfoVtbl ProvideMultipleClassInfoVtbl = {
3032     ProvideClassInfo_QueryInterface,
3033     ProvideClassInfo_AddRef,
3034     ProvideClassInfo_Release,
3035     ProvideClassInfo_GetClassInfo,
3036     ProvideClassInfo2_GetGUID,
3037     ProvideMultipleClassInfo_GetMultiTypeInfoCount,
3038     ProvideMultipleClassInfo_GetInfoOfIndex
3039 };
3040
3041 static inline HTMLWindow *impl_from_IWineHTMLWindowPrivateVtbl(IWineHTMLWindowPrivate *iface)
3042 {
3043     return CONTAINING_RECORD(iface, HTMLWindow, IWineHTMLWindowPrivate_iface);
3044 }
3045
3046 static HRESULT WINAPI window_private_QueryInterface(IWineHTMLWindowPrivate *iface,
3047         REFIID riid, void **ppv)
3048 {
3049     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3050
3051     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
3052 }
3053
3054 static ULONG WINAPI window_private_AddRef(IWineHTMLWindowPrivate *iface)
3055 {
3056     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3057
3058     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
3059 }
3060
3061 static ULONG WINAPI window_private_Release(IWineHTMLWindowPrivate *iface)
3062 {
3063     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3064
3065     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
3066 }
3067
3068 static HRESULT WINAPI window_private_GetTypeInfoCount(IWineHTMLWindowPrivate *iface, UINT *pctinfo)
3069 {
3070     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3071
3072     return IDispatchEx_GetTypeInfoCount(&This->IDispatchEx_iface, pctinfo);
3073 }
3074
3075 static HRESULT WINAPI window_private_GetTypeInfo(IWineHTMLWindowPrivate *iface, UINT iTInfo,
3076                                               LCID lcid, ITypeInfo **ppTInfo)
3077 {
3078     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3079
3080     return IDispatchEx_GetTypeInfo(&This->IDispatchEx_iface, iTInfo, lcid, ppTInfo);
3081 }
3082
3083 static HRESULT WINAPI window_private_GetIDsOfNames(IWineHTMLWindowPrivate *iface, REFIID riid,
3084                                                 LPOLESTR *rgszNames, UINT cNames,
3085                                                 LCID lcid, DISPID *rgDispId)
3086 {
3087     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3088
3089     return IDispatchEx_GetIDsOfNames(&This->IDispatchEx_iface, riid, rgszNames, cNames, lcid,
3090             rgDispId);
3091 }
3092
3093 static HRESULT WINAPI window_private_Invoke(IWineHTMLWindowPrivate *iface, DISPID dispIdMember,
3094                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
3095                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
3096 {
3097     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3098
3099     return IDispatchEx_Invoke(&This->IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
3100             pDispParams, pVarResult, pExcepInfo, puArgErr);
3101 }
3102
3103 static HRESULT WINAPI window_private_requestAnimationFrame(IWineHTMLWindowPrivate *iface,
3104         VARIANT *expr, VARIANT *timer_id)
3105 {
3106     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3107     HRESULT hres;
3108     LONG r;
3109
3110     FIXME("iface %p, expr %p, timer_id %p semi-stub.\n", iface, expr, timer_id);
3111
3112     hres = window_set_timer(This->inner_window, expr, 50, NULL, TIMER_ANIMATION_FRAME, &r);
3113     if(SUCCEEDED(hres) && timer_id) {
3114         V_VT(timer_id) = VT_I4;
3115         V_I4(timer_id) = r;
3116     }
3117
3118     return hres;
3119 }
3120
3121 static HRESULT WINAPI window_private_get_console(IWineHTMLWindowPrivate *iface, IDispatch **console)
3122 {
3123     HTMLWindow *This = impl_from_IWineHTMLWindowPrivateVtbl(iface);
3124
3125     TRACE("iface %p, console %p.\n", iface, console);
3126
3127     if (!This->console)
3128         create_console(dispex_compat_mode(&This->inner_window->event_target.dispex), &This->console);
3129
3130     *console = (IDispatch *)This->console;
3131     if (This->console)
3132         IWineMSHTMLConsole_AddRef(This->console);
3133     return S_OK;
3134 }
3135
3136 static const IWineHTMLWindowPrivateVtbl WineHTMLWindowPrivateVtbl = {
3137     window_private_QueryInterface,
3138     window_private_AddRef,
3139     window_private_Release,
3140     window_private_GetTypeInfoCount,
3141     window_private_GetTypeInfo,
3142     window_private_GetIDsOfNames,
3143     window_private_Invoke,
3144     window_private_requestAnimationFrame,
3145     window_private_get_console,
3146 };
3147
3148 static inline HTMLWindow *impl_from_IDispatchEx(IDispatchEx *iface)
3149 {
3150     return CONTAINING_RECORD(iface, HTMLWindow, IDispatchEx_iface);
3151 }
3152
3153 static HRESULT WINAPI WindowDispEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
3154 {
3155     HTMLWindow *This = impl_from_IDispatchEx(iface);
3156
3157     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
3158 }
3159
3160 static ULONG WINAPI WindowDispEx_AddRef(IDispatchEx *iface)
3161 {
3162     HTMLWindow *This = impl_from_IDispatchEx(iface);
3163
3164     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
3165 }
3166
3167 static ULONG WINAPI WindowDispEx_Release(IDispatchEx *iface)
3168 {
3169     HTMLWindow *This = impl_from_IDispatchEx(iface);
3170
3171     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
3172 }
3173
3174 static HRESULT WINAPI WindowDispEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
3175 {
3176     HTMLWindow *This = impl_from_IDispatchEx(iface);
3177
3178     TRACE("(%p)->(%p)\n", This, pctinfo);
3179
3180     return IDispatchEx_GetTypeInfoCount(&This->inner_window->event_target.dispex.IDispatchEx_iface, pctinfo);
3181 }
3182
3183 static HRESULT WINAPI WindowDispEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
3184                                                LCID lcid, ITypeInfo **ppTInfo)
3185 {
3186     HTMLWindow *This = impl_from_IDispatchEx(iface);
3187
3188     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
3189
3190     return IDispatchEx_GetTypeInfo(&This->inner_window->event_target.dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
3191 }
3192
3193 static HRESULT WINAPI WindowDispEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
3194                                                  LPOLESTR *rgszNames, UINT cNames,
3195                                                  LCID lcid, DISPID *rgDispId)
3196 {
3197     HTMLWindow *This = impl_from_IDispatchEx(iface);
3198     UINT i;
3199     HRESULT hres;
3200
3201     WARN("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames, lcid, rgDispId);
3202
3203     for(i=0; i < cNames; i++) {
3204         /* We shouldn't use script's IDispatchEx here, so we shouldn't use GetDispID */
3205         hres = IDispatchEx_GetDispID(&This->IDispatchEx_iface, rgszNames[i], 0, rgDispId+i);
3206         if(FAILED(hres))
3207             return hres;
3208     }
3209
3210     return S_OK;
3211 }
3212
3213 static HRESULT WINAPI WindowDispEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
3214                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
3215                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
3216 {
3217     HTMLWindow *This = impl_from_IDispatchEx(iface);
3218
3219     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
3220           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
3221
3222     /* FIXME: Use script dispatch */
3223
3224     return IDispatchEx_Invoke(&This->inner_window->event_target.dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
3225             pDispParams, pVarResult, pExcepInfo, puArgErr);
3226 }
3227
3228 static global_prop_t *alloc_global_prop(HTMLInnerWindow *This, global_prop_type_t type, BSTR name)
3229 {
3230     if(This->global_prop_cnt == This->global_prop_size) {
3231         global_prop_t *new_props;
3232         DWORD new_size;
3233
3234         if(This->global_props) {
3235             new_size = This->global_prop_size*2;
3236             new_props = heap_realloc(This->global_props, new_size*sizeof(global_prop_t));
3237         }else {
3238             new_size = 16;
3239             new_props = heap_alloc(new_size*sizeof(global_prop_t));
3240         }
3241         if(!new_props)
3242             return NULL;
3243         This->global_props = new_props;
3244         This->global_prop_size = new_size;
3245     }
3246
3247     This->global_props[This->global_prop_cnt].name = heap_strdupW(name);
3248     if(!This->global_props[This->global_prop_cnt].name)
3249         return NULL;
3250
3251     This->global_props[This->global_prop_cnt].type = type;
3252     return This->global_props + This->global_prop_cnt++;
3253 }
3254
3255 static inline DWORD prop_to_dispid(HTMLInnerWindow *This, global_prop_t *prop)
3256 {
3257     return MSHTML_DISPID_CUSTOM_MIN + (prop-This->global_props);
3258 }
3259
3260 HRESULT search_window_props(HTMLInnerWindow *This, BSTR bstrName, DWORD grfdex, DISPID *pid)
3261 {
3262     DWORD i;
3263     ScriptHost *script_host;
3264     DISPID id;
3265
3266     for(i=0; i < This->global_prop_cnt; i++) {
3267         /* FIXME: case sensitivity */
3268         if(!wcscmp(This->global_props[i].name, bstrName)) {
3269             *pid = MSHTML_DISPID_CUSTOM_MIN+i;
3270             return S_OK;
3271         }
3272     }
3273
3274     if(find_global_prop(This->base.inner_window, bstrName, grfdex, &script_host, &id)) {
3275         global_prop_t *prop;
3276
3277         prop = alloc_global_prop(This, GLOBAL_SCRIPTVAR, bstrName);
3278         if(!prop)
3279             return E_OUTOFMEMORY;
3280
3281         prop->script_host = script_host;
3282         prop->id = id;
3283
3284         *pid = prop_to_dispid(This, prop);
3285         return S_OK;
3286     }
3287
3288     return DISP_E_UNKNOWNNAME;
3289 }
3290
3291 static HRESULT WINAPI WindowDispEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
3292 {
3293     HTMLWindow *This = impl_from_IDispatchEx(iface);
3294     HTMLInnerWindow *window = This->inner_window;
3295     HRESULT hres;
3296
3297     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
3298
3299     hres = search_window_props(window, bstrName, grfdex, pid);
3300     if(hres != DISP_E_UNKNOWNNAME)
3301         return hres;
3302
3303     hres = IDispatchEx_GetDispID(&window->base.inner_window->event_target.dispex.IDispatchEx_iface, bstrName, grfdex, pid);
3304     if(hres != DISP_E_UNKNOWNNAME)
3305         return hres;
3306
3307     if(This->outer_window) {
3308         HTMLOuterWindow *frame;
3309
3310         hres = get_frame_by_name(This->outer_window, bstrName, FALSE, &frame);
3311         if(SUCCEEDED(hres) && frame) {
3312             global_prop_t *prop;
3313
3314             IHTMLWindow2_Release(&frame->base.IHTMLWindow2_iface);
3315
3316             prop = alloc_global_prop(window, GLOBAL_FRAMEVAR, bstrName);
3317             if(!prop)
3318                 return E_OUTOFMEMORY;
3319
3320             *pid = prop_to_dispid(window, prop);
3321             return S_OK;
3322         }
3323     }
3324
3325     if(window->doc) {
3326         global_prop_t *prop;
3327         IHTMLElement *elem;
3328
3329         hres = IHTMLDocument3_getElementById(&window->base.inner_window->doc->basedoc.IHTMLDocument3_iface,
3330                                              bstrName, &elem);
3331         if(SUCCEEDED(hres) && elem) {
3332             IHTMLElement_Release(elem);
3333
3334             prop = alloc_global_prop(window, GLOBAL_ELEMENTVAR, bstrName);
3335             if(!prop)
3336                 return E_OUTOFMEMORY;
3337
3338             *pid = prop_to_dispid(window, prop);
3339             return S_OK;
3340         }
3341     }
3342
3343     return DISP_E_UNKNOWNNAME;
3344 }
3345
3346 static HRESULT WINAPI WindowDispEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
3347         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
3348 {
3349     HTMLWindow *This = impl_from_IDispatchEx(iface);
3350     HTMLInnerWindow *window = This->inner_window;
3351
3352     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
3353
3354     switch(id) {
3355     case DISPID_IHTMLWINDOW2_LOCATION: {
3356         HTMLLocation *location;
3357         HRESULT hres;
3358
3359         if(!(wFlags & DISPATCH_PROPERTYPUT))
3360             break;
3361
3362         TRACE("forwarding to location.href\n");
3363
3364         hres = get_location(window, &location);
3365         if(FAILED(hres))
3366             return hres;
3367
3368         hres = IDispatchEx_InvokeEx(&location->dispex.IDispatchEx_iface, DISPID_VALUE, lcid,
3369                 wFlags, pdp, pvarRes, pei, pspCaller);
3370         IHTMLLocation_Release(&location->IHTMLLocation_iface);
3371         return hres;
3372     }
3373     case DISPID_IHTMLWINDOW2_SETTIMEOUT:
3374     case DISPID_IHTMLWINDOW3_SETTIMEOUT: {
3375         VARIANT args[2];
3376         DISPPARAMS dp = {args, NULL, 2, 0};
3377
3378         /*
3379          * setTimeout calls should use default value 0 for the second argument if only one is provided,
3380          * but IDL file does not reflect that. We fixup arguments here instead.
3381          */
3382         if(!(wFlags & DISPATCH_METHOD) || pdp->cArgs != 1 || pdp->cNamedArgs)
3383             break;
3384
3385         TRACE("Fixing args\n");
3386
3387         V_VT(args) = VT_I4;
3388         V_I4(args) = 0;
3389         args[1] = *pdp->rgvarg;
3390         return IDispatchEx_InvokeEx(&window->event_target.dispex.IDispatchEx_iface, id, lcid,
3391                 wFlags, &dp, pvarRes, pei, pspCaller);
3392     }
3393     }
3394
3395     return IDispatchEx_InvokeEx(&window->event_target.dispex.IDispatchEx_iface, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
3396 }
3397
3398 static HRESULT WINAPI WindowDispEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
3399 {
3400     HTMLWindow *This = impl_from_IDispatchEx(iface);
3401
3402     TRACE("(%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
3403
3404     return IDispatchEx_DeleteMemberByName(&This->inner_window->event_target.dispex.IDispatchEx_iface, bstrName, grfdex);
3405 }
3406
3407 static HRESULT WINAPI WindowDispEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
3408 {
3409     HTMLWindow *This = impl_from_IDispatchEx(iface);
3410
3411     TRACE("(%p)->(%x)\n", This, id);
3412
3413     return IDispatchEx_DeleteMemberByDispID(&This->inner_window->event_target.dispex.IDispatchEx_iface, id);
3414 }
3415
3416 static HRESULT WINAPI WindowDispEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
3417 {
3418     HTMLWindow *This = impl_from_IDispatchEx(iface);
3419
3420     TRACE("(%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex);
3421
3422     return IDispatchEx_GetMemberProperties(&This->inner_window->event_target.dispex.IDispatchEx_iface, id, grfdexFetch,
3423             pgrfdex);
3424 }
3425
3426 static HRESULT WINAPI WindowDispEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
3427 {
3428     HTMLWindow *This = impl_from_IDispatchEx(iface);
3429
3430     TRACE("(%p)->(%x %p)\n", This, id, pbstrName);
3431
3432     return IDispatchEx_GetMemberName(&This->inner_window->event_target.dispex.IDispatchEx_iface, id, pbstrName);
3433 }
3434
3435 static HRESULT WINAPI WindowDispEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
3436 {
3437     HTMLWindow *This = impl_from_IDispatchEx(iface);
3438
3439     TRACE("(%p)->(%x %x %p)\n", This, grfdex, id, pid);
3440
3441     return IDispatchEx_GetNextDispID(&This->inner_window->event_target.dispex.IDispatchEx_iface, grfdex, id, pid);
3442 }
3443
3444 static HRESULT WINAPI WindowDispEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
3445 {
3446     HTMLWindow *This = impl_from_IDispatchEx(iface);
3447
3448     TRACE("(%p)->(%p)\n", This, ppunk);
3449
3450     *ppunk = NULL;
3451     return S_OK;
3452 }
3453
3454 static const IDispatchExVtbl WindowDispExVtbl = {
3455     WindowDispEx_QueryInterface,
3456     WindowDispEx_AddRef,
3457     WindowDispEx_Release,
3458     WindowDispEx_GetTypeInfoCount,
3459     WindowDispEx_GetTypeInfo,
3460     WindowDispEx_GetIDsOfNames,
3461     WindowDispEx_Invoke,
3462     WindowDispEx_GetDispID,
3463     WindowDispEx_InvokeEx,
3464     WindowDispEx_DeleteMemberByName,
3465     WindowDispEx_DeleteMemberByDispID,
3466     WindowDispEx_GetMemberProperties,
3467     WindowDispEx_GetMemberName,
3468     WindowDispEx_GetNextDispID,
3469     WindowDispEx_GetNameSpaceParent
3470 };
3471
3472 static inline HTMLWindow *impl_from_IServiceProvider(IServiceProvider *iface)
3473 {
3474     return CONTAINING_RECORD(iface, HTMLWindow, IServiceProvider_iface);
3475 }
3476
3477 static HRESULT WINAPI HTMLWindowSP_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
3478 {
3479     HTMLWindow *This = impl_from_IServiceProvider(iface);
3480     return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
3481 }
3482
3483 static ULONG WINAPI HTMLWindowSP_AddRef(IServiceProvider *iface)
3484 {
3485     HTMLWindow *This = impl_from_IServiceProvider(iface);
3486     return IHTMLWindow2_AddRef(&This->IHTMLWindow2_iface);
3487 }
3488
3489 static ULONG WINAPI HTMLWindowSP_Release(IServiceProvider *iface)
3490 {
3491     HTMLWindow *This = impl_from_IServiceProvider(iface);
3492     return IHTMLWindow2_Release(&This->IHTMLWindow2_iface);
3493 }
3494
3495 static HRESULT WINAPI HTMLWindowSP_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
3496 {
3497     HTMLWindow *This = impl_from_IServiceProvider(iface);
3498
3499     if(IsEqualGUID(guidService, &IID_IHTMLWindow2)) {
3500         TRACE("IID_IHTMLWindow2\n");
3501         return IHTMLWindow2_QueryInterface(&This->IHTMLWindow2_iface, riid, ppv);
3502     }
3503
3504     TRACE("(%p)->(%s %s %p)\n", This, debugstr_mshtml_guid(guidService), debugstr_mshtml_guid(riid), ppv);
3505
3506     if(!This->outer_window || !This->outer_window->browser)
3507         return E_NOINTERFACE;
3508
3509     return IServiceProvider_QueryService(&This->outer_window->browser->doc->basedoc.IServiceProvider_iface,
3510             guidService, riid, ppv);
3511 }
3512
3513 static const IServiceProviderVtbl ServiceProviderVtbl = {
3514     HTMLWindowSP_QueryInterface,
3515     HTMLWindowSP_AddRef,
3516     HTMLWindowSP_Release,
3517     HTMLWindowSP_QueryService
3518 };
3519
3520 static inline HTMLInnerWindow *impl_from_DispatchEx(DispatchEx *iface)
3521 {
3522     return CONTAINING_RECORD(iface, HTMLInnerWindow, event_target.dispex);
3523 }
3524
3525 static HRESULT HTMLWindow_invoke(DispatchEx *dispex, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
3526         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
3527 {
3528     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3529     global_prop_t *prop;
3530     DWORD idx;
3531     HRESULT hres;
3532
3533     idx = id - MSHTML_DISPID_CUSTOM_MIN;
3534     if(idx >= This->global_prop_cnt)
3535         return DISP_E_MEMBERNOTFOUND;
3536
3537     prop = This->global_props+idx;
3538
3539     switch(prop->type) {
3540     case GLOBAL_SCRIPTVAR: {
3541         IDispatchEx *iface;
3542         IDispatch *disp;
3543
3544         disp = get_script_disp(prop->script_host);
3545         if(!disp)
3546             return E_UNEXPECTED;
3547
3548         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&iface);
3549         if(SUCCEEDED(hres)) {
3550             TRACE("%s >>>\n", debugstr_w(prop->name));
3551             hres = IDispatchEx_InvokeEx(iface, prop->id, lcid, flags, params, res, ei, caller);
3552             if(hres == S_OK)
3553                 TRACE("%s <<<\n", debugstr_w(prop->name));
3554             else
3555                 WARN("%s <<< %08x\n", debugstr_w(prop->name), hres);
3556             IDispatchEx_Release(iface);
3557         }else {
3558             FIXME("No IDispatchEx\n");
3559         }
3560         IDispatch_Release(disp);
3561         break;
3562     }
3563     case GLOBAL_ELEMENTVAR:
3564         switch(flags) {
3565         case DISPATCH_PROPERTYGET|DISPATCH_METHOD:
3566         case DISPATCH_PROPERTYGET: {
3567             IHTMLElement *elem;
3568
3569             hres = IHTMLDocument3_getElementById(&This->base.inner_window->doc->basedoc.IHTMLDocument3_iface,
3570                     prop->name, &elem);
3571             if(FAILED(hres))
3572                 return hres;
3573
3574             if(!elem)
3575                 return DISP_E_MEMBERNOTFOUND;
3576
3577             V_VT(res) = VT_DISPATCH;
3578             V_DISPATCH(res) = (IDispatch*)elem;
3579             return S_OK;
3580         }
3581         case DISPATCH_PROPERTYPUT: {
3582             DISPID dispex_id;
3583
3584             hres = dispex_get_dynid(&This->event_target.dispex, prop->name, &dispex_id);
3585             if(FAILED(hres))
3586                 return hres;
3587
3588             prop->type = GLOBAL_DISPEXVAR;
3589             prop->id = dispex_id;
3590             return IDispatchEx_InvokeEx(&This->event_target.dispex.IDispatchEx_iface, dispex_id, 0, flags, params, res, ei, caller);
3591         }
3592         default:
3593             FIXME("Not supported flags: %x\n", flags);
3594             return E_NOTIMPL;
3595         }
3596     case GLOBAL_FRAMEVAR:
3597         if(!This->base.outer_window)
3598             return E_UNEXPECTED;
3599
3600         switch(flags) {
3601         case DISPATCH_PROPERTYGET: {
3602             HTMLOuterWindow *frame;
3603
3604             hres = get_frame_by_name(This->base.outer_window, prop->name, FALSE, &frame);
3605             if(FAILED(hres))
3606                 return hres;
3607
3608             if(!frame)
3609                 return DISP_E_MEMBERNOTFOUND;
3610
3611             V_VT(res) = VT_DISPATCH;
3612             V_DISPATCH(res) = (IDispatch*)&frame->base.inner_window->base.IHTMLWindow2_iface;
3613             IDispatch_AddRef(V_DISPATCH(res));
3614             return S_OK;
3615         }
3616         default:
3617             FIXME("Not supported flags: %x\n", flags);
3618             return E_NOTIMPL;
3619         }
3620     case GLOBAL_DISPEXVAR:
3621         return IDispatchEx_InvokeEx(&This->event_target.dispex.IDispatchEx_iface, prop->id, 0, flags, params, res, ei, caller);
3622     default:
3623         ERR("invalid type %d\n", prop->type);
3624         hres = DISP_E_MEMBERNOTFOUND;
3625     }
3626
3627     return hres;
3628 }
3629
3630 static compat_mode_t HTMLWindow_get_compat_mode(DispatchEx *dispex)
3631 {
3632     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3633     return lock_document_mode(This->doc);
3634 }
3635
3636 static nsISupports *HTMLWindow_get_gecko_target(DispatchEx *dispex)
3637 {
3638     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3639     return (nsISupports*)This->base.outer_window->nswindow;
3640 }
3641
3642 static void HTMLWindow_bind_event(DispatchEx *dispex, eventid_t eid)
3643 {
3644     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3645     ensure_doc_nsevent_handler(This->doc, NULL, eid);
3646 }
3647
3648 static void HTMLWindow_init_dispex_info(dispex_data_t *info, compat_mode_t compat_mode)
3649 {
3650     if(compat_mode >= COMPAT_MODE_IE9)
3651         dispex_info_add_interface(info, IHTMLWindow7_tid, NULL);
3652     if(compat_mode >= COMPAT_MODE_IE10)
3653         dispex_info_add_interface(info, IWineHTMLWindowPrivate_tid, NULL);
3654
3655     dispex_info_add_interface(info, IHTMLWindow5_tid, NULL);
3656     EventTarget_init_dispex_info(info, compat_mode);
3657 }
3658
3659 static IHTMLEventObj *HTMLWindow_set_current_event(DispatchEx *dispex, IHTMLEventObj *event)
3660 {
3661     HTMLInnerWindow *This = impl_from_DispatchEx(dispex);
3662     return default_set_current_event(This, event);
3663 }
3664
3665 static const event_target_vtbl_t HTMLWindow_event_target_vtbl = {
3666     {
3667         NULL,
3668         NULL,
3669         HTMLWindow_invoke,
3670         HTMLWindow_get_compat_mode,
3671         NULL
3672     },
3673     HTMLWindow_get_gecko_target,
3674     HTMLWindow_bind_event,
3675     NULL,
3676     NULL,
3677     NULL,
3678     HTMLWindow_set_current_event
3679 };
3680
3681 static const tid_t HTMLWindow_iface_tids[] = {
3682     IHTMLWindow2_tid,
3683     IHTMLWindow3_tid,
3684     IHTMLWindow4_tid,
3685     IHTMLWindow6_tid,
3686     0
3687 };
3688
3689 static dispex_static_data_t HTMLWindow_dispex = {
3690     &HTMLWindow_event_target_vtbl.dispex_vtbl,
3691     DispHTMLWindow2_tid,
3692     HTMLWindow_iface_tids,
3693     HTMLWindow_init_dispex_info
3694 };
3695
3696 static void *alloc_window(size_t size)
3697 {
3698     HTMLWindow *window;
3699
3700     window = heap_alloc_zero(size);
3701     if(!window)
3702         return NULL;
3703
3704     window->IHTMLWindow2_iface.lpVtbl = &HTMLWindow2Vtbl;
3705     window->IHTMLWindow3_iface.lpVtbl = &HTMLWindow3Vtbl;
3706     window->IHTMLWindow4_iface.lpVtbl = &HTMLWindow4Vtbl;
3707     window->IHTMLWindow5_iface.lpVtbl = &HTMLWindow5Vtbl;
3708     window->IHTMLWindow6_iface.lpVtbl = &HTMLWindow6Vtbl;
3709     window->IHTMLWindow7_iface.lpVtbl = &HTMLWindow7Vtbl;
3710     window->IHTMLPrivateWindow_iface.lpVtbl = &HTMLPrivateWindowVtbl;
3711     window->IDispatchEx_iface.lpVtbl = &WindowDispExVtbl;
3712     window->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
3713     window->ITravelLogClient_iface.lpVtbl = &TravelLogClientVtbl;
3714     window->IObjectIdentity_iface.lpVtbl = &ObjectIdentityVtbl;
3715     window->IProvideMultipleClassInfo_iface.lpVtbl = &ProvideMultipleClassInfoVtbl;
3716     window->IWineHTMLWindowPrivate_iface.lpVtbl = &WineHTMLWindowPrivateVtbl;
3717     window->ref = 1;
3718
3719     return window;
3720 }
3721
3722 static HRESULT create_inner_window(HTMLOuterWindow *outer_window, IMoniker *mon, HTMLInnerWindow **ret)
3723 {
3724     HTMLInnerWindow *window;
3725
3726     window = alloc_window(sizeof(HTMLInnerWindow));
3727     if(!window)
3728         return E_OUTOFMEMORY;
3729
3730     list_init(&window->children);
3731     list_init(&window->script_hosts);
3732     list_init(&window->bindings);
3733     list_init(&window->script_queue);
3734
3735     window->base.outer_window = outer_window;
3736     window->base.inner_window = window;
3737
3738     EventTarget_Init(&window->event_target, (IUnknown*)&window->base.IHTMLWindow2_iface,
3739                      &HTMLWindow_dispex, COMPAT_MODE_NONE);
3740
3741     window->task_magic = get_task_target_magic();
3742
3743     if(mon) {
3744         IMoniker_AddRef(mon);
3745         window->mon = mon;
3746     }
3747
3748     *ret = window;
3749     return S_OK;
3750 }
3751
3752 HRESULT create_outer_window(GeckoBrowser *browser, mozIDOMWindowProxy *mozwindow,
3753         HTMLOuterWindow *parent, HTMLOuterWindow **ret)
3754 {
3755     HTMLOuterWindow *window;
3756     nsresult nsres;
3757     HRESULT hres;
3758
3759     window = alloc_window(sizeof(HTMLOuterWindow));
3760     if(!window)
3761         return E_OUTOFMEMORY;
3762
3763     window->base.outer_window = window;
3764     window->base.inner_window = NULL;
3765     window->browser = browser;
3766     list_add_head(&browser->outer_windows, &window->browser_entry);
3767
3768     mozIDOMWindowProxy_AddRef(mozwindow);
3769     window->window_proxy = mozwindow;
3770     nsres = mozIDOMWindowProxy_QueryInterface(mozwindow, &IID_nsIDOMWindow, (void**)&window->nswindow);
3771     assert(nsres == NS_OK);
3772
3773     window->readystate = READYSTATE_UNINITIALIZED;
3774     window->task_magic = get_task_target_magic();
3775
3776     wine_rb_put(&window_map, window->window_proxy, &window->entry);
3777
3778     hres = create_pending_window(window, NULL);
3779     if(SUCCEEDED(hres))
3780         hres = update_window_doc(window->pending_window);
3781     if(FAILED(hres)) {
3782         IHTMLWindow2_Release(&window->base.IHTMLWindow2_iface);
3783         return hres;
3784     }
3785
3786     if(parent) {
3787         IHTMLWindow2_AddRef(&window->base.IHTMLWindow2_iface);
3788
3789         window->parent = parent;
3790         list_add_tail(&parent->base.inner_window->children, &window->sibling_entry);
3791     }
3792
3793     TRACE("%p inner_window %p\n", window, window->base.inner_window);
3794
3795     *ret = window;
3796     return S_OK;
3797 }
3798
3799 HRESULT create_pending_window(HTMLOuterWindow *outer_window, nsChannelBSC *channelbsc)
3800 {
3801     HTMLInnerWindow *pending_window;
3802     HRESULT hres;
3803
3804     hres = create_inner_window(outer_window, outer_window->mon /* FIXME */, &pending_window);
3805     if(FAILED(hres))
3806         return hres;
3807
3808     if(channelbsc) {
3809         IBindStatusCallback_AddRef(&channelbsc->bsc.IBindStatusCallback_iface);
3810         pending_window->bscallback = channelbsc;
3811     }
3812
3813     if(outer_window->pending_window) {
3814         abort_window_bindings(outer_window->pending_window);
3815         outer_window->pending_window->base.outer_window = NULL;
3816         IHTMLWindow2_Release(&outer_window->pending_window->base.IHTMLWindow2_iface);
3817     }
3818
3819     outer_window->pending_window = pending_window;
3820     return S_OK;
3821 }
3822
3823 HRESULT update_window_doc(HTMLInnerWindow *window)
3824 {
3825     HTMLOuterWindow *outer_window = window->base.outer_window;
3826     compat_mode_t parent_mode = COMPAT_MODE_QUIRKS;
3827     nsIDOMHTMLDocument *nshtmldoc;
3828     nsIDOMDocument *nsdoc;
3829     nsresult nsres;
3830     HRESULT hres;
3831
3832     assert(!window->doc);
3833
3834     if(!outer_window)
3835         return E_UNEXPECTED;
3836
3837     nsres = nsIDOMWindow_GetDocument(outer_window->nswindow, &nsdoc);
3838     if(NS_FAILED(nsres) || !nsdoc) {
3839         ERR("GetDocument failed: %08x\n", nsres);
3840         return E_FAIL;
3841     }
3842
3843     nsres = nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMHTMLDocument, (void**)&nshtmldoc);
3844     nsIDOMDocument_Release(nsdoc);
3845     if(NS_FAILED(nsres)) {
3846         ERR("Could not get nsIDOMHTMLDocument iface: %08x\n", nsres);
3847         return E_FAIL;
3848     }
3849
3850     if(outer_window->parent)
3851         parent_mode = outer_window->parent->base.inner_window->doc->document_mode;
3852
3853     hres = create_document_node(nshtmldoc, outer_window->browser, window, parent_mode, &window->doc);
3854     nsIDOMHTMLDocument_Release(nshtmldoc);
3855     if(FAILED(hres))
3856         return hres;
3857
3858     if(window != outer_window->pending_window) {
3859         ERR("not current pending window\n");
3860         return S_OK;
3861     }
3862
3863     if(outer_window->base.inner_window)
3864         detach_inner_window(outer_window->base.inner_window);
3865     outer_window->base.inner_window = window;
3866     outer_window->pending_window = NULL;
3867
3868     if(is_main_content_window(outer_window) || !outer_window->browser->content_window) {
3869         HTMLDocumentObj *doc_obj = outer_window->browser->doc;
3870         if(doc_obj->basedoc.doc_node)
3871             htmldoc_release(&doc_obj->basedoc.doc_node->basedoc);
3872         doc_obj->basedoc.doc_node = window->doc;
3873         htmldoc_addref(&window->doc->basedoc);
3874     }
3875
3876     return hres;
3877 }