xref: /reactos/dll/win32/mshtml/htmlframebase.c (revision 84ccccab) 
1 /*
2  * Copyright 2008 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 "mshtml_private.h"
20 
21 static const WCHAR autoW[] = {'a','u','t','o',0};
22 static const WCHAR yesW[] = {'y','e','s',0};
23 static const WCHAR noW[] = {'n','o',0};
24 static const WCHAR pxW[] = {'p','x',0};
25 
26 HRESULT set_frame_doc(HTMLFrameBase *frame, nsIDOMDocument *nsdoc)
27 {
28     nsIDOMWindow *nswindow;
29     HTMLOuterWindow *window;
30     nsresult nsres;
31     HRESULT hres = S_OK;
32 
33     if(frame->content_window)
34         return S_OK;
35 
36     nsres = nsIDOMDocument_GetDefaultView(nsdoc, &nswindow);
37     if(NS_FAILED(nsres) || !nswindow)
38         return E_FAIL;
39 
40     window = nswindow_to_window(nswindow);
41     if(!window)
42         hres = HTMLOuterWindow_Create(frame->element.node.doc->basedoc.doc_obj, nswindow,
43                 frame->element.node.doc->basedoc.window, &window);
44     nsIDOMWindow_Release(nswindow);
45     if(FAILED(hres))
46         return hres;
47 
48     frame->content_window = window;
49     window->frame_element = frame;
50     return S_OK;
51 }
52 
53 static inline HTMLFrameBase *impl_from_IHTMLFrameBase(IHTMLFrameBase *iface)
54 {
55     return CONTAINING_RECORD(iface, HTMLFrameBase, IHTMLFrameBase_iface);
56 }
57 
58 static HRESULT WINAPI HTMLFrameBase_QueryInterface(IHTMLFrameBase *iface, REFIID riid, void **ppv)
59 {
60     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
61 
62     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
63 }
64 
65 static ULONG WINAPI HTMLFrameBase_AddRef(IHTMLFrameBase *iface)
66 {
67     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
68 
69     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
70 }
71 
72 static ULONG WINAPI HTMLFrameBase_Release(IHTMLFrameBase *iface)
73 {
74     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
75 
76     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
77 }
78 
79 static HRESULT WINAPI HTMLFrameBase_GetTypeInfoCount(IHTMLFrameBase *iface, UINT *pctinfo)
80 {
81     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
82 
83     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
84 }
85 
86 static HRESULT WINAPI HTMLFrameBase_GetTypeInfo(IHTMLFrameBase *iface, UINT iTInfo,
87         LCID lcid, ITypeInfo **ppTInfo)
88 {
89     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
90 
91     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
92             ppTInfo);
93 }
94 
95 static HRESULT WINAPI HTMLFrameBase_GetIDsOfNames(IHTMLFrameBase *iface, REFIID riid,
96         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
97 {
98     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
99 
100     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
101             cNames, lcid, rgDispId);
102 }
103 
104 static HRESULT WINAPI HTMLFrameBase_Invoke(IHTMLFrameBase *iface, DISPID dispIdMember,
105         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
106         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
107 {
108     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
109 
110     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
111             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
112 }
113 
114 static HRESULT WINAPI HTMLFrameBase_put_src(IHTMLFrameBase *iface, BSTR v)
115 {
116     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
117 
118     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
119 
120     if(!This->content_window || !This->element.node.doc || !This->element.node.doc->basedoc.window) {
121         nsAString nsstr;
122         nsresult nsres;
123 
124         nsAString_InitDepend(&nsstr, v);
125         if(This->nsframe)
126             nsres = nsIDOMHTMLFrameElement_SetSrc(This->nsframe, &nsstr);
127         else
128             nsres = nsIDOMHTMLIFrameElement_SetSrc(This->nsiframe, &nsstr);
129         nsAString_Finish(&nsstr);
130         if(NS_FAILED(nsres)) {
131             ERR("SetSrc failed: %08x\n", nsres);
132             return E_FAIL;
133         }
134 
135         return S_OK;
136     }
137 
138     return navigate_url(This->content_window, v, This->element.node.doc->basedoc.window->uri, BINDING_NAVIGATED);
139 }
140 
141 static HRESULT WINAPI HTMLFrameBase_get_src(IHTMLFrameBase *iface, BSTR *p)
142 {
143     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
144     nsAString nsstr;
145     nsresult nsres;
146 
147     TRACE("(%p)->(%p)\n", This, p);
148 
149     if(!This->nsframe && !This->nsiframe) {
150         ERR("No attached frame object\n");
151         return E_UNEXPECTED;
152     }
153 
154     nsAString_Init(&nsstr, NULL);
155     if(This->nsframe)
156         nsres = nsIDOMHTMLFrameElement_GetSrc(This->nsframe, &nsstr);
157     else
158         nsres = nsIDOMHTMLIFrameElement_GetSrc(This->nsiframe, &nsstr);
159     return return_nsstr(nsres, &nsstr, p);
160 }
161 
162 static HRESULT WINAPI HTMLFrameBase_put_name(IHTMLFrameBase *iface, BSTR v)
163 {
164     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
165     nsAString name_str;
166     nsresult nsres;
167 
168     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
169 
170     if(!This->nsframe && !This->nsiframe) {
171         ERR("No attached ns frame object\n");
172         return E_UNEXPECTED;
173     }
174 
175     nsAString_InitDepend(&name_str, v);
176     if(This->nsframe)
177         nsres = nsIDOMHTMLFrameElement_SetName(This->nsframe, &name_str);
178     else
179         nsres = nsIDOMHTMLIFrameElement_SetName(This->nsiframe, &name_str);
180     nsAString_Finish(&name_str);
181     if(NS_FAILED(nsres)) {
182         ERR("SetName failed: %08x\n", nsres);
183         return E_FAIL;
184     }
185 
186     return S_OK;
187 }
188 
189 static HRESULT WINAPI HTMLFrameBase_get_name(IHTMLFrameBase *iface, BSTR *p)
190 {
191     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
192     nsAString nsstr;
193     nsresult nsres;
194 
195     TRACE("(%p)->(%p)\n", This, p);
196 
197     if(!This->nsframe && !This->nsiframe) {
198         ERR("No attached ns frame object\n");
199         return E_UNEXPECTED;
200     }
201 
202     nsAString_Init(&nsstr, NULL);
203     if(This->nsframe)
204         nsres = nsIDOMHTMLFrameElement_GetName(This->nsframe, &nsstr);
205     else
206         nsres = nsIDOMHTMLIFrameElement_GetName(This->nsiframe, &nsstr);
207     return return_nsstr(nsres, &nsstr, p);
208 }
209 
210 static HRESULT WINAPI HTMLFrameBase_put_border(IHTMLFrameBase *iface, VARIANT v)
211 {
212     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
213     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
214     return E_NOTIMPL;
215 }
216 
217 static HRESULT WINAPI HTMLFrameBase_get_border(IHTMLFrameBase *iface, VARIANT *p)
218 {
219     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
220     FIXME("(%p)->(%p)\n", This, p);
221     return E_NOTIMPL;
222 }
223 
224 static HRESULT WINAPI HTMLFrameBase_put_frameBorder(IHTMLFrameBase *iface, BSTR v)
225 {
226     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
227     nsAString nsstr;
228     nsresult nsres;
229 
230     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
231 
232     if(!This->nsframe && !This->nsiframe) {
233         ERR("No attached ns frame object\n");
234         return E_UNEXPECTED;
235     }
236 
237     nsAString_InitDepend(&nsstr, v);
238     if(This->nsframe)
239         nsres = nsIDOMHTMLFrameElement_SetFrameBorder(This->nsframe, &nsstr);
240     else
241         nsres = nsIDOMHTMLIFrameElement_SetFrameBorder(This->nsiframe, &nsstr);
242     nsAString_Finish(&nsstr);
243     if(NS_FAILED(nsres)) {
244         ERR("SetFrameBorder failed: %08x\n", nsres);
245         return E_FAIL;
246     }
247 
248     return S_OK;
249 }
250 
251 static HRESULT WINAPI HTMLFrameBase_get_frameBorder(IHTMLFrameBase *iface, BSTR *p)
252 {
253     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
254     nsAString nsstr;
255     nsresult nsres;
256 
257     TRACE("(%p)->(%p)\n", This, p);
258 
259     if(!This->nsframe && !This->nsiframe) {
260         ERR("No attached ns frame object\n");
261         return E_UNEXPECTED;
262     }
263 
264     nsAString_Init(&nsstr, NULL);
265     if(This->nsframe)
266         nsres = nsIDOMHTMLFrameElement_GetFrameBorder(This->nsframe, &nsstr);
267     else
268         nsres = nsIDOMHTMLIFrameElement_GetFrameBorder(This->nsiframe, &nsstr);
269     return return_nsstr(nsres, &nsstr, p);
270 }
271 
272 static HRESULT WINAPI HTMLFrameBase_put_frameSpacing(IHTMLFrameBase *iface, VARIANT v)
273 {
274     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
275     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
276     return E_NOTIMPL;
277 }
278 
279 static HRESULT WINAPI HTMLFrameBase_get_frameSpacing(IHTMLFrameBase *iface, VARIANT *p)
280 {
281     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
282     FIXME("(%p)->(%p)\n", This, p);
283     return E_NOTIMPL;
284 }
285 
286 static HRESULT WINAPI HTMLFrameBase_put_marginWidth(IHTMLFrameBase *iface, VARIANT v)
287 {
288     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
289     nsAString nsstr;
290     nsresult nsres;
291 
292     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
293 
294     if(V_VT(&v) != VT_BSTR) {
295         FIXME("unsupported %s\n", debugstr_variant(&v));
296         return E_NOTIMPL;
297     }
298 
299     nsAString_InitDepend(&nsstr, V_BSTR(&v));
300     if(This->nsframe)
301         nsres = nsIDOMHTMLFrameElement_SetMarginWidth(This->nsframe, &nsstr);
302     else
303         nsres = nsIDOMHTMLIFrameElement_SetMarginWidth(This->nsiframe, &nsstr);
304     nsAString_Finish(&nsstr);
305     return NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
306 }
307 
308 static HRESULT WINAPI HTMLFrameBase_get_marginWidth(IHTMLFrameBase *iface, VARIANT *p)
309 {
310     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
311     nsAString nsstr;
312     nsresult nsres;
313     HRESULT hres = S_OK;
314 
315     TRACE("(%p)->(%p)\n", This, p);
316 
317     nsAString_Init(&nsstr, NULL);
318     if(This->nsframe)
319         nsres = nsIDOMHTMLFrameElement_GetMarginWidth(This->nsframe, &nsstr);
320     else
321         nsres = nsIDOMHTMLIFrameElement_GetMarginWidth(This->nsiframe, &nsstr);
322     if(NS_SUCCEEDED(nsres)) {
323         const PRUnichar *str, *end;
324 
325         nsAString_GetData(&nsstr, &str);
326 
327         if(*str) {
328             BSTR ret;
329 
330             end = strstrW(str, pxW);
331             if(!end)
332                 end = str+strlenW(str);
333             ret = SysAllocStringLen(str, end-str);
334             if(ret) {
335                 V_VT(p) = VT_BSTR;
336                 V_BSTR(p) = ret;
337             }else {
338                 hres = E_OUTOFMEMORY;
339             }
340         }else {
341             V_VT(p) = VT_BSTR;
342             V_BSTR(p) = NULL;
343         }
344     }else {
345         ERR("GetMarginWidth failed: %08x\n", nsres);
346         hres = E_FAIL;
347     }
348 
349     nsAString_Finish(&nsstr);
350     return hres;
351 }
352 
353 static HRESULT WINAPI HTMLFrameBase_put_marginHeight(IHTMLFrameBase *iface, VARIANT v)
354 {
355     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
356     nsAString nsstr;
357     nsresult nsres;
358 
359     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
360 
361     if(V_VT(&v) != VT_BSTR) {
362         FIXME("unsupported %s\n", debugstr_variant(&v));
363         return E_NOTIMPL;
364     }
365 
366     nsAString_InitDepend(&nsstr, V_BSTR(&v));
367     if(This->nsframe)
368         nsres = nsIDOMHTMLFrameElement_SetMarginHeight(This->nsframe, &nsstr);
369     else
370         nsres = nsIDOMHTMLIFrameElement_SetMarginHeight(This->nsiframe, &nsstr);
371     nsAString_Finish(&nsstr);
372     return NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
373 }
374 
375 static HRESULT WINAPI HTMLFrameBase_get_marginHeight(IHTMLFrameBase *iface, VARIANT *p)
376 {
377     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
378     nsAString nsstr;
379     nsresult nsres;
380     HRESULT hres = S_OK;
381 
382     TRACE("(%p)->(%p)\n", This, p);
383 
384     nsAString_Init(&nsstr, NULL);
385     if(This->nsframe)
386         nsres = nsIDOMHTMLFrameElement_GetMarginHeight(This->nsframe, &nsstr);
387     else
388         nsres = nsIDOMHTMLIFrameElement_GetMarginHeight(This->nsiframe, &nsstr);
389     if(NS_SUCCEEDED(nsres)) {
390         const PRUnichar *str, *end;
391 
392         nsAString_GetData(&nsstr, &str);
393 
394         if(*str) {
395             BSTR ret;
396 
397             end = strstrW(str, pxW);
398             if(!end)
399                 end = str+strlenW(str);
400             ret = SysAllocStringLen(str, end-str);
401             if(ret) {
402                 V_VT(p) = VT_BSTR;
403                 V_BSTR(p) = ret;
404             }else {
405                 hres = E_OUTOFMEMORY;
406             }
407         }else {
408             V_VT(p) = VT_BSTR;
409             V_BSTR(p) = NULL;
410         }
411     }else {
412         ERR("SetMarginHeight failed: %08x\n", nsres);
413         hres = E_FAIL;
414     }
415 
416     nsAString_Finish(&nsstr);
417     return hres;
418 }
419 
420 static HRESULT WINAPI HTMLFrameBase_put_noResize(IHTMLFrameBase *iface, VARIANT_BOOL v)
421 {
422     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
423     FIXME("(%p)->(%x)\n", This, v);
424     return E_NOTIMPL;
425 }
426 
427 static HRESULT WINAPI HTMLFrameBase_get_noResize(IHTMLFrameBase *iface, VARIANT_BOOL *p)
428 {
429     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
430     FIXME("(%p)->(%p)\n", This, p);
431     return E_NOTIMPL;
432 }
433 
434 static HRESULT WINAPI HTMLFrameBase_put_scrolling(IHTMLFrameBase *iface, BSTR v)
435 {
436     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
437     nsAString nsstr;
438     nsresult nsres;
439 
440     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
441 
442     if(!(!strcmpiW(v, yesW) || !strcmpiW(v, noW) || !strcmpiW(v, autoW)))
443         return E_INVALIDARG;
444 
445     if(This->nsframe) {
446         nsAString_InitDepend(&nsstr, v);
447         nsres = nsIDOMHTMLFrameElement_SetScrolling(This->nsframe, &nsstr);
448     }else if(This->nsiframe) {
449         nsAString_InitDepend(&nsstr, v);
450         nsres = nsIDOMHTMLIFrameElement_SetScrolling(This->nsiframe, &nsstr);
451     }else {
452         ERR("No attached ns frame object\n");
453         return E_UNEXPECTED;
454     }
455     nsAString_Finish(&nsstr);
456 
457     if(NS_FAILED(nsres)) {
458         ERR("SetScrolling failed: 0x%08x\n", nsres);
459         return E_FAIL;
460     }
461 
462     return S_OK;
463 }
464 
465 static HRESULT WINAPI HTMLFrameBase_get_scrolling(IHTMLFrameBase *iface, BSTR *p)
466 {
467     HTMLFrameBase *This = impl_from_IHTMLFrameBase(iface);
468     nsAString nsstr;
469     const PRUnichar *strdata;
470     nsresult nsres;
471 
472     TRACE("(%p)->(%p)\n", This, p);
473 
474     if(This->nsframe) {
475         nsAString_Init(&nsstr, NULL);
476         nsres = nsIDOMHTMLFrameElement_GetScrolling(This->nsframe, &nsstr);
477     }else if(This->nsiframe) {
478         nsAString_Init(&nsstr, NULL);
479         nsres = nsIDOMHTMLIFrameElement_GetScrolling(This->nsiframe, &nsstr);
480     }else {
481         ERR("No attached ns frame object\n");
482         return E_UNEXPECTED;
483     }
484 
485     if(NS_FAILED(nsres)) {
486         ERR("GetScrolling failed: 0x%08x\n", nsres);
487         nsAString_Finish(&nsstr);
488         return E_FAIL;
489     }
490 
491     nsAString_GetData(&nsstr, &strdata);
492 
493     if(*strdata)
494         *p = SysAllocString(strdata);
495     else
496         *p = SysAllocString(autoW);
497 
498     nsAString_Finish(&nsstr);
499 
500     return *p ? S_OK : E_OUTOFMEMORY;
501 }
502 
503 static const IHTMLFrameBaseVtbl HTMLFrameBaseVtbl = {
504     HTMLFrameBase_QueryInterface,
505     HTMLFrameBase_AddRef,
506     HTMLFrameBase_Release,
507     HTMLFrameBase_GetTypeInfoCount,
508     HTMLFrameBase_GetTypeInfo,
509     HTMLFrameBase_GetIDsOfNames,
510     HTMLFrameBase_Invoke,
511     HTMLFrameBase_put_src,
512     HTMLFrameBase_get_src,
513     HTMLFrameBase_put_name,
514     HTMLFrameBase_get_name,
515     HTMLFrameBase_put_border,
516     HTMLFrameBase_get_border,
517     HTMLFrameBase_put_frameBorder,
518     HTMLFrameBase_get_frameBorder,
519     HTMLFrameBase_put_frameSpacing,
520     HTMLFrameBase_get_frameSpacing,
521     HTMLFrameBase_put_marginWidth,
522     HTMLFrameBase_get_marginWidth,
523     HTMLFrameBase_put_marginHeight,
524     HTMLFrameBase_get_marginHeight,
525     HTMLFrameBase_put_noResize,
526     HTMLFrameBase_get_noResize,
527     HTMLFrameBase_put_scrolling,
528     HTMLFrameBase_get_scrolling
529 };
530 
531 static inline HTMLFrameBase *impl_from_IHTMLFrameBase2(IHTMLFrameBase2 *iface)
532 {
533     return CONTAINING_RECORD(iface, HTMLFrameBase, IHTMLFrameBase2_iface);
534 }
535 
536 static HRESULT WINAPI HTMLFrameBase2_QueryInterface(IHTMLFrameBase2 *iface, REFIID riid, void **ppv)
537 {
538     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
539 
540     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
541 }
542 
543 static ULONG WINAPI HTMLFrameBase2_AddRef(IHTMLFrameBase2 *iface)
544 {
545     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
546 
547     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
548 }
549 
550 static ULONG WINAPI HTMLFrameBase2_Release(IHTMLFrameBase2 *iface)
551 {
552     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
553 
554     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
555 }
556 
557 static HRESULT WINAPI HTMLFrameBase2_GetTypeInfoCount(IHTMLFrameBase2 *iface, UINT *pctinfo)
558 {
559     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
560     FIXME("(%p)\n", This);
561     return E_NOTIMPL;
562 }
563 
564 static HRESULT WINAPI HTMLFrameBase2_GetTypeInfo(IHTMLFrameBase2 *iface, UINT iTInfo,
565         LCID lcid, ITypeInfo **ppTInfo)
566 {
567     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
568     FIXME("(%p)\n", This);
569     return E_NOTIMPL;
570 }
571 
572 static HRESULT WINAPI HTMLFrameBase2_GetIDsOfNames(IHTMLFrameBase2 *iface, REFIID riid,
573         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
574 {
575     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
576     FIXME("(%p)\n", This);
577     return E_NOTIMPL;
578 }
579 
580 static HRESULT WINAPI HTMLFrameBase2_Invoke(IHTMLFrameBase2 *iface, DISPID dispIdMember,
581         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
582         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
583 {
584     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
585     FIXME("(%p)\n", This);
586     return E_NOTIMPL;
587 }
588 
589 static HRESULT WINAPI HTMLFrameBase2_get_contentWindow(IHTMLFrameBase2 *iface, IHTMLWindow2 **p)
590 {
591     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
592 
593     TRACE("(%p)->(%p)\n", This, p);
594 
595     if(This->content_window) {
596         IHTMLWindow2_AddRef(&This->content_window->base.IHTMLWindow2_iface);
597         *p = &This->content_window->base.IHTMLWindow2_iface;
598     }else {
599         WARN("NULL content window\n");
600         *p = NULL;
601     }
602     return S_OK;
603 }
604 
605 static HRESULT WINAPI HTMLFrameBase2_put_onload(IHTMLFrameBase2 *iface, VARIANT v)
606 {
607     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
608 
609     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
610 
611     return set_node_event(&This->element.node, EVENTID_LOAD, &v);
612 }
613 
614 static HRESULT WINAPI HTMLFrameBase2_get_onload(IHTMLFrameBase2 *iface, VARIANT *p)
615 {
616     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
617 
618     TRACE("(%p)->(%p)\n", This, p);
619 
620     return get_node_event(&This->element.node, EVENTID_LOAD, p);
621 }
622 
623 static HRESULT WINAPI HTMLFrameBase2_put_onreadystatechange(IHTMLFrameBase2 *iface, VARIANT v)
624 {
625     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
626     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
627     return E_NOTIMPL;
628 }
629 
630 static HRESULT WINAPI HTMLFrameBase2_get_onreadystatechange(IHTMLFrameBase2 *iface, VARIANT *p)
631 {
632     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
633     FIXME("(%p)->(%p)\n", This, p);
634     return E_NOTIMPL;
635 }
636 
637 static HRESULT WINAPI HTMLFrameBase2_get_readyState(IHTMLFrameBase2 *iface, BSTR *p)
638 {
639     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
640 
641     TRACE("(%p)->(%p)\n", This, p);
642 
643     if(!This->content_window || !This->content_window->base.inner_window->doc) {
644         FIXME("no document associated\n");
645         return E_FAIL;
646     }
647 
648     return IHTMLDocument2_get_readyState(&This->content_window->base.inner_window->doc->basedoc.IHTMLDocument2_iface, p);
649 }
650 
651 static HRESULT WINAPI HTMLFrameBase2_put_allowTransparency(IHTMLFrameBase2 *iface, VARIANT_BOOL v)
652 {
653     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
654 
655     FIXME("(%p)->(%x) semi-stub\n", This, v);
656 
657     return S_OK;
658 }
659 
660 static HRESULT WINAPI HTMLFrameBase2_get_allowTransparency(IHTMLFrameBase2 *iface, VARIANT_BOOL *p)
661 {
662     HTMLFrameBase *This = impl_from_IHTMLFrameBase2(iface);
663 
664     FIXME("(%p)->(%p) semi-stub\n", This, p);
665 
666     *p = VARIANT_TRUE;
667     return S_OK;
668 }
669 
670 static const IHTMLFrameBase2Vtbl HTMLFrameBase2Vtbl = {
671     HTMLFrameBase2_QueryInterface,
672     HTMLFrameBase2_AddRef,
673     HTMLFrameBase2_Release,
674     HTMLFrameBase2_GetTypeInfoCount,
675     HTMLFrameBase2_GetTypeInfo,
676     HTMLFrameBase2_GetIDsOfNames,
677     HTMLFrameBase2_Invoke,
678     HTMLFrameBase2_get_contentWindow,
679     HTMLFrameBase2_put_onload,
680     HTMLFrameBase2_get_onload,
681     HTMLFrameBase2_put_onreadystatechange,
682     HTMLFrameBase2_get_onreadystatechange,
683     HTMLFrameBase2_get_readyState,
684     HTMLFrameBase2_put_allowTransparency,
685     HTMLFrameBase2_get_allowTransparency
686 };
687 
688 HRESULT HTMLFrameBase_QI(HTMLFrameBase *This, REFIID riid, void **ppv)
689 {
690     if(IsEqualGUID(&IID_IHTMLFrameBase, riid)) {
691         TRACE("(%p)->(IID_IHTMLFrameBase %p)\n", This, ppv);
692         *ppv = &This->IHTMLFrameBase_iface;
693     }else if(IsEqualGUID(&IID_IHTMLFrameBase2, riid)) {
694         TRACE("(%p)->(IID_IHTMLFrameBase2 %p)\n", This, ppv);
695         *ppv = &This->IHTMLFrameBase2_iface;
696     }else {
697         return HTMLElement_QI(&This->element.node, riid, ppv);
698     }
699 
700     IUnknown_AddRef((IUnknown*)*ppv);
701     return S_OK;
702 }
703 
704 void HTMLFrameBase_destructor(HTMLFrameBase *This)
705 {
706     if(This->content_window)
707         This->content_window->frame_element = NULL;
708 
709     HTMLElement_destructor(&This->element.node);
710 }
711 
712 void HTMLFrameBase_Init(HTMLFrameBase *This, HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem,
713         dispex_static_data_t *dispex_data)
714 {
715     nsresult nsres;
716 
717     This->IHTMLFrameBase_iface.lpVtbl = &HTMLFrameBaseVtbl;
718     This->IHTMLFrameBase2_iface.lpVtbl = &HTMLFrameBase2Vtbl;
719 
720     HTMLElement_Init(&This->element, doc, nselem, dispex_data);
721 
722     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLFrameElement, (void**)&This->nsframe);
723     if(NS_FAILED(nsres)) {
724         This->nsframe = NULL;
725         nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLIFrameElement, (void**)&This->nsiframe);
726         assert(nsres == NS_OK);
727     }else {
728         This->nsiframe = NULL;
729     }
730 }
731