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

   1 /*
   2  * Copyright 2006 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
  28 #include "wine/debug.h"
  29 #include "wine/unicode.h"
  30
  31 #include "mshtml_private.h"
  32 #include "htmlevent.h"
  33 #include "resource.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  36
  37 static struct list window_list = LIST_INIT(window_list);
  38
  39 #define HTMLWINDOW2_THIS(iface) DEFINE_THIS(HTMLWindow, HTMLWindow2, iface)
  40
  41 static HRESULT WINAPI HTMLWindow2_QueryInterface(IHTMLWindow2 *iface, REFIID riid, void **ppv)
  42 {
  43     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  44
  45     *ppv = NULL;
  46
  47     if(IsEqualGUID(&IID_IUnknown, riid)) {
  48         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  49         *ppv = HTMLWINDOW2(This);
  50     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  51         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  52         *ppv = HTMLWINDOW2(This);
  53     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
  54         TRACE("(%p)->(IID_IDispatchEx %p)\n", This, ppv);
  55         *ppv = DISPATCHEX(This);
  56     }else if(IsEqualGUID(&IID_IHTMLFramesCollection2, riid)) {
  57         TRACE("(%p)->(IID_IHTMLFramesCollection2 %p)\n", This, ppv);
  58         *ppv = HTMLWINDOW2(This);
  59     }else if(IsEqualGUID(&IID_IHTMLWindow2, riid)) {
  60         TRACE("(%p)->(IID_IHTMLWindow2 %p)\n", This, ppv);
  61         *ppv = HTMLWINDOW2(This);
  62     }else if(IsEqualGUID(&IID_IHTMLWindow3, riid)) {
  63         TRACE("(%p)->(IID_IHTMLWindow2 %p)\n", This, ppv);
  64         *ppv = HTMLWINDOW3(This);
  65     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
  66         return *ppv ? S_OK : E_NOINTERFACE;
  67     }
  68
  69     if(*ppv) {
  70         IUnknown_AddRef((IUnknown*)*ppv);
  71         return S_OK;
  72     }
  73
  74     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
  75     return E_NOINTERFACE;
  76 }
  77
  78 static ULONG WINAPI HTMLWindow2_AddRef(IHTMLWindow2 *iface)
  79 {
  80     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  81     LONG ref = InterlockedIncrement(&This->ref);
  82
  83     TRACE("(%p) ref=%d\n", This, ref);
  84
  85     return ref;
  86 }
  87
  88 static ULONG WINAPI HTMLWindow2_Release(IHTMLWindow2 *iface)
  89 {
  90     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  91     LONG ref = InterlockedDecrement(&This->ref);
  92
  93     TRACE("(%p) ref=%d\n", This, ref);
  94
  95     if(!ref) {
  96         if(This->event_target)
  97             release_event_target(This->event_target);
  98         release_script_hosts(This);
  99         list_remove(&This->entry);
 100         release_dispex(&This->dispex);
 101         heap_free(This);
 102     }
 103
 104     return ref;
 105 }
 106
 107 static HRESULT WINAPI HTMLWindow2_GetTypeInfoCount(IHTMLWindow2 *iface, UINT *pctinfo)
 108 {
 109     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 110
 111     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
 112 }
 113
 114 static HRESULT WINAPI HTMLWindow2_GetTypeInfo(IHTMLWindow2 *iface, UINT iTInfo,
 115                                               LCID lcid, ITypeInfo **ppTInfo)
 116 {
 117     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 118
 119     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
 120 }
 121
 122 static HRESULT WINAPI HTMLWindow2_GetIDsOfNames(IHTMLWindow2 *iface, REFIID riid,
 123                                                 LPOLESTR *rgszNames, UINT cNames,
 124                                                 LCID lcid, DISPID *rgDispId)
 125 {
 126     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 127
 128     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
 129 }
 130
 131 static HRESULT WINAPI HTMLWindow2_Invoke(IHTMLWindow2 *iface, DISPID dispIdMember,
 132                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 133                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 134 {
 135     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 136
 137     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
 138             pVarResult, pExcepInfo, puArgErr);
 139 }
 140
 141 static HRESULT WINAPI HTMLWindow2_item(IHTMLWindow2 *iface, VARIANT *pvarIndex, VARIANT *pvarResult)
 142 {
 143     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 144     FIXME("(%p)->(%p %p)\n", This, pvarIndex, pvarResult);
 145     return E_NOTIMPL;
 146 }
 147
 148 static HRESULT WINAPI HTMLWindow2_get_length(IHTMLWindow2 *iface, LONG *p)
 149 {
 150     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 151     FIXME("(%p)->(%p)\n", This, p);
 152     return E_NOTIMPL;
 153 }
 154
 155 static HRESULT WINAPI HTMLWindow2_get_frames(IHTMLWindow2 *iface, IHTMLFramesCollection2 **p)
 156 {
 157     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 158     FIXME("(%p)->(%p)\n", This, p);
 159     return E_NOTIMPL;
 160 }
 161
 162 static HRESULT WINAPI HTMLWindow2_put_defaultStatus(IHTMLWindow2 *iface, BSTR v)
 163 {
 164     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 165     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 166     return E_NOTIMPL;
 167 }
 168
 169 static HRESULT WINAPI HTMLWindow2_get_defaultStatus(IHTMLWindow2 *iface, BSTR *p)
 170 {
 171     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 172     FIXME("(%p)->(%p)\n", This, p);
 173     return E_NOTIMPL;
 174 }
 175
 176 static HRESULT WINAPI HTMLWindow2_put_status(IHTMLWindow2 *iface, BSTR v)
 177 {
 178     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 179     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 180     return E_NOTIMPL;
 181 }
 182
 183 static HRESULT WINAPI HTMLWindow2_get_status(IHTMLWindow2 *iface, BSTR *p)
 184 {
 185     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 186     FIXME("(%p)->(%p)\n", This, p);
 187     return E_NOTIMPL;
 188 }
 189
 190 static HRESULT WINAPI HTMLWindow2_setTimeout(IHTMLWindow2 *iface, BSTR expression,
 191         LONG msec, VARIANT *language, LONG *timerID)
 192 {
 193     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 194     VARIANT expr_var;
 195
 196     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 197
 198     V_VT(&expr_var) = VT_BSTR;
 199     V_BSTR(&expr_var) = expression;
 200
 201     return IHTMLWindow3_setTimeout(HTMLWINDOW3(This), &expr_var, msec, language, timerID);
 202 }
 203
 204 static HRESULT WINAPI HTMLWindow2_clearTimeout(IHTMLWindow2 *iface, LONG timerID)
 205 {
 206     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 207
 208     TRACE("(%p)->(%d)\n", This, timerID);
 209
 210     return clear_task_timer(This->doc, FALSE, timerID);
 211 }
 212
 213 static HRESULT WINAPI HTMLWindow2_alert(IHTMLWindow2 *iface, BSTR message)
 214 {
 215     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 216     WCHAR wszTitle[100];
 217
 218     TRACE("(%p)->(%s)\n", This, debugstr_w(message));
 219
 220     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 221                     sizeof(wszTitle)/sizeof(WCHAR))) {
 222         WARN("Could not load message box title: %d\n", GetLastError());
 223         return S_OK;
 224     }
 225
 226     MessageBoxW(This->doc->hwnd, message, wszTitle, MB_ICONWARNING);
 227     return S_OK;
 228 }
 229
 230 static HRESULT WINAPI HTMLWindow2_confirm(IHTMLWindow2 *iface, BSTR message,
 231         VARIANT_BOOL *confirmed)
 232 {
 233     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 234     WCHAR wszTitle[100];
 235
 236     TRACE("(%p)->(%s %p)\n", This, debugstr_w(message), confirmed);
 237
 238     if(!confirmed) return E_INVALIDARG;
 239
 240     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 241                 sizeof(wszTitle)/sizeof(WCHAR))) {
 242         WARN("Could not load message box title: %d\n", GetLastError());
 243         *confirmed = VARIANT_TRUE;
 244         return S_OK;
 245     }
 246
 247     if(MessageBoxW(This->doc->hwnd, message, wszTitle,
 248                 MB_OKCANCEL|MB_ICONQUESTION)==IDOK)
 249         *confirmed = VARIANT_TRUE;
 250     else *confirmed = VARIANT_FALSE;
 251
 252     return S_OK;
 253 }
 254
 255 typedef struct
 256 {
 257     BSTR message;
 258     BSTR dststr;
 259     VARIANT *textdata;
 260 }prompt_arg;
 261
 262 static INT_PTR CALLBACK prompt_dlgproc(HWND hwnd, UINT msg,
 263         WPARAM wparam, LPARAM lparam)
 264 {
 265     switch(msg)
 266     {
 267         case WM_INITDIALOG:
 268         {
 269             prompt_arg *arg = (prompt_arg*)lparam;
 270             WCHAR wszTitle[100];
 271
 272             if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 273                         sizeof(wszTitle)/sizeof(WCHAR))) {
 274                 WARN("Could not load message box title: %d\n", GetLastError());
 275                 EndDialog(hwnd, wparam);
 276                 return FALSE;
 277             }
 278
 279             SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
 280             SetWindowTextW(hwnd, wszTitle);
 281             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_PROMPT), arg->message);
 282             SetWindowTextW(GetDlgItem(hwnd, ID_PROMPT_EDIT), arg->dststr);
 283             return FALSE;
 284         }
 285         case WM_COMMAND:
 286             switch(wparam)
 287             {
 288                 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
 289                     EndDialog(hwnd, wparam);
 290                     return TRUE;
 291                 case MAKEWPARAM(IDOK, BN_CLICKED):
 292                 {
 293                     prompt_arg *arg =
 294                         (prompt_arg*)GetWindowLongPtrW(hwnd, DWLP_USER);
 295                     HWND hwndPrompt = GetDlgItem(hwnd, ID_PROMPT_EDIT);
 296                     INT len = GetWindowTextLengthW(hwndPrompt);
 297
 298                     if(!arg->textdata)
 299                     {
 300                         EndDialog(hwnd, wparam);
 301                         return TRUE;
 302                     }
 303
 304                     V_VT(arg->textdata) = VT_BSTR;
 305                     if(!len && !arg->dststr)
 306                         V_BSTR(arg->textdata) = NULL;
 307                     else
 308                     {
 309                         V_BSTR(arg->textdata) = SysAllocStringLen(NULL, len);
 310                         GetWindowTextW(hwndPrompt, V_BSTR(arg->textdata), len+1);
 311                     }
 312                     EndDialog(hwnd, wparam);
 313                     return TRUE;
 314                 }
 315             }
 316             return FALSE;
 317         case WM_CLOSE:
 318             EndDialog(hwnd, IDCANCEL);
 319             return TRUE;
 320         default:
 321             return FALSE;
 322     }
 323 }
 324
 325 static HRESULT WINAPI HTMLWindow2_prompt(IHTMLWindow2 *iface, BSTR message,
 326         BSTR dststr, VARIANT *textdata)
 327 {
 328     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 329     prompt_arg arg;
 330
 331     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(message), debugstr_w(dststr), textdata);
 332
 333     if(textdata) V_VT(textdata) = VT_NULL;
 334
 335     arg.message = message;
 336     arg.dststr = dststr;
 337     arg.textdata = textdata;
 338
 339     DialogBoxParamW(hInst, MAKEINTRESOURCEW(ID_PROMPT_DIALOG),
 340             This->doc->hwnd, prompt_dlgproc, (LPARAM)&arg);
 341     return S_OK;
 342 }
 343
 344 static HRESULT WINAPI HTMLWindow2_get_Image(IHTMLWindow2 *iface, IHTMLImageElementFactory **p)
 345 {
 346     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 347     FIXME("(%p)->(%p)\n", This, p);
 348     return E_NOTIMPL;
 349 }
 350
 351 static HRESULT WINAPI HTMLWindow2_get_location(IHTMLWindow2 *iface, IHTMLLocation **p)
 352 {
 353     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 354
 355     TRACE("(%p)->(%p)\n", This, p);
 356
 357     if(!This->doc) {
 358         FIXME("This->doc is NULL\n");
 359         return E_FAIL;
 360     }
 361
 362     return IHTMLDocument2_get_location(HTMLDOC(This->doc), p);
 363 }
 364
 365 static HRESULT WINAPI HTMLWindow2_get_history(IHTMLWindow2 *iface, IOmHistory **p)
 366 {
 367     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 368     FIXME("(%p)->(%p)\n", This, p);
 369     return E_NOTIMPL;
 370 }
 371
 372 static HRESULT WINAPI HTMLWindow2_close(IHTMLWindow2 *iface)
 373 {
 374     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 375     FIXME("(%p)->()\n", This);
 376     return E_NOTIMPL;
 377 }
 378
 379 static HRESULT WINAPI HTMLWindow2_put_opener(IHTMLWindow2 *iface, VARIANT v)
 380 {
 381     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 382     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 383     return E_NOTIMPL;
 384 }
 385
 386 static HRESULT WINAPI HTMLWindow2_get_opener(IHTMLWindow2 *iface, VARIANT *p)
 387 {
 388     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 389     FIXME("(%p)->(%p)\n", This, p);
 390     return E_NOTIMPL;
 391 }
 392
 393 static HRESULT WINAPI HTMLWindow2_get_navigator(IHTMLWindow2 *iface, IOmNavigator **p)
 394 {
 395     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 396
 397     TRACE("(%p)->(%p)\n", This, p);
 398
 399     *p = OmNavigator_Create();
 400     return S_OK;
 401 }
 402
 403 static HRESULT WINAPI HTMLWindow2_put_name(IHTMLWindow2 *iface, BSTR v)
 404 {
 405     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 406     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 407     return E_NOTIMPL;
 408 }
 409
 410 static HRESULT WINAPI HTMLWindow2_get_name(IHTMLWindow2 *iface, BSTR *p)
 411 {
 412     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 413     FIXME("(%p)->(%p)\n", This, p);
 414     return E_NOTIMPL;
 415 }
 416
 417 static HRESULT WINAPI HTMLWindow2_get_parent(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 418 {
 419     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 420     FIXME("(%p)->(%p)\n", This, p);
 421     return E_NOTIMPL;
 422 }
 423
 424 static HRESULT WINAPI HTMLWindow2_open(IHTMLWindow2 *iface, BSTR url, BSTR name,
 425          BSTR features, VARIANT_BOOL replace, IHTMLWindow2 **pomWindowResult)
 426 {
 427     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 428     FIXME("(%p)->(%s %s %s %x %p)\n", This, debugstr_w(url), debugstr_w(name),
 429           debugstr_w(features), replace, pomWindowResult);
 430     return E_NOTIMPL;
 431 }
 432
 433 static HRESULT WINAPI HTMLWindow2_get_self(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 434 {
 435     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 436
 437     TRACE("(%p)->(%p)\n", This, p);
 438
 439     /* FIXME: We should return kind of proxy window here. */
 440     IHTMLWindow2_AddRef(HTMLWINDOW2(This));
 441     *p = HTMLWINDOW2(This);
 442     return S_OK;
 443 }
 444
 445 static HRESULT WINAPI HTMLWindow2_get_top(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 446 {
 447     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 448     FIXME("(%p)->(%p)\n", This, p);
 449     return E_NOTIMPL;
 450 }
 451
 452 static HRESULT WINAPI HTMLWindow2_get_window(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 453 {
 454     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 455
 456     TRACE("(%p)->(%p)\n", This, p);
 457
 458     /* FIXME: We should return kind of proxy window here. */
 459     IHTMLWindow2_AddRef(HTMLWINDOW2(This));
 460     *p = HTMLWINDOW2(This);
 461     return S_OK;
 462 }
 463
 464 static HRESULT WINAPI HTMLWindow2_navigate(IHTMLWindow2 *iface, BSTR url)
 465 {
 466     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 467     FIXME("(%p)->(%s)\n", This, debugstr_w(url));
 468     return E_NOTIMPL;
 469 }
 470
 471 static HRESULT WINAPI HTMLWindow2_put_onfocus(IHTMLWindow2 *iface, VARIANT v)
 472 {
 473     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 474     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 475     return E_NOTIMPL;
 476 }
 477
 478 static HRESULT WINAPI HTMLWindow2_get_onfocus(IHTMLWindow2 *iface, VARIANT *p)
 479 {
 480     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 481     FIXME("(%p)->(%p)\n", This, p);
 482     return E_NOTIMPL;
 483 }
 484
 485 static HRESULT WINAPI HTMLWindow2_put_onblur(IHTMLWindow2 *iface, VARIANT v)
 486 {
 487     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 488     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 489     return E_NOTIMPL;
 490 }
 491
 492 static HRESULT WINAPI HTMLWindow2_get_onblur(IHTMLWindow2 *iface, VARIANT *p)
 493 {
 494     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 495     FIXME("(%p)->(%p)\n", This, p);
 496     return E_NOTIMPL;
 497 }
 498
 499 static HRESULT WINAPI HTMLWindow2_put_onload(IHTMLWindow2 *iface, VARIANT v)
 500 {
 501     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 502
 503     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 504
 505     return set_window_event(This, EVENTID_LOAD, &v);
 506 }
 507
 508 static HRESULT WINAPI HTMLWindow2_get_onload(IHTMLWindow2 *iface, VARIANT *p)
 509 {
 510     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 511
 512     TRACE("(%p)->(%p)\n", This, p);
 513
 514     return get_window_event(This, EVENTID_LOAD, p);
 515 }
 516
 517 static HRESULT WINAPI HTMLWindow2_put_onbeforeunload(IHTMLWindow2 *iface, VARIANT v)
 518 {
 519     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 520
 521     TRACE("(%p)->(v(%d))\n", This, V_VT(&v));
 522
 523     return set_window_event(This, EVENTID_BEFOREUNLOAD, &v);
 524 }
 525
 526 static HRESULT WINAPI HTMLWindow2_get_onbeforeunload(IHTMLWindow2 *iface, VARIANT *p)
 527 {
 528     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 529
 530     TRACE("(%p)->(%p)\n", This, p);
 531
 532     return get_window_event(This, EVENTID_BEFOREUNLOAD, p);
 533 }
 534
 535 static HRESULT WINAPI HTMLWindow2_put_onunload(IHTMLWindow2 *iface, VARIANT v)
 536 {
 537     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 538     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 539     return E_NOTIMPL;
 540 }
 541
 542 static HRESULT WINAPI HTMLWindow2_get_onunload(IHTMLWindow2 *iface, VARIANT *p)
 543 {
 544     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 545     FIXME("(%p)->(%p)\n", This, p);
 546     return E_NOTIMPL;
 547 }
 548
 549 static HRESULT WINAPI HTMLWindow2_put_onhelp(IHTMLWindow2 *iface, VARIANT v)
 550 {
 551     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 552     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 553     return E_NOTIMPL;
 554 }
 555
 556 static HRESULT WINAPI HTMLWindow2_get_onhelp(IHTMLWindow2 *iface, VARIANT *p)
 557 {
 558     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 559     FIXME("(%p)->(%p)\n", This, p);
 560     return E_NOTIMPL;
 561 }
 562
 563 static HRESULT WINAPI HTMLWindow2_put_onerror(IHTMLWindow2 *iface, VARIANT v)
 564 {
 565     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 566     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 567     return E_NOTIMPL;
 568 }
 569
 570 static HRESULT WINAPI HTMLWindow2_get_onerror(IHTMLWindow2 *iface, VARIANT *p)
 571 {
 572     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 573     FIXME("(%p)->(%p)\n", This, p);
 574     return E_NOTIMPL;
 575 }
 576
 577 static HRESULT WINAPI HTMLWindow2_put_onresize(IHTMLWindow2 *iface, VARIANT v)
 578 {
 579     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 580     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 581     return E_NOTIMPL;
 582 }
 583
 584 static HRESULT WINAPI HTMLWindow2_get_onresize(IHTMLWindow2 *iface, VARIANT *p)
 585 {
 586     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 587     FIXME("(%p)->(%p)\n", This, p);
 588     return E_NOTIMPL;
 589 }
 590
 591 static HRESULT WINAPI HTMLWindow2_put_onscroll(IHTMLWindow2 *iface, VARIANT v)
 592 {
 593     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 594     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 595     return E_NOTIMPL;
 596 }
 597
 598 static HRESULT WINAPI HTMLWindow2_get_onscroll(IHTMLWindow2 *iface, VARIANT *p)
 599 {
 600     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 601     FIXME("(%p)->(%p)\n", This, p);
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT WINAPI HTMLWindow2_get_document(IHTMLWindow2 *iface, IHTMLDocument2 **p)
 606 {
 607     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 608
 609     TRACE("(%p)->(%p)\n", This, p);
 610
 611     if(This->doc) {
 612         /* FIXME: We should return a wrapper object here */
 613         *p = HTMLDOC(This->doc);
 614         IHTMLDocument2_AddRef(*p);
 615     }else {
 616         *p = NULL;
 617     }
 618
 619     return S_OK;
 620 }
 621
 622 static HRESULT WINAPI HTMLWindow2_get_event(IHTMLWindow2 *iface, IHTMLEventObj **p)
 623 {
 624     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 625
 626     TRACE("(%p)->(%p)\n", This, p);
 627
 628     if(This->event)
 629         IHTMLEventObj_AddRef(This->event);
 630     *p = This->event;
 631     return S_OK;
 632 }
 633
 634 static HRESULT WINAPI HTMLWindow2_get__newEnum(IHTMLWindow2 *iface, IUnknown **p)
 635 {
 636     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 637     FIXME("(%p)->(%p)\n", This, p);
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT WINAPI HTMLWindow2_showModalDialog(IHTMLWindow2 *iface, BSTR dialog,
 642         VARIANT *varArgIn, VARIANT *varOptions, VARIANT *varArgOut)
 643 {
 644     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 645     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(dialog), varArgIn, varOptions, varArgOut);
 646     return E_NOTIMPL;
 647 }
 648
 649 static HRESULT WINAPI HTMLWindow2_showHelp(IHTMLWindow2 *iface, BSTR helpURL, VARIANT helpArg,
 650         BSTR features)
 651 {
 652     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 653     FIXME("(%p)->(%s v(%d) %s)\n", This, debugstr_w(helpURL), V_VT(&helpArg), debugstr_w(features));
 654     return E_NOTIMPL;
 655 }
 656
 657 static HRESULT WINAPI HTMLWindow2_get_screen(IHTMLWindow2 *iface, IHTMLScreen **p)
 658 {
 659     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 660     FIXME("(%p)->(%p)\n", This, p);
 661     return E_NOTIMPL;
 662 }
 663
 664 static HRESULT WINAPI HTMLWindow2_get_Option(IHTMLWindow2 *iface, IHTMLOptionElementFactory **p)
 665 {
 666     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 667
 668     TRACE("(%p)->(%p)\n", This, p);
 669
 670     if(!This->doc->option_factory)
 671         This->doc->option_factory = HTMLOptionElementFactory_Create(This->doc);
 672
 673     *p = HTMLOPTFACTORY(This->doc->option_factory);
 674     IHTMLOptionElementFactory_AddRef(*p);
 675
 676     return S_OK;
 677 }
 678
 679 static HRESULT WINAPI HTMLWindow2_focus(IHTMLWindow2 *iface)
 680 {
 681     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 682     FIXME("(%p)->()\n", This);
 683     return E_NOTIMPL;
 684 }
 685
 686 static HRESULT WINAPI HTMLWindow2_get_closed(IHTMLWindow2 *iface, VARIANT_BOOL *p)
 687 {
 688     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 689     FIXME("(%p)->(%p)\n", This, p);
 690     return E_NOTIMPL;
 691 }
 692
 693 static HRESULT WINAPI HTMLWindow2_blur(IHTMLWindow2 *iface)
 694 {
 695     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 696     FIXME("(%p)->()\n", This);
 697     return E_NOTIMPL;
 698 }
 699
 700 static HRESULT WINAPI HTMLWindow2_scroll(IHTMLWindow2 *iface, LONG x, LONG y)
 701 {
 702     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 703     FIXME("(%p)->(%d %d)\n", This, x, y);
 704     return E_NOTIMPL;
 705 }
 706
 707 static HRESULT WINAPI HTMLWindow2_get_clientInformation(IHTMLWindow2 *iface, IOmNavigator **p)
 708 {
 709     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 710     FIXME("(%p)->(%p)\n", This, p);
 711     return E_NOTIMPL;
 712 }
 713
 714 static HRESULT WINAPI HTMLWindow2_setInterval(IHTMLWindow2 *iface, BSTR expression,
 715         LONG msec, VARIANT *language, LONG *timerID)
 716 {
 717     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 718     VARIANT expr;
 719
 720     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 721
 722     V_VT(&expr) = VT_BSTR;
 723     V_BSTR(&expr) = expression;
 724     return IHTMLWindow3_setInterval(HTMLWINDOW3(This), &expr, msec, language, timerID);
 725 }
 726
 727 static HRESULT WINAPI HTMLWindow2_clearInterval(IHTMLWindow2 *iface, LONG timerID)
 728 {
 729     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 730
 731     TRACE("(%p)->(%d)\n", This, timerID);
 732
 733     return clear_task_timer(This->doc, TRUE, timerID);
 734 }
 735
 736 static HRESULT WINAPI HTMLWindow2_put_offscreenBuffering(IHTMLWindow2 *iface, VARIANT v)
 737 {
 738     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 739     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 740     return E_NOTIMPL;
 741 }
 742
 743 static HRESULT WINAPI HTMLWindow2_get_offscreenBuffering(IHTMLWindow2 *iface, VARIANT *p)
 744 {
 745     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 746     FIXME("(%p)->(%p)\n", This, p);
 747     return E_NOTIMPL;
 748 }
 749
 750 static HRESULT WINAPI HTMLWindow2_execScript(IHTMLWindow2 *iface, BSTR scode, BSTR language,
 751         VARIANT *pvarRet)
 752 {
 753     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 754     FIXME("(%p)->(%s %s %p)\n", This, debugstr_w(scode), debugstr_w(language), pvarRet);
 755     return E_NOTIMPL;
 756 }
 757
 758 static HRESULT WINAPI HTMLWindow2_toString(IHTMLWindow2 *iface, BSTR *String)
 759 {
 760     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 761
 762     static const WCHAR objectW[] = {'[','o','b','j','e','c','t',']',0};
 763
 764     TRACE("(%p)->(%p)\n", This, String);
 765
 766     if(!String)
 767         return E_INVALIDARG;
 768
 769     *String = SysAllocString(objectW);
 770     return *String ? S_OK : E_OUTOFMEMORY;
 771 }
 772
 773 static HRESULT WINAPI HTMLWindow2_scrollBy(IHTMLWindow2 *iface, LONG x, LONG y)
 774 {
 775     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 776     nsresult nsres;
 777
 778     TRACE("(%p)->(%d %d)\n", This, x, y);
 779
 780     nsres = nsIDOMWindow_ScrollBy(This->nswindow, x, y);
 781     if(NS_FAILED(nsres))
 782         ERR("ScrollBy failed: %08x\n", nsres);
 783
 784     return S_OK;
 785 }
 786
 787 static HRESULT WINAPI HTMLWindow2_scrollTo(IHTMLWindow2 *iface, LONG x, LONG y)
 788 {
 789     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 790     nsresult nsres;
 791
 792     TRACE("(%p)->(%d %d)\n", This, x, y);
 793
 794     nsres = nsIDOMWindow_ScrollTo(This->nswindow, x, y);
 795     if(NS_FAILED(nsres))
 796         ERR("ScrollTo failed: %08x\n", nsres);
 797
 798     return S_OK;
 799 }
 800
 801 static HRESULT WINAPI HTMLWindow2_moveTo(IHTMLWindow2 *iface, LONG x, LONG y)
 802 {
 803     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 804     FIXME("(%p)->(%d %d)\n", This, x, y);
 805     return E_NOTIMPL;
 806 }
 807
 808 static HRESULT WINAPI HTMLWindow2_moveBy(IHTMLWindow2 *iface, LONG x, LONG y)
 809 {
 810     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 811     FIXME("(%p)->(%d %d)\n", This, x, y);
 812     return E_NOTIMPL;
 813 }
 814
 815 static HRESULT WINAPI HTMLWindow2_resizeTo(IHTMLWindow2 *iface, LONG x, LONG y)
 816 {
 817     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 818     FIXME("(%p)->(%d %d)\n", This, x, y);
 819     return E_NOTIMPL;
 820 }
 821
 822 static HRESULT WINAPI HTMLWindow2_resizeBy(IHTMLWindow2 *iface, LONG x, LONG y)
 823 {
 824     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 825     FIXME("(%p)->(%d %d)\n", This, x, y);
 826     return E_NOTIMPL;
 827 }
 828
 829 static HRESULT WINAPI HTMLWindow2_get_external(IHTMLWindow2 *iface, IDispatch **p)
 830 {
 831     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 832
 833     TRACE("(%p)->(%p)\n", This, p);
 834
 835     *p = NULL;
 836
 837     if(!This->doc->hostui)
 838         return S_OK;
 839
 840     return IDocHostUIHandler_GetExternal(This->doc->hostui, p);
 841 }
 842
 843 #undef HTMLWINDOW2_THIS
 844
 845 static const IHTMLWindow2Vtbl HTMLWindow2Vtbl = {
 846     HTMLWindow2_QueryInterface,
 847     HTMLWindow2_AddRef,
 848     HTMLWindow2_Release,
 849     HTMLWindow2_GetTypeInfoCount,
 850     HTMLWindow2_GetTypeInfo,
 851     HTMLWindow2_GetIDsOfNames,
 852     HTMLWindow2_Invoke,
 853     HTMLWindow2_item,
 854     HTMLWindow2_get_length,
 855     HTMLWindow2_get_frames,
 856     HTMLWindow2_put_defaultStatus,
 857     HTMLWindow2_get_defaultStatus,
 858     HTMLWindow2_put_status,
 859     HTMLWindow2_get_status,
 860     HTMLWindow2_setTimeout,
 861     HTMLWindow2_clearTimeout,
 862     HTMLWindow2_alert,
 863     HTMLWindow2_confirm,
 864     HTMLWindow2_prompt,
 865     HTMLWindow2_get_Image,
 866     HTMLWindow2_get_location,
 867     HTMLWindow2_get_history,
 868     HTMLWindow2_close,
 869     HTMLWindow2_put_opener,
 870     HTMLWindow2_get_opener,
 871     HTMLWindow2_get_navigator,
 872     HTMLWindow2_put_name,
 873     HTMLWindow2_get_name,
 874     HTMLWindow2_get_parent,
 875     HTMLWindow2_open,
 876     HTMLWindow2_get_self,
 877     HTMLWindow2_get_top,
 878     HTMLWindow2_get_window,
 879     HTMLWindow2_navigate,
 880     HTMLWindow2_put_onfocus,
 881     HTMLWindow2_get_onfocus,
 882     HTMLWindow2_put_onblur,
 883     HTMLWindow2_get_onblur,
 884     HTMLWindow2_put_onload,
 885     HTMLWindow2_get_onload,
 886     HTMLWindow2_put_onbeforeunload,
 887     HTMLWindow2_get_onbeforeunload,
 888     HTMLWindow2_put_onunload,
 889     HTMLWindow2_get_onunload,
 890     HTMLWindow2_put_onhelp,
 891     HTMLWindow2_get_onhelp,
 892     HTMLWindow2_put_onerror,
 893     HTMLWindow2_get_onerror,
 894     HTMLWindow2_put_onresize,
 895     HTMLWindow2_get_onresize,
 896     HTMLWindow2_put_onscroll,
 897     HTMLWindow2_get_onscroll,
 898     HTMLWindow2_get_document,
 899     HTMLWindow2_get_event,
 900     HTMLWindow2_get__newEnum,
 901     HTMLWindow2_showModalDialog,
 902     HTMLWindow2_showHelp,
 903     HTMLWindow2_get_screen,
 904     HTMLWindow2_get_Option,
 905     HTMLWindow2_focus,
 906     HTMLWindow2_get_closed,
 907     HTMLWindow2_blur,
 908     HTMLWindow2_scroll,
 909     HTMLWindow2_get_clientInformation,
 910     HTMLWindow2_setInterval,
 911     HTMLWindow2_clearInterval,
 912     HTMLWindow2_put_offscreenBuffering,
 913     HTMLWindow2_get_offscreenBuffering,
 914     HTMLWindow2_execScript,
 915     HTMLWindow2_toString,
 916     HTMLWindow2_scrollBy,
 917     HTMLWindow2_scrollTo,
 918     HTMLWindow2_moveTo,
 919     HTMLWindow2_moveBy,
 920     HTMLWindow2_resizeTo,
 921     HTMLWindow2_resizeBy,
 922     HTMLWindow2_get_external
 923 };
 924
 925 #define HTMLWINDOW3_THIS(iface) DEFINE_THIS(HTMLWindow, HTMLWindow3, iface)
 926
 927 static HRESULT WINAPI HTMLWindow3_QueryInterface(IHTMLWindow3 *iface, REFIID riid, void **ppv)
 928 {
 929     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 930
 931     return IHTMLWindow2_QueryInterface(HTMLWINDOW2(This), riid, ppv);
 932 }
 933
 934 static ULONG WINAPI HTMLWindow3_AddRef(IHTMLWindow3 *iface)
 935 {
 936     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 937
 938     return IHTMLWindow2_AddRef(HTMLWINDOW2(This));
 939 }
 940
 941 static ULONG WINAPI HTMLWindow3_Release(IHTMLWindow3 *iface)
 942 {
 943     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 944
 945     return IHTMLWindow2_Release(HTMLWINDOW2(This));
 946 }
 947
 948 static HRESULT WINAPI HTMLWindow3_GetTypeInfoCount(IHTMLWindow3 *iface, UINT *pctinfo)
 949 {
 950     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 951
 952     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
 953 }
 954
 955 static HRESULT WINAPI HTMLWindow3_GetTypeInfo(IHTMLWindow3 *iface, UINT iTInfo,
 956                                               LCID lcid, ITypeInfo **ppTInfo)
 957 {
 958     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 959
 960     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
 961 }
 962
 963 static HRESULT WINAPI HTMLWindow3_GetIDsOfNames(IHTMLWindow3 *iface, REFIID riid,
 964                                                 LPOLESTR *rgszNames, UINT cNames,
 965                                                 LCID lcid, DISPID *rgDispId)
 966 {
 967     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 968
 969     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
 970 }
 971
 972 static HRESULT WINAPI HTMLWindow3_Invoke(IHTMLWindow3 *iface, DISPID dispIdMember,
 973                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 974                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 975 {
 976     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 977
 978     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
 979             pVarResult, pExcepInfo, puArgErr);
 980 }
 981
 982 static HRESULT WINAPI HTMLWindow3_get_screenLeft(IHTMLWindow3 *iface, LONG *p)
 983 {
 984     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 985     FIXME("(%p)->(%p)\n", This, p);
 986     return E_NOTIMPL;
 987 }
 988
 989 static HRESULT WINAPI HTMLWindow3_get_screenTop(IHTMLWindow3 *iface, LONG *p)
 990 {
 991     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 992     FIXME("(%p)->(%p)\n", This, p);
 993     return E_NOTIMPL;
 994 }
 995
 996 static HRESULT WINAPI HTMLWindow3_attachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp, VARIANT_BOOL *pfResult)
 997 {
 998     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
 999
1000     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(event), pDisp, pfResult);
1001
1002     return attach_event(&This->event_target, This->doc, event, pDisp, pfResult);
1003 }
1004
1005 static HRESULT WINAPI HTMLWindow3_detachEvent(IHTMLWindow3 *iface, BSTR event, IDispatch *pDisp)
1006 {
1007     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1008     FIXME("(%p)->()\n", This);
1009     return E_NOTIMPL;
1010 }
1011
1012 static HRESULT window_set_timer(HTMLWindow *This, VARIANT *expr, LONG msec, VARIANT *language,
1013         BOOL interval, LONG *timer_id)
1014 {
1015     IDispatch *disp = NULL;
1016
1017     switch(V_VT(expr)) {
1018     case VT_DISPATCH:
1019         disp = V_DISPATCH(expr);
1020         IDispatch_AddRef(disp);
1021         break;
1022
1023     case VT_BSTR:
1024         disp = script_parse_event(This->doc, V_BSTR(expr));
1025         break;
1026
1027     default:
1028         FIXME("unimplemented vt=%d\n", V_VT(expr));
1029         return E_NOTIMPL;
1030     }
1031
1032     if(!disp)
1033         return E_FAIL;
1034
1035     *timer_id = set_task_timer(This->doc, msec, interval, disp);
1036     IDispatch_Release(disp);
1037
1038     return S_OK;
1039 }
1040
1041 static HRESULT WINAPI HTMLWindow3_setTimeout(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1042         VARIANT *language, LONG *timerID)
1043 {
1044     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1045
1046     TRACE("(%p)->(%p(%d) %d %p %p)\n", This, expression, V_VT(expression), msec, language, timerID);
1047
1048     return window_set_timer(This, expression, msec, language, FALSE, timerID);
1049 }
1050
1051 static HRESULT WINAPI HTMLWindow3_setInterval(IHTMLWindow3 *iface, VARIANT *expression, LONG msec,
1052         VARIANT *language, LONG *timerID)
1053 {
1054     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1055
1056     TRACE("(%p)->(%p %d %p %p)\n", This, expression, msec, language, timerID);
1057
1058     return window_set_timer(This, expression, msec, language, TRUE, timerID);
1059 }
1060
1061 static HRESULT WINAPI HTMLWindow3_print(IHTMLWindow3 *iface)
1062 {
1063     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1064     FIXME("(%p)\n", This);
1065     return E_NOTIMPL;
1066 }
1067
1068 static HRESULT WINAPI HTMLWindow3_put_onbeforeprint(IHTMLWindow3 *iface, VARIANT v)
1069 {
1070     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1071     FIXME("(%p)->()\n", This);
1072     return E_NOTIMPL;
1073 }
1074
1075 static HRESULT WINAPI HTMLWindow3_get_onbeforeprint(IHTMLWindow3 *iface, VARIANT *p)
1076 {
1077     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1078     FIXME("(%p)->(%p)\n", This, p);
1079     return E_NOTIMPL;
1080 }
1081
1082 static HRESULT WINAPI HTMLWindow3_put_onafterprint(IHTMLWindow3 *iface, VARIANT v)
1083 {
1084     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1085     FIXME("(%p)->()\n", This);
1086     return E_NOTIMPL;
1087 }
1088
1089 static HRESULT WINAPI HTMLWindow3_get_onafterprint(IHTMLWindow3 *iface, VARIANT *p)
1090 {
1091     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1092     FIXME("(%p)->(%p)\n", This, p);
1093     return E_NOTIMPL;
1094 }
1095
1096 static HRESULT WINAPI HTMLWindow3_get_clipboardData(IHTMLWindow3 *iface, IHTMLDataTransfer **p)
1097 {
1098     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1099     FIXME("(%p)->(%p)\n", This, p);
1100     return E_NOTIMPL;
1101 }
1102
1103 static HRESULT WINAPI HTMLWindow3_showModelessDialog(IHTMLWindow3 *iface, BSTR url,
1104         VARIANT *varArgIn, VARIANT *options, IHTMLWindow2 **pDialog)
1105 {
1106     HTMLWindow *This = HTMLWINDOW3_THIS(iface);
1107     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(url), varArgIn, options, pDialog);
1108     return E_NOTIMPL;
1109 }
1110
1111 #undef HTMLWINDOW3_THIS
1112
1113 static const IHTMLWindow3Vtbl HTMLWindow3Vtbl = {
1114     HTMLWindow3_QueryInterface,
1115     HTMLWindow3_AddRef,
1116     HTMLWindow3_Release,
1117     HTMLWindow3_GetTypeInfoCount,
1118     HTMLWindow3_GetTypeInfo,
1119     HTMLWindow3_GetIDsOfNames,
1120     HTMLWindow3_Invoke,
1121     HTMLWindow3_get_screenLeft,
1122     HTMLWindow3_get_screenTop,
1123     HTMLWindow3_attachEvent,
1124     HTMLWindow3_detachEvent,
1125     HTMLWindow3_setTimeout,
1126     HTMLWindow3_setInterval,
1127     HTMLWindow3_print,
1128     HTMLWindow3_put_onbeforeprint,
1129     HTMLWindow3_get_onbeforeprint,
1130     HTMLWindow3_put_onafterprint,
1131     HTMLWindow3_get_onafterprint,
1132     HTMLWindow3_get_clipboardData,
1133     HTMLWindow3_showModelessDialog
1134 };
1135
1136 #define DISPEX_THIS(iface) DEFINE_THIS(HTMLWindow, IDispatchEx, iface)
1137
1138 static HRESULT WINAPI WindowDispEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
1139 {
1140     HTMLWindow *This = DISPEX_THIS(iface);
1141
1142     return IHTMLWindow2_QueryInterface(HTMLWINDOW2(This), riid, ppv);
1143 }
1144
1145 static ULONG WINAPI WindowDispEx_AddRef(IDispatchEx *iface)
1146 {
1147     HTMLWindow *This = DISPEX_THIS(iface);
1148
1149     return IHTMLWindow2_AddRef(HTMLWINDOW2(This));
1150 }
1151
1152 static ULONG WINAPI WindowDispEx_Release(IDispatchEx *iface)
1153 {
1154     HTMLWindow *This = DISPEX_THIS(iface);
1155
1156     return IHTMLWindow2_Release(HTMLWINDOW2(This));
1157 }
1158
1159 static HRESULT WINAPI WindowDispEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
1160 {
1161     HTMLWindow *This = DISPEX_THIS(iface);
1162
1163     TRACE("(%p)->(%p)\n", This, pctinfo);
1164
1165     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->dispex), pctinfo);
1166 }
1167
1168 static HRESULT WINAPI WindowDispEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
1169                                                LCID lcid, ITypeInfo **ppTInfo)
1170 {
1171     HTMLWindow *This = DISPEX_THIS(iface);
1172
1173     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1174
1175     return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->dispex), iTInfo, lcid, ppTInfo);
1176 }
1177
1178 static HRESULT WINAPI WindowDispEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
1179                                                  LPOLESTR *rgszNames, UINT cNames,
1180                                                  LCID lcid, DISPID *rgDispId)
1181 {
1182     HTMLWindow *This = DISPEX_THIS(iface);
1183
1184     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1185           lcid, rgDispId);
1186
1187     /* FIXME: Use script dispatch */
1188
1189     return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->dispex), riid, rgszNames, cNames, lcid, rgDispId);
1190 }
1191
1192 static HRESULT WINAPI WindowDispEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
1193                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1194                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1195 {
1196     HTMLWindow *This = DISPEX_THIS(iface);
1197
1198     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1199           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1200
1201     /* FIXME: Use script dispatch */
1202
1203     return IDispatchEx_Invoke(DISPATCHEX(&This->dispex), dispIdMember, riid, lcid, wFlags, pDispParams,
1204                               pVarResult, pExcepInfo, puArgErr);
1205 }
1206
1207 static HRESULT WINAPI WindowDispEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
1208 {
1209     HTMLWindow *This = DISPEX_THIS(iface);
1210
1211     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
1212
1213     return IDispatchEx_GetDispID(DISPATCHEX(&This->dispex), bstrName, grfdex, pid);
1214 }
1215
1216 static HRESULT WINAPI WindowDispEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1217         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1218 {
1219     HTMLWindow *This = DISPEX_THIS(iface);
1220
1221     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1222
1223     return IDispatchEx_InvokeEx(DISPATCHEX(&This->dispex), id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1224 }
1225
1226 static HRESULT WINAPI WindowDispEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
1227 {
1228     HTMLWindow *This = DISPEX_THIS(iface);
1229
1230     TRACE("(%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
1231
1232     return IDispatchEx_DeleteMemberByName(DISPATCHEX(&This->dispex), bstrName, grfdex);
1233 }
1234
1235 static HRESULT WINAPI WindowDispEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1236 {
1237     HTMLWindow *This = DISPEX_THIS(iface);
1238
1239     TRACE("(%p)->(%x)\n", This, id);
1240
1241     return IDispatchEx_DeleteMemberByDispID(DISPATCHEX(&This->dispex), id);
1242 }
1243
1244 static HRESULT WINAPI WindowDispEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
1245 {
1246     HTMLWindow *This = DISPEX_THIS(iface);
1247
1248     TRACE("(%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex);
1249
1250     return IDispatchEx_GetMemberProperties(DISPATCHEX(&This->dispex), id, grfdexFetch, pgrfdex);
1251 }
1252
1253 static HRESULT WINAPI WindowDispEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
1254 {
1255     HTMLWindow *This = DISPEX_THIS(iface);
1256
1257     TRACE("(%p)->(%x %p)\n", This, id, pbstrName);
1258
1259     return IDispatchEx_GetMemberName(DISPATCHEX(&This->dispex), id, pbstrName);
1260 }
1261
1262 static HRESULT WINAPI WindowDispEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
1263 {
1264     HTMLWindow *This = DISPEX_THIS(iface);
1265
1266     TRACE("(%p)->(%x %x %p)\n", This, grfdex, id, pid);
1267
1268     return IDispatchEx_GetNextDispID(DISPATCHEX(&This->dispex), grfdex, id, pid);
1269 }
1270
1271 static HRESULT WINAPI WindowDispEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
1272 {
1273     HTMLWindow *This = DISPEX_THIS(iface);
1274
1275     TRACE("(%p)->(%p)\n", This, ppunk);
1276
1277     *ppunk = NULL;
1278     return S_OK;
1279 }
1280
1281 #undef DISPEX_THIS
1282
1283 static const IDispatchExVtbl WindowDispExVtbl = {
1284     WindowDispEx_QueryInterface,
1285     WindowDispEx_AddRef,
1286     WindowDispEx_Release,
1287     WindowDispEx_GetTypeInfoCount,
1288     WindowDispEx_GetTypeInfo,
1289     WindowDispEx_GetIDsOfNames,
1290     WindowDispEx_Invoke,
1291     WindowDispEx_GetDispID,
1292     WindowDispEx_InvokeEx,
1293     WindowDispEx_DeleteMemberByName,
1294     WindowDispEx_DeleteMemberByDispID,
1295     WindowDispEx_GetMemberProperties,
1296     WindowDispEx_GetMemberName,
1297     WindowDispEx_GetNextDispID,
1298     WindowDispEx_GetNameSpaceParent
1299 };
1300
1301 static const tid_t HTMLWindow_iface_tids[] = {
1302     IHTMLWindow2_tid,
1303     IHTMLWindow3_tid,
1304     0
1305 };
1306 static dispex_static_data_t HTMLWindow_dispex = {
1307     NULL,
1308     DispHTMLWindow2_tid,
1309     NULL,
1310     HTMLWindow_iface_tids
1311 };
1312
1313 HRESULT HTMLWindow_Create(HTMLDocument *doc, nsIDOMWindow *nswindow, HTMLWindow **ret)
1314 {
1315     HTMLWindow *window;
1316
1317     window = heap_alloc_zero(sizeof(HTMLWindow));
1318     if(!window)
1319         return E_OUTOFMEMORY;
1320
1321     window->lpHTMLWindow2Vtbl = &HTMLWindow2Vtbl;
1322     window->lpHTMLWindow3Vtbl = &HTMLWindow3Vtbl;
1323     window->lpIDispatchExVtbl = &WindowDispExVtbl;
1324     window->ref = 1;
1325     window->doc = doc;
1326
1327     init_dispex(&window->dispex, (IUnknown*)HTMLWINDOW2(window), &HTMLWindow_dispex);
1328
1329     if(nswindow) {
1330         nsIDOMWindow_AddRef(nswindow);
1331         window->nswindow = nswindow;
1332     }
1333
1334     window->scriptmode = SCRIPTMODE_GECKO;
1335     list_init(&window->script_hosts);
1336
1337     list_add_head(&window_list, &window->entry);
1338
1339     *ret = window;
1340     return S_OK;
1341 }
1342
1343 HTMLWindow *nswindow_to_window(const nsIDOMWindow *nswindow)
1344 {
1345     HTMLWindow *iter;
1346
1347     LIST_FOR_EACH_ENTRY(iter, &window_list, HTMLWindow, entry) {
1348         if(iter->nswindow == nswindow)
1349             return iter;
1350     }
1351
1352     return NULL;
1353 }