(FILECREATED " 2-Apr-87 14:56:29" ("compiled on " {QV}1.3K>NEXT>RHTPATCH235.;2) "12-Nov-85 14:59:23" recompiled changes: NC.RunOpenEvents NC.OpenNoteFile NC.DeleteNoteCards in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 2-Apr-87 14:48:30" {QV}1.3K>NEXT>RHTPATCH235.;2 23331 changes to: (VARS RHTPATCH235COMS) (FNS NC.DeleteNoteCards NC.RunOpenEvents NC.OpenNoteFile) previous date: " 2-Apr-87 14:31:56" {QV}1.3K>NEXT>RHTPATCH235.;1) NC.RunOpenEvents D1 (P 0 OpenEventsCard I 3 InterestedWindow I 2 When I 1 NoteFile I 0 FileName) :Bg3A`@ bgA H H H HoC (67Q NC.EvaluateListCardSubstance 55Q NCP.CacheCards 50Q NCP.ActiveCardP 42Q NCP.ValidCardP 33Q NCP.LookupCardByName 21Q NC.NoteFileFromFileName) (27Q OpenEventsCard 13Q NoteFileTYPE# 3 AFTER) ( 63Q "Evaluating the Open Events card") NC.OpenNoteFileA0003A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 Don'tCheckForTruncationFlg F 4 ReturnValue) Q*QRSlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0003A0006 D1 (NAME ERRORSET F 0 NoteFile) hPo h(20Q NC.ReportError 15Q CONCAT) (4 NoteFile) ( 12Q " is already open for exclusive access. Open failed.") NC.OpenNoteFileA0003A0007 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " failed for unknown reason." 4 "Open of ") NC.OpenNoteFileA0003A0008 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " is bad. Contact a NoteCards wizard." 4 "Header of NoteFile ") NC.OpenNoteFileA0003A0009 D1 (NAME ERRORSET F 0 ReturnValue F 1 FileName) hoPoQ h(20Q NC.ReportError 15Q CONCAT) NIL ( 11Q ") returned by OpenNoteFileFn for NoteFile " 4 "Unknown error code (") NC.OpenNoteFileA0003A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 QuietFlg F 3 InterestedWindow F 4 ReturnValue) .Q*QRSoQl lHci(42Q CONCAT 37Q CHARACTER) (30Q NoteFile 10Q NoteFileDevice 3 NoteFile) ( 24Q "Opening NoteFile ") NC.OpenNoteFileA0003A0012 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQ i(25Q NC.ReportError 22Q CONCAT) (10Q NoteFile) ( 16Q " because " 4 "Build Hash Array failed for NoteFile ") NC.OpenNoteFileA0003 D1 (NAME ERRORSET P 3 NF P 2 Function P 0 OpInProgress F 4 NoteFile F 5 InterestedWindow F 6 ReturnValue F 7 FileName F 10Q QuietFlg F 11Q RESETVARSLST F 12Q Don'tCreateInterfaceFlg F 13Q MenuPosition F 14Q PublicOrPrivate F 15Q ReadOnlyFlg F 16Q CriticalUIDs F 17Q NoteFilesHashArray F 20Q Don'tCacheTypesAndTitlesFlg F 21Q Don'tCreateArrayFlg F 22Q Don'tGetSpecialCardsFlg F 23Q Don'tCreateFlg F 24Q ConvertNoConfirmFlg F 25Q Can'tTruncateFlg F 26Q Don'tCheckForTruncationFlg F 27Q NC.LockLock F 30Q NC.NoteFileBusyList F 31Q NC.NoteFilesHashArray F 32Q RESETY) W. T HdgTgTg hTgo hWcgTgTg hTg hWcoW0c0hWcW. HHgTW T WTWU hTW(WUioWol `I0hQU VUhoWol Ui h6ZdgWTglJgJiIYoi gc VlnVchc WW2[GTK6K .` `ioWl oKol o TUi hVdg&TWW W&W(W"W*WW$UWWWWW, dg%TWW W&W(W"W*WW$UWWWWW, ddg%TWW W&W(W"W*WW$UWWWWW, :dgoi )dgoi goi oi Vc d`ȿU UhoWol Ui VTWTWW2 W"=WUioWl ol oi V`oi hKTW W$TWUoTl W TgTh "WTWU Tc `h`IWTgUlJg+W#UioWl ol Ui TIYU T oH gc4i(1626Q NC.PrintOperationInProgressMsg 1616Q WFROMMENU 1571Q NC.ClearMsg 1563Q NC.PrintMsg 1557Q CHARACTER 1546Q CHARACTER 1446Q NC.SetUpNoteFileInterface 1431Q ADD.PROCESS 1406Q NC.GetSpecialCards 1403Q CONCAT 1400Q CHARACTER 1350Q NC.InstallCriticalUIDsInNoteFile 1336Q NC.OpenNoteFileA0003A0012 1316Q NC.OpenNoteFileA0003A0010 1305Q NC.PrintMsg 1301Q CHARACTER 1270Q CHARACTER 1242Q NC.StoreNoteFileInHashArray 1210Q NC.ClearMsg 1202Q NC.PrintMsg 1176Q CHARACTER 1153Q WINDOWP 1127Q NC.OpenNoteFileA0003A0009 1116Q NC.OpenNoteFileA0003A0008 1077Q NC.OpenNoteFileA0003A0007 1056Q NC.OpenNoteFileA0003A0006 1035Q NC.ProcessNoteFileNeedsTruncationError 763Q NC.ProcessNoteFileNeedsConversionError 710Q NC.ProcessNoteFileNotFoundError 632Q NC.CloseNoteFile 623Q NC.PrintMsg 613Q CHARACTER 570Q CHARACTER 550Q FLASHW 536Q NC.NoteFileOpenP 445Q NC.OpenNoteFileA0003A0004 363Q NC.ClearMsg 355Q NC.PrintMsg 351Q CHARACTER 322Q WINDOWP 277Q NC.PrintMsg 273Q CHARACTER 230Q NC.SetUpNoteFileInterface 215Q NC.NoteFileOpenP 210Q NC.InstallDeviceVectorInNoteFile 166Q RELEASE.MONITORLOCK 143Q THIS.PROCESS 123Q NC.NoteFileProp 120Q THIS.PROCESS 104Q NC.NoteFileProp 55Q NC.NoteFileProp 35Q NC.NoteFileProp 11Q NC.NoteFileCheckOpInProgress 4 OBTAIN.MONITORLOCK) (1632Q DON'T 1611Q NoteFile 1521Q DON'T 1510Q AFTER 1467Q NC.OpenNoteFileFns 1461Q NoteFileTYPE# 1453Q NC.LastNoteFileOpened 1422Q NC.CacheTypesAndTitles 1417Q NoteFile 1371Q NoteFile 1324Q NoteFileTYPE# 1222Q NoteFile 1141Q NoteFileTYPE# 1104Q NoteFileHeaderBad 1064Q NoteFileOpenFailed 1043Q NoteFileAlreadyOpen 771Q NoteFileNeedsTruncation 717Q NoteFileNeedsConversion 644Q NoteFileNotFound 600Q NoteFile 554Q PROMPTWINDOW 545Q PROMPTWINDOW 523Q NoteFile 515Q NoteFile 451Q NoteFileOpenFailed 420Q DON'T 410Q BEFORE 376Q DON'T 303Q NC.OpenNoteFileFns 241Q NoteFile 175Q US 115Q ProcessInProgress 101Q ProcessInProgress 75Q ProcessInProgress 71Q NC.NoteFileProp 46Q OperationInProgress 32Q OperationInProgress 26Q OperationInProgress 22Q NC.NoteFileProp) ( 1622Q "Open NoteFile" 1552Q "Done." 1537Q "Opening NoteFile: " 1365Q "Opening NoteFile: " 1332Q (NC.OpenNoteFileA0003A0012) 1312Q (NC.OpenNoteFileA0003A0010) 1274Q "Building index array ..." 1261Q "Opening NoteFile: " 1171Q "." 1163Q "Open canceled for NoteFile " 1123Q (NC.OpenNoteFileA0003A0009) 1112Q (NC.OpenNoteFileA0003A0008) 1073Q (NC.OpenNoteFileA0003A0007) 1052Q (NC.OpenNoteFileA0003A0006) 617Q "and has the same UID." 606Q " is already open " 574Q "because " 561Q "Couldn't open " 441Q (NC.OpenNoteFileA0003A0004) 344Q "." 336Q "Open canceled for NoteFile " 266Q " ..." 260Q "Opening NoteFile: " 140Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 52Q "Open NoteFile") NC.OpenNoteFile D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 3 CriticalUIDs P 2 ReturnValue P 1 FileName P 0 NoteFile I 16Q Don'tCheckForTruncationFlg I 15Q ReadOnlyFlg I 14Q QuietFlg I 13Q MenuPosition I 12Q PublicOrPrivate I 11Q InterestedWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Can'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 ConvertNoConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFileOrFileName F 10Q LISPXHIST F 11Q RESETVARSLST) P@d`ooihdG Yh@`@I ``dL*XdIG H bW!Wog hg_ ON(175Q ERROR! 167Q RESETRESTORE 154Q NC.OpenNoteFileA0003 130Q NC.CoerceToInterestedWindow 123Q OPENWP 66Q NC.NoteFileFromFileName 44Q NC.DatabaseFileName) (162Q ERROR 151Q INTERNAL 113Q NoteFile 77Q NoteFileDeviceTYPE# 73Q NoteFileTYPE# 55Q NoteFileTYPE# 15Q NoteFile 10Q NoteFileTYPE#) ( 146Q (NC.OpenNoteFileA0003) 33Q " -- " 27Q "Name of NoteFile to open:") NC.EvaluateListCardSubstanceA0001 D1 (NAME ERRORSET F 0 Card) P d hh(11Q ERRORSET 3 NCP.CardSubstance) NIL () NC.EvaluateListCardSubstance D1 (I 2 InterestedWindow I 1 Message I 0 Card) B@ bABhA oi (31Q NC.EvaluateListCardSubstanceA0001 20Q NC.PrintMsg 5 NC.CoerceToInterestedWindow) NIL ( 25Q (NC.EvaluateListCardSubstanceA0001)) NC.DeleteNoteCardsA0001A0003 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 RESETVARSLST F 7 NC.LockLock F 10Q NC.CardBusyList F 11Q InterestedWindow F 12Q QuietFlg F 13Q RESETY) %W U 1HgUgUg hUg hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJgULd`UL [Kg  hVc oWchVc W HHgUWWi WU oH gci(432Q NC.PrintOperationInProgressMsg 422Q NC.FetchWindow 410Q NC.DeleteNoteCardInternal 366Q RELEASE.MONITORLOCK 344Q THIS.PROCESS 325Q NC.NoteFileProp 321Q NC.NoteFileProp 305Q NC.NoteFileFromNoteFileUID 252Q THIS.PROCESS 236Q NC.NoteFileFromNoteFileUID 172Q NC.NoteFileFromNoteFileUID 124Q NC.SetUserDataProp 104Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (436Q DON'T 375Q US 316Q CardProcessInProgressList 301Q CardObject 271Q NoteFileTYPE# 256Q CardObject 247Q CardProcessInProgressList 232Q CardObject 222Q NoteFileTYPE# 207Q CardObject 166Q CardObject 156Q NoteFileTYPE# 143Q CardObject 137Q NC.ResetCardProcessInProgress 115Q OperationInProgress 101Q OperationInProgress 75Q OperationInProgress 71Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 426Q "Delete Card" 341Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 121Q "Delete Card") NC.DeleteNoteCardsA0001 D1 (NAME ERRORSET L (0 NIL) P 17Q RESETZ P 16Q RESETY P 15Q LISPXHIST P 14Q Card P 13Q i P 10Q NumToDelete P 7 NumSpecified P 6 CardsToDelete P 5 Card P 4 CardIdentifier F 20Q InterestedWindow F 21Q CardIdentifiers F 22Q QuietFlg F 23Q NoGroupConfirmFlg F 24Q NoIndividualConfirmFlg F 25Q DontClearFlg F 26Q RESETY F 27Q LISPXHIST F 30Q RESETVARSLST)  W"hd`W o c"W(W&W"ddh kic&c$W"ddhQHOIW"ddh " N _j=OOW&oOol o hoL ]kM %M iol n M i AMd o 4W(%oooW*hM W hMJKhZYHX7K&ZoOoOOol oOo hoW*hW RNdMgi NW$W W$W ioOo Nk OW$W i W"c,i_W$3Ol _jO!O W ioOoOo W.!W0og hg_ OO_Ok_z(1000Q ERROR! 771Q RESETRESTORE 756Q NC.DeleteNoteCardsA0001A0003 734Q NC.PrintMsg 703Q \FZEROP 663Q REMAINDER 647Q BLOCK 630Q NC.ClearMsg 603Q NC.PrintMsg 555Q NC.SeverExternalLinks 540Q NC.UIDPutProp 510Q NC.ClearMsg 505Q NC.AskYesOrNo 466Q CONCAT 450Q CHARACTER 370Q NC.ClearMsg 363Q NC.AskYesOrNo 353Q NC.FetchWindow 321Q NC.CheckForNotReadOnly 312Q NC.FetchWindow 303Q NC.ClearMsg 277Q NC.FetchWindow 272Q DISMISS 263Q NC.PrintMsg 260Q CHARACTER 246Q NC.FetchWindow 240Q NC.TopLevelCardP 231Q NC.CoerceToCard 224Q BLOCK 207Q CONCAT 177Q CHARACTER 127Q LENGTH 120Q LENGTH 51Q LENGTH 22Q NC.SelectNoteCards) (764Q ERROR 753Q INTERNAL 534Q AboutToBeDeletedFlg 527Q CardObject 10Q NC.SelectingCardsMenu) ( 750Q (NC.DeleteNoteCardsA0001A0003) 730Q " ..." 722Q " out of " 714Q "Deleting cards: " 577Q " ..." 571Q "Deleting cards: 1 out of " 473Q "Yes" 462Q " cards? " 454Q "Want to delete the remaining " 443Q " are not deletable." 432Q " cards specified, " 424Q "Out of " 343Q "Yes" 337Q " -- " 333Q "Are you sure you want to delete this?" 316Q "Can't delete cards from a " 253Q "You cannot delete this FileBox." 214Q "Yes" 203Q "Are you sure you want to delete them? " 172Q " cards to delete." 164Q "You've specified " 16Q "Please shift-select the Note Cards to be deleted.") NC.DeleteNoteCards D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 NC.SelectNoteCardsResetVar I 5 NoGroupConfirmFlg I 4 QuietFlg I 3 InterestedWindow I 2 DontClearFlg I 1 NoIndividualConfirmFlg I 0 CardIdentifiers F 4 LISPXHIST) 'T!gog hg[ KJ(42Q ERROR! 35Q NAMED-RESETRESTORE 23Q NC.DeleteNoteCardsA0001) (31Q ERROR 20Q INTERNAL 11Q NC.SelectNoteCardsResetVar) ( 15Q (NC.DeleteNoteCardsA0001)) (PRETTYCOMPRINT RHTPATCH235COMS) (RPAQQ RHTPATCH235COMS ((* * Fixed bug whereby extra prompt window comes up over notefile icon. Also fixes args passed to NC.DeleteNoteCardInternal from NC.DeleteNoteCards.) (* * Changes to NCDATABASE) ( FNS NC.RunOpenEvents NC.OpenNoteFile) (* * Changes to NCLISTCARD) (FNS NC.EvaluateListCardSubstance) ( * * Changes to NCCARDS) (FNS NC.DeleteNoteCards))) (PUTPROPS RHTPATCH235 COPYRIGHT ("Xerox Corporation" 1987)) NIL