dlls/mshtml/htmlwindow.c

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