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