(FILECREATED "17-Apr-87 20:23:40" ("compiled on " {QV}1.3K>NEXT>RHTPATCH240.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "17-Apr-87 20:23:26" {QV}1.3K>NEXT>RHTPATCH240.;1 14333 changes to: (VARS RHTPATCH240COMS)) (LOAD? (NC.FindFile (QUOTE NCDOCUMENTCARD))) (LOAD? (NC.FindFile (QUOTE NCLINKINDEXCARD))) NC.CardTypeLoaderA0001 D1 (NAME ERRORSET P 1 FileName P 0 Window F 2 TtyDisplayStream F 3 RESETVARSLST F 4 QuietFlg F 5 TypeName F 6 RESETY F 7 FileSuggestion F 10Q NC.LOADFLG) Ri icogR hhhScTogR oR gg hhhScR WUi T7H H oH UH oH H oH H IgWIh I c ihIh(254Q NC.FixFileDates 250Q APPLY 227Q TERPRI 222Q PRIN1 211Q TERPRI 204Q PRIN1 173Q PRIN1 165Q PRIN1 154Q FLASHWINDOW 147Q CLEARW 135Q NC.FindFile 126Q WFROMDS 104Q PUTWINDOWPROP 73Q WFROMDS 63Q WFROMDS 30Q WFROMDS 7 OPENWP 4 WFROMDS) (236Q FILESLOAD 101Q NILL 76Q PAGEFULLFN 57Q WINDOWPROP 24Q CLOSEW) ( 216Q "Attempting to autoload." 200Q " not loaded." 161Q "Card type " 67Q (QUOTE PAGEFULLFN) 52Q (NILL) 20Q (NILL)) NC.CardTypeLoader D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 QuietFlg I 1 FileSuggestion I 0 TypeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CardTypeLoaderA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CardTypeLoaderA0001)) NC.LoadFileFromDirectoriesA0001 D1 (NAME ERRORSET P 0 Window F 1 TtyDisplayStream F 2 RESETVARSLST F 3 QuietFlg F 4 FileName F 5 Directories F 6 NC.LOADFLG F 7 RESETY) Qi icogQ hhhRcSogQ oQ gg hhhRcQ S H H oH TH H gVUTh T ciU (226Q \APPEND2 215Q NC.FixFileDates 210Q APPLY 171Q TERPRI 164Q PRIN1 156Q PRIN1 145Q FLASHWINDOW 140Q CLEARW 126Q WFROMDS 104Q PUTWINDOWPROP 73Q WFROMDS 63Q WFROMDS 30Q WFROMDS 7 OPENWP 4 WFROMDS) (175Q FILESLOAD 101Q NILL 76Q PAGEFULLFN 57Q WINDOWPROP 24Q CLOSEW) ( 152Q "Attempting to autoload " 67Q (QUOTE PAGEFULLFN) 52Q (NILL) 20Q (NILL)) NC.LoadFileFromDirectories D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 QuietFlg I 1 Directories I 0 FileName F 3 LISPXHIST F 4 RESETVARSLST) @AgbgAhggAhbS!Tog hgZ JI(73Q ERROR! 66Q RESETRESTORE 54Q NC.LoadFileFromDirectoriesA0001) (62Q ERROR 51Q INTERNAL 26Q VALUEOF 23Q FROM 14Q FROM 5 NOTECARDSDIRECTORIES) ( 46Q (NC.LoadFileFromDirectoriesA0001)) NC.MakeDocumentA0001A0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 DocStream F 2 DocWindow F 3 CopyEmbeddedLinks F 4 NC.CRString F 5 RootCard F 6 DocCard F 7 ExpandEmbeddedLinks F 10Q HeadingsFromFileboxes F 11Q TitlesFromNoteCards F 12Q BuildBackLinks F 13Q RESETY) Y g` hhPcRho ohhPcQTk Qkd UVQjdWWWSW Rho ci(123Q NC.PrintMsg 111Q NC.DumpCardToDoc 66Q TEDIT.DELETE 57Q TEDIT.INSERT 33Q NC.PrintMsg 10Q CURSOR) (5 WAITINGCURSOR 2 CURSOR) ( 120Q "Done!" 40Q (PROGN (for Card in (NC.FetchUserDataProp DocCard (QUOTE SeenCards)) do (NC.SetUserDataProp Card (QUOTE SeenBefore) NIL)) (NC.SetUserDataProp DocCard (QUOTE SeenCards) NIL)) 30Q "Collecting text from descendant cards ... ") NC.MakeDocumentA0001 D1 (NAME ERRORSET P 25Q RESETZ P 24Q RESETY P 23Q LISPXHIST P 22Q SuperType P 21Q FieldValue P 20Q CardTypeRecord P 17Q CardTypeName P 16Q NoteCardType P 14Q RootSubstanceType P 13Q InspectWin P 12Q ExpandEmbeddedLinks P 11Q CopyEmbeddedLinks P 10Q BuildBackLinks P 7 TitlesFromNoteCards P 6 HeadingsFromFileboxes P 5 DocStream P 4 DocWindowOrCard P 3 DocCard P 2 DocWindow P 1 RootTitle P 0 RootCard F 26Q NoDisplayFlg F 27Q Card F 30Q CardIdentifier F 31Q RESETY F 32Q NC.SelectingCardMenu F 33Q LISPXHIST F 34Q RESETVARSLST) D W,W.W. O!Od _ O _"dgYOO d O _ doO O _"dg"oogoOo  O"gOg O"O$!Od _ O _"dgYOO d O _ doO O _"dg"oogoOo  O"gOg O"_W.oW,lOW,hLLZ W0 ihW4Jo XW.hi h KoIo JJgK K W,J _ O gdgggg W.hi hdggg_gg_gg_gg_W6!W8og hg_* O*W,l Ji Lc2i(1073Q NC.ClearMsg 1065Q BLOCK 1053Q ERROR! 1044Q RESETRESTORE 1031Q NC.MakeDocumentA0001A0003 727Q NC.DeleteNoteCard 717Q PUTPROP 666Q BLOCK 662Q OPENWP 654Q TOTOPW 647Q NC.BuildMakeDocInspector 636Q NC.FetchSubstance 631Q PUTWINDOWPROP 626Q NC.RetrieveTitle 613Q NC.SetTitle 610Q CONCAT 572Q NC.RetrieveTitle 562Q NC.DeleteNoteCard 550Q NC.SelectNoteCards 531Q NC.CoerceToCard 523Q NC.CoerceToCard 460Q NC.GetCardTypeFieldOfSuper 440Q NC.ReportError 435Q CONCAT 362Q NC.ReportError 357Q CONCAT 342Q NC.CardTypeRecord 333Q NC.CardTypeLoader 270Q NC.CardTypeRecord 241Q NC.GetCardTypeFieldOfSuper 221Q NC.ReportError 216Q CONCAT 143Q NC.ReportError 140Q CONCAT 123Q NC.CardTypeRecord 114Q NC.CardTypeLoader 51Q NC.CardTypeRecord 27Q NC.GetType 10Q SPAWN.MOUSE) (1037Q ERROR 1026Q INTERNAL 1004Q ExpandEmbeddedLinks 1001Q NC.MakeDocParameters 772Q CopyEmbeddedLinks 767Q NC.MakeDocParameters 760Q BuildBackLinks 755Q NC.MakeDocParameters 746Q TitlesFromNoteCards 743Q NC.MakeDocParameters 736Q HeadingsFromFileboxes 714Q --CANCEL-- 711Q --DONE-- 703Q QUIT 677Q --DONE-- 673Q NC.MakeDocParameters 622Q TITLE 455Q MakeFn 446Q \\FILLME// 417Q MakeFn 400Q \\EMPTY// 370Q NoteCardType 326Q NoteCardType 311Q \\EMPTY// 301Q NoteCardType 236Q SuperType 227Q \\FILLME// 200Q SuperType 161Q \\EMPTY// 151Q NoteCardType 107Q NoteCardType 72Q \\EMPTY// 62Q NoteCardType 16Q CardObject) ( 1023Q (NC.MakeDocumentA0001A0003) 605Q "%"" 600Q "Document from %"" 544Q "Please shift-select the Note Card or File Box the document should start from." 475Q "Document" 431Q " still \\EMPTY// after autoloading." 423Q " of card type " 414Q "Field name " 410Q "NC.GetCardTypeField" 352Q "Cannot find full definition of card type: " 212Q " still \\EMPTY// after autoloading." 204Q " of card type " 175Q "Field name " 171Q "NC.GetCardTypeField" 133Q "Cannot find full definition of card type: ") NC.MakeDocument D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 CardListResetVar I 3 CardIdentifier I 2 NoDisplayFlg I 1 Title I 0 Card F 4 LISPXHIST) 'T!gog hg[ KJ(42Q ERROR! 35Q NAMED-RESETRESTORE 23Q NC.MakeDocumentA0001) (31Q ERROR 20Q INTERNAL 11Q CardListResetVar) ( 15Q (NC.MakeDocumentA0001)) NC.MakeLinkIndex D1 (P 11Q SuperType P 10Q FieldValue P 7 CardTypeRecord P 6 CardTypeName P 5 NoteCardType P 3 LinkIndexSpecs P 2 Window P 1 BackLinksFlg P 0 LinkLabels I 3 SpecialArgsList I 2 NoDisplayFlg I 1 Title I 0 Card) k CC2@@ M!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O O!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O@o BlL ZB@HIi [ @hi hK@HI B@Ji J(547Q NC.ClearMsg 536Q NC.ComputeLinkIndex 520Q NC.DeleteNoteCard 507Q NC.AskLinkIndexSpecs 477Q NC.HoldTTYProcess 470Q WINDOWP 456Q CONCAT 453Q DATE 436Q NC.GetCardTypeFieldOfSuper 417Q NC.ReportError 414Q CONCAT 342Q NC.ReportError 337Q CONCAT 323Q NC.CardTypeRecord 315Q NC.CardTypeLoader 253Q NC.CardTypeRecord 227Q NC.GetCardTypeFieldOfSuper 210Q NC.ReportError 205Q CONCAT 133Q NC.ReportError 130Q CONCAT 114Q NC.CardTypeRecord 106Q NC.CardTypeLoader 44Q NC.CardTypeRecord 26Q NC.GetType 12Q SPAWN.MOUSE) (433Q MakeFn 425Q \\FILLME// 377Q MakeFn 360Q \\EMPTY// 350Q NoteCardType 310Q NoteCardType 274Q \\EMPTY// 264Q NoteCardType 224Q SuperType 216Q \\FILLME// 170Q SuperType 151Q \\EMPTY// 141Q NoteCardType 101Q NoteCardType 65Q \\EMPTY// 55Q NoteCardType 16Q CardObject) ( 450Q "Link Index: " 410Q " still \\EMPTY// after autoloading." 403Q " of card type " 374Q "Field name " 370Q "NC.GetCardTypeField" 333Q "Cannot find full definition of card type: " 201Q " still \\EMPTY// after autoloading." 174Q " of card type " 165Q "Field name " 161Q "NC.GetCardTypeField" 124Q "Cannot find full definition of card type: ") (PRETTYCOMPRINT RHTPATCH240COMS) (RPAQQ RHTPATCH240COMS ((* * Fix to a bug Julian sent in wanting the tty window used by the card type autoloader to do autoscrolling. Similar fix for the autoloading of nccompact, ncrepair, etc. Also fixes minor bugs in document and link index cards whereby they were asking for confirm when canceling the create.) (DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCDOCUMENTCARD))))) (DECLARE: FIRST (P ( LOAD? (NC.FindFile (QUOTE NCLINKINDEXCARD))))) (* * Change to NCTYPESMECH) (FNS NC.CardTypeLoader) (* * Change to NCUTILITIES) (FNS NC.LoadFileFromDirectories) (* * Change to NCDOCUMENTCARD) (FNS NC.MakeDocument) (* * Change to NCLINKINDEXCARD) (FNS NC.MakeLinkIndex))) (PUTPROPS RHTPATCH240 COPYRIGHT ("Xerox Corporation" 1987)) NIL