ICLISITE.CPP

/* 
 * ICLISITE.CPP 
 * Patron Chapter 21 
 * 
 * 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) 
    { 
    //CHAPTER21MOD 
    *ppmk=NULL; 
 
    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; 
 
        case OLEWHICHMK_OBJREL: 
            //This is everything but the filename. 
            if (NULL!=m_pTen->m_pmk) 
                *ppmk=m_pTen->m_pmk; 
 
            break; 
 
        case OLEWHICHMK_OBJFULL: 
            //Concatenate file and relative monikers for this one. 
            if (NULL!=m_pTen->m_pmkFile && NULL!=m_pTen->m_pmk) 
                { 
                return m_pTen->m_pmkFile->ComposeWith 
                    (m_pTen->m_pmk, FALSE, ppmk); 
                } 
 
            break; 
        } 
 
    if (NULL==*ppmk) 
        return ResultFromScode(E_FAIL); 
 
    (*ppmk)->AddRef(); 
    return NOERROR; 
    //End CHAPTER21MOD 
    } 
 
 
 
 
 
 
/* 
 * 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) 
    { 
    //CHAPTER21MOD 
    PCPage  pPage; 
 
    *ppContainer=NULL; 
 
    /* 
     * Here we want to get the interface on the page we're in. 
     * The function we call in CPages does not AddRef the page, but 
     * QueryInterface does. 
     */ 
    m_pTen->m_pPG->IPageGetFromID((DWORD)-1L, &pPage, FALSE); 
 
    if (NULL!=pPage) 
        { 
        return pPage->QueryInterface(IID_IOleItemContainer 
            , (PPVOID)ppContainer); 
        } 
 
    return ResultFromScode(E_FAIL); 
    //End CHAPTER21MOD 
    } 
 
 
 
 
 
 
/* 
 * 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) 
    { 
    //CHAPTER21MOD 
    HWND        hWnd, hWndT; 
    //End CHAPTER21MOD 
 
    /* 
     * 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(); 
 
    //CHAPTER21MOD 
    //For linking to embedding, show the main window. 
    hWndT=GetParent(m_pTen->m_hWnd); 
 
    while (NULL!=hWndT) 
        { 
        hWnd=hWndT; 
        hWndT=GetParent(hWnd); 
        } 
 
    ShowWindow(hWnd, SW_SHOWNOACTIVATE); 
    //End CHAPTER21MOD 
    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); 
    }