(FILECREATED "12-Mar-87 14:36:38" ("compiled on " {QV}1.3K>NEXT>RGPATCH017.;4) "12-Nov-85 14:59:23" recompiled exprs: NC.DeleteLink in "LOOPS/KOTO 15-Jan-87 ..." dated "15-Jan-87 19:49:03") (FILECREATED "12-Mar-87 14:36:15" {QV}1.3K>NEXT>RGPATCH017.;4 24220 changes to: (VARS RGPATCH017COMS) (FNS NC.DeleteNoteCards NC.PrintOperationInProgressMsg NC.DeleteNoteCardInternal NC.DeleteNoteCard NC.AssignTitle) previous date: "10-Mar-87 19:39:47" {QV}1.3K>NEXT>RGPATCH017.;1) NC.CopyStructureA0001A0004 D1 (I 0 Card) @i (4 NC.FileBoxP) NIL () NC.CopyStructureA0001 D1 (NAME ERRORSET P 2 \NF P 0 OpInProgress F 3 RootCards F 4 RESETVARSLST F 5 TraversalSpecs F 6 DestinationFileBox F 7 InterestedWindow F 10Q QuietFlg F 11Q RESETY) ` H1gd g` Tcgd go Tc` HHgSddhchd`ho cU3SJd`SJ YIo c Vig`ho c SUU VSWW WoH gci(335Q NC.PrintOperationInProgressMsg 322Q NC.CopyCards 310Q NCP.CollectCards 276Q ERROR! 270Q NC.SelectNoteCards 244Q ERROR! 236Q NC.AskTraversalSpecs 221Q NC.NoteFileFromNoteFileUID 160Q ERROR! 152Q NC.SelectNoteCards 104Q RELEASE.MONITORLOCK 70Q SETTOPVAL 55Q GETTOPVAL 40Q SETTOPVAL 26Q GETTOPVAL 11Q NC.SessionCheckOpInProgress 5 OBTAIN.MONITORLOCK) (341Q DON'T 257Q NC.SelectingCardMenu 254Q NC.CopyStructureA0001A0004 215Q CardObject 204Q NoteFileTYPE# 171Q CardObject 141Q NC.SelectingCardsMenu 113Q US 101Q NC.LockLock 61Q NC.SessionOperationInProgress 51Q NC.SessionOperationInProgress 35Q \RUNNING.PROCESS 32Q NC.SessionProcessInProgress 22Q NC.SessionProcessInProgress 2 NC.LockLock) ( 331Q "Copy Structure" 264Q "Shift-select the FileBox to contain the structure." 233Q (SubBox FiledCard) 146Q "Shift-select the root cards of the structure" 65Q "Copy Structure") NC.CopyStructure D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 QuietFlg I 3 InterestedWindow I 2 TraversalSpecs I 1 DestinationFileBox I 0 RootCards F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CopyStructureA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CopyStructureA0001)) NC.DeleteNoteCardsA0001A0003 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 RESETVARSLST F 7 InterestedWindow F 10Q RESETY) $` U 1HgUgUg hUg` hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJg`ULd`UL [Kg  hVc o``hVc ` HHgU WU oH gci(431Q NC.PrintOperationInProgressMsg 421Q NC.FetchWindow 407Q NC.DeleteNoteCardInternal 372Q RELEASE.MONITORLOCK 326Q NC.NoteFileProp 322Q NC.NoteFileProp 306Q NC.NoteFileFromNoteFileUID 237Q NC.NoteFileFromNoteFileUID 173Q NC.NoteFileFromNoteFileUID 125Q NC.SetUserDataProp 105Q NC.FetchUserDataProp 57Q NC.SetUserDataProp 40Q NC.FetchUserDataProp 12Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (435Q DON'T 401Q US 367Q NC.LockLock 354Q NC.CardBusyList 350Q NC.CardBusyList 345Q \RUNNING.PROCESS 317Q CardProcessInProgressList 302Q CardObject 272Q NoteFileTYPE# 257Q CardObject 253Q \RUNNING.PROCESS 250Q CardProcessInProgressList 233Q CardObject 223Q NoteFileTYPE# 210Q CardObject 167Q CardObject 157Q NoteFileTYPE# 144Q CardObject 140Q NC.ResetCardProcessInProgress 116Q OperationInProgress 102Q OperationInProgress 76Q OperationInProgress 72Q NC.SetUserDataProp 54Q \RUNNING.PROCESS 51Q ProcessInProgress 35Q ProcessInProgress 31Q ProcessInProgress 25Q NC.SetUserDataProp 2 NC.LockLock) ( 425Q "Delete Card" 342Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 122Q "Delete Card") NC.DeleteNoteCardsA0001 D1 (NAME ERRORSET P 20Q RESETZ P 17Q RESETY P 16Q LISPXHIST P 15Q Card P 14Q i P 12Q NumToDelete P 11Q NumSpecified P 10Q CardsToDelete P 7 Card P 6 CardIdentifier P 0 OpInProgress F 21Q InterestedWindow F 22Q CardIdentifiers F 23Q RESETVARSLST F 24Q QuietFlg F 25Q NoGroupConfirmFlg F 26Q NoIndividualConfirmFlg F 27Q DontClearFlg F 30Q RESETY F 31Q LISPXHIST)  ` H3gd g` W&c&gd go W&c&` HHgW$hd`W"o c$W,W*W$ddh kic*c(W$ddhQJPKW$ddh  O _jHOOW*oOol o hoN _qO 'O iol n O i DOd o 6W,&oooW.hO W" hOLMh\[JZ/M&\oOoOOol oOo hoW.hW" VOdOgi OW(W" W(W"ioOo Ok OW(W"i W$_W(0Ol YjI I W"ioOoOo W2!W&og hg_ O O_Ok_~W"oH gc0i(1167Q NC.PrintOperationInProgressMsg 1133Q ERROR! 1124Q RESETRESTORE 1111Q NC.DeleteNoteCardsA0001A0003 1067Q NC.PrintMsg 1036Q \FZEROP 1021Q REMAINDER 1005Q BLOCK 767Q NC.ClearMsg 741Q NC.PrintMsg 713Q NC.SeverAllLinks 675Q NC.UIDPutProp 643Q NC.ClearMsg 640Q NC.AskYesOrNo 621Q CONCAT 603Q CHARACTER 522Q NC.ClearMsg 515Q NC.AskYesOrNo 505Q NC.FetchWindow 452Q NC.CheckForNotReadOnly 443Q NC.FetchWindow 433Q NC.ClearMsg 427Q NC.FetchWindow 421Q DISMISS 412Q NC.PrintMsg 407Q CHARACTER 375Q NC.FetchWindow 366Q NC.TopLevelCardP 355Q NC.CoerceToCard 350Q BLOCK 333Q CONCAT 323Q CHARACTER 253Q LENGTH 243Q LENGTH 174Q LENGTH 145Q NC.SelectNoteCards 106Q RELEASE.MONITORLOCK 71Q SETTOPVAL 56Q GETTOPVAL 40Q SETTOPVAL 26Q GETTOPVAL 11Q NC.SessionCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1173Q DON'T 1117Q ERROR 1106Q INTERNAL 671Q AboutToBeDeletedFlg 664Q CardObject 133Q NC.SelectingCardsMenu 115Q US 103Q NC.LockLock 62Q NC.SessionOperationInProgress 52Q NC.SessionOperationInProgress 35Q \RUNNING.PROCESS 32Q NC.SessionProcessInProgress 22Q NC.SessionProcessInProgress 2 NC.LockLock) ( 1163Q "Delete Note Cards" 1103Q (NC.DeleteNoteCardsA0001A0003) 1063Q " ..." 1055Q " out of " 1047Q "Deleting cards: " 735Q " ..." 727Q "Deleting cards: 1 out of " 626Q "Yes" 615Q " cards? " 607Q "Want to delete the remaining " 576Q " are not deletable." 565Q " cards specified, " 557Q "Out of " 474Q "Yes" 470Q " -- " 464Q "Are you sure you want to delete this?" 447Q "Can't delete cards from a " 402Q "You cannot delete this FileBox." 340Q "Yes" 327Q "Are you sure you want to delete them? " 316Q " cards to delete." 310Q "You've specified " 141Q "Please shift-select the Note Cards to be deleted." 66Q "Delete Note Cards") NC.DeleteNoteCards D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 NoGroupConfirmFlg I 4 QuietFlg I 3 InterestedWindow I 2 DontClearFlg I 1 NoIndividualConfirmFlg I 0 CardIdentifiers F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.DeleteNoteCardsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.DeleteNoteCardsA0001)) NC.DeleteNoteCardA0001 D1 (NAME ERRORSET P 7 \NF P 0 OpInProgress F 10Q CardIdentifier F 11Q RESETVARSLST F 12Q Card F 13Q InterestedWindow F 14Q RESETY) ` W aHgW gW g hW g` hWcgW gW g hW go hWcgW ZOd`JO YIhW \Od`LO [Kg`W ^Od`NO ]Mg  hWco``hWc` HHg~W c cW "Wiol n Wi hibWWo UoooiW  " 160Q "Enter the title for this card" 114Q "Can't change titles for cards in " 62Q (TITLE)) NC.AssignTitleA0001 D1 (NAME ERRORSET P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 \NF P 0 OpInProgress F 12Q Card F 13Q RESETVARSLST F 14Q LISPXHIST F 15Q RESETY)  ` W QHgWgWg hWg` hWcgWgWg hWgo hWcgWNd`WN YIhWNd`WN ZJg`WNd`WN [Kg  hWco``hWc` HHgpWNd`WN \L*WglMWg hnOho WB $WB WB _WB WB WBid WBHd`Vf_< O< O<O< O:_:_@ "O@ O@WB O@O@ O>_>dWBH _(O(*_*WBkO*WB OOO cFi(1514Q NC.CardPartBusy 1500Q NC.SetNewCardFlg 1436Q NC.NoteFileFromNoteFileUID 1412Q NC.DelReferencesToCardFromShowLinks 1375Q NC.DelReferencesToCard 1360Q NC.DelToLink 1351Q NC.ValidLinkP 1333Q NC.DelReferencesToCardFromShowLinks 1316Q NC.DelFromLink 1307Q NC.ValidLinkP 1253Q NC.QuitCard 1243Q NC.CloseAllPropListEditors 1235Q NC.GreyCard 1225Q NC.FetchWindow 1217Q NC.TurnOffDirtyFlgs 1210Q NC.ActiveCardP 1202Q NC.PrintMsg 1142Q NC.PrintMsg 1127Q NC.SetFromLinks 1121Q NC.SetToLinks 1057Q NC.NoteFileFromNoteFileUID 743Q NC.NoteFileFromNoteFileUID 606Q NC.NoteFileFromNoteFileUID 504Q NC.NoteFileFromNoteFileUID 434Q NC.ValidCardP 361Q NC.PrintMsg 347Q NC.AttachPromptWindow 344Q NC.FetchWindow 332Q \NCONC2 236Q \NCONC2 145Q NC.RetrieveFromLinks 137Q NC.RetrieveToLinks 131Q NC.SetBeingDeletedFlg 52Q OBTAIN.MONITORLOCK 45Q NC.FetchMonitor 34Q NC.NoteFileFromNoteFileUID) (1456Q NoteFileDevice 1451Q NoteFile 1432Q CardObject 1403Q Link 1366Q Link 1324Q Link 1274Q NoteFileTYPE# 1261Q CardObject 1077Q NoteFileDevice 1072Q NoteFile 1053Q CardObject 1041Q NoteFileTYPE# 1026Q CardObject 763Q NoteFileDevice 756Q NoteFile 737Q CardObject 725Q NoteFileTYPE# 712Q CardObject 626Q NoteFileDevice 621Q NoteFile 602Q CardObject 570Q NoteFileTYPE# 555Q CardObject 550Q APPLY* 524Q NoteFileDevice 517Q NoteFile 500Q CardObject 466Q NoteFileTYPE# 453Q CardObject 404Q NC.DeactivateCard 300Q Link 204Q Link 30Q CardObject 17Q NoteFileTYPE# 4 CardObject) ( 1177Q "..done." 1137Q "Removing links to and from other cards..." 420Q (SUBSTANCE TOLINKS GLOBALTOLINKS PROPLIST) 412Q (T) 356Q "Collecting write locks..." 264Q (SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS) 170Q (TOLINKS FROMLINKS GLOBALTOLINKS) 62Q (SUBSTANCE TITLE TOLINKS FROMLINKS GLOBALTOLINKS PROPLIST)) NC.DeleteNoteCardInternalA0001 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 RESETVARSLST F 4 Card F 5 LISPXHIST F 6 RESETY) Mg` hhScgTohhScU!Sog hgZ JIc i(104Q ERROR! 76Q RESETRESTORE 64Q NC.DeleteNoteCardInternalA0001A0002 10Q CURSOR) (72Q ERROR 61Q INTERNAL 25Q NC.SetBeingDeletedFlg 5 WAITINGCURSOR 2 CURSOR) ( 56Q (NC.DeleteNoteCardInternalA0001A0002) 32Q (NIL)) NC.DeleteNoteCardInternal D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.DeleteNoteCardInternalA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.DeleteNoteCardInternalA0001)) (PRETTYCOMPRINT RGPATCH017COMS) (RPAQQ RGPATCH017COMS ((* * rg 3/11/87 Fix some bugs in RGPATCH016) (* * changes to NCINTERFACE) (FNS NC.CopyStructure) (* * changes to NCCARDS) (FNS NC.DeleteNoteCards NC.DeleteNoteCard NC.AssignTitle NC.PrintOperationInProgressMsg NC.DeleteLink) (* * new for NCCARDS) (FNS NC.DeleteNoteCardInternal) (* * hack to update existing menus) (P (NLSETQ (EDITV NC.DefaultLeftButtonMenuItems (R NC.DeleteNoteCards NC.DeleteNoteCard)))))) (NLSETQ (EDITV NC.DefaultLeftButtonMenuItems (R NC.DeleteNoteCards NC.DeleteNoteCard))) (PUTPROPS RGPATCH017 COPYRIGHT ("Xerox Corporation" 1987)) NIL