(FILECREATED "16-Sep-87 10:28:17" ("compiled on " {QV}1.3KNEXT>PMIPATCH065.;1) "12-Nov-85 14:59:23" tcompl'd in "LOOPS/KOTO 20-Jul-87 ..." dated "20-Jul-87 19:10:39") (FILECREATED "16-Sep-87 10:27:53" {QV}1.3KNEXT>PMIPATCH065.;1 6942 changes to: (VARS PMIPATCH065COMS) (FNS NC.QuitCard) previous date: "16-Sep-87 10:22:42" {QV}1.3K>LIBRARY>PMIPATCH065.;1) NC.QuitCardA0001 D1 (NAME ERRORSET P 12Q FieldValue P 11Q CardTypeRecord P 10Q CardTypeName P 7 NoteCardType P 6 PropListEditorWindow P 5 \NF P 0 OpInProgress F 13Q Card F 14Q Window F 15Q RESETVARSLST F 16Q InterestedWindow F 17Q ReadOnlyCardFlg F 20Q DontSaveFlg F 21Q Don'tDeactivateFlg F 22Q QuietFlg F 23Q CallCloseWFlg F 24Q DontRecacheFlg F 25Q OperationMsg F 26Q RESETY)  ` W AHgWgWg hWg hWcgWgWg hWgo hWcgWMd`WM YIhWMd`WM ZJgWMd`WM [Kg  hWco`hWc` HHgW cW cWW cWW \WWW g W W 8W"4W0W )W$%Wiol ohghW ZW8W NN W$`W WW  Wnd W *WW `Wg W`W$WW* WWgg WW O! Od _O _dgYOOd O _doO O _dg"oogoOo  OgOg OWkLW&WW W"W W 'W(#W"W WW oH gc,i(1352Q NC.PrintOperationInProgressMsg 1342Q NC.CoerceToInterestedWindow 1326Q NCP.ActivateCards 1307Q NC.TopLevelCardP 1301Q NC.DeactivateCard 1270Q CLOSEW 1241Q NC.GetCardTypeFieldOfSuper 1221Q NC.ReportError 1216Q CONCAT 1143Q NC.ReportError 1140Q CONCAT 1123Q NC.CardTypeRecord 1114Q NC.CardTypeLoader 1051Q NC.CardTypeRecord 1027Q NC.GetType 1010Q WINDOWDELPROP 771Q NC.CardSaveFn 750Q NC.RemoveDELETEMEImageObjsFromCard 732Q NC.TurnOffDirtyFlgs 715Q MOVEW 703Q NC.SetSavedRegion 676Q \INSUREWINDOW 666Q NC.FetchSavedRegion 646Q CLOSEW 635Q NC.PropListEditorOpenP 620Q NC.AskYesOrNo 600Q NC.PrintMsg 575Q CHARACTER 553Q NC.CardSomehowDirtyP 527Q EXPANDW 520Q OPENWP 505Q NC.InsureProperFiling 457Q NC.CoerceToInterestedWindow 444Q NC.FetchWindow 434Q NC.ReadOnlyCardP 413Q RELEASE.MONITORLOCK 365Q THIS.PROCESS 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 270Q THIS.PROCESS 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 60Q THIS.PROCESS 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1356Q DON'T 1236Q QuitFn 1227Q \\FILLME// 1200Q QuitFn 1161Q \\EMPTY// 1151Q NoteCardType 1107Q NoteCardType 1072Q \\EMPTY// 1062Q NoteCardType 1016Q CardObject 1005Q NC.QuitCard 1002Q CLOSEFN 756Q NC.CloseCardsOffScreenFlg 745Q NC.DELETEMEImageObjP 737Q NC.RemoveDELETEMEImageObjsFromCardFlg 657Q NC.CloseCardsOffScreenFlg 611Q Yes 510Q DON'T 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 1346Q "Close Card" 1212Q " still \\EMPTY// after autoloading." 1204Q " of card type " 1175Q "Field name " 1171Q "NC.GetCardTypeField" 1133Q "Cannot find full definition of card type: " 605Q "Want to quit anyway, flushing changes? " 570Q "Card has been changed, but notefile is readonly." 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Close Card") NC.QuitCard D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 ReadOnlyCardFlg P 1 Window P 0 Card I 7 Don'tDeactivateFlg I 6 QuietFlg I 5 OperationMsg I 4 InterestedWindow I 3 DontRecacheFlg I 2 DontSaveFlg I 1 CallCloseWFlg I 0 CardIdentifier F 6 LISPXHIST F 7 RESETVARSLST) *@ !V!Wog hg] ML(45Q ERROR! 40Q RESETRESTORE 26Q NC.QuitCardA0001 3 NC.CoerceToCard) (34Q ERROR 23Q INTERNAL) ( 20Q (NC.QuitCardA0001)) (PRETTYCOMPRINT PMIPATCH065COMS) (RPAQQ PMIPATCH065COMS ((* * pmi 9/16/87: Undoes previous fix to this function. Needed to get NCLOGGER working. It depends on getting the CardObject off of the Window passed in as CardIdentifier.) (* * Changed in NCCARDS) (FNS NC.QuitCard))) (PUTPROPS PMIPATCH065 COPYRIGHT ("Xerox Corporation" 1987)) NIL