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