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