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