git.oblomov.eu Git - wine/blob - dlls/mshtml/htmlwindow.c

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