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

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