dlls/mshtml/htmldoc3.c

   1 /*
   2  * Copyright 2005 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 "ole2.h"
  30
  31 #include "wine/debug.h"
  32
  33 #include "mshtml_private.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  36
  37 #define HTMLDOC3_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument3, iface)
  38
  39 static HRESULT WINAPI HTMLDocument3_QueryInterface(IHTMLDocument3 *iface,
  40                                                   REFIID riid, void **ppv)
  41 {
  42     HTMLDocument *This = HTMLDOC3_THIS(iface);
  43     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
  44 }
  45
  46 static ULONG WINAPI HTMLDocument3_AddRef(IHTMLDocument3 *iface)
  47 {
  48     HTMLDocument *This = HTMLDOC3_THIS(iface);
  49     return IHTMLDocument2_AddRef(HTMLDOC(This));
  50 }
  51
  52 static ULONG WINAPI HTMLDocument3_Release(IHTMLDocument3 *iface)
  53 {
  54     HTMLDocument *This = HTMLDOC3_THIS(iface);
  55     return IHTMLDocument2_Release(HTMLDOC(This));
  56 }
  57
  58 static HRESULT WINAPI HTMLDocument3_GetTypeInfoCount(IHTMLDocument3 *iface, UINT *pctinfo)
  59 {
  60     HTMLDocument *This = HTMLDOC3_THIS(iface);
  61     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
  62 }
  63
  64 static HRESULT WINAPI HTMLDocument3_GetTypeInfo(IHTMLDocument3 *iface, UINT iTInfo,
  65                                                 LCID lcid, ITypeInfo **ppTInfo)
  66 {
  67     HTMLDocument *This = HTMLDOC3_THIS(iface);
  68     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
  69 }
  70
  71 static HRESULT WINAPI HTMLDocument3_GetIDsOfNames(IHTMLDocument3 *iface, REFIID riid,
  72                                                 LPOLESTR *rgszNames, UINT cNames,
  73                                                 LCID lcid, DISPID *rgDispId)
  74 {
  75     HTMLDocument *This = HTMLDOC3_THIS(iface);
  76     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
  77 }
  78
  79 static HRESULT WINAPI HTMLDocument3_Invoke(IHTMLDocument3 *iface, DISPID dispIdMember,
  80                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
  81                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
  82 {
  83     HTMLDocument *This = HTMLDOC3_THIS(iface);
  84     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
  85             pVarResult, pExcepInfo, puArgErr);
  86 }
  87
  88 static HRESULT WINAPI HTMLDocument3_releaseCapture(IHTMLDocument3 *iface)
  89 {
  90     HTMLDocument *This = HTMLDOC3_THIS(iface);
  91     FIXME("(%p)\n", This);
  92     return E_NOTIMPL;
  93 }
  94
  95 static HRESULT WINAPI HTMLDocument3_recalc(IHTMLDocument3 *iface, VARIANT_BOOL fForce)
  96 {
  97     HTMLDocument *This = HTMLDOC3_THIS(iface);
  98     FIXME("(%p)->(%x)\n", This, fForce);
  99     return E_NOTIMPL;
 100 }
 101
 102 static HRESULT WINAPI HTMLDocument3_createTextNode(IHTMLDocument3 *iface, BSTR text,
 103                                                    IHTMLDOMNode **newTextNode)
 104 {
 105     HTMLDocument *This = HTMLDOC3_THIS(iface);
 106     nsIDOMText *nstext;
 107     HTMLDOMNode *node;
 108     nsAString text_str;
 109     nsresult nsres;
 110
 111     TRACE("(%p)->(%s %p)\n", This, debugstr_w(text), newTextNode);
 112
 113     if(!This->nsdoc) {
 114         WARN("NULL nsdoc\n");
 115         return E_UNEXPECTED;
 116     }
 117
 118     nsAString_Init(&text_str, text);
 119     nsres = nsIDOMHTMLDocument_CreateTextNode(This->nsdoc, &text_str, &nstext);
 120     nsAString_Finish(&text_str);
 121     if(NS_FAILED(nsres)) {
 122         ERR("CreateTextNode failed: %08x\n", nsres);
 123         return E_FAIL;
 124     }
 125
 126     node = HTMLDOMTextNode_Create(This, (nsIDOMNode*)nstext);
 127     nsIDOMElement_Release(nstext);
 128
 129     *newTextNode = HTMLDOMNODE(node);
 130     IHTMLDOMNode_AddRef(HTMLDOMNODE(node));
 131     return S_OK;
 132 }
 133
 134 static HRESULT WINAPI HTMLDocument3_get_documentElement(IHTMLDocument3 *iface, IHTMLElement **p)
 135 {
 136     HTMLDocument *This = HTMLDOC3_THIS(iface);
 137     nsIDOMElement *nselem = NULL;
 138     HTMLDOMNode *node;
 139     nsresult nsres;
 140
 141     TRACE("(%p)->(%p)\n", This, p);
 142
 143     if(!This->nsdoc) {
 144         WARN("NULL nsdoc\n");
 145         return E_UNEXPECTED;
 146     }
 147
 148     nsres = nsIDOMHTMLDocument_GetDocumentElement(This->nsdoc, &nselem);
 149     if(NS_FAILED(nsres)) {
 150         ERR("GetDocumentElement failed: %08x\n", nsres);
 151         return E_FAIL;
 152     }
 153
 154     if(nselem) {
 155         node = get_node(This, (nsIDOMNode *)nselem, TRUE);
 156         nsIDOMElement_Release(nselem);
 157         IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)p);
 158     }else {
 159         *p = NULL;
 160     }
 161
 162     return S_OK;
 163 }
 164
 165 static HRESULT WINAPI HTMLDocument3_uniqueID(IHTMLDocument3 *iface, BSTR *p)
 166 {
 167     HTMLDocument *This = HTMLDOC3_THIS(iface);
 168     FIXME("(%p)->(%p)\n", This, p);
 169     return E_NOTIMPL;
 170 }
 171
 172 static HRESULT WINAPI HTMLDocument3_attachEvent(IHTMLDocument3 *iface, BSTR event,
 173                                                 IDispatch* pDisp, VARIANT_BOOL *pfResult)
 174 {
 175     HTMLDocument *This = HTMLDOC3_THIS(iface);
 176     FIXME("(%p)->(%s %p %p)\n", This, debugstr_w(event), pDisp, pfResult);
 177     return E_NOTIMPL;
 178 }
 179
 180 static HRESULT WINAPI HTMLDocument3_detachEvent(IHTMLDocument3 *iface, BSTR event,
 181                                                 IDispatch *pDisp)
 182 {
 183     HTMLDocument *This = HTMLDOC3_THIS(iface);
 184     FIXME("(%p)->(%s %p)\n", This, debugstr_w(event), pDisp);
 185     return E_NOTIMPL;
 186 }
 187
 188 static HRESULT WINAPI HTMLDocument3_put_onrowsdelete(IHTMLDocument3 *iface, VARIANT v)
 189 {
 190     HTMLDocument *This = HTMLDOC3_THIS(iface);
 191     FIXME("(%p)->()\n", This);
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI HTMLDocument3_get_onrowsdelete(IHTMLDocument3 *iface, VARIANT *p)
 196 {
 197     HTMLDocument *This = HTMLDOC3_THIS(iface);
 198     FIXME("(%p)->(%p)\n", This, p);
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT WINAPI HTMLDocument3_put_onrowsinserted(IHTMLDocument3 *iface, VARIANT v)
 203 {
 204     HTMLDocument *This = HTMLDOC3_THIS(iface);
 205     FIXME("(%p)->()\n", This);
 206     return E_NOTIMPL;
 207 }
 208
 209 static HRESULT WINAPI HTMLDocument3_get_onrowsinserted(IHTMLDocument3 *iface, VARIANT *p)
 210 {
 211     HTMLDocument *This = HTMLDOC3_THIS(iface);
 212     FIXME("(%p)->(%p)\n", This, p);
 213     return E_NOTIMPL;
 214 }
 215
 216 static HRESULT WINAPI HTMLDocument3_put_oncellchange(IHTMLDocument3 *iface, VARIANT v)
 217 {
 218     HTMLDocument *This = HTMLDOC3_THIS(iface);
 219     FIXME("(%p)->()\n", This);
 220     return E_NOTIMPL;
 221 }
 222
 223 static HRESULT WINAPI HTMLDocument3_get_oncellchange(IHTMLDocument3 *iface, VARIANT *p)
 224 {
 225     HTMLDocument *This = HTMLDOC3_THIS(iface);
 226     FIXME("(%p)->(%p)\n", This, p);
 227     return E_NOTIMPL;
 228 }
 229
 230 static HRESULT WINAPI HTMLDocument3_put_ondatasetchanged(IHTMLDocument3 *iface, VARIANT v)
 231 {
 232     HTMLDocument *This = HTMLDOC3_THIS(iface);
 233     FIXME("(%p)->()\n", This);
 234     return E_NOTIMPL;
 235 }
 236
 237 static HRESULT WINAPI HTMLDocument3_get_ondatasetchanged(IHTMLDocument3 *iface, VARIANT *p)
 238 {
 239     HTMLDocument *This = HTMLDOC3_THIS(iface);
 240     FIXME("(%p)->(%p)\n", This, p);
 241     return E_NOTIMPL;
 242 }
 243
 244 static HRESULT WINAPI HTMLDocument3_put_ondataavailable(IHTMLDocument3 *iface, VARIANT v)
 245 {
 246     HTMLDocument *This = HTMLDOC3_THIS(iface);
 247     FIXME("(%p)->()\n", This);
 248     return E_NOTIMPL;
 249 }
 250
 251 static HRESULT WINAPI HTMLDocument3_get_ondataavailable(IHTMLDocument3 *iface, VARIANT *p)
 252 {
 253     HTMLDocument *This = HTMLDOC3_THIS(iface);
 254     FIXME("(%p)->(%p)\n", This, p);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI HTMLDocument3_put_ondatasetcomplete(IHTMLDocument3 *iface, VARIANT v)
 259 {
 260     HTMLDocument *This = HTMLDOC3_THIS(iface);
 261     FIXME("(%p)->()\n", This);
 262     return E_NOTIMPL;
 263 }
 264
 265 static HRESULT WINAPI HTMLDocument3_get_ondatasetcomplete(IHTMLDocument3 *iface, VARIANT *p)
 266 {
 267     HTMLDocument *This = HTMLDOC3_THIS(iface);
 268     FIXME("(%p)->(%p)\n", This, p);
 269     return E_NOTIMPL;
 270 }
 271
 272 static HRESULT WINAPI HTMLDocument3_put_onpropertychange(IHTMLDocument3 *iface, VARIANT v)
 273 {
 274     HTMLDocument *This = HTMLDOC3_THIS(iface);
 275     FIXME("(%p)->()\n", This);
 276     return E_NOTIMPL;
 277 }
 278
 279 static HRESULT WINAPI HTMLDocument3_get_onpropertychange(IHTMLDocument3 *iface, VARIANT *p)
 280 {
 281     HTMLDocument *This = HTMLDOC3_THIS(iface);
 282     FIXME("(%p)->(%p)\n", This, p);
 283     return E_NOTIMPL;
 284 }
 285
 286 static HRESULT WINAPI HTMLDocument3_put_dir(IHTMLDocument3 *iface, BSTR v)
 287 {
 288     HTMLDocument *This = HTMLDOC3_THIS(iface);
 289     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 290     return E_NOTIMPL;
 291 }
 292
 293 static HRESULT WINAPI HTMLDocument3_get_dir(IHTMLDocument3 *iface, BSTR *p)
 294 {
 295     HTMLDocument *This = HTMLDOC3_THIS(iface);
 296     FIXME("(%p)->(%p)\n", This, p);
 297     return E_NOTIMPL;
 298 }
 299
 300 static HRESULT WINAPI HTMLDocument3_put_oncontextmenu(IHTMLDocument3 *iface, VARIANT v)
 301 {
 302     HTMLDocument *This = HTMLDOC3_THIS(iface);
 303     FIXME("(%p)->()\n", This);
 304     return E_NOTIMPL;
 305 }
 306
 307 static HRESULT WINAPI HTMLDocument3_get_oncontextmenu(IHTMLDocument3 *iface, VARIANT *p)
 308 {
 309     HTMLDocument *This = HTMLDOC3_THIS(iface);
 310     FIXME("(%p)->(%p)\n", This, p);
 311     return E_NOTIMPL;
 312 }
 313
 314 static HRESULT WINAPI HTMLDocument3_put_onstop(IHTMLDocument3 *iface, VARIANT v)
 315 {
 316     HTMLDocument *This = HTMLDOC3_THIS(iface);
 317     FIXME("(%p)->()\n", This);
 318     return E_NOTIMPL;
 319 }
 320
 321 static HRESULT WINAPI HTMLDocument3_get_onstop(IHTMLDocument3 *iface, VARIANT *p)
 322 {
 323     HTMLDocument *This = HTMLDOC3_THIS(iface);
 324     FIXME("(%p)->(%p)\n", This, p);
 325     return E_NOTIMPL;
 326 }
 327
 328 static HRESULT WINAPI HTMLDocument3_createDocumentFragment(IHTMLDocument3 *iface,
 329                                                            IHTMLDocument2 **ppNewDoc)
 330 {
 331     HTMLDocument *This = HTMLDOC3_THIS(iface);
 332     FIXME("(%p)->(%p)\n", This, ppNewDoc);
 333     return E_NOTIMPL;
 334 }
 335
 336 static HRESULT WINAPI HTMLDocument3_get_parentDocument(IHTMLDocument3 *iface,
 337                                                        IHTMLDocument2 **p)
 338 {
 339     HTMLDocument *This = HTMLDOC3_THIS(iface);
 340     FIXME("(%p)->(%p)\n", This, p);
 341     return E_NOTIMPL;
 342 }
 343
 344 static HRESULT WINAPI HTMLDocument3_put_enableDownload(IHTMLDocument3 *iface,
 345                                                        VARIANT_BOOL v)
 346 {
 347     HTMLDocument *This = HTMLDOC3_THIS(iface);
 348     FIXME("(%p)->(%x)\n", This, v);
 349     return E_NOTIMPL;
 350 }
 351
 352 static HRESULT WINAPI HTMLDocument3_get_enableDownload(IHTMLDocument3 *iface,
 353                                                        VARIANT_BOOL *p)
 354 {
 355     HTMLDocument *This = HTMLDOC3_THIS(iface);
 356     FIXME("(%p)->(%p)\n", This, p);
 357     return E_NOTIMPL;
 358 }
 359
 360 static HRESULT WINAPI HTMLDocument3_put_baseUrl(IHTMLDocument3 *iface, BSTR v)
 361 {
 362     HTMLDocument *This = HTMLDOC3_THIS(iface);
 363     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 364     return E_NOTIMPL;
 365 }
 366
 367 static HRESULT WINAPI HTMLDocument3_get_baseUrl(IHTMLDocument3 *iface, BSTR *p)
 368 {
 369     HTMLDocument *This = HTMLDOC3_THIS(iface);
 370     FIXME("(%p)->(%p)\n", This, p);
 371     return E_NOTIMPL;
 372 }
 373
 374 static HRESULT WINAPI HTMLDocument3_get_childNodes(IHTMLDocument3 *iface, IDispatch **p)
 375 {
 376     HTMLDocument *This = HTMLDOC3_THIS(iface);
 377     FIXME("(%p)->(%p)\n", This, p);
 378     return E_NOTIMPL;
 379 }
 380
 381 static HRESULT WINAPI HTMLDocument3_put_inheritStyleSheets(IHTMLDocument3 *iface,
 382                                                            VARIANT_BOOL v)
 383 {
 384     HTMLDocument *This = HTMLDOC3_THIS(iface);
 385     FIXME("(%p)->()\n", This);
 386     return E_NOTIMPL;
 387 }
 388
 389 static HRESULT WINAPI HTMLDocument3_get_inheritStyleSheets(IHTMLDocument3 *iface,
 390                                                            VARIANT_BOOL *p)
 391 {
 392     HTMLDocument *This = HTMLDOC3_THIS(iface);
 393     FIXME("(%p)->(%p)\n", This, p);
 394     return E_NOTIMPL;
 395 }
 396
 397 static HRESULT WINAPI HTMLDocument3_put_onbeforeeditfocus(IHTMLDocument3 *iface, VARIANT v)
 398 {
 399     HTMLDocument *This = HTMLDOC3_THIS(iface);
 400     FIXME("(%p)->()\n", This);
 401     return E_NOTIMPL;
 402 }
 403
 404 static HRESULT WINAPI HTMLDocument3_get_onbeforeeditfocus(IHTMLDocument3 *iface, VARIANT *p)
 405 {
 406     HTMLDocument *This = HTMLDOC3_THIS(iface);
 407     FIXME("(%p)->(%p)\n", This, p);
 408     return E_NOTIMPL;
 409 }
 410
 411 static HRESULT WINAPI HTMLDocument3_getElementsByName(IHTMLDocument3 *iface, BSTR v,
 412                                                       IHTMLElementCollection **ppelColl)
 413 {
 414     HTMLDocument *This = HTMLDOC3_THIS(iface);
 415     FIXME("(%p)->(%s %p)\n", This, debugstr_w(v), ppelColl);
 416     return E_NOTIMPL;
 417 }
 418
 419
 420 static HRESULT WINAPI HTMLDocument3_getElementById(IHTMLDocument3 *iface, BSTR v,
 421                                                    IHTMLElement **pel)
 422 {
 423     HTMLDocument *This = HTMLDOC3_THIS(iface);
 424     nsIDOMElement *nselem;
 425     HTMLDOMNode *node;
 426     nsAString id_str;
 427     nsresult nsres;
 428
 429     TRACE("(%p)->(%s %p)\n", This, debugstr_w(v), pel);
 430
 431     if(!This->nsdoc) {
 432         WARN("NULL nsdoc\n");
 433         return E_UNEXPECTED;
 434     }
 435
 436     nsAString_Init(&id_str, v);
 437     nsres = nsIDOMHTMLDocument_GetElementById(This->nsdoc, &id_str, &nselem);
 438     nsAString_Finish(&id_str);
 439     if(FAILED(nsres)) {
 440         ERR("GetElementById failed: %08x\n", nsres);
 441         return E_FAIL;
 442     }
 443
 444     if(nselem) {
 445         node = get_node(This, (nsIDOMNode*)nselem, TRUE);
 446         nsIDOMElement_Release(nselem);
 447
 448         IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)pel);
 449     }else {
 450         *pel = NULL;
 451     }
 452
 453     return S_OK;
 454 }
 455
 456
 457 static HRESULT WINAPI HTMLDocument3_getElementsByTagName(IHTMLDocument3 *iface, BSTR v,
 458                                                          IHTMLElementCollection **pelColl)
 459 {
 460     HTMLDocument *This = HTMLDOC3_THIS(iface);
 461     FIXME("(%p)->(%s %p)\n", This, debugstr_w(v), pelColl);
 462     return E_NOTIMPL;
 463 }
 464
 465 #undef HTMLDOC3_THIS
 466
 467 static const IHTMLDocument3Vtbl HTMLDocument3Vtbl = {
 468     HTMLDocument3_QueryInterface,
 469     HTMLDocument3_AddRef,
 470     HTMLDocument3_Release,
 471     HTMLDocument3_GetTypeInfoCount,
 472     HTMLDocument3_GetTypeInfo,
 473     HTMLDocument3_GetIDsOfNames,
 474     HTMLDocument3_Invoke,
 475     HTMLDocument3_releaseCapture,
 476     HTMLDocument3_recalc,
 477     HTMLDocument3_createTextNode,
 478     HTMLDocument3_get_documentElement,
 479     HTMLDocument3_uniqueID,
 480     HTMLDocument3_attachEvent,
 481     HTMLDocument3_detachEvent,
 482     HTMLDocument3_put_onrowsdelete,
 483     HTMLDocument3_get_onrowsdelete,
 484     HTMLDocument3_put_onrowsinserted,
 485     HTMLDocument3_get_onrowsinserted,
 486     HTMLDocument3_put_oncellchange,
 487     HTMLDocument3_get_oncellchange,
 488     HTMLDocument3_put_ondatasetchanged,
 489     HTMLDocument3_get_ondatasetchanged,
 490     HTMLDocument3_put_ondataavailable,
 491     HTMLDocument3_get_ondataavailable,
 492     HTMLDocument3_put_ondatasetcomplete,
 493     HTMLDocument3_get_ondatasetcomplete,
 494     HTMLDocument3_put_onpropertychange,
 495     HTMLDocument3_get_onpropertychange,
 496     HTMLDocument3_put_dir,
 497     HTMLDocument3_get_dir,
 498     HTMLDocument3_put_oncontextmenu,
 499     HTMLDocument3_get_oncontextmenu,
 500     HTMLDocument3_put_onstop,
 501     HTMLDocument3_get_onstop,
 502     HTMLDocument3_createDocumentFragment,
 503     HTMLDocument3_get_parentDocument,
 504     HTMLDocument3_put_enableDownload,
 505     HTMLDocument3_get_enableDownload,
 506     HTMLDocument3_put_baseUrl,
 507     HTMLDocument3_get_baseUrl,
 508     HTMLDocument3_get_childNodes,
 509     HTMLDocument3_put_inheritStyleSheets,
 510     HTMLDocument3_get_inheritStyleSheets,
 511     HTMLDocument3_put_onbeforeeditfocus,
 512     HTMLDocument3_get_onbeforeeditfocus,
 513     HTMLDocument3_getElementsByName,
 514     HTMLDocument3_getElementById,
 515     HTMLDocument3_getElementsByTagName
 516 };
 517
 518 #define HTMLDOC4_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument4, iface)
 519
 520 static HRESULT WINAPI HTMLDocument4_QueryInterface(IHTMLDocument4 *iface,
 521                                                    REFIID riid, void **ppv)
 522 {
 523     HTMLDocument *This = HTMLDOC4_THIS(iface);
 524     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
 525 }
 526
 527 static ULONG WINAPI HTMLDocument4_AddRef(IHTMLDocument4 *iface)
 528 {
 529     HTMLDocument *This = HTMLDOC4_THIS(iface);
 530     return IHTMLDocument2_AddRef(HTMLDOC(This));
 531 }
 532
 533 static ULONG WINAPI HTMLDocument4_Release(IHTMLDocument4 *iface)
 534 {
 535     HTMLDocument *This = HTMLDOC4_THIS(iface);
 536     return IHTMLDocument2_Release(HTMLDOC(This));
 537 }
 538
 539 static HRESULT WINAPI HTMLDocument4_GetTypeInfoCount(IHTMLDocument4 *iface, UINT *pctinfo)
 540 {
 541     HTMLDocument *This = HTMLDOC4_THIS(iface);
 542     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
 543 }
 544
 545 static HRESULT WINAPI HTMLDocument4_GetTypeInfo(IHTMLDocument4 *iface, UINT iTInfo,
 546                                                 LCID lcid, ITypeInfo **ppTInfo)
 547 {
 548     HTMLDocument *This = HTMLDOC4_THIS(iface);
 549     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
 550 }
 551
 552 static HRESULT WINAPI HTMLDocument4_GetIDsOfNames(IHTMLDocument4 *iface, REFIID riid,
 553                                                 LPOLESTR *rgszNames, UINT cNames,
 554                                                 LCID lcid, DISPID *rgDispId)
 555 {
 556     HTMLDocument *This = HTMLDOC4_THIS(iface);
 557     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
 558 }
 559
 560 static HRESULT WINAPI HTMLDocument4_Invoke(IHTMLDocument4 *iface, DISPID dispIdMember,
 561                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 562                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 563 {
 564     HTMLDocument *This = HTMLDOC4_THIS(iface);
 565     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
 566             pVarResult, pExcepInfo, puArgErr);
 567 }
 568
 569 static HRESULT WINAPI HTMLDocument4_focus(IHTMLDocument4 *iface)
 570 {
 571     HTMLDocument *This = HTMLDOC4_THIS(iface);
 572     nsIDOMNSHTMLElement *nselem;
 573     nsIDOMHTMLElement *nsbody;
 574     nsresult nsres;
 575
 576     TRACE("(%p)->()\n", This);
 577
 578     nsres = nsIDOMHTMLDocument_GetBody(This->nsdoc, &nsbody);
 579     if(NS_FAILED(nsres) || !nsbody) {
 580         ERR("GetBody failed: %08x\n", nsres);
 581         return E_FAIL;
 582     }
 583
 584     nsres = nsIDOMHTMLElement_QueryInterface(nsbody, &IID_nsIDOMNSHTMLElement, (void**)&nselem);
 585     nsIDOMHTMLElement_Release(nsbody);
 586     if(NS_FAILED(nsres)) {
 587         ERR("Could not get nsIDOMNSHTMLElement: %08x\n", nsres);
 588         return E_FAIL;
 589     }
 590
 591     nsres = nsIDOMNSHTMLElement_focus(nselem);
 592     nsIDOMNSHTMLElement_Release(nselem);
 593     if(NS_FAILED(nsres)) {
 594         ERR("Focus failed: %08x\n", nsres);
 595         return E_FAIL;
 596     }
 597
 598     return S_OK;
 599 }
 600
 601 static HRESULT WINAPI HTMLDocument4_hasFocus(IHTMLDocument4 *iface, VARIANT_BOOL *pfFocus)
 602 {
 603     HTMLDocument *This = HTMLDOC4_THIS(iface);
 604     FIXME("(%p)->(%p)\n", This, pfFocus);
 605     return E_NOTIMPL;
 606 }
 607
 608 static HRESULT WINAPI HTMLDocument4_put_onselectionchange(IHTMLDocument4 *iface, VARIANT v)
 609 {
 610     HTMLDocument *This = HTMLDOC4_THIS(iface);
 611     FIXME("(%p)->(v)\n", This);
 612     return E_NOTIMPL;
 613 }
 614
 615 static HRESULT WINAPI HTMLDocument4_get_onselectionchange(IHTMLDocument4 *iface, VARIANT *p)
 616 {
 617     HTMLDocument *This = HTMLDOC4_THIS(iface);
 618     FIXME("(%p)->(%p)\n", This, p);
 619     return E_NOTIMPL;
 620 }
 621
 622 static HRESULT WINAPI HTMLDocument4_get_namespace(IHTMLDocument4 *iface, IDispatch **p)
 623 {
 624     HTMLDocument *This = HTMLDOC4_THIS(iface);
 625     FIXME("(%p)->(%p)\n", This, p);
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT WINAPI HTMLDocument4_createDocumentFromUrl(IHTMLDocument4 *iface, BSTR bstrUrl,
 630         BSTR bstrOptions, IHTMLDocument2 **newDoc)
 631 {
 632     HTMLDocument *This = HTMLDOC4_THIS(iface);
 633     FIXME("(%p)->(%s %s %p)\n", This, debugstr_w(bstrUrl), debugstr_w(bstrOptions), newDoc);
 634     return E_NOTIMPL;
 635 }
 636
 637 static HRESULT WINAPI HTMLDocument4_put_media(IHTMLDocument4 *iface, BSTR v)
 638 {
 639     HTMLDocument *This = HTMLDOC4_THIS(iface);
 640     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 641     return E_NOTIMPL;
 642 }
 643
 644 static HRESULT WINAPI HTMLDocument4_get_media(IHTMLDocument4 *iface, BSTR *p)
 645 {
 646     HTMLDocument *This = HTMLDOC4_THIS(iface);
 647     FIXME("(%p)->(%p)\n", This, p);
 648     return E_NOTIMPL;
 649 }
 650
 651 static HRESULT WINAPI HTMLDocument4_createEventObject(IHTMLDocument4 *iface,
 652         VARIANT *pvarEventObject, IHTMLEventObj **ppEventObj)
 653 {
 654     HTMLDocument *This = HTMLDOC4_THIS(iface);
 655     FIXME("(%p)->(%p %p)\n", This, pvarEventObject, ppEventObj);
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT WINAPI HTMLDocument4_fireEvent(IHTMLDocument4 *iface, BSTR bstrEventName,
 660         VARIANT *pvarEventObject, VARIANT_BOOL *pfCanceled)
 661 {
 662     HTMLDocument *This = HTMLDOC4_THIS(iface);
 663     FIXME("(%p)->(%s %p %p)\n", This, debugstr_w(bstrEventName), pvarEventObject, pfCanceled);
 664     return E_NOTIMPL;
 665 }
 666
 667 static HRESULT WINAPI HTMLDocument4_createRenderStyle(IHTMLDocument4 *iface, BSTR v,
 668         IHTMLRenderStyle **ppIHTMLRenderStyle)
 669 {
 670     HTMLDocument *This = HTMLDOC4_THIS(iface);
 671     FIXME("(%p)->(%s %p)\n", This, debugstr_w(v), ppIHTMLRenderStyle);
 672     return E_NOTIMPL;
 673 }
 674
 675 static HRESULT WINAPI HTMLDocument4_put_oncontrolselect(IHTMLDocument4 *iface, VARIANT v)
 676 {
 677     HTMLDocument *This = HTMLDOC4_THIS(iface);
 678     FIXME("(%p)->(v)\n", This);
 679     return E_NOTIMPL;
 680 }
 681
 682 static HRESULT WINAPI HTMLDocument4_get_oncontrolselect(IHTMLDocument4 *iface, VARIANT *p)
 683 {
 684     HTMLDocument *This = HTMLDOC4_THIS(iface);
 685     FIXME("(%p)->(%p)\n", This, p);
 686     return E_NOTIMPL;
 687 }
 688
 689 static HRESULT WINAPI HTMLDocument4_get_URLEncoded(IHTMLDocument4 *iface, BSTR *p)
 690 {
 691     HTMLDocument *This = HTMLDOC4_THIS(iface);
 692     FIXME("(%p)->(%p)\n", This, p);
 693     return E_NOTIMPL;
 694 }
 695
 696 #undef HTMLDOC4_THIS
 697
 698 static const IHTMLDocument4Vtbl HTMLDocument4Vtbl = {
 699     HTMLDocument4_QueryInterface,
 700     HTMLDocument4_AddRef,
 701     HTMLDocument4_Release,
 702     HTMLDocument4_GetTypeInfoCount,
 703     HTMLDocument4_GetTypeInfo,
 704     HTMLDocument4_GetIDsOfNames,
 705     HTMLDocument4_Invoke,
 706     HTMLDocument4_focus,
 707     HTMLDocument4_hasFocus,
 708     HTMLDocument4_put_onselectionchange,
 709     HTMLDocument4_get_onselectionchange,
 710     HTMLDocument4_get_namespace,
 711     HTMLDocument4_createDocumentFromUrl,
 712     HTMLDocument4_put_media,
 713     HTMLDocument4_get_media,
 714     HTMLDocument4_createEventObject,
 715     HTMLDocument4_fireEvent,
 716     HTMLDocument4_createRenderStyle,
 717     HTMLDocument4_put_oncontrolselect,
 718     HTMLDocument4_get_oncontrolselect,
 719     HTMLDocument4_get_URLEncoded
 720 };
 721
 722 void HTMLDocument_HTMLDocument3_Init(HTMLDocument *This)
 723 {
 724     This->lpHTMLDocument3Vtbl = &HTMLDocument3Vtbl;
 725     This->lpHTMLDocument4Vtbl = &HTMLDocument4Vtbl;
 726 }