home *** CD-ROM | disk | FTP | other *** search
- /*
- * ICLISITE.CPP
- * Patron Chapter 20
- *
- * Implementation of the IOleClientSite interface for
- * Patron's tenants.
- *
- * Copyright (c)1993-1995 Microsoft Corporation, All Rights Reserved
- *
- * Kraig Brockschmidt, Microsoft
- * Internet : kraigb@microsoft.com
- * Compuserve: >INTERNET:kraigb@microsoft.com
- */
-
-
- #include "patron.h"
-
-
- /*
- * CImpIOleClientSite::CImpIOleClientSite
- * CImpIOleClientSite::~CImpIOleClientSite
- *
- * Parameters (Constructor):
- * pTenant PCTenant of the tenant we're in.
- * pUnkOuter LPUNKNOWN to which we delegate.
- */
-
- CImpIOleClientSite::CImpIOleClientSite(PCTenant pTenant
- , LPUNKNOWN pUnkOuter)
- {
- m_cRef=0;
- m_pTen=pTenant;
- m_pUnkOuter=pUnkOuter;
- return;
- }
-
- CImpIOleClientSite::~CImpIOleClientSite(void)
- {
- return;
- }
-
-
-
-
- /*
- * CImpIOleClientSite::QueryInterface
- * CImpIOleClientSite::AddRef
- * CImpIOleClientSite::Release
- *
- * Purpose:
- * IUnknown members for CImpIOleClientSite object.
- */
-
- STDMETHODIMP CImpIOleClientSite::QueryInterface(REFIID riid
- , PPVOID ppv)
- {
- return m_pUnkOuter->QueryInterface(riid, ppv);
- }
-
-
- STDMETHODIMP_(ULONG) CImpIOleClientSite::AddRef(void)
- {
- ++m_cRef;
- return m_pUnkOuter->AddRef();
- }
-
- STDMETHODIMP_(ULONG) CImpIOleClientSite::Release(void)
- {
- --m_cRef;
- return m_pUnkOuter->Release();
- }
-
-
-
-
- /*
- * CImpIOleClientSite::SaveObject
- *
- * Purpose:
- * Requests that the container call OleSave for the object that
- * lives here. Typically this happens on server shutdown.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::SaveObject(void)
- {
- //We're already set up with the tenant to save; this is trivial.
- m_pTen->Update();
- return NOERROR;
- }
-
-
-
-
-
- /*
- * CImpIOleClientSite::GetMoniker
- *
- * Purpose:
- * Retrieves the moniker for the site in which this object lives,
- * either the moniker relative to the container or the full
- * moniker.
- *
- * Parameters:
- * dwAssign DWORD specifying that the object wants moniker
- * assignment. Yeah. Right. Got any bridges to
- * sell?
- * dwWhich DWORD identifying which moniker the object
- * wants, either the container's moniker, the
- * moniker relative to this client site, or the
- * full moniker.
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::GetMoniker(DWORD dwAssign
- , DWORD dwWhich, LPMONIKER *ppmk)
- {
- *ppmk=NULL;
-
- //CHAPTER20MOD
- /*
- * To support linking as a container we at least have to
- * implement this for OLEWHICKMK_CONTAINER but not for any
- * others. This allows OLE to update absolute monikers when
- * it has to use the relative moniker to locate a link source.
- */
-
- switch (dwWhich)
- {
- case OLEWHICHMK_CONTAINER:
- //This is just the file we're living in.
- if (NULL!=m_pTen->m_pmkFile)
- *ppmk=m_pTen->m_pmkFile;
-
- break;
- }
-
- if (NULL==*ppmk)
- return ResultFromScode(E_FAIL);
-
- (*ppmk)->AddRef();
- return NOERROR;
- //End CHAPTER20MOD
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::GetContainer
- *
- * Purpose:
- * Returns a pointer to the document's IOleContainer interface.
- *
- * Parameters:
- * ppContainer LPOLECONTAINER * in which to return the
- * interface.
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::GetContainer(LPOLECONTAINER
- * ppContainer)
- {
- //Only necessary if you allow linking to embeddings
- *ppContainer=NULL;
- return ResultFromScode(E_NOTIMPL);
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::ShowObject
- *
- * Purpose:
- * Tells the container to bring the object fully into view as much
- * as possible, that is, scroll the document.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::ShowObject(void)
- {
- /*
- * We let the tenant do this, since it can access the current
- * scroll position as a friend of CPages whereas we cannot.
- */
- m_pTen->ShowYourself();
- return NOERROR;
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::OnShowWindow
- *
- * Purpose:
- * Informs the container if the object is showing itself or
- * hiding itself. This is done only in the opening mode and allows
- * the container to know when to shade or unshade the object.
- *
- * Parameters:
- * fShow BOOL indiciating that the object is being shown
- * (TRUE) or hidden (FALSE).
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::OnShowWindow(BOOL fShow)
- {
- //All we have to do is tell the tenant of the open state change.
- m_pTen->ShowAsOpen(fShow);
- return NOERROR;
- }
-
-
-
-
-
-
- /*
- * CImpIOleClientSite::RequestNewObjectLayout
- *
- * Purpose:
- * Called when the object needs more room in the container.
- *
- * Parameters:
- * None
- *
- * Return Value:
- * HRESULT Standard.
- */
-
- STDMETHODIMP CImpIOleClientSite::RequestNewObjectLayout(void)
- {
- return ResultFromScode(E_NOTIMPL);
- }
-