(FILECREATED "25-Mar-87 11:33:57" ("compiled on " {QV}1.3K>NEXT>RHTPATCH222.;3) "12-Nov-85 14:59:23" recompiled changes: NC.CoerceToInterestedWindow NC.SelectNoteCards NC.QuitCard NC.AssignTitle NC.CardSaveFn in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "25-Mar-87 11:29:53" {QV}1.3K>NEXT>RHTPATCH222.;3 38767 changes to: (FNS NC.QuitCard NC.AssignTitle NC.CardSaveFn NC.SelectNoteCards NC.CoerceToInterestedWindow) (VARS RHTPATCH222COMS) previous date: "24-Mar-87 15:24:01" {QV}1.3K>NEXT>RHTPATCH222.;1) NC.CoerceToInterestedWindowA0001 D1 (NAME ERRORSET F 0 WinOrCardOrNoteFile) P h(3 NC.CoerceToCard) NIL () NC.CoerceToInterestedWindow D1 (P 3 \NF P 1 NoteFile P 0 Card I 0 WinOrCardOrNoteFile) j0@ @@`@ Po X H :H .HKd`HK ZJYI ` (147Q OPENWP 137Q OPENWP 134Q NCP.NoteFileIconWindow 120Q NC.NoteFileFromNoteFileUID 63Q NC.CardP 55Q OPENWP 52Q NC.FetchWindow 45Q NC.CardP 40Q NC.CoerceToInterestedWindowA0001 27Q OPENWP 24Q NCP.NoteFileIconWindow 6 OPENWP) (144Q NC.NoteCardsIconWindow 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 16Q NoteFileTYPE#) ( 35Q (NC.CoerceToInterestedWindowA0001)) NC.SelectNoteCardsA0001A0004 D1 (I 0 Process F 0 CROSSHAIRS) @gP (15Q ECHOMODE 12Q PROCESSPROP 7 CARET) (3 OldCaret) () NC.SelectNoteCardsA0001A0005 D1 (I 0 Process) @g i (15Q ECHOMODE 11Q CARET 6 PROCESSPROP) (3 OldCaret) () NC.SelectNoteCardsA0001A0006A0007A0008 D1 (NAME ERRORSET P 11Q ThisCard P 10Q \NF P 7 \NF P 6 \NF P 2 RESETITEM P 1 ITEM P 0 ITEMLIST F 12Q Card F 13Q InstigatingWindow F 14Q ResetItems F 15Q SelectedCards F 16Q NC.SelectNoteCardsResetVar F 17Q PromptWindow F 20Q OpInProgress F 21Q NC.CardBusyList F 22Q InternalResetVar F 23Q NC.LockLock F 24Q RESETHANDLE F 25Q OLDVALUE F 26Q SelectionPredicate F 27Q RESETY F 30Q Msg)  W&hi WgWgWgyWdgnWcWgWc Wg H2dW(IW Iddc*II I hWg W  WkW,#Wiol WgWc sW c ,WoW n WgWc W @W hcgWoWg hZWcJWcgWoWgo hZWcJWc@gWNd`WN [KhWOd`WO \LgWOd`WO ]Mg  hZWcJWcoW"c"hZWcJWcgWoWgW hW$c$WhW0oo W Hl d WhO o W#hW Wg oWhl hc.i(1225Q NC.PrintMsg 1222Q CHARACTER 1203Q GETWINDOWPROP 1173Q DSPXPOSITION 1160Q NC.PrintMsg 1151Q NC.RetrieveTitle 1132Q CONCAT 1127Q CHARACTER 1120Q REVERSE 1112Q NC.PrintMsg 1057Q NC.SetUserDataProp 1000Q THIS.PROCESS 744Q NC.NoteFileProp 740Q NC.NoteFileProp 724Q NC.NoteFileFromNoteFileUID 664Q THIS.PROCESS 650Q NC.NoteFileFromNoteFileUID 577Q NC.NoteFileFromNoteFileUID 512Q NC.SetUserDataProp 436Q NC.SetUserDataProp 433Q THIS.PROCESS 400Q NC.ClearMsg 367Q NC.ClearMsg 361Q PUTWINDOWPROP 343Q DISMISS 334Q NC.PrintOperationInProgressMsg 315Q NC.CardCheckOpInProgress 304Q PUTWINDOWPROP 266Q NC.PrintMsg 263Q CHARACTER 235Q NC.ValidCardP 226Q NC.ClearMsg 220Q NC.SetUserDataProp 201Q SET 172Q APPLY 141Q SET 136Q DREMOVE 115Q NC.FetchUserDataProp 104Q PUTWINDOWPROP 6 OBTAIN.MONITORLOCK) (1200Q WIDTH 1052Q ResetItems 1035Q NC.SetUserDataProp 735Q CardProcessInProgressList 717Q CardObject 705Q NoteFileTYPE# 671Q CardObject 661Q CardProcessInProgressList 643Q CardObject 631Q NoteFileTYPE# 615Q CardObject 573Q CardObject 562Q NoteFileTYPE# 547Q CardObject 542Q NC.ResetCardProcessInProgress 503Q OperationInProgress 466Q NC.SetUserDataProp 430Q ProcessInProgress 413Q NC.SetUserDataProp 351Q SelectedCards 274Q SelectedCards 215Q ResetItems 112Q ResetItems 73Q SelectedCards 53Q *Undo% Selection* 40Q *New% Card* 26Q CANCELLED 14Q DONE) ( 1207Q 1.25 1155Q ", " 1107Q "Items selected: " 1103Q "" 1043Q (ResetItems NIL) 775Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 507Q "Select Card" 474Q (OperationInProgress NIL) 421Q (ProcessInProgress NIL) 327Q "Select Card" 256Q "*** Invalid selection. ***") NC.SelectNoteCardsA0001A0006A0007 D1 (NAME ERRORSET P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 RESETITEM F 4 TTYResetVar F 5 SelectedCards F 6 Card F 7 RESETY F 10Q LISPXHIST F 11Q RESETVARSLST) Dg hhTcUc W!Wog hg[ KJci(73Q ERROR! 65Q RESETRESTORE 53Q NC.SelectNoteCardsA0001A0006A0007A0008 13Q TTY.PROCESS 10Q THIS.PROCESS) (61Q ERROR 50Q INTERNAL 5 TTY.PROCESS) ( 45Q (NC.SelectNoteCardsA0001A0006A0007A0008)) NC.SelectNoteCardsA0001A0006 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 SelectedCards F 4 PromptWindow F 5 SingleCardFlg F 6 LISPXHIST F 7 RESETY F 10Q CopyInsertEvent) nTg hi SgUSSdghciSTg Tg W Tg cV!gog hgZ J(150Q ERROR! 142Q NAMED-RESETRESTORE 130Q NC.SelectNoteCardsA0001A0006A0007 104Q GETWINDOWUSERPROP 72Q MONITOR.AWAIT.EVENT 65Q GETWINDOWUSERPROP 54Q GETWINDOWUSERPROP 13Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (136Q ERROR 125Q INTERNAL 116Q TTYResetVar 101Q SelectedCards 62Q SelectCardsMonitor 51Q SelectedCards 34Q DONE 20Q CANCELLED 3 SelectCardsMonitor) ( 122Q (NC.SelectNoteCardsA0001A0006A0007)) NC.SelectNoteCardsA0001 D1 (NAME ERRORSET P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 RESETITEM P 0 \NF F 6 PromptWindow F 7 InternalResetVar F 10Q InstigatingWindow F 11Q Menu F 12Q OldTTYProcess F 13Q PromptWindowProcess F 14Q SelectedCards F 15Q SelectionPredicate F 16Q InstigatingCardOrWindow F 17Q InstigatingCard F 20Q CheckForCancelFlg F 21Q InstigatingNoteFile F 22Q RESETY F 23Q Msg F 24Q CopyInsertEvent F 25Q RESETVARSLST F 26Q SingleCardFlg F 27Q LISPXHIST) bWgcW c `c W cd#Hd`WH YIc"WiW&aoo cVgg Vgd c( gVoVg hWcgVoVgi hWcgVoVgg hWcVgogVgggggg c gWhhhWcgggWhggggWhgWhhgWohhgWohhhWcWogggWhhgWohWW`Wgl gW V Vg g W gV hWcW V . W.!W*og h g] MWgW %g W,WdghWdg Vg c$i(1133Q PUTWINDOWPROP 1124Q DREVERSE 1044Q ERROR! 1036Q RESETRESTORE 1024Q NC.MoveWindowOntoScreen 1016Q NC.SelectNoteCardsA0001A0006 774Q TTY.PROCESS 767Q \INSUREWINDOW 746Q PUTWINDOWPROP 737Q WFROMMENU 731Q ATTACHMENU 721Q GETWINDOWUSERPROP 711Q WINDOWP 704Q WINDOWP 671Q CONCAT 666Q CHARACTER 407Q PUTWINDOWPROP 402Q ADD.PROCESS 327Q PUTWINDOWPROP 324Q CREATE.MONITORLOCK 264Q PUTWINDOWPROP 226Q PUTWINDOWPROP 201Q PUTWINDOWPROP 174Q CREATE.EVENT 163Q PUTWINDOWPROP 150Q ALLOW.BUTTON.EVENTS 142Q TTY.PROCESS 136Q NC.PrintMsg 77Q NC.NoteFileFromNoteFileUID 37Q NC.CoerceToCard 22Q NC.AttachPromptWindow 15Q NC.CoerceToInterestedWindow) (1130Q SelectedCards 1116Q DONE 1100Q DONE 1064Q CANCELLED 1053Q CANCELLED 1032Q ERROR 1013Q INTERNAL 742Q SelectionPromptWindow 726Q LEFT 716Q WHEREATTACHED 677Q BOTTOM 660Q TOP 652Q PROMPTWINDOW 625Q DELETEMENU 612Q WFROMMENU 607Q REMOVEWINDOW 604Q PROGN 567Q MENU 534Q NC.ClearMsg 510Q then 474Q HASTTYWINDOWP 464Q PROCESSP 461Q AND 456Q if 453Q TTY.PROCESS 443Q HASTTYWINDOWP 440Q AND 435Q PROGN 413Q DEL.PROCESS 376Q NC.SelectNoteCardsA0001A0005 373Q TTYEXITFN 370Q NC.SelectNoteCardsA0001A0004 365Q TTYENTRYFN 362Q SelectNoteCardsProc 357Q NAME 353Q WINDOW 344Q PROCESS 321Q SelectCards 316Q SelectCardsMonitor 303Q WINDOWPROP 260Q SelectingCards 245Q WINDOWPROP 223Q SelectedCards 210Q WINDOWPROP 170Q CopyInsertEvent 160Q NC.SelectNoteCardsCopyInsertFn 155Q COPYINSERTFN 73Q CardObject 62Q NoteFileTYPE# 47Q CardObject 27Q PROMPTWINDOW 5 TRUE) ( 1010Q (NC.SelectNoteCardsA0001A0006) 633Q (T) 573Q (0 . 0) 542Q (T) 516Q (else T) 350Q (PROG NIL (BLOCK) (TTYDISPLAYSTREAM (PROCESSPROP (THIS.PROCESS) (QUOTE WINDOW))) XXXX (BIN) (BLOCK) (GO XXXX)) 310Q (SelectCards NIL) 252Q (SelectingCards NIL) 215Q ((QUOTE SelectedCards) NIL) 133Q "Items shift-selected: " 127Q "") NC.SelectNoteCards D1 (P 22Q RESETZ P 21Q RESETY P 20Q LISPXHIST P 17Q InternalResetVar P 16Q TTYResetVar P 15Q ResetItems P 14Q OpInProgress P 13Q OldTTYProcess P 12Q PromptWindowProcess P 11Q SelectedCards P 10Q CopyInsertEvent P 7 PromptWindow P 6 MenuWindow P 5 InstigatingNoteFile P 4 InstigatingCard P 3 InstigatingWindow P 2 ButtonEventFn P 1 Card P 0 Window I 5 CheckForCancelFlg I 4 Msg I 3 InstigatingCardOrWindow I 2 Menu I 1 SelectionPredicate I 0 SingleCardFlg F 23Q LISPXHIST) .W&!gog hg_$ O$O"(50Q ERROR! 42Q NAMED-RESETRESTORE 27Q NC.SelectNoteCardsA0001) (35Q ERROR 24Q INTERNAL 15Q InternalResetVar) ( 21Q (NC.SelectNoteCardsA0001)) 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 NC.LockLock F 23Q NC.CardBusyList F 24Q QuietFlg F 25Q NC.CloseCardsOffScreenFlg F 26Q CallCloseWFlg F 27Q OperationMsg F 30Q DontRecacheFlg F 31Q RESETY)  W$ W AHgWgWg hWg hWcgWgWg hWgo hWcgWMd`WM YIhWMd`WM ZJgWMd`WM [Kg  hWcoW&c&hWcW$ HHgW cWW \WWW g W W 8W"4W0W )W(%Wiol ohghW bW7W NN W#W*W WW  Wnd W )WW `Wg WW*W(WW. WWgg WW O! Od _O _dgYOOd O _doO O _dg"oogoOo  OgOg OWkLW,WWg W W"W W 'W0#W"W WW oH gc2i(1333Q NC.PrintOperationInProgressMsg 1323Q NC.FetchWindow 1307Q NCP.ActivateCards 1270Q NC.TopLevelCardP 1262Q NC.DeactivateCard 1251Q CLOSEW 1243Q PUTWINDOWPROP 1210Q NC.GetCardTypeFieldOfSuper 1170Q NC.ReportError 1165Q CONCAT 1112Q NC.ReportError 1107Q CONCAT 1072Q NC.CardTypeRecord 1063Q NC.CardTypeLoader 1020Q NC.CardTypeRecord 776Q NC.GetType 757Q WINDOWDELPROP 740Q NC.CardSaveFn 720Q NC.RemoveDELETEMEImageObjsFromCard 702Q NC.TurnOffDirtyFlgs 665Q MOVEW 653Q NC.SetSavedRegion 646Q \INSUREWINDOW 636Q NC.FetchSavedRegion 617Q CLOSEW 606Q NC.PropListEditorOpenP 571Q NC.AskYesOrNo 551Q NC.PrintMsg 546Q CHARACTER 524Q NC.CardSomehowDirtyP 500Q EXPANDW 471Q OPENWP 456Q NC.InsureProperFiling 430Q NC.ReadOnlyCardP 407Q RELEASE.MONITORLOCK 364Q THIS.PROCESS 344Q NC.NoteFileProp 340Q NC.NoteFileProp 324Q NC.NoteFileFromNoteFileUID 267Q THIS.PROCESS 253Q NC.NoteFileFromNoteFileUID 205Q NC.NoteFileFromNoteFileUID 134Q NC.SetUserDataProp 113Q NC.FetchUserDataProp 62Q NC.SetUserDataProp 57Q THIS.PROCESS 42Q NC.FetchUserDataProp 12Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (1337Q DON'T 1240Q NoteCardObject 1205Q QuitFn 1176Q \\FILLME// 1147Q QuitFn 1130Q \\EMPTY// 1120Q NoteCardType 1056Q NoteCardType 1041Q \\EMPTY// 1031Q NoteCardType 765Q CardObject 754Q NC.QuitCard 751Q CLOSEFN 715Q NC.DELETEMEImageObjP 707Q NC.RemoveDELETEMEImageObjsFromCardFlg 562Q Yes 461Q CANCELLED 416Q US 335Q CardProcessInProgressList 320Q CardObject 307Q NoteFileTYPE# 274Q CardObject 264Q CardProcessInProgressList 247Q CardObject 236Q NoteFileTYPE# 223Q CardObject 201Q CardObject 170Q NoteFileTYPE# 155Q CardObject 150Q NC.ResetCardProcessInProgress 125Q OperationInProgress 110Q OperationInProgress 103Q OperationInProgress 76Q NC.SetUserDataProp 54Q ProcessInProgress 37Q ProcessInProgress 32Q ProcessInProgress 25Q NC.SetUserDataProp) ( 1327Q "Close Card" 1161Q " still \\EMPTY// after autoloading." 1153Q " of card type " 1144Q "Field name " 1140Q "NC.GetCardTypeField" 1102Q "Cannot find full definition of card type: " 556Q "Want to quit anyway, flushing changes? " 541Q "Card has been changed, but notefile is readonly." 361Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 131Q "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) 8@ !H YDH bV!Wog hg] ML(63Q ERROR! 56Q RESETRESTORE 44Q NC.QuitCardA0001 21Q NC.CoerceToInterestedWindow 12Q NC.FetchWindow 3 NC.CoerceToCard) (52Q ERROR 41Q INTERNAL) ( 36Q (NC.QuitCardA0001)) NC.AssignTitleA0001A0011 D1 (NAME ERRORSET P 2 FromLink P 0 \NF F 3 Card F 4 NewTitle F 5 InterestedWindow F 6 ContainingCard F 7 RESETVARSLST F 10Q OldTitle F 11Q Window F 12Q NoClearMsgFlg F 13Q RESETY)  gSHd`SH YI*SohhWcUS c SUo TDTTdl3T 2ol oS co S hWWhU cjST Sd@jhSi S S S c WgT S #dJc V VS ici(403Q NC.UpdateLinkImages 375Q WINDOWP 372Q NC.FetchWindow 365Q NC.ActiveCardP 343Q NC.RetrieveFromLinks 336Q PUTWINDOWPROP 324Q WINDOWP 317Q NC.FetchWindow 312Q NC.SetTitleDirtyFlg 305Q NC.PutTitle 300Q NC.SetTitleDirtyFlg 247Q NC.SetTitle 236Q NC.AskUser 220Q NC.FetchNewCardFlg 213Q STREQUAL 202Q NC.RetrieveTitle 172Q CONCAT 167Q CHARACTER 154Q MKSTRING 121Q NC.CheckForNotReadOnly 105Q NC.CoerceToInterestedWindow 35Q NC.NoteFileFromNoteFileUID) (356Q Link 332Q TITLE 263Q CardCache 254Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 210Q "Untitled" 176Q "--> " 162Q "Enter the title for this card" 116Q "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 NC.LockLock F 15Q NC.CardBusyList F 16Q RESETY F 17Q LISPXHIST)  W W QHgWgWg hWg hWcgWgWg hWgo hWcgWNd`WN YIhWNd`WN ZJgWNd`WN [Kg  hWcoWchWcW HHgpWNd`WN \L*WglMWg h