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

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