dlls/mshtml/htmlwindow.c

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