fusion: Add the CorTokenType and use those constants in the assembly code.
[wine] / dlls / mshtml / htmldoc.c
1 /*
2  * Copyright 2005 Jacek Caban
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 HTMLDOC_THIS(iface) DEFINE_THIS(HTMLDocument, HTMLDocument2, iface)
38
39 static HRESULT WINAPI HTMLDocument_QueryInterface(IHTMLDocument2 *iface, REFIID riid, void **ppvObject)
40 {
41     HTMLDocument *This = HTMLDOC_THIS(iface);
42
43     *ppvObject = NULL;
44     if(IsEqualGUID(&IID_IUnknown, riid)) {
45         TRACE("(%p)->(IID_IUnknown, %p)\n", This, ppvObject);
46         *ppvObject = HTMLDOC(This);
47     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
48         TRACE("(%p)->(IID_IDispatch, %p)\n", This, ppvObject);
49         *ppvObject = DISPATCHEX(This);
50     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
51         TRACE("(%p)->(IID_IDispatchEx, %p)\n", This, ppvObject);
52         *ppvObject = DISPATCHEX(This);
53     }else if(IsEqualGUID(&IID_IHTMLDocument, riid)) {
54         TRACE("(%p)->(IID_IHTMLDocument, %p)\n", This, ppvObject);
55         *ppvObject = HTMLDOC(This);
56     }else if(IsEqualGUID(&IID_IHTMLDocument2, riid)) {
57         TRACE("(%p)->(IID_IHTMLDocument2, %p)\n", This, ppvObject);
58         *ppvObject = HTMLDOC(This);
59     }else if(IsEqualGUID(&IID_IHTMLDocument3, riid)) {
60         TRACE("(%p)->(IID_IHTMLDocument3, %p)\n", This, ppvObject);
61         *ppvObject = HTMLDOC3(This);
62     }else if(IsEqualGUID(&IID_IHTMLDocument4, riid)) {
63         TRACE("(%p)->(IID_IHTMLDocument4, %p)\n", This, ppvObject);
64         *ppvObject = HTMLDOC4(This);
65     }else if(IsEqualGUID(&IID_IHTMLDocument5, riid)) {
66         TRACE("(%p)->(IID_IHTMLDocument5, %p)\n", This, ppvObject);
67         *ppvObject = HTMLDOC5(This);
68     }else if(IsEqualGUID(&IID_IPersist, riid)) {
69         TRACE("(%p)->(IID_IPersist, %p)\n", This, ppvObject);
70         *ppvObject = PERSIST(This);
71     }else if(IsEqualGUID(&IID_IPersistMoniker, riid)) {
72         TRACE("(%p)->(IID_IPersistMoniker, %p)\n", This, ppvObject);
73         *ppvObject = PERSISTMON(This);
74     }else if(IsEqualGUID(&IID_IPersistFile, riid)) {
75         TRACE("(%p)->(IID_IPersistFile, %p)\n", This, ppvObject);
76         *ppvObject = PERSISTFILE(This);
77     }else if(IsEqualGUID(&IID_IMonikerProp, riid)) {
78         TRACE("(%p)->(IID_IMonikerProp, %p)\n", This, ppvObject);
79         *ppvObject = MONPROP(This);
80     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
81         TRACE("(%p)->(IID_IOleObject, %p)\n", This, ppvObject);
82         *ppvObject = OLEOBJ(This);
83     }else if(IsEqualGUID(&IID_IOleDocument, riid)) {
84         TRACE("(%p)->(IID_IOleDocument, %p)\n", This, ppvObject);
85         *ppvObject = OLEDOC(This);
86     }else if(IsEqualGUID(&IID_IOleDocumentView, riid)) {
87         TRACE("(%p)->(IID_IOleDocumentView, %p)\n", This, ppvObject);
88         *ppvObject = DOCVIEW(This);
89     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
90         TRACE("(%p)->(IID_IOleInPlaceActiveObject, %p)\n", This, ppvObject);
91         *ppvObject = ACTOBJ(This);
92     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
93         TRACE("(%p)->(IID_IViewObject, %p)\n", This, ppvObject);
94         *ppvObject = VIEWOBJ(This);
95     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
96         TRACE("(%p)->(IID_IViewObject2, %p)\n", This, ppvObject);
97         *ppvObject = VIEWOBJ2(This);
98     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
99         TRACE("(%p)->(IID_IOleWindow, %p)\n", This, ppvObject);
100         *ppvObject = OLEWIN(This);
101     }else if(IsEqualGUID(&IID_IOleInPlaceObject, riid)) {
102         TRACE("(%p)->(IID_IOleInPlaceObject, %p)\n", This, ppvObject);
103         *ppvObject = INPLACEOBJ(This);
104     }else if(IsEqualGUID(&IID_IOleInPlaceObjectWindowless, riid)) {
105         TRACE("(%p)->(IID_IOleInPlaceObjectWindowless, %p)\n", This, ppvObject);
106         *ppvObject = INPLACEWIN(This);
107     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
108         TRACE("(%p)->(IID_IServiceProvider, %p)\n", This, ppvObject);
109         *ppvObject = SERVPROV(This);
110     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
111         TRACE("(%p)->(IID_IOleCommandTarget, %p)\n", This, ppvObject);
112         *ppvObject = CMDTARGET(This);
113     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
114         TRACE("(%p)->(IID_IOleControl, %p)\n", This, ppvObject);
115         *ppvObject = CONTROL(This);
116     }else if(IsEqualGUID(&IID_IHlinkTarget, riid)) {
117         TRACE("(%p)->(IID_IHlinkTarget, %p)\n", This, ppvObject);
118         *ppvObject = HLNKTARGET(This);
119     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
120         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppvObject);
121         *ppvObject = CONPTCONT(&This->cp_container);
122     }else if(IsEqualGUID(&IID_IPersistStreamInit, riid)) {
123         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppvObject);
124         *ppvObject = PERSTRINIT(This);
125     }else if(IsEqualGUID(&IID_ICustomDoc, riid)) {
126         TRACE("(%p)->(IID_ICustomDoc %p)\n", This, ppvObject);
127         *ppvObject = CUSTOMDOC(This);
128     }else if(IsEqualGUID(&DIID_DispHTMLDocument, riid)) {
129         TRACE("(%p)->(DIID_DispHTMLDocument %p)\n", This, ppvObject);
130         *ppvObject = HTMLDOC(This);
131     }else if(IsEqualGUID(&CLSID_CMarkup, riid)) {
132         FIXME("(%p)->(CLSID_CMarkup %p)\n", This, ppvObject);
133         return E_NOINTERFACE;
134     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
135         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppvObject);
136         return E_NOINTERFACE;
137     }else if(IsEqualGUID(&IID_IPersistPropertyBag, riid)) {
138         TRACE("(%p)->(IID_IPersistPropertyBag %p) returning NULL\n", This, ppvObject);
139         return E_NOINTERFACE;
140     }else if(dispex_query_interface(&This->dispex, riid, ppvObject)) {
141         return *ppvObject ? S_OK : E_NOINTERFACE;
142     }
143
144     if(*ppvObject) {
145         IHTMLDocument2_AddRef(iface);
146         return S_OK;
147     }
148
149     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppvObject);
150     return E_NOINTERFACE;
151 }
152
153 static ULONG WINAPI HTMLDocument_AddRef(IHTMLDocument2 *iface)
154 {
155     HTMLDocument *This = HTMLDOC_THIS(iface);
156     ULONG ref = InterlockedIncrement(&This->ref);
157     TRACE("(%p) ref = %u\n", This, ref);
158     return ref;
159 }
160
161 static ULONG WINAPI HTMLDocument_Release(IHTMLDocument2 *iface)
162 {
163     HTMLDocument *This = HTMLDOC_THIS(iface);
164     ULONG ref = InterlockedDecrement(&This->ref);
165
166     TRACE("(%p) ref = %u\n", This, ref);
167
168     if(!ref) {
169         remove_doc_tasks(This);
170         release_script_hosts(This);
171
172         if(This->client)
173             IOleObject_SetClientSite(OLEOBJ(This), NULL);
174         if(This->in_place_active)
175             IOleInPlaceObjectWindowless_InPlaceDeactivate(INPLACEWIN(This));
176         if(This->ipsite)
177             IOleDocumentView_SetInPlaceSite(DOCVIEW(This), NULL);
178         if(This->undomgr)
179             IOleUndoManager_Release(This->undomgr);
180
181         set_document_bscallback(This, NULL);
182         set_current_mon(This, NULL);
183
184         if(This->tooltips_hwnd)
185             DestroyWindow(This->tooltips_hwnd);
186         if(This->hwnd)
187             DestroyWindow(This->hwnd);
188
189         if(This->option_factory) {
190             This->option_factory->doc = NULL;
191             IHTMLOptionElementFactory_Release(HTMLOPTFACTORY(This->option_factory));
192         }
193
194         if(This->location)
195             This->location->doc = NULL;
196
197         if(This->window)
198             IHTMLWindow2_Release(HTMLWINDOW2(This->window));
199
200         heap_free(This->mime);
201         detach_selection(This);
202         detach_ranges(This);
203         release_nodes(This);
204
205         ConnectionPointContainer_Destroy(&This->cp_container);
206
207         if(This->nscontainer)
208             NSContainer_Release(This->nscontainer);
209
210         heap_free(This);
211
212         UNLOCK_MODULE();
213     }
214
215     return ref;
216 }
217
218 static HRESULT WINAPI HTMLDocument_GetTypeInfoCount(IHTMLDocument2 *iface, UINT *pctinfo)
219 {
220     HTMLDocument *This = HTMLDOC_THIS(iface);
221
222     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(This), pctinfo);
223 }
224
225 static HRESULT WINAPI HTMLDocument_GetTypeInfo(IHTMLDocument2 *iface, UINT iTInfo,
226                                                 LCID lcid, ITypeInfo **ppTInfo)
227 {
228     HTMLDocument *This = HTMLDOC_THIS(iface);
229
230     return IDispatchEx_GetTypeInfo(DISPATCHEX(This), iTInfo, lcid, ppTInfo);
231 }
232
233 static HRESULT WINAPI HTMLDocument_GetIDsOfNames(IHTMLDocument2 *iface, REFIID riid,
234                                                 LPOLESTR *rgszNames, UINT cNames,
235                                                 LCID lcid, DISPID *rgDispId)
236 {
237     HTMLDocument *This = HTMLDOC_THIS(iface);
238
239     return IDispatchEx_GetIDsOfNames(DISPATCHEX(This), riid, rgszNames, cNames, lcid, rgDispId);
240 }
241
242 static HRESULT WINAPI HTMLDocument_Invoke(IHTMLDocument2 *iface, DISPID dispIdMember,
243                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
244                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
245 {
246     HTMLDocument *This = HTMLDOC_THIS(iface);
247
248     return IDispatchEx_Invoke(DISPATCHEX(This), dispIdMember, riid, lcid, wFlags, pDispParams,
249             pVarResult, pExcepInfo, puArgErr);
250 }
251
252 static HRESULT WINAPI HTMLDocument_get_Script(IHTMLDocument2 *iface, IDispatch **p)
253 {
254     HTMLDocument *This = HTMLDOC_THIS(iface);
255     FIXME("(%p)->(%p)\n", This, p);
256     return E_NOTIMPL;
257 }
258
259 static HRESULT WINAPI HTMLDocument_get_all(IHTMLDocument2 *iface, IHTMLElementCollection **p)
260 {
261     HTMLDocument *This = HTMLDOC_THIS(iface);
262     nsIDOMDocument *nsdoc = NULL;
263     nsIDOMElement *nselem = NULL;
264     nsresult nsres;
265
266     TRACE("(%p)->(%p)\n", This, p);
267
268     if(!This->nscontainer) {
269         *p = NULL;
270         return S_OK;
271     }
272
273     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
274     if(NS_FAILED(nsres))
275         ERR("GetDocument failed: %08x\n", nsres);
276
277     if(nsdoc) {
278         nsres = nsIDOMHTMLDocument_GetDocumentElement(nsdoc, &nselem);
279         if(NS_FAILED(nsres))
280             ERR("GetDocumentElement failed: %08x\n", nsres);
281     }
282
283     if(!nselem) {
284         *p = NULL;
285         return S_OK;
286     }
287
288     *p = create_all_collection(get_node(This, (nsIDOMNode*)nselem, TRUE));
289
290     nsIDOMElement_Release(nselem);
291     return S_OK;
292 }
293
294 static HRESULT WINAPI HTMLDocument_get_body(IHTMLDocument2 *iface, IHTMLElement **p)
295 {
296     HTMLDocument *This = HTMLDOC_THIS(iface);
297     nsIDOMDocument *nsdoc;
298     nsIDOMHTMLDocument *nshtmldoc;
299     nsIDOMHTMLElement *nsbody = NULL;
300     HTMLDOMNode *node;
301     nsresult nsres;
302
303     TRACE("(%p)->(%p)\n", This, p);
304
305     *p = NULL;
306
307     if(!This->nscontainer)
308         return S_OK;
309
310     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
311     if(NS_FAILED(nsres)) {
312         ERR("GetDocument failed: %08x\n", nsres);
313         return S_OK;
314     }
315
316     if(NS_FAILED(nsres) || !nsdoc) 
317         return S_OK;
318
319     nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMHTMLDocument, (void**)&nshtmldoc);
320     nsIDOMDocument_Release(nsdoc);
321
322     nsres = nsIDOMHTMLDocument_GetBody(nshtmldoc, &nsbody);
323     nsIDOMHTMLDocument_Release(nshtmldoc);
324
325     if(NS_FAILED(nsres) || !nsbody) {
326         TRACE("Could not get body: %08x\n", nsres);
327         return S_OK;
328     }
329
330     node = get_node(This, (nsIDOMNode*)nsbody, TRUE);
331     nsIDOMHTMLElement_Release(nsbody);
332
333     IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)p);
334
335     TRACE("*p = %p\n", *p);
336     return S_OK;
337 }
338
339 static HRESULT WINAPI HTMLDocument_get_activeElement(IHTMLDocument2 *iface, IHTMLElement **p)
340 {
341     HTMLDocument *This = HTMLDOC_THIS(iface);
342     FIXME("(%p)->(%p)\n", This, p);
343     return E_NOTIMPL;
344 }
345
346 static HRESULT WINAPI HTMLDocument_get_images(IHTMLDocument2 *iface, IHTMLElementCollection **p)
347 {
348     HTMLDocument *This = HTMLDOC_THIS(iface);
349     FIXME("(%p)->(%p)\n", This, p);
350     return E_NOTIMPL;
351 }
352
353 static HRESULT WINAPI HTMLDocument_get_applets(IHTMLDocument2 *iface, IHTMLElementCollection **p)
354 {
355     HTMLDocument *This = HTMLDOC_THIS(iface);
356     FIXME("(%p)->(%p)\n", This, p);
357     return E_NOTIMPL;
358 }
359
360 static HRESULT WINAPI HTMLDocument_get_links(IHTMLDocument2 *iface, IHTMLElementCollection **p)
361 {
362     HTMLDocument *This = HTMLDOC_THIS(iface);
363     FIXME("(%p)->(%p)\n", This, p);
364     return E_NOTIMPL;
365 }
366
367 static HRESULT WINAPI HTMLDocument_get_forms(IHTMLDocument2 *iface, IHTMLElementCollection **p)
368 {
369     HTMLDocument *This = HTMLDOC_THIS(iface);
370     FIXME("(%p)->(%p)\n", This, p);
371     return E_NOTIMPL;
372 }
373
374 static HRESULT WINAPI HTMLDocument_get_anchors(IHTMLDocument2 *iface, IHTMLElementCollection **p)
375 {
376     HTMLDocument *This = HTMLDOC_THIS(iface);
377     FIXME("(%p)->(%p)\n", This, p);
378     return E_NOTIMPL;
379 }
380
381 static HRESULT WINAPI HTMLDocument_put_title(IHTMLDocument2 *iface, BSTR v)
382 {
383     HTMLDocument *This = HTMLDOC_THIS(iface);
384     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
385     return E_NOTIMPL;
386 }
387
388 static HRESULT WINAPI HTMLDocument_get_title(IHTMLDocument2 *iface, BSTR *p)
389 {
390     HTMLDocument *This = HTMLDOC_THIS(iface);
391     FIXME("(%p)->(%p)\n", This, p);
392     return E_NOTIMPL;
393 }
394
395 static HRESULT WINAPI HTMLDocument_get_scripts(IHTMLDocument2 *iface, IHTMLElementCollection **p)
396 {
397     HTMLDocument *This = HTMLDOC_THIS(iface);
398     FIXME("(%p)->(%p)\n", This, p);
399     return E_NOTIMPL;
400 }
401
402 static HRESULT WINAPI HTMLDocument_put_designMode(IHTMLDocument2 *iface, BSTR v)
403 {
404     HTMLDocument *This = HTMLDOC_THIS(iface);
405     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
406     return E_NOTIMPL;
407 }
408
409 static HRESULT WINAPI HTMLDocument_get_designMode(IHTMLDocument2 *iface, BSTR *p)
410 {
411     HTMLDocument *This = HTMLDOC_THIS(iface);
412     FIXME("(%p)->(%p)\n", This, p);
413     return E_NOTIMPL;
414 }
415
416 static HRESULT WINAPI HTMLDocument_get_selection(IHTMLDocument2 *iface, IHTMLSelectionObject **p)
417 {
418     HTMLDocument *This = HTMLDOC_THIS(iface);
419     nsISelection *nsselection = NULL;
420
421     TRACE("(%p)->(%p)\n", This, p);
422
423     if(This->nscontainer) {
424         nsIDOMWindow *dom_window = NULL;
425
426         nsIWebBrowser_GetContentDOMWindow(This->nscontainer->webbrowser, &dom_window);
427         if(dom_window) {
428             nsIDOMWindow_GetSelection(dom_window, &nsselection);
429             nsIDOMWindow_Release(dom_window);
430         }
431     }
432
433     *p = HTMLSelectionObject_Create(This, nsselection);
434     return S_OK;
435 }
436
437 static HRESULT WINAPI HTMLDocument_get_readyState(IHTMLDocument2 *iface, BSTR *p)
438 {
439     HTMLDocument *This = HTMLDOC_THIS(iface);
440
441     static const WCHAR wszUninitialized[] = {'u','n','i','n','i','t','i','a','l','i','z','e','d',0};
442     static const WCHAR wszLoading[] = {'l','o','a','d','i','n','g',0};
443     static const WCHAR wszLoaded[] = {'l','o','a','d','e','d',0};
444     static const WCHAR wszInteractive[] = {'i','n','t','e','r','a','c','t','i','v','e',0};
445     static const WCHAR wszComplete[] = {'c','o','m','p','l','e','t','e',0};
446
447     static const LPCWSTR readystate_str[] = {
448         wszUninitialized,
449         wszLoading,
450         wszLoaded,
451         wszInteractive,
452         wszComplete
453     };
454
455     TRACE("(%p)->(%p)\n", iface, p);
456
457     if(!p)
458         return E_POINTER;
459
460     *p = SysAllocString(readystate_str[This->readystate]);
461     return S_OK;
462 }
463
464 static HRESULT WINAPI HTMLDocument_get_frames(IHTMLDocument2 *iface, IHTMLFramesCollection2 **p)
465 {
466     HTMLDocument *This = HTMLDOC_THIS(iface);
467     FIXME("(%p)->(%p)\n", This, p);
468     return E_NOTIMPL;
469 }
470
471 static HRESULT WINAPI HTMLDocument_get_embeds(IHTMLDocument2 *iface, IHTMLElementCollection **p)
472 {
473     HTMLDocument *This = HTMLDOC_THIS(iface);
474     FIXME("(%p)->(%p)\n", This, p);
475     return E_NOTIMPL;
476 }
477
478 static HRESULT WINAPI HTMLDocument_get_plugins(IHTMLDocument2 *iface, IHTMLElementCollection **p)
479 {
480     HTMLDocument *This = HTMLDOC_THIS(iface);
481     FIXME("(%p)->(%p)\n", This, p);
482     return E_NOTIMPL;
483 }
484
485 static HRESULT WINAPI HTMLDocument_put_alinkColor(IHTMLDocument2 *iface, VARIANT v)
486 {
487     HTMLDocument *This = HTMLDOC_THIS(iface);
488     FIXME("(%p)\n", This);
489     return E_NOTIMPL;
490 }
491
492 static HRESULT WINAPI HTMLDocument_get_alinkColor(IHTMLDocument2 *iface, VARIANT *p)
493 {
494     HTMLDocument *This = HTMLDOC_THIS(iface);
495     FIXME("(%p)->(%p)\n", This, p);
496     return E_NOTIMPL;
497 }
498
499 static HRESULT WINAPI HTMLDocument_put_bgColor(IHTMLDocument2 *iface, VARIANT v)
500 {
501     HTMLDocument *This = HTMLDOC_THIS(iface);
502     FIXME("(%p)\n", This);
503     return E_NOTIMPL;
504 }
505
506 static HRESULT WINAPI HTMLDocument_get_bgColor(IHTMLDocument2 *iface, VARIANT *p)
507 {
508     HTMLDocument *This = HTMLDOC_THIS(iface);
509     FIXME("(%p)->(%p)\n", This, p);
510     return E_NOTIMPL;
511 }
512
513 static HRESULT WINAPI HTMLDocument_put_fgColor(IHTMLDocument2 *iface, VARIANT v)
514 {
515     HTMLDocument *This = HTMLDOC_THIS(iface);
516     FIXME("(%p)\n", This);
517     return E_NOTIMPL;
518 }
519
520 static HRESULT WINAPI HTMLDocument_get_fgColor(IHTMLDocument2 *iface, VARIANT *p)
521 {
522     HTMLDocument *This = HTMLDOC_THIS(iface);
523     FIXME("(%p)->(%p)\n", This, p);
524     return E_NOTIMPL;
525 }
526
527 static HRESULT WINAPI HTMLDocument_put_linkColor(IHTMLDocument2 *iface, VARIANT v)
528 {
529     HTMLDocument *This = HTMLDOC_THIS(iface);
530     FIXME("(%p)->()\n", This);
531     return E_NOTIMPL;
532 }
533
534 static HRESULT WINAPI HTMLDocument_get_linkColor(IHTMLDocument2 *iface, VARIANT *p)
535 {
536     HTMLDocument *This = HTMLDOC_THIS(iface);
537     FIXME("(%p)->(%p)\n", This, p);
538     return E_NOTIMPL;
539 }
540
541 static HRESULT WINAPI HTMLDocument_put_vlinkColor(IHTMLDocument2 *iface, VARIANT v)
542 {
543     HTMLDocument *This = HTMLDOC_THIS(iface);
544     FIXME("(%p)\n", This);
545     return E_NOTIMPL;
546 }
547
548 static HRESULT WINAPI HTMLDocument_get_vlinkColor(IHTMLDocument2 *iface, VARIANT *p)
549 {
550     HTMLDocument *This = HTMLDOC_THIS(iface);
551     FIXME("(%p)->(%p)\n", This, p);
552     return E_NOTIMPL;
553 }
554
555 static HRESULT WINAPI HTMLDocument_get_referrer(IHTMLDocument2 *iface, BSTR *p)
556 {
557     HTMLDocument *This = HTMLDOC_THIS(iface);
558     FIXME("(%p)->(%p)\n", This, p);
559     return E_NOTIMPL;
560 }
561
562 static HRESULT WINAPI HTMLDocument_get_location(IHTMLDocument2 *iface, IHTMLLocation **p)
563 {
564     HTMLDocument *This = HTMLDOC_THIS(iface);
565
566     TRACE("(%p)->(%p)\n", This, p);
567
568     if(This->location)
569         IHTMLLocation_AddRef(HTMLLOCATION(This->location));
570     else
571         This->location = HTMLLocation_Create(This);
572
573     *p = HTMLLOCATION(This->location);
574     return S_OK;
575 }
576
577 static HRESULT WINAPI HTMLDocument_get_lastModified(IHTMLDocument2 *iface, BSTR *p)
578 {
579     HTMLDocument *This = HTMLDOC_THIS(iface);
580     FIXME("(%p)->(%p)\n", This, p);
581     return E_NOTIMPL;
582 }
583
584 static HRESULT WINAPI HTMLDocument_put_URL(IHTMLDocument2 *iface, BSTR v)
585 {
586     HTMLDocument *This = HTMLDOC_THIS(iface);
587     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
588     return E_NOTIMPL;
589 }
590
591 static HRESULT WINAPI HTMLDocument_get_URL(IHTMLDocument2 *iface, BSTR *p)
592 {
593     HTMLDocument *This = HTMLDOC_THIS(iface);
594
595     static const WCHAR about_blank_url[] =
596         {'a','b','o','u','t',':','b','l','a','n','k',0};
597
598     TRACE("(%p)->(%p)\n", iface, p);
599
600     *p = SysAllocString(This->url ? This->url : about_blank_url);
601     return S_OK;
602 }
603
604 static HRESULT WINAPI HTMLDocument_put_domain(IHTMLDocument2 *iface, BSTR v)
605 {
606     HTMLDocument *This = HTMLDOC_THIS(iface);
607     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
608     return E_NOTIMPL;
609 }
610
611 static HRESULT WINAPI HTMLDocument_get_domain(IHTMLDocument2 *iface, BSTR *p)
612 {
613     HTMLDocument *This = HTMLDOC_THIS(iface);
614     FIXME("(%p)->(%p)\n", This, p);
615     return E_NOTIMPL;
616 }
617
618 static HRESULT WINAPI HTMLDocument_put_cookie(IHTMLDocument2 *iface, BSTR v)
619 {
620     HTMLDocument *This = HTMLDOC_THIS(iface);
621     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
622     return E_NOTIMPL;
623 }
624
625 static HRESULT WINAPI HTMLDocument_get_cookie(IHTMLDocument2 *iface, BSTR *p)
626 {
627     HTMLDocument *This = HTMLDOC_THIS(iface);
628     FIXME("(%p)->(%p)\n", This, p);
629     return E_NOTIMPL;
630 }
631
632 static HRESULT WINAPI HTMLDocument_put_expando(IHTMLDocument2 *iface, VARIANT_BOOL v)
633 {
634     HTMLDocument *This = HTMLDOC_THIS(iface);
635     FIXME("(%p)->(%x)\n", This, v);
636     return E_NOTIMPL;
637 }
638
639 static HRESULT WINAPI HTMLDocument_get_expando(IHTMLDocument2 *iface, VARIANT_BOOL *p)
640 {
641     HTMLDocument *This = HTMLDOC_THIS(iface);
642     FIXME("(%p)->(%p)\n", This, p);
643     return E_NOTIMPL;
644 }
645
646 static HRESULT WINAPI HTMLDocument_put_charset(IHTMLDocument2 *iface, BSTR v)
647 {
648     HTMLDocument *This = HTMLDOC_THIS(iface);
649     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
650     return E_NOTIMPL;
651 }
652
653 static HRESULT WINAPI HTMLDocument_get_charset(IHTMLDocument2 *iface, BSTR *p)
654 {
655     HTMLDocument *This = HTMLDOC_THIS(iface);
656     FIXME("(%p)->(%p)\n", This, p);
657     return E_NOTIMPL;
658 }
659
660 static HRESULT WINAPI HTMLDocument_put_defaultCharset(IHTMLDocument2 *iface, BSTR v)
661 {
662     HTMLDocument *This = HTMLDOC_THIS(iface);
663     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
664     return E_NOTIMPL;
665 }
666
667 static HRESULT WINAPI HTMLDocument_get_defaultCharset(IHTMLDocument2 *iface, BSTR *p)
668 {
669     HTMLDocument *This = HTMLDOC_THIS(iface);
670     FIXME("(%p)->(%p)\n", This, p);
671     return E_NOTIMPL;
672 }
673
674 static HRESULT WINAPI HTMLDocument_get_mimeType(IHTMLDocument2 *iface, BSTR *p)
675 {
676     HTMLDocument *This = HTMLDOC_THIS(iface);
677     FIXME("(%p)->(%p)\n", This, p);
678     return E_NOTIMPL;
679 }
680
681 static HRESULT WINAPI HTMLDocument_get_fileSize(IHTMLDocument2 *iface, BSTR *p)
682 {
683     HTMLDocument *This = HTMLDOC_THIS(iface);
684     FIXME("(%p)->(%p)\n", This, p);
685     return E_NOTIMPL;
686 }
687
688 static HRESULT WINAPI HTMLDocument_get_fileCreatedDate(IHTMLDocument2 *iface, BSTR *p)
689 {
690     HTMLDocument *This = HTMLDOC_THIS(iface);
691     FIXME("(%p)->(%p)\n", This, p);
692     return E_NOTIMPL;
693 }
694
695 static HRESULT WINAPI HTMLDocument_get_fileModifiedDate(IHTMLDocument2 *iface, BSTR *p)
696 {
697     HTMLDocument *This = HTMLDOC_THIS(iface);
698     FIXME("(%p)->(%p)\n", This, p);
699     return E_NOTIMPL;
700 }
701
702 static HRESULT WINAPI HTMLDocument_get_fileUpdatedDate(IHTMLDocument2 *iface, BSTR *p)
703 {
704     HTMLDocument *This = HTMLDOC_THIS(iface);
705     FIXME("(%p)->(%p)\n", This, p);
706     return E_NOTIMPL;
707 }
708
709 static HRESULT WINAPI HTMLDocument_get_security(IHTMLDocument2 *iface, BSTR *p)
710 {
711     HTMLDocument *This = HTMLDOC_THIS(iface);
712     FIXME("(%p)->(%p)\n", This, p);
713     return E_NOTIMPL;
714 }
715
716 static HRESULT WINAPI HTMLDocument_get_protocol(IHTMLDocument2 *iface, BSTR *p)
717 {
718     HTMLDocument *This = HTMLDOC_THIS(iface);
719     FIXME("(%p)->(%p)\n", This, p);
720     return E_NOTIMPL;
721 }
722
723 static HRESULT WINAPI HTMLDocument_get_nameProp(IHTMLDocument2 *iface, BSTR *p)
724 {
725     HTMLDocument *This = HTMLDOC_THIS(iface);
726     FIXME("(%p)->(%p)\n", This, p);
727     return E_NOTIMPL;
728 }
729
730 static HRESULT WINAPI HTMLDocument_write(IHTMLDocument2 *iface, SAFEARRAY *psarray)
731 {
732     HTMLDocument *This = HTMLDOC_THIS(iface);
733     nsIDOMDocument *domdoc;
734     nsIDOMHTMLDocument *nsdoc;
735     nsAString nsstr;
736     VARIANT *var;
737     int i;
738     nsresult nsres;
739     HRESULT hres;
740
741     TRACE("(%p)->(%p)\n", iface, psarray);
742
743     if(psarray->cDims != 1) {
744         FIXME("cDims=%d\n", psarray->cDims);
745         return E_INVALIDARG;
746     }
747
748     if(!This->nscontainer)
749         return S_OK;
750
751     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &domdoc);
752     if(NS_FAILED(nsres)) {
753         ERR("GetDocument failed: %08x\n", nsres);
754         return S_OK;
755     }
756
757     nsres = nsIDOMDocument_QueryInterface(domdoc, &IID_nsIDOMHTMLDocument, (void**)&nsdoc);
758     nsIDOMDocument_Release(domdoc);
759     if(NS_FAILED(nsres))
760         return S_OK;
761
762     hres = SafeArrayAccessData(psarray, (void**)&var);
763     if(FAILED(hres)) {
764         WARN("SafeArrayAccessData failed: %08x\n", hres);
765         nsIDOMHTMLDocument_Release(nsdoc);
766         return hres;
767     }
768
769     nsAString_Init(&nsstr, NULL);
770
771     for(i=0; i < psarray->rgsabound[0].cElements; i++) {
772         if(V_VT(var+i) == VT_BSTR) {
773             nsAString_SetData(&nsstr, V_BSTR(var+i));
774             nsres = nsIDOMHTMLDocument_Write(nsdoc, &nsstr);
775             if(NS_FAILED(nsres))
776                 ERR("Write failed: %08x\n", nsres);
777         }else {
778             FIXME("vt=%d\n", V_VT(var+i));
779         }
780     }
781
782     nsAString_Finish(&nsstr);
783     SafeArrayUnaccessData(psarray);
784     nsIDOMHTMLDocument_Release(nsdoc);
785
786     return S_OK;
787 }
788
789 static HRESULT WINAPI HTMLDocument_writeln(IHTMLDocument2 *iface, SAFEARRAY *psarray)
790 {
791     HTMLDocument *This = HTMLDOC_THIS(iface);
792     FIXME("(%p)->(%p)\n", This, psarray);
793     return E_NOTIMPL;
794 }
795
796 static HRESULT WINAPI HTMLDocument_open(IHTMLDocument2 *iface, BSTR url, VARIANT name,
797                         VARIANT features, VARIANT replace, IDispatch **pomWindowResult)
798 {
799     HTMLDocument *This = HTMLDOC_THIS(iface);
800     FIXME("(%p)->(%s %p)\n", This, debugstr_w(url), pomWindowResult);
801     return E_NOTIMPL;
802 }
803
804 static HRESULT WINAPI HTMLDocument_close(IHTMLDocument2 *iface)
805 {
806     HTMLDocument *This = HTMLDOC_THIS(iface);
807     FIXME("(%p)\n", This);
808     return E_NOTIMPL;
809 }
810
811 static HRESULT WINAPI HTMLDocument_clear(IHTMLDocument2 *iface)
812 {
813     HTMLDocument *This = HTMLDOC_THIS(iface);
814     FIXME("(%p)\n", This);
815     return E_NOTIMPL;
816 }
817
818 static HRESULT WINAPI HTMLDocument_queryCommandSupported(IHTMLDocument2 *iface, BSTR cmdID,
819                                                         VARIANT_BOOL *pfRet)
820 {
821     HTMLDocument *This = HTMLDOC_THIS(iface);
822     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
823     return E_NOTIMPL;
824 }
825
826 static HRESULT WINAPI HTMLDocument_queryCommandEnabled(IHTMLDocument2 *iface, BSTR cmdID,
827                                                         VARIANT_BOOL *pfRet)
828 {
829     HTMLDocument *This = HTMLDOC_THIS(iface);
830     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
831     return E_NOTIMPL;
832 }
833
834 static HRESULT WINAPI HTMLDocument_queryCommandState(IHTMLDocument2 *iface, BSTR cmdID,
835                                                         VARIANT_BOOL *pfRet)
836 {
837     HTMLDocument *This = HTMLDOC_THIS(iface);
838     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
839     return E_NOTIMPL;
840 }
841
842 static HRESULT WINAPI HTMLDocument_queryCommandIndeterm(IHTMLDocument2 *iface, BSTR cmdID,
843                                                         VARIANT_BOOL *pfRet)
844 {
845     HTMLDocument *This = HTMLDOC_THIS(iface);
846     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
847     return E_NOTIMPL;
848 }
849
850 static HRESULT WINAPI HTMLDocument_queryCommandText(IHTMLDocument2 *iface, BSTR cmdID,
851                                                         BSTR *pfRet)
852 {
853     HTMLDocument *This = HTMLDOC_THIS(iface);
854     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
855     return E_NOTIMPL;
856 }
857
858 static HRESULT WINAPI HTMLDocument_queryCommandValue(IHTMLDocument2 *iface, BSTR cmdID,
859                                                         VARIANT *pfRet)
860 {
861     HTMLDocument *This = HTMLDOC_THIS(iface);
862     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
863     return E_NOTIMPL;
864 }
865
866 static HRESULT WINAPI HTMLDocument_execCommand(IHTMLDocument2 *iface, BSTR cmdID,
867                                 VARIANT_BOOL showUI, VARIANT value, VARIANT_BOOL *pfRet)
868 {
869     HTMLDocument *This = HTMLDOC_THIS(iface);
870     FIXME("(%p)->(%s %x %p)\n", This, debugstr_w(cmdID), showUI, pfRet);
871     return E_NOTIMPL;
872 }
873
874 static HRESULT WINAPI HTMLDocument_execCommandShowHelp(IHTMLDocument2 *iface, BSTR cmdID,
875                                                         VARIANT_BOOL *pfRet)
876 {
877     HTMLDocument *This = HTMLDOC_THIS(iface);
878     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
879     return E_NOTIMPL;
880 }
881
882 static HRESULT WINAPI HTMLDocument_createElement(IHTMLDocument2 *iface, BSTR eTag,
883                                                  IHTMLElement **newElem)
884 {
885     HTMLDocument *This = HTMLDOC_THIS(iface);
886     nsIDOMDocument *nsdoc;
887     nsIDOMElement *nselem;
888     HTMLElement *elem;
889     nsAString tag_str;
890     nsresult nsres;
891
892     TRACE("(%p)->(%s %p)\n", This, debugstr_w(eTag), newElem);
893
894     nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
895
896     nsAString_Init(&tag_str, eTag);
897     nsres = nsIDOMDocument_CreateElement(nsdoc, &tag_str, &nselem);
898     nsAString_Finish(&tag_str);
899     nsIDOMDocument_Release(nsdoc);
900     if(NS_FAILED(nsres)) {
901         ERR("CreateElement failed: %08x\n", nsres);
902         return E_FAIL;
903     }
904
905     elem = HTMLElement_Create(This, (nsIDOMNode*)nselem, TRUE);
906     nsIDOMElement_Release(nselem);
907
908     *newElem = HTMLELEM(elem);
909     IHTMLElement_AddRef(HTMLELEM(elem));
910     return S_OK;
911 }
912
913 static HRESULT WINAPI HTMLDocument_put_onhelp(IHTMLDocument2 *iface, VARIANT v)
914 {
915     HTMLDocument *This = HTMLDOC_THIS(iface);
916     FIXME("(%p)\n", This);
917     return E_NOTIMPL;
918 }
919
920 static HRESULT WINAPI HTMLDocument_get_onhelp(IHTMLDocument2 *iface, VARIANT *p)
921 {
922     HTMLDocument *This = HTMLDOC_THIS(iface);
923     FIXME("(%p)->(%p)\n", This, p);
924     return E_NOTIMPL;
925 }
926
927 static HRESULT WINAPI HTMLDocument_put_onclick(IHTMLDocument2 *iface, VARIANT v)
928 {
929     HTMLDocument *This = HTMLDOC_THIS(iface);
930     FIXME("(%p)\n", This);
931     return E_NOTIMPL;
932 }
933
934 static HRESULT WINAPI HTMLDocument_get_onclick(IHTMLDocument2 *iface, VARIANT *p)
935 {
936     HTMLDocument *This = HTMLDOC_THIS(iface);
937     FIXME("(%p)->(%p)\n", This, p);
938     return E_NOTIMPL;
939 }
940
941 static HRESULT WINAPI HTMLDocument_put_ondblclick(IHTMLDocument2 *iface, VARIANT v)
942 {
943     HTMLDocument *This = HTMLDOC_THIS(iface);
944     FIXME("(%p)\n", This);
945     return E_NOTIMPL;
946 }
947
948 static HRESULT WINAPI HTMLDocument_get_ondblclick(IHTMLDocument2 *iface, VARIANT *p)
949 {
950     HTMLDocument *This = HTMLDOC_THIS(iface);
951     FIXME("(%p)->(%p)\n", This, p);
952     return E_NOTIMPL;
953 }
954
955 static HRESULT WINAPI HTMLDocument_put_onkeyup(IHTMLDocument2 *iface, VARIANT v)
956 {
957     HTMLDocument *This = HTMLDOC_THIS(iface);
958     FIXME("(%p)\n", This);
959     return E_NOTIMPL;
960 }
961
962 static HRESULT WINAPI HTMLDocument_get_onkeyup(IHTMLDocument2 *iface, VARIANT *p)
963 {
964     HTMLDocument *This = HTMLDOC_THIS(iface);
965     FIXME("(%p)->(%p)\n", This, p);
966     return E_NOTIMPL;
967 }
968
969 static HRESULT WINAPI HTMLDocument_put_onkeydown(IHTMLDocument2 *iface, VARIANT v)
970 {
971     HTMLDocument *This = HTMLDOC_THIS(iface);
972     FIXME("(%p)\n", This);
973     return E_NOTIMPL;
974 }
975
976 static HRESULT WINAPI HTMLDocument_get_onkeydown(IHTMLDocument2 *iface, VARIANT *p)
977 {
978     HTMLDocument *This = HTMLDOC_THIS(iface);
979     FIXME("(%p)->(%p)\n", This, p);
980     return E_NOTIMPL;
981 }
982
983 static HRESULT WINAPI HTMLDocument_put_onkeypress(IHTMLDocument2 *iface, VARIANT v)
984 {
985     HTMLDocument *This = HTMLDOC_THIS(iface);
986     FIXME("(%p)\n", This);
987     return E_NOTIMPL;
988 }
989
990 static HRESULT WINAPI HTMLDocument_get_onkeypress(IHTMLDocument2 *iface, VARIANT *p)
991 {
992     HTMLDocument *This = HTMLDOC_THIS(iface);
993     FIXME("(%p)->(%p)\n", This, p);
994     return E_NOTIMPL;
995 }
996
997 static HRESULT WINAPI HTMLDocument_put_onmouseup(IHTMLDocument2 *iface, VARIANT v)
998 {
999     HTMLDocument *This = HTMLDOC_THIS(iface);
1000     FIXME("(%p)\n", This);
1001     return E_NOTIMPL;
1002 }
1003
1004 static HRESULT WINAPI HTMLDocument_get_onmouseup(IHTMLDocument2 *iface, VARIANT *p)
1005 {
1006     HTMLDocument *This = HTMLDOC_THIS(iface);
1007     FIXME("(%p)->(%p)\n", This, p);
1008     return E_NOTIMPL;
1009 }
1010
1011 static HRESULT WINAPI HTMLDocument_put_onmousedown(IHTMLDocument2 *iface, VARIANT v)
1012 {
1013     HTMLDocument *This = HTMLDOC_THIS(iface);
1014     FIXME("(%p)\n", This);
1015     return E_NOTIMPL;
1016 }
1017
1018 static HRESULT WINAPI HTMLDocument_get_onmousedown(IHTMLDocument2 *iface, VARIANT *p)
1019 {
1020     HTMLDocument *This = HTMLDOC_THIS(iface);
1021     FIXME("(%p)->(%p)\n", This, p);
1022     return E_NOTIMPL;
1023 }
1024
1025 static HRESULT WINAPI HTMLDocument_put_onmousemove(IHTMLDocument2 *iface, VARIANT v)
1026 {
1027     HTMLDocument *This = HTMLDOC_THIS(iface);
1028     FIXME("(%p)\n", This);
1029     return E_NOTIMPL;
1030 }
1031
1032 static HRESULT WINAPI HTMLDocument_get_onmousemove(IHTMLDocument2 *iface, VARIANT *p)
1033 {
1034     HTMLDocument *This = HTMLDOC_THIS(iface);
1035     FIXME("(%p)->(%p)\n", This, p);
1036     return E_NOTIMPL;
1037 }
1038
1039 static HRESULT WINAPI HTMLDocument_put_onmouseout(IHTMLDocument2 *iface, VARIANT v)
1040 {
1041     HTMLDocument *This = HTMLDOC_THIS(iface);
1042     FIXME("(%p)\n", This);
1043     return E_NOTIMPL;
1044 }
1045
1046 static HRESULT WINAPI HTMLDocument_get_onmouseout(IHTMLDocument2 *iface, VARIANT *p)
1047 {
1048     HTMLDocument *This = HTMLDOC_THIS(iface);
1049     FIXME("(%p)->(%p)\n", This, p);
1050     return E_NOTIMPL;
1051 }
1052
1053 static HRESULT WINAPI HTMLDocument_put_onmouseover(IHTMLDocument2 *iface, VARIANT v)
1054 {
1055     HTMLDocument *This = HTMLDOC_THIS(iface);
1056     FIXME("(%p)\n", This);
1057     return E_NOTIMPL;
1058 }
1059
1060 static HRESULT WINAPI HTMLDocument_get_onmouseover(IHTMLDocument2 *iface, VARIANT *p)
1061 {
1062     HTMLDocument *This = HTMLDOC_THIS(iface);
1063     FIXME("(%p)->(%p)\n", This, p);
1064     return E_NOTIMPL;
1065 }
1066
1067 static HRESULT WINAPI HTMLDocument_put_onreadystatechange(IHTMLDocument2 *iface, VARIANT v)
1068 {
1069     HTMLDocument *This = HTMLDOC_THIS(iface);
1070     FIXME("(%p)\n", This);
1071     return E_NOTIMPL;
1072 }
1073
1074 static HRESULT WINAPI HTMLDocument_get_onreadystatechange(IHTMLDocument2 *iface, VARIANT *p)
1075 {
1076     HTMLDocument *This = HTMLDOC_THIS(iface);
1077     FIXME("(%p)->(%p)\n", This, p);
1078     return E_NOTIMPL;
1079 }
1080
1081 static HRESULT WINAPI HTMLDocument_put_onafterupdate(IHTMLDocument2 *iface, VARIANT v)
1082 {
1083     HTMLDocument *This = HTMLDOC_THIS(iface);
1084     FIXME("(%p)\n", This);
1085     return E_NOTIMPL;
1086 }
1087
1088 static HRESULT WINAPI HTMLDocument_get_onafterupdate(IHTMLDocument2 *iface, VARIANT *p)
1089 {
1090     HTMLDocument *This = HTMLDOC_THIS(iface);
1091     FIXME("(%p)->(%p)\n", This, p);
1092     return E_NOTIMPL;
1093 }
1094
1095 static HRESULT WINAPI HTMLDocument_put_onrowexit(IHTMLDocument2 *iface, VARIANT v)
1096 {
1097     HTMLDocument *This = HTMLDOC_THIS(iface);
1098     FIXME("(%p)\n", This);
1099     return E_NOTIMPL;
1100 }
1101
1102 static HRESULT WINAPI HTMLDocument_get_onrowexit(IHTMLDocument2 *iface, VARIANT *p)
1103 {
1104     HTMLDocument *This = HTMLDOC_THIS(iface);
1105     FIXME("(%p)->(%p)\n", This, p);
1106     return E_NOTIMPL;
1107 }
1108
1109 static HRESULT WINAPI HTMLDocument_put_onrowenter(IHTMLDocument2 *iface, VARIANT v)
1110 {
1111     HTMLDocument *This = HTMLDOC_THIS(iface);
1112     FIXME("(%p)\n", This);
1113     return E_NOTIMPL;
1114 }
1115
1116 static HRESULT WINAPI HTMLDocument_get_onrowenter(IHTMLDocument2 *iface, VARIANT *p)
1117 {
1118     HTMLDocument *This = HTMLDOC_THIS(iface);
1119     FIXME("(%p)->(%p)\n", This, p);
1120     return E_NOTIMPL;
1121 }
1122
1123 static HRESULT WINAPI HTMLDocument_put_ondragstart(IHTMLDocument2 *iface, VARIANT v)
1124 {
1125     HTMLDocument *This = HTMLDOC_THIS(iface);
1126     FIXME("(%p)\n", This);
1127     return E_NOTIMPL;
1128 }
1129
1130 static HRESULT WINAPI HTMLDocument_get_ondragstart(IHTMLDocument2 *iface, VARIANT *p)
1131 {
1132     HTMLDocument *This = HTMLDOC_THIS(iface);
1133     FIXME("(%p)->(%p)\n", This, p);
1134     return E_NOTIMPL;
1135 }
1136
1137 static HRESULT WINAPI HTMLDocument_put_onselectstart(IHTMLDocument2 *iface, VARIANT v)
1138 {
1139     HTMLDocument *This = HTMLDOC_THIS(iface);
1140     FIXME("(%p)\n", This);
1141     return E_NOTIMPL;
1142 }
1143
1144 static HRESULT WINAPI HTMLDocument_get_onselectstart(IHTMLDocument2 *iface, VARIANT *p)
1145 {
1146     HTMLDocument *This = HTMLDOC_THIS(iface);
1147     FIXME("(%p)->(%p)\n", This, p);
1148     return E_NOTIMPL;
1149 }
1150
1151 static HRESULT WINAPI HTMLDocument_elementFromPoint(IHTMLDocument2 *iface, long x, long y,
1152                                                         IHTMLElement **elementHit)
1153 {
1154     HTMLDocument *This = HTMLDOC_THIS(iface);
1155     FIXME("(%p)->(%ld %ld %p)\n", This, x, y, elementHit);
1156     return E_NOTIMPL;
1157 }
1158
1159 static HRESULT WINAPI HTMLDocument_get_parentWindow(IHTMLDocument2 *iface, IHTMLWindow2 **p)
1160 {
1161     HTMLDocument *This = HTMLDOC_THIS(iface);
1162
1163     TRACE("(%p)->(%p)\n", This, p);
1164
1165     *p = HTMLWINDOW2(This->window);
1166     IHTMLWindow2_AddRef(*p);
1167     return S_OK;
1168 }
1169
1170 static HRESULT WINAPI HTMLDocument_get_styleSheets(IHTMLDocument2 *iface,
1171                                                    IHTMLStyleSheetsCollection **p)
1172 {
1173     HTMLDocument *This = HTMLDOC_THIS(iface);
1174     nsIDOMStyleSheetList *nsstylelist;
1175     nsIDOMDocumentStyle *nsdocstyle;
1176     nsIDOMDocument *nsdoc;
1177     nsresult nsres;
1178
1179     TRACE("(%p)->(%p)\n", This, p);
1180
1181     *p = NULL;
1182
1183     if(!This->nscontainer)
1184         return S_OK;
1185
1186     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
1187     if(NS_FAILED(nsres)) {
1188         ERR("GetDocument failed: %08x\n", nsres);
1189         return S_OK;
1190     }
1191
1192     if(NS_FAILED(nsres) || !nsdoc)
1193         return S_OK;
1194
1195     nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMDocumentStyle, (void**)&nsdocstyle);
1196     nsIDOMDocument_Release(nsdoc);
1197
1198     nsIDOMDocumentStyle_GetStyleSheets(nsdocstyle, &nsstylelist);
1199     nsIDOMDocumentStyle_Release(nsdocstyle);
1200
1201     *p = HTMLStyleSheetsCollection_Create(nsstylelist);
1202     nsIDOMDocumentStyle_Release(nsstylelist);
1203
1204     return S_OK;
1205 }
1206
1207 static HRESULT WINAPI HTMLDocument_put_onbeforeupdate(IHTMLDocument2 *iface, VARIANT v)
1208 {
1209     HTMLDocument *This = HTMLDOC_THIS(iface);
1210     FIXME("(%p)\n", This);
1211     return E_NOTIMPL;
1212 }
1213
1214 static HRESULT WINAPI HTMLDocument_get_onbeforeupdate(IHTMLDocument2 *iface, VARIANT *p)
1215 {
1216     HTMLDocument *This = HTMLDOC_THIS(iface);
1217     FIXME("(%p)->(%p)\n", This, p);
1218     return E_NOTIMPL;
1219 }
1220
1221 static HRESULT WINAPI HTMLDocument_put_onerrorupdate(IHTMLDocument2 *iface, VARIANT v)
1222 {
1223     HTMLDocument *This = HTMLDOC_THIS(iface);
1224     FIXME("(%p)\n", This);
1225     return E_NOTIMPL;
1226 }
1227
1228 static HRESULT WINAPI HTMLDocument_get_onerrorupdate(IHTMLDocument2 *iface, VARIANT *p)
1229 {
1230     HTMLDocument *This = HTMLDOC_THIS(iface);
1231     FIXME("(%p)->(%p)\n", This, p);
1232     return E_NOTIMPL;
1233 }
1234
1235 static HRESULT WINAPI HTMLDocument_toString(IHTMLDocument2 *iface, BSTR *String)
1236 {
1237     HTMLDocument *This = HTMLDOC_THIS(iface);
1238     FIXME("(%p)->(%p)\n", This, String);
1239     return E_NOTIMPL;
1240 }
1241
1242 static HRESULT WINAPI HTMLDocument_createStyleSheet(IHTMLDocument2 *iface, BSTR bstrHref,
1243                                             long lIndex, IHTMLStyleSheet **ppnewStyleSheet)
1244 {
1245     HTMLDocument *This = HTMLDOC_THIS(iface);
1246
1247     FIXME("(%p)->(%s %ld %p) semi-stub\n", This, debugstr_w(bstrHref), lIndex, ppnewStyleSheet);
1248
1249     *ppnewStyleSheet = HTMLStyleSheet_Create(NULL);
1250     return S_OK;
1251 }
1252
1253 static const IHTMLDocument2Vtbl HTMLDocumentVtbl = {
1254     HTMLDocument_QueryInterface,
1255     HTMLDocument_AddRef,
1256     HTMLDocument_Release,
1257     HTMLDocument_GetTypeInfoCount,
1258     HTMLDocument_GetTypeInfo,
1259     HTMLDocument_GetIDsOfNames,
1260     HTMLDocument_Invoke,
1261     HTMLDocument_get_Script,
1262     HTMLDocument_get_all,
1263     HTMLDocument_get_body,
1264     HTMLDocument_get_activeElement,
1265     HTMLDocument_get_images,
1266     HTMLDocument_get_applets,
1267     HTMLDocument_get_links,
1268     HTMLDocument_get_forms,
1269     HTMLDocument_get_anchors,
1270     HTMLDocument_put_title,
1271     HTMLDocument_get_title,
1272     HTMLDocument_get_scripts,
1273     HTMLDocument_put_designMode,
1274     HTMLDocument_get_designMode,
1275     HTMLDocument_get_selection,
1276     HTMLDocument_get_readyState,
1277     HTMLDocument_get_frames,
1278     HTMLDocument_get_embeds,
1279     HTMLDocument_get_plugins,
1280     HTMLDocument_put_alinkColor,
1281     HTMLDocument_get_alinkColor,
1282     HTMLDocument_put_bgColor,
1283     HTMLDocument_get_bgColor,
1284     HTMLDocument_put_fgColor,
1285     HTMLDocument_get_fgColor,
1286     HTMLDocument_put_linkColor,
1287     HTMLDocument_get_linkColor,
1288     HTMLDocument_put_vlinkColor,
1289     HTMLDocument_get_vlinkColor,
1290     HTMLDocument_get_referrer,
1291     HTMLDocument_get_location,
1292     HTMLDocument_get_lastModified,
1293     HTMLDocument_put_URL,
1294     HTMLDocument_get_URL,
1295     HTMLDocument_put_domain,
1296     HTMLDocument_get_domain,
1297     HTMLDocument_put_cookie,
1298     HTMLDocument_get_cookie,
1299     HTMLDocument_put_expando,
1300     HTMLDocument_get_expando,
1301     HTMLDocument_put_charset,
1302     HTMLDocument_get_charset,
1303     HTMLDocument_put_defaultCharset,
1304     HTMLDocument_get_defaultCharset,
1305     HTMLDocument_get_mimeType,
1306     HTMLDocument_get_fileSize,
1307     HTMLDocument_get_fileCreatedDate,
1308     HTMLDocument_get_fileModifiedDate,
1309     HTMLDocument_get_fileUpdatedDate,
1310     HTMLDocument_get_security,
1311     HTMLDocument_get_protocol,
1312     HTMLDocument_get_nameProp,
1313     HTMLDocument_write,
1314     HTMLDocument_writeln,
1315     HTMLDocument_open,
1316     HTMLDocument_close,
1317     HTMLDocument_clear,
1318     HTMLDocument_queryCommandSupported,
1319     HTMLDocument_queryCommandEnabled,
1320     HTMLDocument_queryCommandState,
1321     HTMLDocument_queryCommandIndeterm,
1322     HTMLDocument_queryCommandText,
1323     HTMLDocument_queryCommandValue,
1324     HTMLDocument_execCommand,
1325     HTMLDocument_execCommandShowHelp,
1326     HTMLDocument_createElement,
1327     HTMLDocument_put_onhelp,
1328     HTMLDocument_get_onhelp,
1329     HTMLDocument_put_onclick,
1330     HTMLDocument_get_onclick,
1331     HTMLDocument_put_ondblclick,
1332     HTMLDocument_get_ondblclick,
1333     HTMLDocument_put_onkeyup,
1334     HTMLDocument_get_onkeyup,
1335     HTMLDocument_put_onkeydown,
1336     HTMLDocument_get_onkeydown,
1337     HTMLDocument_put_onkeypress,
1338     HTMLDocument_get_onkeypress,
1339     HTMLDocument_put_onmouseup,
1340     HTMLDocument_get_onmouseup,
1341     HTMLDocument_put_onmousedown,
1342     HTMLDocument_get_onmousedown,
1343     HTMLDocument_put_onmousemove,
1344     HTMLDocument_get_onmousemove,
1345     HTMLDocument_put_onmouseout,
1346     HTMLDocument_get_onmouseout,
1347     HTMLDocument_put_onmouseover,
1348     HTMLDocument_get_onmouseover,
1349     HTMLDocument_put_onreadystatechange,
1350     HTMLDocument_get_onreadystatechange,
1351     HTMLDocument_put_onafterupdate,
1352     HTMLDocument_get_onafterupdate,
1353     HTMLDocument_put_onrowexit,
1354     HTMLDocument_get_onrowexit,
1355     HTMLDocument_put_onrowenter,
1356     HTMLDocument_get_onrowenter,
1357     HTMLDocument_put_ondragstart,
1358     HTMLDocument_get_ondragstart,
1359     HTMLDocument_put_onselectstart,
1360     HTMLDocument_get_onselectstart,
1361     HTMLDocument_elementFromPoint,
1362     HTMLDocument_get_parentWindow,
1363     HTMLDocument_get_styleSheets,
1364     HTMLDocument_put_onbeforeupdate,
1365     HTMLDocument_get_onbeforeupdate,
1366     HTMLDocument_put_onerrorupdate,
1367     HTMLDocument_get_onerrorupdate,
1368     HTMLDocument_toString,
1369     HTMLDocument_createStyleSheet
1370 };
1371
1372 #define DISPEX_THIS(iface) DEFINE_THIS(HTMLDocument, IDispatchEx, iface)
1373
1374 static HRESULT WINAPI DocDispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
1375 {
1376     HTMLDocument *This = DISPEX_THIS(iface);
1377
1378     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
1379 }
1380
1381 static ULONG WINAPI DocDispatchEx_AddRef(IDispatchEx *iface)
1382 {
1383     HTMLDocument *This = DISPEX_THIS(iface);
1384
1385     return IHTMLDocument2_AddRef(HTMLDOC(This));
1386 }
1387
1388 static ULONG WINAPI DocDispatchEx_Release(IDispatchEx *iface)
1389 {
1390     HTMLDocument *This = DISPEX_THIS(iface);
1391
1392     return IHTMLDocument2_Release(HTMLDOC(This));
1393 }
1394
1395 static HRESULT WINAPI DocDispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
1396 {
1397     HTMLDocument *This = DISPEX_THIS(iface);
1398
1399     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->dispex), pctinfo);
1400 }
1401
1402 static HRESULT WINAPI DocDispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
1403                                                LCID lcid, ITypeInfo **ppTInfo)
1404 {
1405     HTMLDocument *This = DISPEX_THIS(iface);
1406
1407     return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->dispex), iTInfo, lcid, ppTInfo);
1408 }
1409
1410 static HRESULT WINAPI DocDispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
1411                                                  LPOLESTR *rgszNames, UINT cNames,
1412                                                  LCID lcid, DISPID *rgDispId)
1413 {
1414     HTMLDocument *This = DISPEX_THIS(iface);
1415
1416     return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->dispex), riid, rgszNames, cNames, lcid, rgDispId);
1417 }
1418
1419 static HRESULT WINAPI DocDispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
1420                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1421                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1422 {
1423     HTMLDocument *This = DISPEX_THIS(iface);
1424
1425     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1426           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1427
1428     switch(dispIdMember) {
1429     case DISPID_READYSTATE:
1430         TRACE("DISPID_READYSTATE\n");
1431
1432         if(!(wFlags & DISPATCH_PROPERTYGET))
1433             return E_INVALIDARG;
1434
1435         V_VT(pVarResult) = VT_I4;
1436         V_I4(pVarResult) = This->readystate;
1437         return S_OK;
1438     }
1439
1440     return IDispatchEx_Invoke(DISPATCHEX(&This->dispex), dispIdMember, riid, lcid, wFlags, pDispParams,
1441                               pVarResult, pExcepInfo, puArgErr);
1442 }
1443
1444 static HRESULT WINAPI DocDispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
1445 {
1446     HTMLDocument *This = DISPEX_THIS(iface);
1447
1448     return IDispatchEx_GetDispID(DISPATCHEX(&This->dispex), bstrName, grfdex, pid);
1449 }
1450
1451 static HRESULT WINAPI DocDispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
1452         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
1453 {
1454     HTMLDocument *This = DISPEX_THIS(iface);
1455
1456     return IDispatchEx_InvokeEx(DISPATCHEX(&This->dispex), id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
1457 }
1458
1459 static HRESULT WINAPI DocDispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
1460 {
1461     HTMLDocument *This = DISPEX_THIS(iface);
1462
1463     return IDispatchEx_DeleteMemberByName(DISPATCHEX(&This->dispex), bstrName, grfdex);
1464 }
1465
1466 static HRESULT WINAPI DocDispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
1467 {
1468     HTMLDocument *This = DISPEX_THIS(iface);
1469
1470     return IDispatchEx_DeleteMemberByDispID(DISPATCHEX(&This->dispex), id);
1471 }
1472
1473 static HRESULT WINAPI DocDispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
1474 {
1475     HTMLDocument *This = DISPEX_THIS(iface);
1476
1477     return IDispatchEx_GetMemberProperties(DISPATCHEX(&This->dispex), id, grfdexFetch, pgrfdex);
1478 }
1479
1480 static HRESULT WINAPI DocDispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
1481 {
1482     HTMLDocument *This = DISPEX_THIS(iface);
1483
1484     return IDispatchEx_GetMemberName(DISPATCHEX(&This->dispex), id, pbstrName);
1485 }
1486
1487 static HRESULT WINAPI DocDispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
1488 {
1489     HTMLDocument *This = DISPEX_THIS(iface);
1490
1491     return IDispatchEx_GetNextDispID(DISPATCHEX(&This->dispex), grfdex, id, pid);
1492 }
1493
1494 static HRESULT WINAPI DocDispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
1495 {
1496     HTMLDocument *This = DISPEX_THIS(iface);
1497
1498     return IDispatchEx_GetNameSpaceParent(DISPATCHEX(&This->dispex), ppunk);
1499 }
1500
1501 #undef DISPEX_THIS
1502
1503 static const IDispatchExVtbl DocDispatchExVtbl = {
1504     DocDispatchEx_QueryInterface,
1505     DocDispatchEx_AddRef,
1506     DocDispatchEx_Release,
1507     DocDispatchEx_GetTypeInfoCount,
1508     DocDispatchEx_GetTypeInfo,
1509     DocDispatchEx_GetIDsOfNames,
1510     DocDispatchEx_Invoke,
1511     DocDispatchEx_GetDispID,
1512     DocDispatchEx_InvokeEx,
1513     DocDispatchEx_DeleteMemberByName,
1514     DocDispatchEx_DeleteMemberByDispID,
1515     DocDispatchEx_GetMemberProperties,
1516     DocDispatchEx_GetMemberName,
1517     DocDispatchEx_GetNextDispID,
1518     DocDispatchEx_GetNameSpaceParent
1519 };
1520
1521 static const tid_t HTMLDocument_iface_tids[] = {
1522     IHTMLDocument2_tid,
1523     IHTMLDocument3_tid,
1524     IHTMLDocument4_tid,
1525     IHTMLDocument5_tid,
1526     0
1527 };
1528 static dispex_static_data_t HTMLDocument_dispex = {
1529     NULL,
1530     DispHTMLDocument_tid,
1531     NULL,
1532     HTMLDocument_iface_tids
1533 };
1534
1535 HRESULT HTMLDocument_Create(IUnknown *pUnkOuter, REFIID riid, void** ppvObject)
1536 {
1537     HTMLDocument *ret;
1538     HRESULT hres;
1539
1540     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppvObject);
1541
1542     ret = heap_alloc_zero(sizeof(HTMLDocument));
1543     ret->lpHTMLDocument2Vtbl = &HTMLDocumentVtbl;
1544     ret->lpIDispatchExVtbl = &DocDispatchExVtbl;
1545     ret->ref = 0;
1546     ret->readystate = READYSTATE_UNINITIALIZED;
1547
1548     list_init(&ret->bindings);
1549     list_init(&ret->script_hosts);
1550     list_init(&ret->selection_list);
1551     list_init(&ret->range_list);
1552
1553     hres = IHTMLDocument_QueryInterface(HTMLDOC(ret), riid, ppvObject);
1554     if(FAILED(hres)) {
1555         heap_free(ret);
1556         return hres;
1557     }
1558
1559     LOCK_MODULE();
1560
1561     HTMLDocument_HTMLDocument3_Init(ret);
1562     HTMLDocument_HTMLDocument5_Init(ret);
1563     HTMLDocument_Persist_Init(ret);
1564     HTMLDocument_OleCmd_Init(ret);
1565     HTMLDocument_OleObj_Init(ret);
1566     HTMLDocument_View_Init(ret);
1567     HTMLDocument_Window_Init(ret);
1568     HTMLDocument_Service_Init(ret);
1569     HTMLDocument_Hlink_Init(ret);
1570
1571     ConnectionPointContainer_Init(&ret->cp_container, (IUnknown*)HTMLDOC(ret));
1572     ConnectionPoint_Init(&ret->cp_propnotif, &ret->cp_container, &IID_IPropertyNotifySink);
1573     ConnectionPoint_Init(&ret->cp_htmldocevents, &ret->cp_container, &DIID_HTMLDocumentEvents);
1574     ConnectionPoint_Init(&ret->cp_htmldocevents2, &ret->cp_container, &DIID_HTMLDocumentEvents2);
1575
1576     init_dispex(&ret->dispex, (IUnknown*)HTMLDOC(ret), &HTMLDocument_dispex);
1577
1578     ret->nscontainer = NSContainer_Create(ret, NULL);
1579     ret->window = HTMLWindow_Create(ret);
1580
1581     get_thread_hwnd();
1582
1583     return hres;
1584 }