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 "config.h"
  20
  21 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "winnls.h"
  30 #include "ole2.h"
  31
  32 #include "wine/debug.h"
  33 #include "wine/unicode.h"
  34
  35 #include "mshtml_private.h"
  36 #include "resource.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  39
  40 #define HTMLWINDOW2_THIS(iface) DEFINE_THIS(HTMLWindow, HTMLWindow2, iface)
  41
  42 static struct list window_list = LIST_INIT(window_list);
  43
  44 static HRESULT WINAPI HTMLWindow2_QueryInterface(IHTMLWindow2 *iface, REFIID riid, void **ppv)
  45 {
  46     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  47
  48     *ppv = NULL;
  49
  50     if(IsEqualGUID(&IID_IUnknown, riid)) {
  51         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  52         *ppv = HTMLWINDOW2(This);
  53     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  54         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  55         *ppv = HTMLWINDOW2(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     }
  63
  64     if(*ppv) {
  65         IUnknown_AddRef((IUnknown*)*ppv);
  66         return S_OK;
  67     }
  68
  69     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
  70     return E_NOINTERFACE;
  71 }
  72
  73 static ULONG WINAPI HTMLWindow2_AddRef(IHTMLWindow2 *iface)
  74 {
  75     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  76     LONG ref = InterlockedIncrement(&This->ref);
  77
  78     TRACE("(%p) ref=%d\n", This, ref);
  79
  80     return ref;
  81 }
  82
  83 static ULONG WINAPI HTMLWindow2_Release(IHTMLWindow2 *iface)
  84 {
  85     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
  86     LONG ref = InterlockedDecrement(&This->ref);
  87
  88     TRACE("(%p) ref=%d\n", This, ref);
  89
  90     if(!ref) {
  91         list_remove(&This->entry);
  92         mshtml_free(This);
  93     }
  94
  95     return ref;
  96 }
  97
  98 static HRESULT WINAPI HTMLWindow2_GetTypeInfoCount(IHTMLWindow2 *iface, UINT *pctinfo)
  99 {
 100     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 101
 102     TRACE("(%p)->(%p)\n", This, pctinfo);
 103
 104     *pctinfo = 1;
 105     return S_OK;
 106 }
 107
 108 static HRESULT WINAPI HTMLWindow2_GetTypeInfo(IHTMLWindow2 *iface, UINT iTInfo,
 109                                               LCID lcid, ITypeInfo **ppTInfo)
 110 {
 111     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 112     HRESULT hres;
 113
 114     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 115
 116     hres = get_typeinfo(IHTMLWindow2_tid, ppTInfo);
 117     if(SUCCEEDED(hres))
 118         ITypeInfo_AddRef(*ppTInfo);
 119
 120     return hres;
 121 }
 122
 123 static HRESULT WINAPI HTMLWindow2_GetIDsOfNames(IHTMLWindow2 *iface, REFIID riid,
 124                                                 LPOLESTR *rgszNames, UINT cNames,
 125                                                 LCID lcid, DISPID *rgDispId)
 126 {
 127     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 128     ITypeInfo *typeinfo;
 129     HRESULT hres;
 130
 131     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 132           lcid, rgDispId);
 133
 134     hres = get_typeinfo(IHTMLWindow2_tid, &typeinfo);
 135     if(SUCCEEDED(hres))
 136         hres = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 137
 138     return hres;
 139 }
 140
 141 static HRESULT WINAPI HTMLWindow2_Invoke(IHTMLWindow2 *iface, DISPID dispIdMember,
 142                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 143                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 144 {
 145     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 146     ITypeInfo *typeinfo;
 147     HRESULT hres;
 148
 149     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 150           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 151
 152     hres = get_typeinfo(IHTMLWindow2_tid, &typeinfo);
 153     if(SUCCEEDED(hres))
 154         hres = ITypeInfo_Invoke(typeinfo, HTMLWINDOW2(This), dispIdMember, wFlags, pDispParams,
 155                 pVarResult, pExcepInfo, puArgErr);
 156
 157     return hres;
 158 }
 159
 160 static HRESULT WINAPI HTMLWindow2_item(IHTMLWindow2 *iface, VARIANT *pvarIndex, VARIANT *pvarResult)
 161 {
 162     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 163     FIXME("(%p)->(%p %p)\n", This, pvarIndex, pvarResult);
 164     return E_NOTIMPL;
 165 }
 166
 167 static HRESULT WINAPI HTMLWindow2_get_length(IHTMLWindow2 *iface, long *p)
 168 {
 169     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 170     FIXME("(%p)->(%p)\n", This, p);
 171     return E_NOTIMPL;
 172 }
 173
 174 static HRESULT WINAPI HTMLWindow2_get_frames(IHTMLWindow2 *iface, IHTMLFramesCollection2 **p)
 175 {
 176     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 177     FIXME("(%p)->(%p)\n", This, p);
 178     return E_NOTIMPL;
 179 }
 180
 181 static HRESULT WINAPI HTMLWindow2_put_defaultStatus(IHTMLWindow2 *iface, BSTR v)
 182 {
 183     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 184     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 185     return E_NOTIMPL;
 186 }
 187
 188 static HRESULT WINAPI HTMLWindow2_get_defaultStatus(IHTMLWindow2 *iface, BSTR *p)
 189 {
 190     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 191     FIXME("(%p)->(%p)\n", This, p);
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI HTMLWindow2_put_status(IHTMLWindow2 *iface, BSTR v)
 196 {
 197     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 198     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI HTMLWindow2_get_status(IHTMLWindow2 *iface, BSTR *p)
 203 {
 204     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 205     FIXME("(%p)->(%p)\n", This, p);
 206     return E_NOTIMPL;
 207 }
 208
 209 static HRESULT WINAPI HTMLWindow2_setTimeout(IHTMLWindow2 *iface, BSTR expression,
 210         long msec, VARIANT *language, long *timerID)
 211 {
 212     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 213     FIXME("(%p)->(%s %ld %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 214     return E_NOTIMPL;
 215 }
 216
 217 static HRESULT WINAPI HTMLWindow2_clearTimeout(IHTMLWindow2 *iface, long timerID)
 218 {
 219     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 220     FIXME("(%p)->(%ld)\n", This, timerID);
 221     return E_NOTIMPL;
 222 }
 223
 224 static HRESULT WINAPI HTMLWindow2_alert(IHTMLWindow2 *iface, BSTR message)
 225 {
 226     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 227     WCHAR wszTitle[100];
 228
 229     TRACE("(%p)->(%s)\n", This, debugstr_w(message));
 230
 231     if(!LoadStringW(get_shdoclc(), IDS_MESSAGE_BOX_TITLE, wszTitle,
 232                     sizeof(wszTitle)/sizeof(WCHAR))) {
 233         WARN("Could not load message box title: %d\n", GetLastError());
 234         return S_OK;
 235     }
 236
 237     MessageBoxW(This->doc->hwnd, message, wszTitle, MB_ICONWARNING);
 238     return S_OK;
 239 }
 240
 241 static HRESULT WINAPI HTMLWindow2_confirm(IHTMLWindow2 *iface, BSTR message,
 242         VARIANT_BOOL *confirmed)
 243 {
 244     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 245     FIXME("(%p)->(%s %p)\n", This, debugstr_w(message), confirmed);
 246     return E_NOTIMPL;
 247 }
 248
 249 static HRESULT WINAPI HTMLWindow2_prompt(IHTMLWindow2 *iface, BSTR message,
 250         BSTR dststr, VARIANT *textdata)
 251 {
 252     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 253     FIXME("(%p)->(%s %s %p)\n", This, debugstr_w(message), debugstr_w(dststr), textdata);
 254     return E_NOTIMPL;
 255 }
 256
 257 static HRESULT WINAPI HTMLWindow2_get_Image(IHTMLWindow2 *iface, IHTMLImageElementFactory **p)
 258 {
 259     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 260     FIXME("(%p)->(%p)\n", This, p);
 261     return E_NOTIMPL;
 262 }
 263
 264 static HRESULT WINAPI HTMLWindow2_get_location(IHTMLWindow2 *iface, IHTMLLocation **p)
 265 {
 266     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 267     FIXME("(%p)->(%p)\n", This, p);
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI HTMLWindow2_get_history(IHTMLWindow2 *iface, IOmHistory **p)
 272 {
 273     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 274     FIXME("(%p)->(%p)\n", This, p);
 275     return E_NOTIMPL;
 276 }
 277
 278 static HRESULT WINAPI HTMLWindow2_close(IHTMLWindow2 *iface)
 279 {
 280     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 281     FIXME("(%p)->()\n", This);
 282     return E_NOTIMPL;
 283 }
 284
 285 static HRESULT WINAPI HTMLWindow2_put_opener(IHTMLWindow2 *iface, VARIANT v)
 286 {
 287     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 288     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 289     return E_NOTIMPL;
 290 }
 291
 292 static HRESULT WINAPI HTMLWindow2_get_opener(IHTMLWindow2 *iface, VARIANT *p)
 293 {
 294     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 295     FIXME("(%p)->(%p)\n", This, p);
 296     return E_NOTIMPL;
 297 }
 298
 299 static HRESULT WINAPI HTMLWindow2_get_navigator(IHTMLWindow2 *iface, IOmNavigator **p)
 300 {
 301     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 302     FIXME("(%p)->(%p)\n", This, p);
 303     return E_NOTIMPL;
 304 }
 305
 306 static HRESULT WINAPI HTMLWindow2_put_name(IHTMLWindow2 *iface, BSTR v)
 307 {
 308     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 309     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 310     return E_NOTIMPL;
 311 }
 312
 313 static HRESULT WINAPI HTMLWindow2_get_name(IHTMLWindow2 *iface, BSTR *p)
 314 {
 315     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 316     FIXME("(%p)->(%p)\n", This, p);
 317     return E_NOTIMPL;
 318 }
 319
 320 static HRESULT WINAPI HTMLWindow2_get_parent(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 321 {
 322     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 323     FIXME("(%p)->(%p)\n", This, p);
 324     return E_NOTIMPL;
 325 }
 326
 327 static HRESULT WINAPI HTMLWindow2_open(IHTMLWindow2 *iface, BSTR url, BSTR name,
 328          BSTR features, VARIANT_BOOL replace, IHTMLWindow2 **pomWindowResult)
 329 {
 330     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 331     FIXME("(%p)->(%s %s %s %x %p)\n", This, debugstr_w(url), debugstr_w(name),
 332           debugstr_w(features), replace, pomWindowResult);
 333     return E_NOTIMPL;
 334 }
 335
 336 static HRESULT WINAPI HTMLWindow2_get_self(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 337 {
 338     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 339     FIXME("(%p)->(%p)\n", This, p);
 340     return E_NOTIMPL;
 341 }
 342
 343 static HRESULT WINAPI HTMLWindow2_get_top(IHTMLWindow2 *iface, IHTMLWindow2 **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_window(IHTMLWindow2 *iface, IHTMLWindow2 **p)
 351 {
 352     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 353     FIXME("(%p)->(%p)\n", This, p);
 354     return E_NOTIMPL;
 355 }
 356
 357 static HRESULT WINAPI HTMLWindow2_navigate(IHTMLWindow2 *iface, BSTR url)
 358 {
 359     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 360     FIXME("(%p)->(%s)\n", This, debugstr_w(url));
 361     return E_NOTIMPL;
 362 }
 363
 364 static HRESULT WINAPI HTMLWindow2_put_onfocus(IHTMLWindow2 *iface, VARIANT v)
 365 {
 366     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 367     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 368     return E_NOTIMPL;
 369 }
 370
 371 static HRESULT WINAPI HTMLWindow2_get_onfocus(IHTMLWindow2 *iface, VARIANT *p)
 372 {
 373     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 374     FIXME("(%p)->(%p)\n", This, p);
 375     return E_NOTIMPL;
 376 }
 377
 378 static HRESULT WINAPI HTMLWindow2_put_onblur(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_onblur(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_put_onload(IHTMLWindow2 *iface, VARIANT v)
 393 {
 394     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 395     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 396     return E_NOTIMPL;
 397 }
 398
 399 static HRESULT WINAPI HTMLWindow2_get_onload(IHTMLWindow2 *iface, VARIANT *p)
 400 {
 401     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 402     FIXME("(%p)->(%p)\n", This, p);
 403     return E_NOTIMPL;
 404 }
 405
 406 static HRESULT WINAPI HTMLWindow2_put_onbeforeunload(IHTMLWindow2 *iface, VARIANT v)
 407 {
 408     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 409     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 410     return E_NOTIMPL;
 411 }
 412
 413 static HRESULT WINAPI HTMLWindow2_get_onbeforeunload(IHTMLWindow2 *iface, VARIANT *p)
 414 {
 415     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 416     FIXME("(%p)->(%p)\n", This, p);
 417     return E_NOTIMPL;
 418 }
 419
 420 static HRESULT WINAPI HTMLWindow2_put_onunload(IHTMLWindow2 *iface, VARIANT v)
 421 {
 422     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 423     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 424     return E_NOTIMPL;
 425 }
 426
 427 static HRESULT WINAPI HTMLWindow2_get_onunload(IHTMLWindow2 *iface, VARIANT *p)
 428 {
 429     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 430     FIXME("(%p)->(%p)\n", This, p);
 431     return E_NOTIMPL;
 432 }
 433
 434 static HRESULT WINAPI HTMLWindow2_put_onhelp(IHTMLWindow2 *iface, VARIANT v)
 435 {
 436     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 437     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 438     return E_NOTIMPL;
 439 }
 440
 441 static HRESULT WINAPI HTMLWindow2_get_onhelp(IHTMLWindow2 *iface, VARIANT *p)
 442 {
 443     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 444     FIXME("(%p)->(%p)\n", This, p);
 445     return E_NOTIMPL;
 446 }
 447
 448 static HRESULT WINAPI HTMLWindow2_put_onerror(IHTMLWindow2 *iface, VARIANT v)
 449 {
 450     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 451     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 452     return E_NOTIMPL;
 453 }
 454
 455 static HRESULT WINAPI HTMLWindow2_get_onerror(IHTMLWindow2 *iface, VARIANT *p)
 456 {
 457     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 458     FIXME("(%p)->(%p)\n", This, p);
 459     return E_NOTIMPL;
 460 }
 461
 462 static HRESULT WINAPI HTMLWindow2_put_onresize(IHTMLWindow2 *iface, VARIANT v)
 463 {
 464     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 465     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 466     return E_NOTIMPL;
 467 }
 468
 469 static HRESULT WINAPI HTMLWindow2_get_onresize(IHTMLWindow2 *iface, VARIANT *p)
 470 {
 471     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 472     FIXME("(%p)->(%p)\n", This, p);
 473     return E_NOTIMPL;
 474 }
 475
 476 static HRESULT WINAPI HTMLWindow2_put_onscroll(IHTMLWindow2 *iface, VARIANT v)
 477 {
 478     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 479     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 480     return E_NOTIMPL;
 481 }
 482
 483 static HRESULT WINAPI HTMLWindow2_get_onscroll(IHTMLWindow2 *iface, VARIANT *p)
 484 {
 485     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 486     FIXME("(%p)->(%p)\n", This, p);
 487     return E_NOTIMPL;
 488 }
 489
 490 static HRESULT WINAPI HTMLWindow2_get_document(IHTMLWindow2 *iface, IHTMLDocument2 **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_event(IHTMLWindow2 *iface, IHTMLEventObj **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_get__newEnum(IHTMLWindow2 *iface, IUnknown **p)
 505 {
 506     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 507     FIXME("(%p)->(%p)\n", This, p);
 508     return E_NOTIMPL;
 509 }
 510
 511 static HRESULT WINAPI HTMLWindow2_showModalDialog(IHTMLWindow2 *iface, BSTR dialog,
 512         VARIANT *varArgIn, VARIANT *varOptions, VARIANT *varArgOut)
 513 {
 514     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 515     FIXME("(%p)->(%s %p %p %p)\n", This, debugstr_w(dialog), varArgIn, varOptions, varArgOut);
 516     return E_NOTIMPL;
 517 }
 518
 519 static HRESULT WINAPI HTMLWindow2_showHelp(IHTMLWindow2 *iface, BSTR helpURL, VARIANT helpArg,
 520         BSTR features)
 521 {
 522     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 523     FIXME("(%p)->(%s v(%d) %s)\n", This, debugstr_w(helpURL), V_VT(&helpArg), debugstr_w(features));
 524     return E_NOTIMPL;
 525 }
 526
 527 static HRESULT WINAPI HTMLWindow2_get_screen(IHTMLWindow2 *iface, IHTMLScreen **p)
 528 {
 529     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 530     FIXME("(%p)->(%p)\n", This, p);
 531     return E_NOTIMPL;
 532 }
 533
 534 static HRESULT WINAPI HTMLWindow2_get_Option(IHTMLWindow2 *iface, IHTMLOptionElementFactory **p)
 535 {
 536     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 537     FIXME("(%p)->(%p)\n", This, p);
 538     return E_NOTIMPL;
 539 }
 540
 541 static HRESULT WINAPI HTMLWindow2_focus(IHTMLWindow2 *iface)
 542 {
 543     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 544     FIXME("(%p)->()\n", This);
 545     return E_NOTIMPL;
 546 }
 547
 548 static HRESULT WINAPI HTMLWindow2_get_closed(IHTMLWindow2 *iface, VARIANT_BOOL *p)
 549 {
 550     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 551     FIXME("(%p)->(%p)\n", This, p);
 552     return E_NOTIMPL;
 553 }
 554
 555 static HRESULT WINAPI HTMLWindow2_blur(IHTMLWindow2 *iface)
 556 {
 557     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 558     FIXME("(%p)->()\n", This);
 559     return E_NOTIMPL;
 560 }
 561
 562 static HRESULT WINAPI HTMLWindow2_scroll(IHTMLWindow2 *iface, long x, long y)
 563 {
 564     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 565     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 566     return E_NOTIMPL;
 567 }
 568
 569 static HRESULT WINAPI HTMLWindow2_get_clientInformation(IHTMLWindow2 *iface, IOmNavigator **p)
 570 {
 571     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 572     FIXME("(%p)->(%p)\n", This, p);
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT WINAPI HTMLWindow2_setInterval(IHTMLWindow2 *iface, BSTR expression,
 577         long msec, VARIANT *language, long *timerID)
 578 {
 579     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 580     FIXME("(%p)->(%s %ld %p %p)\n", This, debugstr_w(expression), msec, language, timerID);
 581     return E_NOTIMPL;
 582 }
 583
 584 static HRESULT WINAPI HTMLWindow2_clearInterval(IHTMLWindow2 *iface, long timerID)
 585 {
 586     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 587     FIXME("(%p)->(%ld)\n", This, timerID);
 588     return E_NOTIMPL;
 589 }
 590
 591 static HRESULT WINAPI HTMLWindow2_put_offscreenBuffering(IHTMLWindow2 *iface, VARIANT v)
 592 {
 593     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 594     FIXME("(%p)->(v(%d))\n", This, V_VT(&v));
 595     return E_NOTIMPL;
 596 }
 597
 598 static HRESULT WINAPI HTMLWindow2_get_offscreenBuffering(IHTMLWindow2 *iface, VARIANT *p)
 599 {
 600     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 601     FIXME("(%p)->(%p)\n", This, p);
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT WINAPI HTMLWindow2_execScript(IHTMLWindow2 *iface, BSTR scode, BSTR language,
 606         VARIANT *pvarRet)
 607 {
 608     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 609     FIXME("(%p)->(%s %s %p)\n", This, debugstr_w(scode), debugstr_w(language), pvarRet);
 610     return E_NOTIMPL;
 611 }
 612
 613 static HRESULT WINAPI HTMLWindow2_toString(IHTMLWindow2 *iface, BSTR *String)
 614 {
 615     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 616     FIXME("(%p)->(%p)\n", This, String);
 617     return E_NOTIMPL;
 618 }
 619
 620 static HRESULT WINAPI HTMLWindow2_scrollBy(IHTMLWindow2 *iface, long x, long y)
 621 {
 622     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 623     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 624     return E_NOTIMPL;
 625 }
 626
 627 static HRESULT WINAPI HTMLWindow2_scrollTo(IHTMLWindow2 *iface, long x, long y)
 628 {
 629     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 630     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 631     return E_NOTIMPL;
 632 }
 633
 634 static HRESULT WINAPI HTMLWindow2_moveTo(IHTMLWindow2 *iface, long x, long y)
 635 {
 636     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 637     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT WINAPI HTMLWindow2_moveBy(IHTMLWindow2 *iface, long x, long y)
 642 {
 643     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 644     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 645     return E_NOTIMPL;
 646 }
 647
 648 static HRESULT WINAPI HTMLWindow2_resizeTo(IHTMLWindow2 *iface, long x, long y)
 649 {
 650     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 651     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 652     return E_NOTIMPL;
 653 }
 654
 655 static HRESULT WINAPI HTMLWindow2_resizeBy(IHTMLWindow2 *iface, long x, long y)
 656 {
 657     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 658     FIXME("(%p)->(%ld %ld)\n", This, x, y);
 659     return E_NOTIMPL;
 660 }
 661
 662 static HRESULT WINAPI HTMLWindow2_get_external(IHTMLWindow2 *iface, IDispatch **p)
 663 {
 664     HTMLWindow *This = HTMLWINDOW2_THIS(iface);
 665
 666     TRACE("(%p)->(%p)\n", This, p);
 667
 668     *p = NULL;
 669
 670     if(!This->doc->hostui)
 671         return S_OK;
 672
 673     return IDocHostUIHandler_GetExternal(This->doc->hostui, p);
 674 }
 675
 676 #undef HTMLWINDOW2_THIS
 677
 678 static const IHTMLWindow2Vtbl HTMLWindow2Vtbl = {
 679     HTMLWindow2_QueryInterface,
 680     HTMLWindow2_AddRef,
 681     HTMLWindow2_Release,
 682     HTMLWindow2_GetTypeInfoCount,
 683     HTMLWindow2_GetTypeInfo,
 684     HTMLWindow2_GetIDsOfNames,
 685     HTMLWindow2_Invoke,
 686     HTMLWindow2_item,
 687     HTMLWindow2_get_length,
 688     HTMLWindow2_get_frames,
 689     HTMLWindow2_put_defaultStatus,
 690     HTMLWindow2_get_defaultStatus,
 691     HTMLWindow2_put_status,
 692     HTMLWindow2_get_status,
 693     HTMLWindow2_setTimeout,
 694     HTMLWindow2_clearTimeout,
 695     HTMLWindow2_alert,
 696     HTMLWindow2_confirm,
 697     HTMLWindow2_prompt,
 698     HTMLWindow2_get_Image,
 699     HTMLWindow2_get_location,
 700     HTMLWindow2_get_history,
 701     HTMLWindow2_close,
 702     HTMLWindow2_put_opener,
 703     HTMLWindow2_get_opener,
 704     HTMLWindow2_get_navigator,
 705     HTMLWindow2_put_name,
 706     HTMLWindow2_get_name,
 707     HTMLWindow2_get_parent,
 708     HTMLWindow2_open,
 709     HTMLWindow2_get_self,
 710     HTMLWindow2_get_top,
 711     HTMLWindow2_get_window,
 712     HTMLWindow2_navigate,
 713     HTMLWindow2_put_onfocus,
 714     HTMLWindow2_get_onfocus,
 715     HTMLWindow2_put_onblur,
 716     HTMLWindow2_get_onblur,
 717     HTMLWindow2_put_onload,
 718     HTMLWindow2_get_onload,
 719     HTMLWindow2_put_onbeforeunload,
 720     HTMLWindow2_get_onbeforeunload,
 721     HTMLWindow2_put_onunload,
 722     HTMLWindow2_get_onunload,
 723     HTMLWindow2_put_onhelp,
 724     HTMLWindow2_get_onhelp,
 725     HTMLWindow2_put_onerror,
 726     HTMLWindow2_get_onerror,
 727     HTMLWindow2_put_onresize,
 728     HTMLWindow2_get_onresize,
 729     HTMLWindow2_put_onscroll,
 730     HTMLWindow2_get_onscroll,
 731     HTMLWindow2_get_document,
 732     HTMLWindow2_get_event,
 733     HTMLWindow2_get__newEnum,
 734     HTMLWindow2_showModalDialog,
 735     HTMLWindow2_showHelp,
 736     HTMLWindow2_get_screen,
 737     HTMLWindow2_get_Option,
 738     HTMLWindow2_focus,
 739     HTMLWindow2_get_closed,
 740     HTMLWindow2_blur,
 741     HTMLWindow2_scroll,
 742     HTMLWindow2_get_clientInformation,
 743     HTMLWindow2_setInterval,
 744     HTMLWindow2_clearInterval,
 745     HTMLWindow2_put_offscreenBuffering,
 746     HTMLWindow2_get_offscreenBuffering,
 747     HTMLWindow2_execScript,
 748     HTMLWindow2_toString,
 749     HTMLWindow2_scrollBy,
 750     HTMLWindow2_scrollTo,
 751     HTMLWindow2_moveTo,
 752     HTMLWindow2_moveBy,
 753     HTMLWindow2_resizeTo,
 754     HTMLWindow2_resizeBy,
 755     HTMLWindow2_get_external
 756 };
 757
 758 static const char wineConfig_func[] =
 759 "window.__defineGetter__(\"external\",function() {\n"
 760 "    return window.__wineWindow__.external;\n"
 761 "});\n"
 762 "window.__wineWindow__ = wineWindow;\n";
 763
 764 static void astr_to_nswstr(const char *str, nsAString *nsstr)
 765 {
 766     LPWSTR wstr;
 767     int len;
 768
 769     len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 770     wstr = mshtml_alloc(len*sizeof(WCHAR));
 771     MultiByteToWideChar(CP_ACP, 0, str, -1, wstr, len);
 772
 773     nsAString_Init(nsstr, wstr);
 774
 775     mshtml_free(wstr);
 776 }
 777
 778 static nsresult call_js_func(nsIScriptContainer *script_container, nsISupports *target,
 779                              const char *name, const char *body,
 780                              PRUint32 argc, const char **arg_names, nsIArray *argv)
 781 {
 782     nsACString name_str;
 783     nsAString body_str;
 784     JSObject func_obj, jsglobal;
 785     nsIVariant *jsret;
 786     nsresult nsres;
 787
 788     nsres = nsIScriptContainer_GetGlobalObject(script_container, &jsglobal);
 789     if(NS_FAILED(nsres))
 790         ERR("GetGlobalObject: %08x\n", nsres);
 791
 792     nsACString_Init(&name_str, name);
 793     astr_to_nswstr(body, &body_str);
 794
 795     nsres =  nsIScriptContainer_CompileFunction(script_container, jsglobal, &name_str, argc, arg_names,
 796                                                 &body_str, NULL, 1, FALSE, &func_obj);
 797
 798     nsACString_Finish(&name_str);
 799     nsAString_Finish(&body_str);
 800
 801     if(NS_FAILED(nsres)) {
 802         ERR("CompileFunction failed: %08x\n", nsres);
 803         return nsres;
 804     }
 805
 806     nsres = nsIScriptContainer_CallFunction(script_container, target, jsglobal, func_obj, argv, &jsret);
 807
 808     nsIScriptContainer_DropScriptObject(script_container, func_obj);
 809     nsIScriptContainer_DropScriptObject(script_container, jsglobal);
 810     if(NS_FAILED(nsres)) {
 811         ERR("CallFunction failed: %08x\n", nsres);
 812         return nsres;
 813     }
 814
 815     nsIVariant_Release(jsret);
 816     return NS_OK;
 817 }
 818
 819 void setup_nswindow(HTMLWindow *This)
 820 {
 821     nsIScriptContainer *script_container;
 822     nsIDOMWindow *nswindow;
 823     nsIDOMDocument *domdoc;
 824     nsIWritableVariant *nsvar;
 825     nsIMutableArray *argv;
 826     nsresult nsres;
 827
 828     static const char *args[] = {"wineWindow"};
 829
 830     TRACE("(%p)\n", This);
 831
 832     nsIWebNavigation_GetDocument(This->doc->nscontainer->navigation, &domdoc);
 833     nsres = nsIDOMDocument_QueryInterface(domdoc, &IID_nsIScriptContainer, (void**)&script_container);
 834     nsIDOMDocument_Release(domdoc);
 835     if(NS_FAILED(nsres)) {
 836         TRACE("Could not get nsIDOMScriptContainer: %08x\n", nsres);
 837         return;
 838     }
 839
 840     nsIWebBrowser_GetContentDOMWindow(This->doc->nscontainer->webbrowser, &nswindow);
 841
 842     nsvar = create_nsvariant();
 843     nsres = nsIWritableVariant_SetAsInterface(nsvar, &IID_IDispatch, HTMLWINDOW2(This));
 844     if(NS_FAILED(nsres))
 845         ERR("SetAsInterface failed: %08x\n", nsres);
 846
 847     argv = create_nsarray();
 848     nsres = nsIMutableArray_AppendElement(argv, (nsISupports*)nsvar, FALSE);
 849     nsIWritableVariant_Release(nsvar);
 850     if(NS_FAILED(nsres))
 851         ERR("AppendElement failed: %08x\n", nsres);
 852
 853     call_js_func(script_container, (nsISupports*)nswindow/*HTMLWINDOW2(This)*/, "wineConfig",
 854                  wineConfig_func, 1, args, (nsIArray*)argv);
 855
 856     nsIMutableArray_Release(argv);
 857     nsIScriptContainer_Release(script_container);
 858 }
 859
 860 HTMLWindow *HTMLWindow_Create(HTMLDocument *doc)
 861 {
 862     HTMLWindow *ret = mshtml_alloc(sizeof(HTMLWindow));
 863
 864     ret->lpHTMLWindow2Vtbl = &HTMLWindow2Vtbl;
 865     ret->ref = 1;
 866     ret->nswindow = NULL;
 867     ret->doc = doc;
 868
 869     if(doc->nscontainer) {
 870         nsresult nsres;
 871
 872         nsres = nsIWebBrowser_GetContentDOMWindow(doc->nscontainer->webbrowser, &ret->nswindow);
 873         if(NS_FAILED(nsres))
 874             ERR("GetContentDOMWindow failed: %08x\n", nsres);
 875     }
 876
 877     list_add_head(&window_list, &ret->entry);
 878
 879     return ret;
 880 }
 881
 882 HTMLWindow *nswindow_to_window(const nsIDOMWindow *nswindow)
 883 {
 884     HTMLWindow *iter;
 885
 886     LIST_FOR_EACH_ENTRY(iter, &window_list, HTMLWindow, entry) {
 887         if(iter->nswindow == nswindow)
 888             return iter;
 889     }
 890
 891     return NULL;
 892 }