/* Windows Write, Copyright 1985-1992 Microsoft Corporation */ /************************************************************/ /* Some comments on how the Obj subsystem for handling OLE objects is herein implemented. Written (2.14.92) by v-dougk (Doug Kent) Metafile and bitmaps have always been described in the Write file format (and in memory) by a PICINFOX structure. For OLE objects the PICINFOX structure is replaced by the OBJPICINFO structure of the same size. OBJPICINFO has a field (lpObjInfo) which is a pointer to another structure (OBJINFO) which is globally allocated. This structure contains info about the object which doesn't need to be stored in the file with the object data. The object data as obtained from OleSaveToStream() is stored in the Write file format immediately following the OBJPICINFO structure. Object data is not actually written to the file until the user does a File.Save. For a newly-created object, the OBJPICINFO structure is the only data saved until that point. If the object is an unfinished one from an Insert.Object operation, then not even the OBJPICINFO structure is saved. In that case the object is solely represented by the OBJINFO structure until an OLE_CHANGED or OLE_SAVED is received. Then an OBJPICINFO structure is saved to the file. The OBJINFO structures are allocated for all objects when the file is opened. This involves writing new OBJPICINFO data to the doc (with the new lpObjInfo values) on open. This makes the doc dirty, but we reset the doc dirty flag to make it undirty. The lpObjInfo pointers are passed to the OLE create functions for the lpClient value. This is a crucial aspect of the implementation as the CallBack function passes back this pointer, allowing us to identify the object, and query and set its state without having to access the file on disk. As I was not aware of the importance (or existence) of this feature until late, it was patched in. It is not perfectly implemented and could use some polishing. As much as I tried to seamlessly integrate objects into the existing Write architecture, there have been glitches: 1) Writing into the doc as the visible page is being drawn (See ObjLoadObjectInDoc() in DisplayGraphics() in picture.c) tends to screw things up. The drawing code (namely UpdateWw(), expects certain state variables (like the pedls and the pwwds) to be constant during a single call to UpdateWw(). Writing into the doc alters those variables. Workaround uses vfInvalid in ObjSetPicInfo(). 2) Write does not expect data to be entered other than in data currently being displayed on the screen, whereas we frequently operate on objects all over the doc (ObjEnumInDoc()). Workaround is to use ObjCachePara() instead of CachePara(). 3) Asynchronicity wreaks havoc on Write. Since every action in Write is affected by the current state, if an action occurs out of normal sequence, i.e., occurs in an improper state, then blamo big trouble. When events happen recursively state variables cannot be restored without a state 'Pushing and Popping' mechanism. This is especially true for 'cp' variables. cp's are pointers into the document and global cp state variables are ubiguitous. Global cp variables include the selection and undo variables mentioned above, plus many others. See ObjPopParms() and ObjPushParms(). While waiting for an object to release (see WMsgLoop()) we stub out WM_PAINT message responses using the nBlocking variable. Between document opening and closing we set the doc fDisplayable flag to FALSE. NOTE: we ought to do something like this in IDPromptBoxSz() -- many of the asynchronicity problems occur when calling MessageBox() (which yields). Hopefully OLE 2.0 will implement an OleBlockClient() mechanism. Notes on Asynchronicity: Ole calls that require communication with the server may be asynchronous. The following rules apply: 1) Only one asynchronous call at a time may be made for a given object. 2) The OleCreate* calls must complete before some synchronous calls such as OleGetData(). 3) All asynchronous activity must be complete before calling OleRevokeClientDoc. Asynchronous calls return OLE_WAIT_FOR_RELEASE. You don't know that an asynchronous call has completed until the CallBack function receives an OLE_RELEASE message for that object. If you ignore this and issue an offending call for the object, the call will return OLE_BUSY. We deal with these rules by calling OleQueryReleaseStatus to determine whether an object is busy before making any Ole call (see ObjWaitForObject()). If the object is busy then we spin until the object is not busy. After 6 seconds we put up a msg box which, depending on the flags we set, may allow the user to stop waiting and cancel the operation (see notes in fnObjWait()). Note that the OleCreate calls can fail in 3 different ways that aren't documented (not at this point anyway). 1) The call returns error immediately. In this case you mustn't depend on the returned lpObject to be NULL. If it is not NULL, ignore it -- it needn't be deleted. 2) The call returns OLE_WAIT_FOR_RELEASE and eventually you get an OLE_RELEASE and OleQueryReleaseError() is != OLE_OK. In this case you gotta delete the lpObject that was returned by the original call. 3) The call completes, but you receive OLE_CLOSED on the object without receiving OLE_CHANGED. This indicates that for some reason the native data could not be obtained from the server. The object must be deleted in this case. Write currently handles this properly for Insert.Object (OleCreate), but not for other cases (OleCreateFromFile,...). The Links dialog should be optimized so that it doesn't require that all links be loaded at once. The Printing process could use the same optimization. Cutting, copying and pasting works as follows. Any object that exists in docScrap (where clipboard contents are stored) must be a unique object. Thus when we copy we clone any objects in the selection. When we cut we needn't clone since the objects have been deleted from the document. When we paste we clone. Deleted objects and cut objects that get purged from docScrap (and therefore become effectively deleted), are not actually deleted right away. These objects get shovelled into docUndo for access by the Undo function. Even when the objects get purged from docUndo (by another undoable operation), they are still not deleted. These objects never finally get deleted until ObjCollectGarbage() is called. This function is called on a timer about every 5 minutes. It enumerates all documents and deletes any objects not found. The reason for not deleting objects right away is that it would've hurt performance to check the contents of docUndo and docScrap every time they change. It also would've been a nasty programming job since those change points are not localized physically or logically. */ #include "windows.h" #include "mw.h" #include "winddefs.h" #include "obj.h" #include "menudefs.h" #include "cmddefs.h" #include "str.h" #include "objreg.h" #include "docdefs.h" #include "editdefs.h" #include "propdefs.h" #include "wwdefs.h" #include "filedefs.h" #include #include extern struct FCB (**hpfnfcb)[]; HANDLE hlpObjInfo = NULL; // array of allocated ObjInfos LPLPOBJINFO lplpObjInfo = NULL; // array of allocated ObjInfos static BOOL bSavedDoc=FALSE; static BOOL bDontFix=FALSE; int vcObjects=0; // count in doc. Note limit of 32K!!! BOOL fOleEnabled=FALSE; BOOL bKillMe=FALSE; OLECLIENTVTBL clientTbl = {NULL}; OLESTREAMVTBL streamTbl; //LPOLECLIENT lpclient = NULL; LPOLESTREAM lpStream = NULL; OLECLIPFORMAT vcfLink = 0; OLECLIPFORMAT vcfOwnerLink = 0; OLECLIPFORMAT vcfNative = 0; int cOleWait = 0; HWND hwndWait=NULL; BOOL vbObjLinkOnly; int vObjVerb; OBJECTTYPE votObjSelType; ATOM aNewName=NULL; ATOM aOldName=NULL; LHCLIENTDOC lhClientDoc=NULL; BOOL bLinkProps=FALSE; FARPROC lpfnLinkProps=NULL; FARPROC lpfnInvalidLink=NULL; FARPROC lpfnInsertNew=NULL; FARPROC lpfnWaitForObject=NULL; FARPROC lpfnPasteSpecial=NULL; static BOOL WMsgLoop ( BOOL fExitOnIdle, BOOL fIgnoreInput, BOOL bOK2Cancel, LPOLEOBJECT lpObject); BOOL ObjFreeAllObjInfos(); static BOOL ObjUpdateAllOpenObjects(void); int nBlocking=0; // block WM_PAINTS if > 0 static int nWaitingForObject=0; // in ObjWaitForObject() int nGarbageTime=0; extern struct UAB vuab; extern HCURSOR vhcIBeam; extern HCURSOR vhcHourGlass; extern int docUndo; extern struct PAP vpapAbs; extern struct DOD (**hpdocdod)[]; extern struct WWD rgwwd[]; extern BOOL ferror; extern int vfDeactByOtherApp; extern HCURSOR vhcArrow; extern HANDLE hStdTargetDevice; extern typeCP cpMinCur,cpMacCur; BOOL fPropsError=FALSE; static HANDLE hobjStream = NULL; char szOPropMenuStr[21]; char szPPropMenuStr[21]; int ObjPlayEdit=OLEVERB_PRIMARY; int FAR PASCAL CallBack(LPOLECLIENT, OLE_NOTIFICATION, LPOLEOBJECT); /****************************************************************/ /******************** STARTUP/SHUTDOWN **************************/ /****************************************************************/ BOOL ObjInit(HANDLE hInstance) { int bRetval=TRUE; vcfLink = RegisterClipboardFormat("ObjectLink"); vcfNative = RegisterClipboardFormat("Native"); vcfOwnerLink = RegisterClipboardFormat("OwnerLink"); if ((clientTbl.CallBack = MakeProcInstance(CallBack, hInstance)) == NULL) goto error; if ((hobjStream = GlobalAlloc (GMEM_MOVEABLE | GMEM_ZEROINIT, sizeof(OLESTREAM))) == NULL) goto error; ObjSetTargetDevice(FALSE); if((lpStream = (LPOLESTREAM)(GlobalLock(hobjStream))) == NULL) goto error; else { lpStream->lpstbl = (LPOLESTREAMVTBL)&streamTbl; lpStream->lpstbl->Get = MakeProcInstance( (FARPROC)BufReadStream, hInstance ); lpStream->lpstbl->Put = MakeProcInstance( (FARPROC)BufWriteStream, hInstance); //lpStream->lpstbl->Seek = MakeProcInstance( (FARPROC)BufPosStream, hInstance); } /* Initialize the registration database */ RegInit(hINSTANCE); /* commdlg stuff */ OfnInit(hInstance); /* dragdrop */ DragAcceptFiles(hMAINWINDOW,TRUE); if ((hlpObjInfo = GlobalAlloc(GMEM_MOVEABLE|GMEM_ZEROINIT, sizeof(LPOBJINFO))) == NULL) goto error; if ((lplpObjInfo = (LPLPOBJINFO)GlobalLock(hlpObjInfo)) == NULL) goto error; if (LoadString(hInstance, IDSTRMenuVerb, szOPropMenuStr, sizeof(szOPropMenuStr)) == NULL) goto error; if (LoadString(hInstance, IDSTRMenuVerbP, szPPropMenuStr, sizeof(szPPropMenuStr)) == NULL) goto error; #if !defined(SMALL_OLE_UI) lpfnLinkProps = MakeProcInstance(fnProperties, hInstance); #endif lpfnInvalidLink = MakeProcInstance(fnInvalidLink, hInstance); lpfnInsertNew = MakeProcInstance(fnInsertNew, hInstance); lpfnWaitForObject = MakeProcInstance(fnObjWait, hInstance); lpfnPasteSpecial = MakeProcInstance(fnPasteSpecial, hInstance); goto end; error: bRetval = FALSE; ObjShutDown(); end: return bRetval; } void ObjShutDown(void) { extern HANDLE vhMenu; if (vhMenu) DeleteMenu(GetSubMenu(vhMenu,EDIT), EDITMENUPOS, MF_BYPOSITION); if (hobjStream) { if (lpStream) if (lpStream->lpstbl) { if (lpStream->lpstbl->Get) FreeProcInstance((FARPROC)(lpStream->lpstbl->Get)); if (lpStream->lpstbl->Put) FreeProcInstance((FARPROC)(lpStream->lpstbl->Put)); } GlobalUnlock(hobjStream); if (lpStream) GlobalFree(hobjStream); } if (hStdTargetDevice) GlobalFree(hStdTargetDevice); if (clientTbl.CallBack) FreeProcInstance(clientTbl.CallBack); if (lpfnLinkProps) FreeProcInstance(lpfnLinkProps); if (lpfnInvalidLink) FreeProcInstance(lpfnInvalidLink); if (lpfnInsertNew) FreeProcInstance(lpfnInsertNew); if (lpfnWaitForObject) FreeProcInstance(lpfnWaitForObject); if (lpfnPasteSpecial) FreeProcInstance(lpfnPasteSpecial); RegTerm(); /* dragdrop */ DragAcceptFiles(hMAINWINDOW,FALSE); /* make sure all OInfo structures are freed */ ObjFreeAllObjInfos(); if (hlpObjInfo) GlobalFree(hlpObjInfo); } #if 0 BOOL ObjFreeObjInfo(OBJPICINFO *pPicInfo) /* return whether an error */ { LPLPOBJINFO lplpObjTmp; if (lpOBJ_QUERY_INFO(pPicInfo) == NULL) return FALSE; /* find slot in lplpObjInfo and NULL it out */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) if (*lplpObjTmp == lpOBJ_QUERY_INFO(pPicInfo)) { lpOBJ_QUERY_INFO(pPicInfo) = NULL; return ObjDeleteObjInfo(*lplpObjTmp); } Assert(0); // make sure we found it return TRUE; } #endif BOOL ObjUpdateFromObjInfo(OBJPICINFO *pPicInfo) /* update picinfo from objinfo */ { char *pdumb; szOBJNAME szObjName; LPOBJINFO lpObjInfo = lpOBJ_QUERY_INFO(pPicInfo); if (lpObjInfo == NULL) return TRUE; /* we won't do data size, that'll get set in SaveObjectToDoc */ /* object name */ if (lpObjInfo->aObjName) { GetAtomName(lpObjInfo->aObjName,szObjName,sizeof(szObjName)); pPicInfo->dwObjNum = strtoul(szObjName,&pdumb,16); } /* object type */ pPicInfo->objectType = lpObjInfo->objectType; return FALSE; } BOOL ObjUpdateFromPicInfo(OBJPICINFO *pPicInfo,szOBJNAME szObjName) /* update objinfo from picInfo, return szObjName */ { char *pdumb; LPOBJINFO lpObjInfo = lpOBJ_QUERY_INFO(pPicInfo); szOBJNAME szTmp; if (lpObjInfo == NULL) return TRUE; /* object name */ wsprintf(szTmp, "%lx", dwOBJ_QUERY_OBJECT_NUM(pPicInfo)); lpObjInfo->aObjName = AddAtom(szTmp); if (szObjName) lstrcpy(szObjName,szTmp); /* object type */ lpObjInfo->objectType = pPicInfo->objectType; return FALSE; } BOOL ObjFreeObjInfoWithObject(LPOLEOBJECT lpObject) /** Given lpObject, find lpObjInfo for that object and free the ObjInfo. Return whether an error. This deletes objects if not already deleted. **/ { LPLPOBJINFO lplpObjTmp; /* find slot in lplpObjInfo, free it and NULL it out */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) { if ((*lplpObjTmp)->lpobject == lpObject) return ObjDeleteObjInfo(*lplpObjTmp); } #ifdef DEBUG OutputDebugString("No OInfo for object\n\r"); #endif return TRUE; } BOOL ObjDeleteObjInfo(LPOBJINFO lpOInfo) { WORD wSegment; HANDLE hInfo; LPLPOBJINFO lplpObjTmp; #ifdef DEBUG OutputDebugString( (LPSTR) "Nulling objinfo slot.\n\r"); #endif /* find slot in lplpObjInfo, free it and NULL it out */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) { if (*lplpObjTmp == lpOInfo) break; } if (lplpObjTmp == NULL) // hmmm, shouldn't happen { Assert(0); return NULL; } if ((*lplpObjTmp)->aName) DeleteAtom((*lplpObjTmp)->aName); if ((*lplpObjTmp)->aObjName) DeleteAtom((*lplpObjTmp)->aObjName); wSegment = HIWORD(((DWORD)*lplpObjTmp)); *lplpObjTmp = NULL; hInfo = GlobalHandle(wSegment) & 0xFFFFL; return (BOOL)GlobalFree(hInfo); } LPOBJINFO ObjGetObjInfo(szOBJNAME szObjName) /* allocate objinfo, return szObjName if !NULL */ { HANDLE hObjInfo=NULL; DWORD dwCount,dwCountSave; LPLPOBJINFO lplpObjTmp; LPOBJINFO lpObjInfoNew=NULL; if (lplpObjInfo == NULL) return NULL; if ((hObjInfo = GlobalAlloc(GMEM_MOVEABLE|GMEM_ZEROINIT, sizeof(OBJINFO))) == NULL) { /* gotta recover better here !!! (7.5.91) v-dougk */ Error(IDPMTCantRunM); return NULL; } if ((lpObjInfoNew = (LPOBJINFO)GlobalLock(hObjInfo)) == NULL) { /* gotta recover better here !!! (7.5.91) v-dougk */ Error(IDPMTCantRunM); GlobalFree(hObjInfo); return NULL; } /* now add to lplpObjInfo array */ dwCount = dwCountSave = GlobalSize(hlpObjInfo) / sizeof(LPLPOBJINFO); /* find if any NULL slots */ for (lplpObjTmp = lplpObjInfo; dwCount ; --dwCount, ++lplpObjTmp) if (*lplpObjTmp == NULL) break; if (dwCount) // then found a NULL slot { #ifdef DEBUG OutputDebugString( (LPSTR) "Adding objinfo to empty slot.\n\r"); #endif *lplpObjTmp = lpObjInfoNew; } else // gotta reallocate { ++dwCountSave; if ((hlpObjInfo = GlobalRealloc(hlpObjInfo,dwCountSave * sizeof(LPLPOBJINFO),GMEM_MOVEABLE|GMEM_ZEROINIT)) == NULL) { /* gotta recover better here !!! (7.5.91) v-dougk */ GlobalFree(hObjInfo); lplpObjInfo = NULL; Error(IDPMTCantRunM); return NULL; } if ((lplpObjInfo = (LPLPOBJINFO)GlobalLock(hlpObjInfo)) == NULL) { /* gotta recover better here !!! (7.5.91) v-dougk */ GlobalFree(hObjInfo); Error(IDPMTCantRunM); return NULL; } #ifdef DEBUG OutputDebugString( (LPSTR) "Adding objinfo to new slot.\n\r"); #endif /* put new gal in last slot */ lplpObjInfo[dwCountSave-1] = lpObjInfoNew; } if (szObjName) /* make object's unique name */ ObjMakeObjectName(lpObjInfoNew, szObjName); else lpObjInfoNew->aObjName = NULL; /* this is a requirement of the OLECLIENT structure */ lpObjInfoNew->lpvtbl = (LPOLECLIENTVTBL)&clientTbl; return lpObjInfoNew; } BOOL ObjAllocObjInfo(OBJPICINFO *pPicInfo, typeCP cpParaStart, OBJECTTYPE ot, BOOL bInitPicinfo, szOBJNAME szObjName) /* return whether an error */ { if (lpOBJ_QUERY_INFO(pPicInfo) = ObjGetObjInfo(NULL)) { //cpOBJ_QUERY_WHERE(pPicInfo) = cpParaStart; if (bInitPicinfo) /* new object, make a new szObjName, use passed-in ot */ { /* get new values and put into ObjInfo */ if (szObjName) ObjMakeObjectName(lpOBJ_QUERY_INFO(pPicInfo), szObjName); lpOBJ_QUERY_INFO(pPicInfo)->objectType = ot; /* this'll take values from ObjInfo and put into PicInfo */ return GimmeNewPicinfo(pPicInfo,lpOBJ_QUERY_INFO(pPicInfo)); } else // picInfo already has values. Put 'em into ObjInfo { ObjUpdateFromPicInfo(pPicInfo,szObjName); return FALSE; } } else return TRUE; } BOOL ObjCloneObjInfo(OBJPICINFO *pPicInfo, typeCP cpParaStart, szOBJNAME szObjName) /* clone pPicInfo->lpObjInfo */ { if (ObjCopyObjInfo(lpOBJ_QUERY_INFO(pPicInfo), &lpOBJ_QUERY_INFO(pPicInfo), szObjName)) return TRUE; return FALSE; } BOOL ObjCopyObjInfo(LPOBJINFO lpOldObjInfo, LPLPOBJINFO lplpNewObjInfo, szOBJNAME szObjName) /* lpobject field is NULL'd! Atoms are cloned, new unique object name */ { char szTmp[180]; if (lplpObjInfo == NULL) return TRUE; if ((*lplpNewObjInfo = ObjGetObjInfo(NULL)) == NULL) return TRUE; /* copy old stuff over to new */ /* note new will inherit old lpclone if there is one */ **lplpNewObjInfo = *lpOldObjInfo; (*lplpNewObjInfo)->lpobject = NULL; /* clone the utility (class or whatever) name */ if (lpOldObjInfo->aName) { GetAtomName(lpOldObjInfo->aName,szTmp,sizeof(szTmp)); (*lplpNewObjInfo)->aName = AddAtom(szTmp); } /* make a new ObjName if requested */ if (szObjName) /* make object's unique name */ ObjMakeObjectName(*lplpNewObjInfo, szObjName); else (*lplpNewObjInfo)->aObjName = NULL; return FALSE; } BOOL ObjFreeAllObjInfos() /** Return whether an error. **/ { WORD wSegment; HANDLE hInfo; DWORD dwCount; LPLPOBJINFO lplpObjTmp; if (lplpObjInfo == NULL) return FALSE; /* find slot in lplpObjInfo, free it and NULL it out */ dwCount = GlobalSize(hlpObjInfo) / sizeof(LPLPOBJINFO); for (lplpObjTmp = lplpObjInfo; dwCount ; --dwCount, ++lplpObjTmp) { if (*lplpObjTmp) { #ifdef DEBUG OutputDebugString( (LPSTR) "Nulling objinfo slot (from object).\n\r"); #endif /** Delete info about this object. This assumes picinfo will not be reused unless via file.open. **/ if ((*lplpObjTmp)->aName) DeleteAtom((*lplpObjTmp)->aName); if ((*lplpObjTmp)->aObjName) DeleteAtom((*lplpObjTmp)->aObjName); wSegment = HIWORD(((DWORD)*lplpObjTmp)); *lplpObjTmp = NULL; hInfo = GlobalHandle(wSegment) & 0xFFFF; GlobalFree(hInfo); } } return FALSE; } LPLPOBJINFO EnumObjInfos(LPLPOBJINFO lplpObjInfoPrev) { LPLPOBJINFO lplpOIMax; if (lplpObjInfo == NULL) return NULL; if (lplpObjInfoPrev == NULL) // starting out lplpObjInfoPrev = lplpObjInfo; else ++lplpObjInfoPrev; lplpOIMax = (LPLPOBJINFO)((LPSTR)lplpObjInfo + GlobalSize(hlpObjInfo)); for ( ; lplpObjInfoPrev < lplpOIMax ; ++lplpObjInfoPrev) { if (*lplpObjInfoPrev == NULL) continue; else return lplpObjInfoPrev; } return NULL; } void ObjCollectGarbage() { LPLPOBJINFO lplpObjTmp; int nObjCount=0,doc; if (nBlocking) return; StartLongOp(); #ifdef DEBUG OutputDebugString("Collecting Garbage...\n\r"); #endif ObjPushParms(docCur); /* mark all as not in doc */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) { ++nObjCount; (*lplpObjTmp)->fInDoc = FALSE; } if (nObjCount == 0) goto end; /* mark in doc if in */ /* go through all the docs */ for (doc = 0; doc < docMac; doc++) { OBJPICINFO picInfo; typeCP cpPicInfo; if ((doc != docNil) && (**hpdocdod)[doc].hpctb) for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,doc,cp0,CpMacText(doc),&cpPicInfo); ) { if (lpOBJ_QUERY_INFO(&picInfo) == NULL) continue; fOBJ_INDOC(&picInfo) = TRUE; } } /* if not in doc delete */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) { if (!(*lplpObjTmp)->fInDoc) ObjDeleteObject(*lplpObjTmp,TRUE); } end: /* 'til next time... */ nGarbageTime=0; ObjPopParms(TRUE); EndLongOp(vhcArrow); } /****************************************************************/ /********************** OLE DOCUMENT FUNCTIONS ******************/ /****************************************************************/ BOOL ObjClosingDoc(int docOld,LPSTR szNewDocName) /** Clone objects in docScrap from docOld into szNewDocName. Release all objects in docOld. Return whether an error occurred. Error indicates to caller that a new document cannot be opened. No error indicates to caller that a new document *must* be reopened via ObjOpenedDoc() (because all lpObjInfos have been deleted). If szNewDocName is NULL then don't make a new doc. Important point to remember is that for objects whose data has never been saved, there is no recovery from release/delete in an error condition. There is no state to which we can recover in an error condition. This function should not be allowed to exit on the basis of a busy object. **/ { char szTitle[120]; BOOL bRetval=FALSE; OBJPICINFO picInfo; typeCP cpPicInfo; extern int vfScrapIsPic; extern int docScrap; extern int vfOwnClipboard; extern CHAR szUntitled[]; LPOBJINFO lpObjInfo; LPOLEOBJECT lpObject; LHCLIENTDOC lhNewClientDoc=NULL; OLESTATUS olestat; LPLPOBJINFO lplpObjTmp; if (!lhClientDoc) return FALSE; #ifdef DEBUG OutputDebugString( (LPSTR) "Closing Doc\n\r"); #endif /* ensure all async ops are complete */ if (FinishAllAsyncs(TRUE)) { UPDATE_INVALID(); return TRUE; } ++nBlocking; // inhibit repaints /* drag drop */ DragAcceptFiles(hDOCWINDOW,FALSE); if (szNewDocName) /* then we'll be opening another doc soon, so plan ahead */ { if (!szNewDocName[0]) lstrcpy((LPSTR)szTitle,(LPSTR)szUntitled); else lstrcpy((LPSTR)szTitle,szNewDocName); if (ObjError(OleRegisterClientDoc(szDOCCLASS,szTitle,0L,&lhNewClientDoc))) { lhNewClientDoc = NULL; // just in case OLE flatlined goto error; } /** Clone any objects from docScrap into new doc. Since this requires knowing the name of the new doc you would think it should go into ObjOpeningDoc, but it can't. You have to do it *before* releasing the objects below! (Because OleEnumObjects keys off of the lhClientDoc). **/ ObjCloneScrapToNewDoc(lhNewClientDoc); /* ensure all async ops are complete */ if (FinishAllAsyncs(FALSE)) goto error; } /* release objects in docOld (assume not busy) */ if ((**hpdocdod)[docOld].fFormatted) { /* objects are being released/deleted, don't allow display */ (**hpdocdod)[docOld].fDisplayable = FALSE; for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,docOld,cp0,CpMacText(docOld),&cpPicInfo); ) { lpObjInfo=lpOBJ_QUERY_INFO(&picInfo); if (lpObjInfo == NULL) continue; if (lpObjInfo->lpobject == NULL) continue; #ifdef DEBUG OutputDebugString( (LPSTR) "Releasing object\n\r"); #endif switch (olestat = OleRelease(lpObjInfo->lpobject)) { case OLE_OK: lpObjInfo->lpobject = NULL; break; case OLE_WAIT_FOR_RELEASE: lpObjInfo->fCompleteAsync = TRUE; /* No cancel allowed! */ if (ObjWaitForObject(lpObjInfo,FALSE)) goto error; else lpObjInfo->lpobject = NULL; break; } } } if (FinishAllAsyncs(FALSE)) // necessary? goto error; /* delete remaining objects in lhClientDoc (assume not busy) */ lpObject=NULL; do { lpObject=NULL; OleEnumObjects(lhClientDoc,&lpObject); if (lpObject) { lpObjInfo = GetObjInfo(lpObject); switch (olestat = OleDelete(lpObject)) { case OLE_OK: if (lpObjInfo) lpObjInfo->lpobject = NULL; break; case OLE_WAIT_FOR_RELEASE: if (lpObjInfo) { lpObjInfo->fCompleteAsync = TRUE; /* no cancel allowed! */ if (ObjWaitForObject(lpObjInfo,FALSE)) goto error; else lpObjInfo->lpobject = NULL; } else FinishUp(); break; default: ObjError(olestat); goto error; } } } while (lpObject); /* say goodbye to old doc if there was one */ if (!bSavedDoc) { ObjRevertedDoc(); bSavedDoc=FALSE; } #ifdef DEBUG OutputDebugString("Revoking doc\n\r"); #endif if (ObjError(OleRevokeClientDoc(lhClientDoc))) goto error; lhClientDoc = lhNewClientDoc; /** Delete all the lpObjInfos having NULL lpobjects (non-NULLs belong to docScrap). Make damn sure that ObjOpenedDoc is called if this doc is reopened. This is the point of no return. **/ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) if ((*lplpObjTmp)->lpobject == NULL) ObjDeleteObjInfo(*lplpObjTmp); goto end; error: bRetval = TRUE; if (lhNewClientDoc) { OleRevokeClientDoc(lhNewClientDoc); /** If any objects are in the scrap, they must be made to belong to lhClientDoc, or be deleted. **/ ObjCloneScrapToNewDoc(lhClientDoc); } end: --nBlocking; // reenable repaints UPDATE_INVALID(); // let WM_PAINTS get through now that we're no longer blocking return bRetval; } BOOL ObjOpenedDoc(int doc) /* Return whether error that precludes continuing with opening this doc. If an error, then a new doc *must* be opened via ObjOpenedDoc(). We will clean this doc up to closed state if couldn't open it (ie, delete all objects and lpObjInfos). */ { BOOL bRetval=FALSE,bLinkError=FALSE; OBJPICINFO picInfo; typeCP cpPicInfo; BOOL bPrompted=FALSE; char szMsg[cchMaxSz]; extern CHAR szUntitled[]; #ifdef DEBUG OutputDebugString( (LPSTR) "Opened Doc\n\r"); #endif /* prevent display until done updating */ ++nBlocking; StartLongOp(); /* start collection timer all over */ nGarbageTime=0; /* in case contains any picInfos left over from previous doc */ ClobberDoc(docUndo,docNil,cp0,cp0); /* drag drop */ DragAcceptFiles(hDOCWINDOW,TRUE); if (!lhClientDoc) if (ObjError(OleRegisterClientDoc(szDOCCLASS,szUntitled,0L,&lhClientDoc))) goto error; /* Do this first because much code assumes every picInfo has an lpObjInfo associated with it */ if ((**hpdocdod)[doc].fFormatted) { for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,doc,cp0,CpMacText(doc),&cpPicInfo); ) { if (ObjAllocObjInfo(&picInfo,cpPicInfo,picInfo.objectType,FALSE,NULL)) goto error; // this is a real problem condition /* note this makes doc dirty right off the bat, but gotta do it because we gotta save ObjInfo handle in doc. (8.20.91) v-dougk */ if (ObjSetPicInfo(&picInfo, doc, cpPicInfo)) goto error; } /* OK to display. Any error hereafter is not fatal. */ (**hpdocdod)[doc].fDisplayable = TRUE; #if !defined(SMALL_OLE_UI) /**** Now see if links need updating ****/ bDontFix=TRUE; // don't bring up change links on release error if ((**hpdocdod)[doc].fFormatted) for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,doc,cp0,CpMacText(doc),&cpPicInfo); ) { if (otOBJ_QUERY_TYPE(&picInfo) == LINK) if (ObjLoadObjectInDoc(&picInfo, doc, cpPicInfo) != cp0) { OLESTATUS olestat; if (!bPrompted) { LoadString(hINSTANCE, IDSTRUpdateObject, szMsg, sizeof(szMsg)); if (MessageBox(hPARENTWINDOW, (LPSTR)szMsg, (LPSTR)szAppName, MB_YESNO|MB_ICONEXCLAMATION) == IDYES) bPrompted = TRUE; else break; // no updating requested } #ifdef DEBUG OutputDebugString( (LPSTR) "Updating link\n\r"); #endif if (ObjError(OleUpdate(lpOBJ_QUERY_OBJECT(&picInfo)))) { bLinkError = TRUE; fOBJ_BADLINK(&picInfo) = TRUE; // in case didn't get release, gotta set ferror = FALSE; // to reenable error messages } } else /* if load object failed, then give up */ { bLinkError = FALSE; /* Don't put up Links dialog */ goto end; /* Not fatal, though they need to reopen doc after freeing memory */ } } bDontFix=FALSE; #endif } else /* OK to display. */ (**hpdocdod)[doc].fDisplayable = TRUE; goto end; error: bRetval = TRUE; end: if (bLinkError) /* fix 'em */ { if (DialogBox(hINSTANCE, "DTINVALIDLINKS", hPARENTWINDOW, lpfnInvalidLink) == IDD_CHANGE) fnObjProperties(); } --nBlocking; EndLongOp(vhcArrow); UPDATE_INVALID(); // let WM_PAINTS get through now that we're no longer blocking return bRetval; } BOOL ObjSavingDoc(BOOL bFormatted) /* return whether there was an error */ { /* drag drop */ DragAcceptFiles(hDOCWINDOW,FALSE); /* update any other objects */ vcObjects = 0; if (bFormatted) vcObjects = ObjEnumInDoc(docCur,ObjSaveObjectToDoc); return (vcObjects < 0); // return whether error } void ObjSavedDoc(void) { #ifdef DEBUG OutputDebugString( (LPSTR) "Saved Doc\n\r"); #endif if (lhClientDoc) ObjError(OleSavedClientDoc(lhClientDoc)); bSavedDoc=TRUE; /* drag drop */ DragAcceptFiles(hDOCWINDOW,TRUE); } static BOOL ObjUpdateAllOpenObjects(void) /* Update all open embedded objects. Return whether successful. Called on file.close. */ { OBJPICINFO picInfo; typeCP cpPicInfo; BOOL bRetval=TRUE; StartLongOp(); for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,docCur,cp0,CpMacText(docCur),&cpPicInfo); ) { if (((otOBJ_QUERY_TYPE(&picInfo) == NONE) || (otOBJ_QUERY_TYPE(&picInfo) == EMBEDDED)) && (OleQueryOpen(lpOBJ_QUERY_OBJECT(&picInfo)) == OLE_OK)) { fnObjUpdate(lpOBJ_QUERY_INFO(&picInfo)); } } end: /* To make sure we've gotten all messages relevant to calling ObjObjectHasChanged() and setting doc dirty. */ if (FinishAllAsyncs(TRUE)) bRetval = FALSE; EndLongOp(vhcArrow); UPDATE_INVALID(); // let WM_PAINTS get through now that we're no longer blocking return bRetval; } BOOL CloseUnfinishedObjects(BOOL bSaving) /** Used with File.Save or File.Exit. Return TRUE whether should proceed with Save/Exit. **/ { char szMsg[cchMaxSz]; if (ObjContainsOpenEmb(docCur, cp0, CpMacText(docCur),TRUE)) { if (bSaving) LoadString(hINSTANCE, IDPMTSaveOpenEmb, szMsg, sizeof(szMsg)); else LoadString(hINSTANCE, IDPMTExitOpenEmb, szMsg, sizeof(szMsg)); switch (MessageBox(hPARENTWINDOW, (LPSTR)szMsg, (LPSTR)szAppName, MB_YESNOCANCEL)) { case IDYES: return ObjUpdateAllOpenObjects(); case IDNO: default: return TRUE; case IDCANCEL: return FALSE; } } return TRUE; } void ObjRenamedDoc(LPSTR szNewName) { OBJPICINFO picInfo; typeCP cpPicInfo; #ifdef DEBUG OutputDebugString( (LPSTR) "Renamed Doc\n\r"); #endif if (lhClientDoc) ObjError(OleRenameClientDoc(lhClientDoc,szNewName)); /* don't need to do all docs since objects can only be active in docCur */ for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,docCur,cp0,CpMacText(docCur),&cpPicInfo); ) /* ignore return value on purpose */ ObjSetHostNameInDoc(&picInfo,docCur,cpPicInfo); } void ObjRevertedDoc() { #ifdef DEBUG OutputDebugString( (LPSTR) "Reverted Doc\n\r"); #endif if (lhClientDoc) ObjError(OleRevertClientDoc(lhClientDoc)); } /****************************************************************/ /*********************** ERROR HANDLING *************************/ /****************************************************************/ BOOL FAR ObjError(OLESTATUS olestat) { register HWND hWndParent = hPARENTWINDOW; switch (olestat) { case OLE_WAIT_FOR_RELEASE: case OLE_OK: return FALSE; } ferror = FALSE; // to enable error message switch (olestat) { case OLE_ERROR_LAUNCH: Error(IDPMTFailedToLaunchServer); break; case OLE_ERROR_COMM: Error(IDPMTFailedToCommWithServer); break; case OLE_ERROR_MEMORY: Error(IDPMTWinFailure); break; case OLE_BUSY: Error(IDPMTServerBusy); break; case OLE_ERROR_FORMAT: Error(IDPMTFormat); break; case OLE_ERROR_DRAW: Error(IDPMTFailedToDraw); break; default: #ifdef DEBUG ObjPrintError(olestat,FALSE); #endif Error(IDPMTOLEError); break; } return TRUE; } void ObjReleaseError(OLE_RELEASE_METHOD rm) /* There's an async problem here, in that the posted message that invokes this routine may be allowed through by Error() which isn't reentrant (or at least causes problems when called recursively). */ { register HWND hWndParent = hPARENTWINDOW; switch (rm) { case OLE_DELETE: Error(IDPMTFailedToDeleteObject); break; case OLE_LOADFROMSTREAM: Error(IDPMTFailedToReadObject); break; case OLE_LNKPASTE: case OLE_EMBPASTE: Error(IDPMTGetFromClipboardFailed); break; case OLE_ACTIVATE: Error(IDPMTFailedToLaunchServer); break; case OLE_UPDATE: Error(IDPMTFailedToUpdate); break; case OLE_CREATE: case OLE_CREATELINKFROMFILE: case OLE_CREATEFROMFILE: Error(IDPMTFailedToCreateObject); break; case OLE_SETUPDATEOPTIONS: Error(IDPMTImproperLinkOptionsError); break; default: Error(IDPMTOLEError); break; } #ifdef DEBUG ObjPrintError(rm,TRUE); #endif } #ifdef DEBUG void ObjPrintError(WORD olestat, BOOL bRelease) { #define szMsgMax 100 char szError[szMsgMax]; if (!bRelease) wsprintf(szError, "***Ole Error #%d\n\r",olestat); else wsprintf(szError, "***Ole Release Error on Method #%d\n\r",olestat); OutputDebugString(szError); } #endif /****************************************************************/ /***************** ASYNCRONICITY HANDLING ***********************/ /****************************************************************/ int FAR PASCAL CallBack(LPOLECLIENT lpclient, OLE_NOTIFICATION flags, LPOLEOBJECT lpObject) { extern int vdocParaCache; LPOBJINFO lpOInfo = (LPOBJINFO)lpclient; switch(flags) { case OLE_SAVED: case OLE_CLOSED: case OLE_CHANGED: /** Post a message instead of process here because we have to return from CallBack before making any other OLE calls. **/ #ifdef DEBUG OutputDebugString(flags == OLE_CHANGED ? "received OLE_CHANGED\n\r" : flags == OLE_SAVED ? "received OLE_SAVED\n\r" : "received OLE_CLOSED\n\r"); #endif PostMessage(hDOCWINDOW,WM_OBJUPDATE,flags,(DWORD)lpOInfo); break; case OLE_RELEASE: { OLE_RELEASE_METHOD ReleaseMethod = OleQueryReleaseMethod(lpObject); if (!CheckPointer((LPSTR)lpOInfo,1)) return FALSE; lpOInfo->fKillMe = FALSE; // pending async is dead if (lpOInfo->fDeleteMe && (ReleaseMethod != OLE_DELETE)) // not dead enough { PostMessage(hDOCWINDOW,WM_OBJDELETE,1,(DWORD)lpOInfo); return FALSE; // error message will already have been given } if (lpOInfo->fReleaseMe && (ReleaseMethod != OLE_DELETE)) // not dead enough { PostMessage(hDOCWINDOW,WM_OBJDELETE,0,(DWORD)lpOInfo); return FALSE; // error message will already have been given } if (lpOInfo->fFreeMe && (ReleaseMethod == OLE_DELETE)) // on OLE_DELETE release { ObjDeleteObjInfo(lpOInfo); return FALSE; } if (OleQueryReleaseError(lpObject) == OLE_OK) { switch (ReleaseMethod) { case OLE_SETUPDATEOPTIONS: { if (bLinkProps) // we're in Link Properties dialog { PostMessage(hPARENTWINDOW, WM_UPDATELB, 0, 0L); PostMessage(hPARENTWINDOW, WM_COMMAND, IDD_REFRESH, (DWORD)lpOInfo); } } break; case OLE_UPDATE: ObjInvalidateObj(lpObject); break; case OLE_DELETE: // get this for delete and release lpOInfo->lpobject = NULL; break; } } else // release error != OLE_OK { #ifdef DEBUG PostMessage(hDOCWINDOW,WM_OBJERROR,ReleaseMethod,0L); #endif switch(ReleaseMethod) { case OLE_CREATE: case OLE_CREATELINKFROMFILE: case OLE_CREATEFROMFILE: /* OleQueryReleaseError won't help us after callback returns so this is how we tell that the object wasn't created. */ lpOInfo->fDeleteMe = TRUE; // creator should ObjDeleteObject and issue error message break; default: switch (OleQueryReleaseError(lpObject)) { case OLE_ERROR_OPEN: case OLE_ERROR_ADVISE_NATIVE: case OLE_ERROR_ADVISE_PICT: case OLE_ERROR_REQUEST_NATIVE: case OLE_ERROR_REQUEST_PICT: /** Post a message instead of process here because we have to return from CallBack before making any other OLE calls. **/ if (lpOInfo->objectType == LINK) lpOInfo->fBadLink = TRUE; if (bLinkProps) fPropsError = TRUE; // so linkprops knows there was a problem else if (!bDontFix && (lpOInfo->objectType == LINK)) PostMessage(hDOCWINDOW,WM_OBJBADLINK,OleQueryReleaseMethod(lpObject),(DWORD)lpObject); break; } break; } } } break; case OLE_QUERY_RETRY: { Assert(CheckPointer((LPSTR)lpOInfo,1)); if (lpOInfo->fKillMe) { lpOInfo->fKillMe = FALSE; return FALSE; } else if (hwndWait) PostMessage(hwndWait,WM_UKANKANCEL,0,0L); else if (nWaitingForObject == 0) PostMessage(hDOCWINDOW,WM_WAITFORSERVER,TRUE,(DWORD)lpOInfo); return TRUE; } break; case OLE_QUERY_PAINT: return TRUE; break; default: break; } return FALSE; } void ObjObjectHasChanged(int flags, LPOBJINFO lpObjInfo) { typeCP cpParaStart, cpParaCache = vcpFirstParaCache; int docCache = vdocParaCache; OBJPICINFO picInfo; LPOLEOBJECT lpObject = lpObjInfo->lpobject; /** For Embeds (including InsertObject objects): OLE_SAVED is sent with server File.Update (set undo if not NONE) OLE_CHANGED is sent with server File.Save or File.Close (?) with update (set undo if not NONE), or when OleSetData() causes a change in the presentation of the object. OLE_CLOSED is sent when doc closes in server (clear undo if set) For Links: OLE_SAVED is sent with server File.Save (As?) if update_options == update_on_save (that never happens) OLE_CHANGED is sent when something in the server doc changes OLE_CLOSED is never sent **/ Assert(lpObjInfo != NULL); if (lpObjInfo == NULL) return; if (lpObjInfo->objectType == NONE) // result of InsertObject { cpParaStart=lpObjInfo->cpWhere; // note only used here! if (flags == OLE_CLOSED) // delete object { if (lpObject) /* may already be released or deleted */ ObjDeleteObject(lpObjInfo,TRUE); NoUndo(); BringWindowToTop(hMAINWINDOW); } else { extern int vfSeeSel; (**hpdocdod)[docCur].fFormatted = fTrue; /* insert EOL if needed */ if (cpParaStart > cp0) { ObjCachePara(docCur, cpParaStart - 1); if (vcpLimParaCache != cpParaStart) { InsertEolPap(docCur, cpParaStart, &vpapAbs); cpParaStart += ccpEol; } } GimmeNewPicinfo(&picInfo, lpObjInfo); ObjCachePara(docCur,cpParaStart); /* this'll clear selection. */ if (ObjSaveObjectToDoc(&picInfo,docCur,cpParaStart) == cp0) Error(IDPMTFailedToCreateObject); NoUndo(); ObjInvalidatePict(&picInfo,cpParaStart); vfSeeSel = true; /* Tell Idle() to scroll the selection into view */ (**hpdocdod) [docCur].fDirty = TRUE; } } else if (ObjGetPicInfo(lpObject,docCur,&picInfo,&cpParaStart)) { BOOL bSizeChanged; //GetPicInfo(cpParaStart,cpParaStart + cchPICINFOX, docCur, &picInfo); /* invalidate rect before updating size (cause invalidate needs to know old pic size) */ ObjInvalidatePict(&picInfo,cpParaStart); bSizeChanged = ObjUpdatePicSize(&picInfo,cpParaStart); if ((flags == OLE_CHANGED) || (flags == OLE_SAVED) && (otOBJ_QUERY_TYPE(&picInfo) == EMBEDDED)) { NoUndo(); #ifdef DEBUG if (!fOBJ_QUERY_DIRTY_OBJECT(&picInfo)) OutputDebugString( (LPSTR) "Marking object dirty\n\r"); #endif fOBJ_QUERY_DIRTY_OBJECT(&picInfo) = TRUE; #ifdef DEBUG if (!(**hpdocdod) [docCur].fDirty) OutputDebugString( (LPSTR) "Marking doc dirty\n\r"); #endif (**hpdocdod) [docCur].fDirty = TRUE; } if (bSizeChanged) if (ObjSetPicInfo(&picInfo,docCur,cpParaStart)) Error(IDPMTFailedToUpdate); if (otOBJ_QUERY_TYPE(&picInfo) == EMBEDDED) { if (flags == OLE_CLOSED) { //if (fOBJ_QUERY_DIRTY_OBJECT(&picInfo)) BringWindowToTop(hMAINWINDOW); #ifdef UPDATE_UNDO ObjClearUpdateUndo(&picInfo,docCur,cpParaStart); #endif } #ifdef UPDATE_UNDO else if (flags == OLE_SAVED) { ObjSetUpdateUndo(&picInfo,docCur,cpParaStart); SetUndo(uacObjUpdate,docCur,cpParaStart,cp0,docNil,cp0,cp0,0); } #endif } } ObjCachePara(docCache,cpParaCache); // reset state } BOOL ObjUpdatePicSize(OBJPICINFO *pPicInfo, typeCP cpParaStart) /* returns whether size changed */ { int xSize,ySize; BOOL bUpdate = FALSE; /* object may have changed size */ if (!FComputePictSize(pPicInfo, &xSize, &ySize )) Error(IDPMTFailedToUpdate); else bUpdate = (xSize != pPicInfo->dxaSize) || (ySize != pPicInfo->dyaSize); if (bUpdate) { int yOldSize = pPicInfo->dyaSize; pPicInfo->dxaSize = xSize; pPicInfo->dyaSize = ySize; if (yOldSize < pPicInfo->dyaSize) { /* If the picture height was increased, make sure proper EDLs are invalidated. */ typeCP dcp = CpMacText(docCur) - cpParaStart + (typeCP) 1; ObjPushParms(docCur); AdjustCp(docCur, cpParaStart, dcp, dcp); // major async problems here? ObjPopParms(TRUE); } } return bUpdate; } void ObjHandleBadLink(OLE_RELEASE_METHOD rm, LPOLEOBJECT lpObject) { switch (rm) { case OLE_ACTIVATE: case OLE_UPDATE: { typeCP cpParaStart,cpParaCache = vcpFirstParaCache; int docCache = vdocParaCache; OBJPICINFO picInfo; /* don't need to do all docs since objects can only be active in docCur */ if (!ObjGetPicInfo(lpObject,docCur,&picInfo,&cpParaStart)) { /* maybe in scrap, just ignore */ ObjCachePara(docCache,cpParaCache); // reset state return; } ObjCachePara(docCur,cpParaStart); if (FixInvalidLink(&picInfo,docCur,cpParaStart)) switch (rm) { case OLE_ACTIVATE: StartLongOp(); ObjError(OleActivate(lpObject, fOBJ_QUERY_PLAY(&picInfo), TRUE, TRUE, hDOCWINDOW, NULL)); EndLongOp(vhcArrow); break; case OLE_UPDATE: StartLongOp(); ObjError(OleUpdate(lpObject)); EndLongOp(vhcArrow); break; } ObjCachePara(docCache,cpParaCache); // reset state } break; } } BOOL ObjWaitForObject(LPOBJINFO lpObjInfo, BOOL bOK2Cancel) { HCURSOR hCursor = NULL; BOOL bRetval; /** WMsgLoop allows WM_PAINT messages which wreak havoc. Try to recover from the insult. **/ typeCP cpParaCache = vcpFirstParaCache; int docCache = vdocParaCache; LPOLEOBJECT lpObject; if (lpObjInfo == NULL) // shouldn't happen { Assert(0); return FALSE; } /* Since ObjPicEnumInRange returns unloaded picinfo's this is a valid possibility, but we shouldn't be getting called!!! */ Assert(lpObjInfo->lpobject != NULL); Assert (CheckPointer((LPSTR)lpObjInfo,1)); lpObject = lpObjInfo->lpobject; if (!ObjIsValid(lpObject)) { Assert (0); return FALSE; } hCursor = SetCursor(vhcHourGlass); StartLongOp(); bRetval = WMsgLoop(TRUE,TRUE,bOK2Cancel,lpObject); if (hCursor) EndLongOp(hCursor); ObjCachePara(docCache,cpParaCache); // reset state /* problem here is that we may have been waiting for a release or delete */ if (ObjIsValid(lpObject)) { lpObjInfo->fCancelAsync = FALSE; // clear after use lpObjInfo->fCompleteAsync = FALSE; // clear after use lpObjInfo->fCanKillAsync = FALSE; } UPDATE_INVALID(); // let WM_PAINTS get through now that we're no longer blocking return bRetval; } #if 0 BOOL ObjObjectSync(LPOBJINFO lpObjInfo, OLESTATUS (FAR PASCAL *lpProc)(LPOLEOBJECT lpObject), BOOL bOK2Cancel) /* This makes an asynchronous call synchronous. lpProc must have only lpObject as argument. This will block if operation cannot be completed or cancelled. */ { /* caller has set or not set CancelAsync flag for object */ if (ObjWaitForObject(lpObjInfo,bOK2Cancel)) return TRUE; switch((*lpProc)(lpObjInfo->lpobject)) { case OLE_WAIT_FOR_RELEASE: { /* cancel button should only be enabled if this operation can be cancelled. */ lpObjInfo->fCancelAsync = FALSE; // don't cancel automatically lpObjInfo->fCompleteAsync = TRUE; // this op must complete or be cancelled if (ObjWaitForObject(lpObjInfo,TRUE)) return TRUE; /* the trouble with this is that lpObject may now be released (and thus invalid): return ObjError(OleQueryReleaseError(lpObjInfo->lpobject)); */ return FALSE; } case OLE_OK: return FALSE; default: return TRUE; } } #endif #define WM_NCMOUSEFIRST 0x00A0 #define WM_NCMOUSELAST 0x00A9 static BOOL WMsgLoop ( BOOL fExitOnIdle, // if true, return as soon as no messages to process // (not used, assumed FALSE). BOOL fIgnoreInput, // if true, ignore keyboard and mouse input BOOL bOK2Cancel, LPOLEOBJECT lpObject ) { MSG msg; DWORD GetCurrentTime(); DWORD cTime=GetCurrentTime(); BOOL bRetval=FALSE,bBeeped=FALSE; int fParentEnable; extern int flashID; #ifdef DEBUG if (OleQueryReleaseStatus(lpObject) == OLE_BUSY) OutputDebugString("waiting for object\n\r"); #endif ++nBlocking; ferror = FALSE; ++nWaitingForObject; StartLongOp(); while (OleQueryReleaseStatus(lpObject) == OLE_BUSY) { /* put up wait dialog after 6 seconds */ if ((GetCurrentTime() - cTime) > 6000L) { // bring up wait dialog. if (!hwndWait) { if (vfDeactByOtherApp) { if (!bBeeped) // flash until we're activated { fParentEnable = IsWindowEnabled(hMAINWINDOW); //MessageBeep(0); bBeeped = TRUE; if (!fParentEnable) EnableWindow(hMAINWINDOW, TRUE); /* make sure parent window is enabled to let the user click in it */ flashID = 1234; // arbitrary ID SetTimer(hMAINWINDOW, flashID, 500, (FARPROC)NULL); // this'll cause flashing, see mmw.c } } else // Write is active app { if (bBeeped) /* then we've regained the activation */ { if (!fParentEnable) EnableWindow(hMAINWINDOW, FALSE); /* reset */ bBeeped = FALSE; KillTimer(hMAINWINDOW, flashID); flashID = 0; FlashWindow(hMAINWINDOW, FALSE); } if (OleQueryReleaseStatus(lpObject) == OLE_BUSY) { /* this'll set hwndWait */ vbCancelOK = bOK2Cancel; bRetval = DialogBoxParam(hINSTANCE, (LPSTR)"DTWAIT", hPARENTWINDOW, lpfnWaitForObject, (DWORD)lpObject); break; } } } else { bRetval = TRUE; break; } } if (!PeekMessage (&msg, NULL, 0, 0, PM_REMOVE)) { /* No messages, do Idle processing */ /* this is where we'd use ExitOnIdle */ } else { /* The following code will put the app into a sleeping state if the fIgnoreInput flag is set to TRUE. It will allow Quit, DDE, and any other non input messages to be passed along and dispatched but will prohibit the user from interacting with the app. The user can Alt-(sh)Tab, Alt-(sh)Esc, and Ctrl-Esc away from the app as well as use any Windows hot keys to activate other apps */ /* if we pass this test, then the message may be one we can ignore */ if ((fIgnoreInput) && (!(vfDeactByOtherApp && (msg.message == WM_NCLBUTTONDOWN))) && ((msg.message >= WM_NCMOUSEFIRST && msg.message <= WM_NCMOUSELAST) || (msg.message >= WM_KEYFIRST && msg.message <= WM_KEYLAST) || (msg.message >= WM_MOUSEFIRST && msg.message <= WM_MOUSELAST))) { static BOOL fAltCtl = FALSE; if (msg.message != WM_SYSKEYDOWN) continue; // ignore if (msg.wParam == VK_MENU) fAltCtl = TRUE; else if (fAltCtl && msg.wParam != VK_SHIFT) { fAltCtl = FALSE; if (msg.wParam != VK_TAB && msg.wParam != VK_ESCAPE) continue; // ignore } } if ((vfDeactByOtherApp && (msg.message == WM_NCLBUTTONDOWN))) BringWindowToTop(hwndWait ? hwndWait : msg.hwnd); else { TranslateMessage ((LPMSG) &msg); DispatchMessage ((LPMSG) &msg); } } } Assert(hwndWait == NULL); if (bBeeped) // then beeped but done before received activation { if (!fParentEnable) EnableWindow(hMAINWINDOW, FALSE); /* reset */ KillTimer(hMAINWINDOW, flashID); flashID = 0; FlashWindow(hMAINWINDOW, FALSE); } --nBlocking; --nWaitingForObject; EndLongOp(vhcArrow); Assert(nBlocking >= 0); return bRetval; } void FinishUp(void) /* let all pending messages through and return */ /* !!! Note that we may accumulate WM_PAINTS. Caller is responsible for calling UPDATE_INVALID() to catch up on them!!! */ { MSG msg; /* now allow through all messages posted from callback */ ++nBlocking; // block WM_PAINTS while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) { TranslateMessage ((LPMSG) &msg); DispatchMessage ((LPMSG) &msg); } --nBlocking; return FALSE; } BOOL FinishAllAsyncs(BOOL bAllowCancel) /* !!! Note that we may accumulate WM_PAINTS. Caller is responsible for calling UPDATE_INVALID() to catch up on them!!! (see FinishUp()) */ { LPOLEOBJECT lpObject; LPOBJINFO lpObjInfo; /* first make sure all async ops are complete */ lpObject=NULL; do { OleEnumObjects(lhClientDoc,&lpObject); if (lpObject) { lpObjInfo = GetObjInfo(lpObject); if (lpObjInfo) { /* cancel takes us outa here. Pending asyncs will block us. */ if (ObjWaitForObject(lpObjInfo,bAllowCancel)) return TRUE; } else // shouldn't happen, but don't assume for now { Assert(0); if (WMsgLoop(TRUE,TRUE,bAllowCancel,lpObject)) return TRUE; } if (!ObjIsValid(lpObject)) // then got deleted lpObject = NULL; // start over } } while (lpObject); /* let all messages posted from callback get through */ FinishUp(); return FALSE; } static typeCP cpPPSave; static int docPPSave; static struct SEL selPPSave; static int nPushed=FALSE; ObjPushParms(int doc) /* Save selCur and Cache info to reset with Pop after writing to doc. Assumes aren't changing size of doc. */ { if (nPushed) // prevent recursion { #ifdef DEBUG OutputDebugString("Unmatched ObjPushParms\n\r"); #endif return; } ++nPushed; cpPPSave = vcpFirstParaCache; docPPSave = vdocParaCache; selPPSave = selCur; Select(selCur.cpFirst,selCur.cpFirst); // this caches para CachePara(docPPSave,cpPPSave); } ObjPopParms(BOOL bCache) { typeCP cpMac = (**hpdocdod) [docPPSave].cpMac; if (!nPushed) // unmatched push/pops { #ifdef DEBUG OutputDebugString("Unmatched ObjPopParms\n\r"); #endif return; } --nPushed; if (docPPSave == docCur) { if (selPPSave.cpLim > cpMac) selPPSave.cpLim = cpMac; if (cpPPSave > cpMac) cpPPSave = cpMac; } Select(selPPSave.cpFirst,selPPSave.cpLim); // this caches para if (bCache) CachePara(docPPSave,cpPPSave); //(**hpdocdod) [docPPSave].fDirty = TRUE; /* why? */ } void ObjCachePara(int doc, typeCP cp) { typeCP cpMac = (**hpdocdod) [doc].cpMac; typeCP cpMacCurSave = cpMacCur, cpMinCurSave = cpMinCur; if (doc == docNil) return; /** cpMinCur and cpMacCur are the min and mac value for whatever is currently docCur. Their values will be different for the header, footer and regular docs. OBJ code doesn't distinguish. Async operations can happen on any and all cps at once. Gotta set so CachePara wil understand that. **/ cpMinCur = cp0; cpMacCur = cpMac; if (cp >= cpMac) cp = cpMac; else if (cp < cp0) cp = cp0; CachePara(doc,cp); cpMinCur = cpMinCurSave; cpMacCur = cpMacCurSave; } #if 0 void ObjWriteFixup(int doc, BOOL bStart, typeCP cpStart) /* note this must not be called recursively!! It is for use where size of doc may change between bStart=TRUE and bStart=FALSE. */ { static typeCP dcp,cpLim; static struct SEL selSave; typeCP cpMac; /* reset selection accounting for change in size if any */ if (bStart) { cpLim = CpMacText(doc); selSave=selCur; if ((selCur.cpFirst != selCur.cpLim) && (doc == docCur)) Select(selCur.cpFirst,selCur.cpFirst); /* Take down sel before we mess with cp's */ /* select undoes cache */ ObjCachePara(doc,cpStart); } else { cpMac = CpMacText(doc); dcp = cpMac-cpLim; /* change in size of doc */ if (doc == docCur) { if (selSave.cpFirst <= cpStart) { if ((selSave.cpLim) > cpStart) selSave.cpLim += dcp; } else if (selSave.cpFirst > cpStart) /* selection proceeds object */ { selSave.cpFirst += dcp; selSave.cpLim += dcp; } if (selSave.cpFirst > cpMac) selSave.cpFirst = selSave.cpLim = cpMac; else if (selSave.cpLim > cpMac) selSave.cpLim = cpMac; /* this'll cache first para in selection */ if (selSave.cpFirst != selSave.cpLim) Select(selSave.cpFirst,selSave.cpLim); } ObjCachePara(doc,cpStart); /* Fixup Undo pointers */ if (vuab.doc == docCur) { if (doc == docUndo) /* operating on docUndo, cpStart is irrelevant */ vuab.dcp += dcp; else if (doc == docCur) { if (vuab.cp <= cpStart) { /* undo encloses object */ if ((vuab.cp+vuab.dcp) > cpStart) vuab.dcp += dcp; } else if (vuab.cp > cpStart) /* undo proceeds object */ vuab.cp += dcp; } } if (vuab.doc2 == docCur) { if (doc == docUndo) /* operating on docUndo, cpStart is irrelevant */ vuab.dcp += dcp; else if (doc == docCur) { if (vuab.cp2 <= cpStart) { /* undo encloses object */ if ((vuab.cp2+vuab.dcp2) > cpStart) vuab.dcp2 += dcp; } else if (vuab.cp2 > cpStart) /* undo proceeds object */ vuab.cp2 += dcp; } } } } #endif void ObjWriteClearState(int doc) /** Call this before writing asynchronously to doc. In practise, this is being called in synchronous times as well, so higher level code must take care of resetting selection and undo after writing to doc. **/ { typeCP cpSave=vcpFirstParaCache; int docSave=vdocParaCache; if (doc == docCur) { Select(selCur.cpFirst,selCur.cpFirst); /* Take down sel before we mess with cp's */ /* select undoes cache */ ObjCachePara(docSave,cpSave); } //NoUndo(); /** Higher level code must SetUndo *after* calling **/ } LPOBJINFO GetObjInfo(LPOLEOBJECT lpObject) { LPLPOBJINFO lplpObjTmp; for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) if ((*lplpObjTmp)->lpobject == lpObject) return *lplpObjTmp; Assert(0); return NULL; } BOOL ObjIsValid(LPOLEOBJECT lpobj) { if (!CheckPointer((LPSTR)lpobj, 1)) return FALSE; if (OleQueryReleaseStatus(lpobj) == OLE_ERROR_OBJECT) return FALSE; #if 0 // can't depend on this in future version of OLE if (!(((LPRAWOBJECT)lpobj)->objId[0] == 'L' && ((LPRAWOBJECT)lpobj)->objId[1] == 'E')) return FALSE; #endif return TRUE; } #if 0 // these should work, but not using them now LPOBJINFO ObjGetClientInfo(LPOLEOBJECT lpobj) { LPOBJINFO lpObjInfo; if (!CheckPointer((LPSTR)lpobj, 1)) { Assert(0); return NULL; } #if 0 // can't depend on this in future versions of OLE if (!CheckPointer((LPSTR)(((LPRAWOBJECT)lpobj)->lpclient), 1)) { Assert(0); return NULL; } else return (LPOBJINFO)(((LPRAWOBJECT)lpobj)->lpclient); #endif if (*(lpObject->lpvtbl->ObjectLong)(lpObject,OF_GET,(LPLONG)&lpObjInfo) == OLE_OK) return lpClient; else return NULL; } BOOL ObjSetClientInfo(LPOBJINFO lpObjInfoNew, LPOLEOBJECT lpobj) /* return if error */ { if (!CheckPointer((LPSTR)lpobj, 0)) { Assert(0); return TRUE; } if (*(lpObject->lpvtbl->ObjectLong)(lpObject,OF_SET,(LPLONG)&lpObjInfoNew) == OLE_OK) return FALSE; else { Assert(0); return TRUE; } } #endif #if 0 int ObjMarkInDoc(int doc) /* mark as 'InDoc' all objects located in docScrap, all others are marked as not 'InDoc'. Return count of objects in doc. */ { LPLPOBJINFO lplpObjTmp; int nObjCount=0,doc; OBJPICINFO picInfo; typeCP cpPicInfo; /* mark all as not in doc */ for (lplpObjTmp = NULL; lplpObjTmp = EnumObjInfos(lplpObjTmp) ;) { ++nObjCount; (*lplpObjTmp)->fInDoc = FALSE; } if (nObjCount == 0) return 0; for (cpPicInfo = cpNil,nObjCount=0; ObjPicEnumInRange(&picInfo,doc,cp0,CpMacText(doc),&cpPicInfo); ) { if (lpOBJ_QUERY_INFO(&picInfo)) { fOBJ_INDOC(&picInfo) = TRUE; ++nObjCount; } } return nObjCount; } BOOL AllocObjInfos() /* return whether error */ { OBJPICINFO picInfo; typeCP cpPicInfo; int doc; for (doc = 0; doc < docMac; doc++) { if ((doc != docNil) && (**hpdocdod)[doc].hpctb) { for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,doc,cp0,CpMacText(doc),&cpPicInfo); ) { if (picInfo.lpObjInfo) continue; if (ObjAllocObjInfo(&picInfo,cpPicInfo,picInfo.objectType,FALSE,NULL)) return TRUE; /* note this makes doc dirty right off the bat, but gotta do it because we gotta save ObjInfo handle in doc. (8.20.91) v-dougk */ ObjWriteFixup(doc,TRUE,cpPicInfo); if (ObjSetPicInfo(&picInfo, doc, cpPicInfo)) return TRUE; ObjWriteFixup(doc,FALSE,cpPicInfo); } } } } #endif BOOL ObjCloneScrapToNewDoc(LHCLIENTDOC lhNewClientDoc) /* return whether an error */ { szOBJNAME szObjName; OBJPICINFO picInfo; typeCP cpPicInfo; int nCount=0; extern int docScrap; for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,docScrap,cp0,CpMacText(docScrap),&cpPicInfo); ) { szOBJNAME szObjName; LPOBJINFO lpObjInfo = lpOBJ_QUERY_INFO(&picInfo); LPOLEOBJECT lpObject = lpObjInfo->lpobject; OBJPICINFO NewPicInfo = picInfo; #ifdef DEBUG OutputDebugString( (LPSTR) "Cloning object in scrap\n\r"); #endif if (ObjCloneObjInfo(&NewPicInfo, cpPicInfo, szObjName)) goto error; if (ObjError(OleClone(lpObject, (LPOLECLIENT)lpOBJ_QUERY_INFO(&NewPicInfo), lhNewClientDoc,szObjName, &lpOBJ_QUERY_OBJECT(&NewPicInfo)))) goto error; if (ObjSetPicInfo(&NewPicInfo, docScrap, cpPicInfo)) goto error; ObjDeleteObject(lpObjInfo,TRUE); ++nCount; } goto end; error: /* cleanup after failure by deleting docScrap objects */ for (cpPicInfo = cpNil; ObjPicEnumInRange(&picInfo,docScrap,cp0,CpMacText(docScrap),&cpPicInfo); ) { ObjDeleteObject(lpOBJ_QUERY_INFO(&picInfo),TRUE); } ClobberDoc(docScrap,docNil,cp0,cp0); nCount = -1; end: if (nCount) // docScrap has changed NoUndo(); return nCount; }