dlls/shdocvw/oleobject.c

   1 /*
   2  * Implementation of IOleObject interfaces for IE Web Browser
   3  *
   4  * - IOleObject
   5  * - IOleInPlaceObject
   6  * - IOleControl
   7  *
   8  * Copyright 2001 John R. Sheets (for CodeWeavers)
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2.1 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  23  */
  24
  25 #include <string.h>
  26 #include "wine/debug.h"
  27 #include "shdocvw.h"
  28 #include "ole2.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  31
  32 /**********************************************************************
  33  * Implement the IOleObject interface for the web browser component
  34  *
  35  * Based on DefaultHandler code in dlls/ole32/defaulthandler.c.
  36  */
  37
  38 static ULONG WINAPI WBOOBJ_AddRef(LPOLEOBJECT iface);
  39 static ULONG WINAPI WBOOBJ_Release(LPOLEOBJECT iface);
  40
  41 /************************************************************************
  42  * WBOOBJ_QueryInterface (IUnknown)
  43  *
  44  * Interfaces we need to (at least pretend to) retrieve:
  45  *
  46  *   a6bc3ac0-dbaa-11ce-9de3-00aa004bb851  IID_IProvideClassInfo2
  47  *   b196b283-bab4-101a-b69c-00aa00341d07  IID_IProvideClassInfo
  48  *   cf51ed10-62fe-11cf-bf86-00a0c9034836  IID_IQuickActivate
  49  *   7fd52380-4e07-101b-ae2d-08002b2ec713  IID_IPersistStreamInit
  50  *   0000010a-0000-0000-c000-000000000046  IID_IPersistStorage
  51  *   b196b284-bab4-101a-b69c-00aa00341d07  IID_IConnectionPointContainer
  52  */
  53 static HRESULT WINAPI WBOOBJ_QueryInterface(LPOLEOBJECT iface,
  54                                             REFIID riid, void** ppobj)
  55 {
  56     ICOM_THIS(IOleObjectImpl, iface);
  57
  58     /*
  59      * Perform a sanity check on the parameters.
  60      */
  61     if ((This == NULL) || (ppobj == NULL) )
  62         return E_INVALIDARG;
  63
  64     if (IsEqualGUID (&IID_IPersistStorage, riid))
  65     {
  66         TRACE("Returning IID_IPersistStorage interface\n");
  67         *ppobj = (LPVOID)&SHDOCVW_PersistStorage;
  68         WBOOBJ_AddRef (iface);
  69         return S_OK;
  70     }
  71     else if (IsEqualGUID (&IID_IPersistStreamInit, riid))
  72     {
  73         TRACE("Returning IID_IPersistStreamInit interface\n");
  74         *ppobj = (LPVOID)&SHDOCVW_PersistStreamInit;
  75         WBOOBJ_AddRef (iface);
  76         return S_OK;
  77     }
  78     else if (IsEqualGUID (&IID_IProvideClassInfo, riid))
  79     {
  80         TRACE("Returning IID_IProvideClassInfo interface\n");
  81         *ppobj = (LPVOID)&SHDOCVW_ProvideClassInfo;
  82         WBOOBJ_AddRef (iface);
  83         return S_OK;
  84     }
  85     else if (IsEqualGUID (&IID_IProvideClassInfo2, riid))
  86     {
  87         TRACE("Returning IID_IProvideClassInfo2 interface %p\n",
  88               &SHDOCVW_ProvideClassInfo2);
  89         *ppobj = (LPVOID)&SHDOCVW_ProvideClassInfo2;
  90         WBOOBJ_AddRef (iface);
  91         return S_OK;
  92     }
  93     else if (IsEqualGUID (&IID_IQuickActivate, riid))
  94     {
  95         TRACE("Returning IID_IQuickActivate interface\n");
  96         *ppobj = (LPVOID)&SHDOCVW_QuickActivate;
  97         WBOOBJ_AddRef (iface);
  98         return S_OK;
  99     }
 100     else if (IsEqualGUID (&IID_IConnectionPointContainer, riid))
 101     {
 102         TRACE("Returning IID_IConnectionPointContainer interface\n");
 103         *ppobj = (LPVOID)&SHDOCVW_ConnectionPointContainer;
 104         WBOOBJ_AddRef (iface);
 105         return S_OK;
 106     }
 107     else if (IsEqualGUID (&IID_IOleInPlaceObject, riid))
 108     {
 109         TRACE("Returning IID_IOleInPlaceObject interface\n");
 110         *ppobj = (LPVOID)&SHDOCVW_OleInPlaceObject;
 111         WBOOBJ_AddRef (iface);
 112         return S_OK;
 113     }
 114     else if (IsEqualGUID (&IID_IOleControl, riid))
 115     {
 116         TRACE("Returning IID_IOleControl interface\n");
 117         *ppobj = (LPVOID)&SHDOCVW_OleControl;
 118         WBOOBJ_AddRef (iface);
 119         return S_OK;
 120     }
 121     else if (IsEqualGUID (&IID_IWebBrowser, riid))
 122     {
 123         TRACE("Returning IID_IWebBrowser interface\n");
 124         *ppobj = (LPVOID)&SHDOCVW_WebBrowser;
 125         WBOOBJ_AddRef (iface);
 126         return S_OK;
 127     }
 128     else if (IsEqualGUID (&IID_IDispatch, riid))
 129     {
 130         TRACE("Returning IID_IDispatch interface\n");
 131         *ppobj = (LPVOID)&SHDOCVW_WebBrowser;
 132         WBOOBJ_AddRef (iface);
 133         return S_OK;
 134     }
 135
 136     TRACE ("Failed to find iid = %s\n", debugstr_guid(riid));
 137
 138     return E_NOINTERFACE;
 139 }
 140
 141 /************************************************************************
 142  * WBOOBJ_AddRef (IUnknown)
 143  */
 144 static ULONG WINAPI WBOOBJ_AddRef(LPOLEOBJECT iface)
 145 {
 146     ICOM_THIS(IOleObjectImpl, iface);
 147
 148     TRACE("\n");
 149     return ++(This->ref);
 150 }
 151
 152 /************************************************************************
 153  * WBOOBJ_Release (IUnknown)
 154  */
 155 static ULONG WINAPI WBOOBJ_Release(LPOLEOBJECT iface)
 156 {
 157     ICOM_THIS(IOleObjectImpl, iface);
 158
 159     /* static class, won't be freed */
 160     TRACE("\n");
 161     return --(This->ref);
 162 }
 163
 164 /************************************************************************
 165  * WBOOBJ_SetClientSite (IOleObject)
 166  */
 167 static HRESULT WINAPI WBOOBJ_SetClientSite(LPOLEOBJECT iface,
 168                                            LPOLECLIENTSITE pClientSite)
 169 {
 170     FIXME("stub: (%p, %p)\n", iface, pClientSite);
 171     return S_OK;
 172 }
 173
 174 /************************************************************************
 175  * WBOOBJ_GetClientSite (IOleObject)
 176  */
 177 static HRESULT WINAPI WBOOBJ_GetClientSite(LPOLEOBJECT iface,
 178                                            LPOLECLIENTSITE* ppClientSite)
 179 {
 180     FIXME("stub: (%p)\n", *ppClientSite);
 181     return S_OK;
 182 }
 183
 184 /************************************************************************
 185  * WBOOBJ_SetHostNames (IOleObject)
 186  */
 187 static HRESULT WINAPI WBOOBJ_SetHostNames(LPOLEOBJECT iface, LPCOLESTR szContainerApp,
 188                                           LPCOLESTR szContainerObj)
 189 {
 190     FIXME("stub: (%p, %s, %s)\n", iface, debugstr_w(szContainerApp),
 191           debugstr_w(szContainerObj));
 192     return S_OK;
 193 }
 194
 195 /************************************************************************
 196  * WBOOBJ_Close (IOleObject)
 197  */
 198 static HRESULT WINAPI WBOOBJ_Close(LPOLEOBJECT iface, DWORD dwSaveOption)
 199 {
 200     FIXME("stub: ()\n");
 201     return S_OK;
 202 }
 203
 204 /************************************************************************
 205  * WBOOBJ_SetMoniker (IOleObject)
 206  */
 207 static HRESULT WINAPI WBOOBJ_SetMoniker(LPOLEOBJECT iface,
 208                                         DWORD dwWhichMoniker, IMoniker* pmk)
 209 {
 210     FIXME("stub: (%p, %ld, %p)\n", iface, dwWhichMoniker, pmk);
 211     return S_OK;
 212 }
 213
 214 /************************************************************************
 215  * WBOOBJ_GetMoniker (IOleObject)
 216  *
 217  * Delegate this request to the client site if we have one.
 218  */
 219 static HRESULT WINAPI WBOOBJ_GetMoniker(LPOLEOBJECT iface, DWORD dwAssign,
 220                                         DWORD dwWhichMoniker, LPMONIKER *ppmk)
 221 {
 222     FIXME("stub (%p, %ld, %ld, %p)\n", iface, dwAssign, dwWhichMoniker, ppmk);
 223     return E_FAIL;
 224 }
 225
 226 /************************************************************************
 227  * WBOOBJ_InitFromData (IOleObject)
 228  *
 229  * This method is meaningless if the server is not running
 230  */
 231 static HRESULT WINAPI WBOOBJ_InitFromData(LPOLEOBJECT iface, LPDATAOBJECT pDataObject,
 232                                           BOOL fCreation, DWORD dwReserved)
 233 {
 234     FIXME("stub: (%p, %p, %d, %ld)\n", iface, pDataObject, fCreation, dwReserved);
 235     return OLE_E_NOTRUNNING;
 236 }
 237
 238 /************************************************************************
 239  * WBOOBJ_GetClipboardData (IOleObject)
 240  *
 241  * This method is meaningless if the server is not running
 242  */
 243 static HRESULT WINAPI WBOOBJ_GetClipboardData(LPOLEOBJECT iface, DWORD dwReserved,
 244                                               LPDATAOBJECT *ppDataObject)
 245 {
 246     FIXME("stub: (%p, %ld, %p)\n", iface, dwReserved, ppDataObject);
 247     return OLE_E_NOTRUNNING;
 248 }
 249
 250 /************************************************************************
 251  * WBOOBJ_DoVerb (IOleObject)
 252  */
 253 static HRESULT WINAPI WBOOBJ_DoVerb(LPOLEOBJECT iface, LONG iVerb, struct tagMSG* lpmsg,
 254                                     LPOLECLIENTSITE pActiveSite, LONG lindex,
 255                                     HWND hwndParent, LPCRECT lprcPosRect)
 256 {
 257     FIXME(": stub iVerb = %ld\n", iVerb);
 258     switch (iVerb)
 259     {
 260     case OLEIVERB_INPLACEACTIVATE:
 261         FIXME ("stub for OLEIVERB_INPLACEACTIVATE\n");
 262         break;
 263     case OLEIVERB_HIDE:
 264         FIXME ("stub for OLEIVERB_HIDE\n");
 265         break;
 266     }
 267
 268     return S_OK;
 269 }
 270
 271 /************************************************************************
 272  * WBOOBJ_EnumVerbs (IOleObject)
 273  *
 274  * Delegate to OleRegEnumVerbs.
 275  */
 276 static HRESULT WINAPI WBOOBJ_EnumVerbs(LPOLEOBJECT iface,
 277                                        IEnumOLEVERB** ppEnumOleVerb)
 278 {
 279     TRACE("(%p, %p)\n", iface, ppEnumOleVerb);
 280
 281     return OleRegEnumVerbs(&CLSID_WebBrowser, ppEnumOleVerb);
 282 }
 283
 284 /************************************************************************
 285  * WBOOBJ_EnumVerbs (IOleObject)
 286  */
 287 static HRESULT WINAPI WBOOBJ_Update(LPOLEOBJECT iface)
 288 {
 289     FIXME(": Stub\n");
 290     return E_NOTIMPL;
 291 }
 292
 293 /************************************************************************
 294  * WBOOBJ_IsUpToDate (IOleObject)
 295  *
 296  * This method is meaningless if the server is not running
 297  */
 298 static HRESULT WINAPI WBOOBJ_IsUpToDate(LPOLEOBJECT iface)
 299 {
 300     FIXME("(%p)\n", iface);
 301     return OLE_E_NOTRUNNING;
 302 }
 303
 304 /************************************************************************
 305  * WBOOBJ_GetUserClassID (IOleObject)
 306  */
 307 static HRESULT WINAPI WBOOBJ_GetUserClassID(LPOLEOBJECT iface, CLSID* pClsid)
 308 {
 309     FIXME("stub: (%p, %p)\n", iface, pClsid);
 310     return S_OK;
 311 }
 312
 313 /************************************************************************
 314  * WBOOBJ_GetUserType (IOleObject)
 315  *
 316  * Delegate to OleRegGetUserType.
 317  */
 318 static HRESULT WINAPI WBOOBJ_GetUserType(LPOLEOBJECT iface, DWORD dwFormOfType,
 319                                          LPOLESTR* pszUserType)
 320 {
 321     TRACE("(%p, %ld, %p)\n", iface, dwFormOfType, pszUserType);
 322
 323     return OleRegGetUserType(&CLSID_WebBrowser, dwFormOfType, pszUserType);
 324 }
 325
 326 /************************************************************************
 327  * WBOOBJ_SetExtent (IOleObject)
 328  *
 329  * This method is meaningless if the server is not running
 330  */
 331 static HRESULT WINAPI WBOOBJ_SetExtent(LPOLEOBJECT iface, DWORD dwDrawAspect,
 332                                        SIZEL* psizel)
 333 {
 334     FIXME("stub: (%p, %lx, (%ld x %ld))\n", iface, dwDrawAspect,
 335           psizel->cx, psizel->cy);
 336     return OLE_E_NOTRUNNING;
 337 }
 338
 339 /************************************************************************
 340  * WBOOBJ_GetExtent (IOleObject)
 341  */
 342 static HRESULT WINAPI WBOOBJ_GetExtent(LPOLEOBJECT iface, DWORD dwDrawAspect,
 343                                        SIZEL* psizel)
 344 {
 345     FIXME("stub: (%p, %lx, %p)\n", iface, dwDrawAspect, psizel);
 346     return S_OK;
 347 }
 348
 349 /************************************************************************
 350  * WBOOBJ_Advise (IOleObject)
 351  */
 352 static HRESULT WINAPI WBOOBJ_Advise(LPOLEOBJECT iface, IAdviseSink* pAdvSink,
 353                                     DWORD* pdwConnection)
 354 {
 355     FIXME("stub: (%p, %p, %p)\n", iface, pAdvSink, pdwConnection);
 356     return S_OK;
 357 }
 358
 359 /************************************************************************
 360  * WBOOBJ_Unadvise (IOleObject)
 361  */
 362 static HRESULT WINAPI WBOOBJ_Unadvise(LPOLEOBJECT iface, DWORD dwConnection)
 363 {
 364     FIXME("stub: (%p, %ld)\n", iface, dwConnection);
 365     return S_OK;
 366 }
 367
 368 /************************************************************************
 369  * WBOOBJ_EnumAdvise (IOleObject)
 370  */
 371 static HRESULT WINAPI WBOOBJ_EnumAdvise(LPOLEOBJECT iface, IEnumSTATDATA** ppenumAdvise)
 372 {
 373     FIXME("stub: (%p, %p)\n", iface, ppenumAdvise);
 374     return S_OK;
 375 }
 376
 377 /************************************************************************
 378  * WBOOBJ_GetMiscStatus (IOleObject)
 379  *
 380  * Delegate to OleRegGetMiscStatus.
 381  */
 382 static HRESULT WINAPI WBOOBJ_GetMiscStatus(LPOLEOBJECT iface, DWORD dwAspect,
 383                                            DWORD* pdwStatus)
 384 {
 385     HRESULT hres;
 386
 387     TRACE("(%p, %lx, %p)\n", iface, dwAspect, pdwStatus);
 388
 389     hres = OleRegGetMiscStatus(&CLSID_WebBrowser, dwAspect, pdwStatus);
 390
 391     if (FAILED(hres))
 392         *pdwStatus = 0;
 393
 394     return S_OK;
 395 }
 396
 397 /************************************************************************
 398  * WBOOBJ_SetColorScheme (IOleObject)
 399  *
 400  * This method is meaningless if the server is not running
 401  */
 402 static HRESULT WINAPI WBOOBJ_SetColorScheme(LPOLEOBJECT iface,
 403                                             struct tagLOGPALETTE* pLogpal)
 404 {
 405     FIXME("stub: (%p, %p))\n", iface, pLogpal);
 406     return OLE_E_NOTRUNNING;
 407 }
 408
 409 /**********************************************************************
 410  * IOleObject virtual function table for IE Web Browser component
 411  */
 412
 413 static IOleObjectVtbl WBOOBJ_Vtbl =
 414 {
 415     WBOOBJ_QueryInterface,
 416     WBOOBJ_AddRef,
 417     WBOOBJ_Release,
 418     WBOOBJ_SetClientSite,
 419     WBOOBJ_GetClientSite,
 420     WBOOBJ_SetHostNames,
 421     WBOOBJ_Close,
 422     WBOOBJ_SetMoniker,
 423     WBOOBJ_GetMoniker,
 424     WBOOBJ_InitFromData,
 425     WBOOBJ_GetClipboardData,
 426     WBOOBJ_DoVerb,
 427     WBOOBJ_EnumVerbs,
 428     WBOOBJ_Update,
 429     WBOOBJ_IsUpToDate,
 430     WBOOBJ_GetUserClassID,
 431     WBOOBJ_GetUserType,
 432     WBOOBJ_SetExtent,
 433     WBOOBJ_GetExtent,
 434     WBOOBJ_Advise,
 435     WBOOBJ_Unadvise,
 436     WBOOBJ_EnumAdvise,
 437     WBOOBJ_GetMiscStatus,
 438     WBOOBJ_SetColorScheme
 439 };
 440
 441 IOleObjectImpl SHDOCVW_OleObject = { &WBOOBJ_Vtbl, 1 };
 442
 443
 444 /**********************************************************************
 445  * Implement the IOleInPlaceObject interface
 446  */
 447
 448 static HRESULT WINAPI WBOIPO_QueryInterface(LPOLEINPLACEOBJECT iface,
 449                                             REFIID riid, LPVOID *ppobj)
 450 {
 451     ICOM_THIS(IOleInPlaceObjectImpl, iface);
 452
 453     FIXME("(%p)->(%s,%p),stub!\n", This, debugstr_guid(riid), ppobj);
 454     return E_NOINTERFACE;
 455 }
 456
 457 static ULONG WINAPI WBOIPO_AddRef(LPOLEINPLACEOBJECT iface)
 458 {
 459     ICOM_THIS(IOleInPlaceObjectImpl, iface);
 460
 461     TRACE("\n");
 462     return ++(This->ref);
 463 }
 464
 465 static ULONG WINAPI WBOIPO_Release(LPOLEINPLACEOBJECT iface)
 466 {
 467     ICOM_THIS(IOleInPlaceObjectImpl, iface);
 468
 469     /* static class, won't be freed */
 470     TRACE("\n");
 471     return --(This->ref);
 472 }
 473
 474 static HRESULT WINAPI WBOIPO_GetWindow(LPOLEINPLACEOBJECT iface, HWND* phwnd)
 475 {
 476 #if 0
 477     /* Create a fake window to fool MFC into believing that we actually
 478      * have an implemented browser control.  Avoids the assertion.
 479      */
 480     HWND hwnd;
 481     hwnd = CreateWindowA("BUTTON", "Web Control",
 482                         WS_HSCROLL | WS_VSCROLL | WS_OVERLAPPEDWINDOW,
 483                         CW_USEDEFAULT, CW_USEDEFAULT, 600,
 484                         400, NULL, NULL, NULL, NULL);
 485
 486     *phwnd = hwnd;
 487     TRACE ("Returning hwnd = %d\n", hwnd);
 488 #endif
 489
 490     FIXME("stub HWND* = %p\n", phwnd);
 491     return S_OK;
 492 }
 493
 494 static HRESULT WINAPI WBOIPO_ContextSensitiveHelp(LPOLEINPLACEOBJECT iface,
 495                                                   BOOL fEnterMode)
 496 {
 497     FIXME("stub fEnterMode = %d\n", fEnterMode);
 498     return S_OK;
 499 }
 500
 501 static HRESULT WINAPI WBOIPO_InPlaceDeactivate(LPOLEINPLACEOBJECT iface)
 502 {
 503     FIXME("stub \n");
 504     return S_OK;
 505 }
 506
 507 static HRESULT WINAPI WBOIPO_UIDeactivate(LPOLEINPLACEOBJECT iface)
 508 {
 509     FIXME("stub \n");
 510     return S_OK;
 511 }
 512
 513 static HRESULT WINAPI WBOIPO_SetObjectRects(LPOLEINPLACEOBJECT iface,
 514                                             LPCRECT lprcPosRect, LPCRECT lprcClipRect)
 515 {
 516     FIXME("stub PosRect = %p, ClipRect = %p\n", lprcPosRect, lprcClipRect);
 517     return S_OK;
 518 }
 519
 520 static HRESULT WINAPI WBOIPO_ReactivateAndUndo(LPOLEINPLACEOBJECT iface)
 521 {
 522     FIXME("stub \n");
 523     return S_OK;
 524 }
 525
 526 /**********************************************************************
 527  * IOleInPlaceObject virtual function table for IE Web Browser component
 528  */
 529
 530 static IOleInPlaceObjectVtbl WBOIPO_Vtbl =
 531 {
 532     WBOIPO_QueryInterface,
 533     WBOIPO_AddRef,
 534     WBOIPO_Release,
 535     WBOIPO_GetWindow,
 536     WBOIPO_ContextSensitiveHelp,
 537     WBOIPO_InPlaceDeactivate,
 538     WBOIPO_UIDeactivate,
 539     WBOIPO_SetObjectRects,
 540     WBOIPO_ReactivateAndUndo
 541 };
 542
 543 IOleInPlaceObjectImpl SHDOCVW_OleInPlaceObject = { &WBOIPO_Vtbl, 1 };
 544
 545
 546 /**********************************************************************
 547  * Implement the IOleControl interface
 548  */
 549
 550 static HRESULT WINAPI WBOC_QueryInterface(LPOLECONTROL iface,
 551                                           REFIID riid, LPVOID *ppobj)
 552 {
 553     ICOM_THIS(IOleControlImpl, iface);
 554
 555     FIXME("(%p)->(%s,%p),stub!\n", This, debugstr_guid(riid), ppobj);
 556     return E_NOINTERFACE;
 557 }
 558
 559 static ULONG WINAPI WBOC_AddRef(LPOLECONTROL iface)
 560 {
 561     ICOM_THIS(IOleControlImpl, iface);
 562
 563     TRACE("\n");
 564     return ++(This->ref);
 565 }
 566
 567 static ULONG WINAPI WBOC_Release(LPOLECONTROL iface)
 568 {
 569     ICOM_THIS(IOleControlImpl, iface);
 570
 571     /* static class, won't be freed */
 572     TRACE("\n");
 573     return --(This->ref);
 574 }
 575
 576 static HRESULT WINAPI WBOC_GetControlInfo(LPOLECONTROL iface, LPCONTROLINFO pCI)
 577 {
 578     FIXME("stub: LPCONTROLINFO = %p\n", pCI);
 579     return S_OK;
 580 }
 581
 582 static HRESULT WINAPI WBOC_OnMnemonic(LPOLECONTROL iface, struct tagMSG *pMsg)
 583 {
 584     FIXME("stub: MSG* = %p\n", pMsg);
 585     return S_OK;
 586 }
 587
 588 static HRESULT WINAPI WBOC_OnAmbientPropertyChange(LPOLECONTROL iface, DISPID dispID)
 589 {
 590     FIXME("stub: DISPID = %ld\n", dispID);
 591     return S_OK;
 592 }
 593
 594 static HRESULT WINAPI WBOC_FreezeEvents(LPOLECONTROL iface, BOOL bFreeze)
 595 {
 596     FIXME("stub: bFreeze = %d\n", bFreeze);
 597     return S_OK;
 598 }
 599
 600 /**********************************************************************
 601  * IOleControl virtual function table for IE Web Browser component
 602  */
 603
 604 static IOleControlVtbl WBOC_Vtbl =
 605 {
 606     WBOC_QueryInterface,
 607     WBOC_AddRef,
 608     WBOC_Release,
 609     WBOC_GetControlInfo,
 610     WBOC_OnMnemonic,
 611     WBOC_OnAmbientPropertyChange,
 612     WBOC_FreezeEvents
 613 };
 614
 615 IOleControlImpl SHDOCVW_OleControl = { &WBOC_Vtbl, 1 };