(FILECREATED "22-Oct-85 15:55:03" ("compiled on " {QV}RELEASE1.2I>NCDOCUMENTCARD.;16) "19-Mar-85 14:34:17" recompiled changes: NC.MakeDocInspectorSelectionFn in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "22-Oct-85 15:54:34" {QV}RELEASE1.2I>NCDOCUMENTCARD.;16 30813 changes to: (FNS NC.MakeDocInspectorSelectionFn) previous date: "11-Oct-85 16:39:50" {QV}RELEASE1.2I>NCDOCUMENTCARD.;15) NC.MakeDocumentA0001 D1 (NAME ERRORSET F 0 RootID F 1 DocStream F 2 RESETVARSLST F 3 DocCardID F 4 ExpandEmbeddedLinks F 5 HeadingsFromFileboxes F 6 TitlesFromNoteCards F 7 BuildBackLinks F 10Q CopyEmbeddedLinks F 11Q DocWindow F 12Q WasActive F 13Q RootSubstanceType F 14Q RootType F 15Q RESETY) g` hhRcWho ohhRcQ`k Qkd P cP` P` cdgPSQoUVWWT Z cdgPSQokUVWWT 8dgdgPSQokUVWWTW hdoPl WP Who ci(331Q NC.PrintMsg 316Q NC.DeactivateCard 306Q NC.PrintMsg 302Q CHARACTER 263Q NC.DumpGraphOrSketchCardToDoc 216Q NC.DumpNoteCardToDoc 161Q NCP.CardTypeSubstance 154Q NC.DumpFileBoxToDoc 120Q NC.RetrieveType 110Q NC.GetNoteCard 76Q NC.ActiveCardP 71Q TEDIT.DELETE 62Q TEDIT.INSERT 34Q NC.PrintMsg 10Q CURSOR) (232Q GRAPH 224Q SKETCH 167Q TEXT 126Q FileBox 115Q PSA.Database 105Q PSA.Database 56Q NC.CRString 5 WAITINGCURSOR 2 CURSOR) ( 326Q "Done!" 274Q "Can't make document from non-text/sketch/graph card " 245Q "" 202Q "" 141Q "" 41Q (PROGN (for ID in (GETPROP DocCardID (QUOTE SeenCards)) do (REMPROP ID (QUOTE SeenBefore))) (REMPROP DocCardID (QUOTE SeenCards))) 31Q "Collecting text from descendant cards ... ") NC.MakeDocument D1 (P 21Q RESETZ P 20Q RESETY P 17Q LISPXHIST P 16Q RootSubstanceType P 15Q RootType P 14Q WasActive P 13Q InspectWin P 12Q ExpandEmbeddedLinks P 11Q CopyEmbeddedLinks P 10Q BuildBackLinks P 7 TitlesFromNoteCards P 6 HeadingsFromFileboxes P 5 DocStream P 4 DocWindowOrID P 3 DocCardID P 2 DocWindow P 1 RootTitle P 0 RootID I 3 WindowOrTextStreamOrID I 2 NoDisplayFlg I 1 Title I 0 ID F 22Q LISPXHIST F 23Q RESETVARSLST) BgoBh@ \BhLLZ C C)C C C C ih`Jho X YHUKoIo JJgK K ]BJ _ O gdgggg @i hg^gg_gg_gg_gg_W$!W&og hg_" O"Bl Ji L(417Q NC.ClearMsg 411Q BLOCK 400Q ERROR! 371Q RESETRESTORE 356Q NC.MakeDocumentA0001 262Q NC.DeleteNoteCards 254Q PUTPROP 223Q BLOCK 217Q OPENWP 211Q TOTOPW 204Q NC.BuildMakeDocInspector 174Q NC.FetchSubstance 167Q PUTWINDOWPROP 164Q NC.FetchTitle 152Q NC.SetTitle 147Q CONCAT 126Q NC.FetchTitle 122Q NC.SelectNoteCards 102Q NC.IDFromWindow 75Q WINDOWP 67Q NC.IDFromWindow 64Q WINDOW.FROM.TEDIT.THING 57Q TEXTSTREAMP 47Q NC.IDP 42Q NC.IDFromWindow 26Q NC.MakeNoteCard 7 SPAWN.MOUSE) (364Q ERROR 353Q INTERNAL 332Q ExpandEmbeddedLinks 327Q NC.MakeDocParameters 321Q CopyEmbeddedLinks 316Q NC.MakeDocParameters 310Q BuildBackLinks 305Q NC.MakeDocParameters 277Q TitlesFromNoteCards 274Q NC.MakeDocParameters 267Q HeadingsFromFileboxes 251Q --CANCEL-- 246Q --DONE-- 240Q QUIT 234Q --DONE-- 230Q NC.MakeDocParameters 160Q TITLE 110Q NC.SelectingCardMenu 13Q Text) ( 350Q (NC.MakeDocumentA0001) 144Q "%"" 137Q "Document from %"" 116Q "Please select the Note Card or File Box the document should start from." 17Q "Document") NC.DumpFileBoxToDoc D1 (P 11Q SubstanceType P 10Q Type P 7 ActiveP P 6 ChildID P 5 Link P 4 SubSectionNum P 1 OldLoc P 0 DocObject I 10Q ExpandEmbeddedLinks I 7 CopyEmbeddedLinks I 6 BuildBackLinks I 5 TitlesFromNoteCards I 4 HeadingsFromFileboxes I 3 CurSection I 2 DocStream I 1 DocID I 0 FileBoxID)  B !B HYDdg$C ZjJJ BCo i DgB@ i FgFg`A@gg HIB B @ghd@o hAg@i @gi @ kR K @g hMd``h^ _N` _dgBON` NABCoL CoL DEFGG LkؼON x _dg)ON` NABCLDEFGG OLN EgOg)ON` NABCLDEFGGO ON doNl K[(642Q NC.PrintMsg 636Q CHARACTER 622Q NC.DeactivateCard 611Q NC.DumpGraphOrSketchCardToDoc 566Q NC.GetNoteCard 535Q NC.DeactivateCard 524Q NC.DumpNoteCardToDoc 503Q NC.GetNoteCard 457Q NCP.CardTypeSubstance 452Q NC.DeactivateCard 433Q NC.DumpFileBoxToDoc 420Q CONCAT 406Q CONCAT 367Q NC.GetNoteCard 343Q NC.RetrieveType 331Q NC.ActiveCardP 272Q BLOCK 263Q REMPROP 243Q NC.FetchToLinksInOrder 237Q PUTPROP 227Q ADDPROP 214Q NC.PrintMsg 173Q NC.ChangeParaLeading 166Q NC.AddCRIfNeeded 150Q NCP.LocalGlobalLink 114Q NC.AppendStringToStream 110Q CONCAT 105Q NC.FetchTitle 71Q NC.AppendStringToStream 65Q CONCAT 53Q \FZEROP 36Q NCHARS 12Q NC.AddCRIfNeeded 3 TEXTOBJ) (563Q PSA.Database 551Q GRAPH 542Q SKETCH 500Q PSA.Database 465Q TEXT 364Q PSA.Database 351Q FileBox 340Q PSA.Database 311Q NC.SubBoxLinkLabel 306Q NC.FiledCardLinkLabel 260Q SeenBefore 233Q SeenBefore 222Q SeenCards 200Q SeenBefore 155Q TEXTOBJ 144Q Icon 141Q END 134Q NC.DocBackPtrLinkLabel 127Q ToCardsBoxes 121Q ToBoxes 76Q NONE 26Q NumberedBold 16Q TEXTOBJ) ( 630Q "Ignoring non-text/sketch/graph card " 414Q "." 400Q "" 211Q " only expanded once in this cycle." 62Q " ") NC.DumpNoteCardToDoc D1 (P 20Q ToIDSubstanceType P 17Q AlreadyExpanded P 16Q CopyP P 15Q ExpandP P 14Q ActiveP P 13Q ToIDType P 12Q ToID P 11Q LinkLabel P 10Q LinkSpec P 7 Object P 6 CurLoc P 5 LastLoc P 3 OldLoc P 2 CardObj P 1 DocObj P 0 CardStream I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 BoxNum I 3 SectionNum I 2 DocStream I 1 DocID I 0 CardID)  @ B "H ZB I[FgB@ Fg GgGg`A@gg IKB B @ghd@ol hAg@i @gi Jg kjLHNJ#HMJN BIkjg BIkjg @g D_O __O^dMHMNM BIkg NkؽGg GOG_Gg GOG_O_g_OhdOol OOOHNk BIkjg OOO _O` _dgIOO` OABCoD CoD EFGGG DkbOO _ dg/OO` OABCDEFGGG bOTO LgO g/OO` OABCDEFGGGO bOO doOl L\ (1213Q NC.PrintMsg 1207Q CHARACTER 1172Q NC.DeactivateCard 1156Q NC.DumpGraphOrSketchCardToDoc 1131Q NC.GetNoteCard 1077Q NC.DeactivateCard 1063Q NC.DumpNoteCardToDoc 1040Q NC.GetNoteCard 1013Q NCP.CardTypeSubstance 1005Q NC.DeactivateCard 763Q NC.DumpFileBoxToDoc 747Q CONCAT 735Q CONCAT 715Q NC.GetNoteCard 670Q NC.RetrieveType 655Q NC.ActiveCardP 633Q TEDIT.COPY 630Q TEDIT.SETSEL 610Q TEDIT.SETSEL 564Q NC.PrintMsg 560Q CHARACTER 440Q TEDIT.COPY 435Q TEDIT.SETSEL 417Q TEDIT.SETSEL 361Q NC.FetchLinkFromLinkIcon 352Q BLOCK 341Q REMPROP 331Q TEDIT.SETSEL 310Q TEDIT.COPY 305Q TEDIT.SETSEL 265Q TEDIT.SETSEL 224Q TEDIT.LIST.OF.OBJECTS 215Q PUTPROP 205Q ADDPROP 172Q NC.PrintMsg 166Q CHARACTER 142Q NC.ChangeParaLeading 135Q NC.AddCRIfNeeded 117Q NCP.LocalGlobalLink 61Q NC.AppendStringToStream 51Q CONCAT 46Q NC.FetchTitle 23Q NC.AddCRIfNeeded 16Q TEXTOBJ 7 TEXTOBJ 3 NC.FetchSubstance) (1126Q PSA.Database 1113Q GRAPH 1104Q SKETCH 1035Q PSA.Database 1021Q TEXT 712Q PSA.Database 676Q FileBox 665Q PSA.Database 625Q RIGHT 615Q TEXTOBJ 532Q SeenBefore 477Q ALL 452Q ALL 432Q RIGHT 424Q TEXTOBJ 336Q SeenBefore 326Q RIGHT 316Q TEXTOBJ 302Q RIGHT 272Q TEXTOBJ 256Q TEXTOBJ 242Q TEXTOBJ 221Q NC.LinkIconImageObjP 211Q SeenBefore 200Q SeenCards 147Q SeenBefore 124Q TEXTOBJ 113Q Icon 110Q END 103Q NC.DocBackPtrLinkLabel 76Q ToCardsBoxes 67Q ToCards 55Q Bold 36Q NONE 27Q TEXTOBJ) ( 1200Q "Ignoring non-text/sketch/graph card " 743Q "." 727Q "" 553Q " only expanded once in this cycle." 161Q " only expanded once in this cycle.") NC.DumpGraphOrSketchCardToDoc D1 (P 14Q ToIDSubstanceType P 13Q AlreadyExpanded P 12Q CopyFlg P 11Q ExpandFlg P 10Q ActiveFlg P 7 ToIDType P 6 ToID P 5 LinkLabel P 4 Link P 2 OldLoc P 1 DocObj P 0 CardStream I 12Q SubstanceType I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 BoxNum I 3 SectionNum I 2 DocStream I 1 DocID I 0 CardID) 5 @ B B IZFgB@ Fg GgGg`A@gg IJB B @ghd@ol hAg@i @gi H(GdgH gH@ @ B @h`  KBIkjg @g DLGg GMG_Gg GMG_L^g_OhdNol OOOMANg OON _N` _dgEON` NABCoD CoD EFGGG DkbON ~ _dg,ON` NABCDEFGGG bOON HgOg,ON` NABCDEFGGGO bON doNl K[(1054Q NC.PrintMsg 1050Q CHARACTER 1034Q NC.DeactivateCard 1021Q NC.DumpGraphOrSketchCardToDoc 775Q NC.GetNoteCard 744Q NC.DeactivateCard 731Q NC.DumpNoteCardToDoc 707Q NC.GetNoteCard 663Q NCP.CardTypeSubstance 656Q NC.DeactivateCard 635Q NC.DumpFileBoxToDoc 621Q CONCAT 607Q CONCAT 570Q NC.GetNoteCard 544Q NC.RetrieveType 532Q NC.ActiveCardP 511Q NCP.LocalGlobalLink 463Q NC.PrintMsg 457Q CHARACTER 340Q BLOCK 331Q REMPROP 321Q TEDIT.SETSEL 271Q NC.CollectReferences 260Q TEDIT.INSERT.OBJECT 254Q MAKE.IMAGE.OBJECT.OF.SKETCH 251Q NC.FetchScale 245Q NC.FetchRegionViewed 230Q GRAPHEROBJ 210Q PUTPROP 200Q ADDPROP 165Q NC.PrintMsg 161Q CHARACTER 135Q NC.ChangeParaLeading 130Q NC.AddCRIfNeeded 112Q NCP.LocalGlobalLink 54Q NC.AppendStringToStream 44Q CONCAT 41Q NC.FetchTitle 16Q NC.AddCRIfNeeded 7 TEXTOBJ 3 NC.FetchSubstance) (772Q PSA.Database 760Q GRAPH 751Q SKETCH 704Q PSA.Database 671Q TEXT 565Q PSA.Database 552Q FileBox 541Q PSA.Database 506Q END 432Q SeenBefore 402Q ALL 356Q ALL 326Q SeenBefore 316Q RIGHT 306Q TEXTOBJ 266Q PSA.Database 235Q SKETCH 221Q GRAPH 204Q SeenBefore 173Q SeenCards 142Q SeenBefore 117Q TEXTOBJ 106Q Icon 103Q END 76Q NC.DocBackPtrLinkLabel 71Q ToCardsBoxes 62Q ToCards 50Q Bold 31Q NONE 22Q TEXTOBJ) ( 1042Q "Ignoring non-text/sketch/graph card " 615Q "." 601Q "" 452Q " only expanded once in this cycle." 154Q " only expanded once in this cycle.") NC.FetchToLinksInOrder D1 (P 3 ObjectPair I 0 ID) 00@ g dK IHhZH&J(33Q NC.FetchLinkFromLinkIcon 17Q TEDIT.LIST.OF.OBJECTS 11Q TEXTOBJ 6 NC.FetchSubstance) (14Q NC.LinkIconImageObjP) () NC.BuildMakeDocInspector D1 (P 1 InspectWindow P 0 Region I 0 MainWin) [@ g0`dKJh\J&Lghohgog` Yd@ggg Igi I(127Q PUTWINDOWPROP 117Q ATTACHWINDOW 77Q INSPECTW.CREATE 3 WINDOWREGION) (123Q NoteCardsMakeDocInspector 113Q LOCALCLOSE 110Q LEFT 105Q TOP 73Q NC.OffScreenPosition 70Q NC.MakeDocInspectorSelectionFn 61Q NC.InspectorTitleCommandFn 50Q GETPROP 17Q NC.MakeDocParameters 11Q NC.MakeDocParameters) ( 65Q "MakeDocument Parameters" 55Q "Use left button to change values.") NC.MakeDocInspectorSelectionFn D1 (P 5 ChangedFlg P 4 Links P 3 Answer P 2 OldVal I 2 InspectWin I 1 ValueFlg I 0 Property) @g@g!B B Aggg AB g@`@` HdIdodg dgjdndhHdI  "Kdg)B idhddJdgi \dg[KJh]dg@K B@ B h(312Q INSPECTW.SELECTITEM 305Q INSPECTW.REDISPLAY 277Q PUTPROP 242Q NC.AskLinkLabel 235Q NCP.GetLinkLabels 213Q MAINWINDOW 173Q MENU 102Q FASSOC 61Q INSPECTW.SELECTITEM 47Q PUTPROP 24Q CLOSEW 20Q DETACHWINDOW) (272Q NC.MakeDocParameters 253Q NONE 227Q ALL 203Q Select 140Q DEFAULTMENUHELDFN 131Q CLRPROMPT 77Q NC.MakeDocParameters 72Q MENUTYPE# 65Q NC.MakeDocParameters 44Q QUIT 41Q --DONE-- 36Q NC.MakeDocParameters 11Q --CANCEL-- 3 --DONE--) ( 122Q "Choose New Value") NC.AppendStringToStream D1 (I 2 BoldFlg I 1 String I 0 Stream) 2@A@ k@ Fg gBgg i (57Q TEDIT.INSERT 52Q FONTCOPY 33Q LISTGET 20Q TEXTOBJ 5 TEXTOBJ) (47Q MRR 43Q BRR 36Q FACE 30Q FONT 23Q TEXTOBJ 10Q TEXTOBJ) () NC.AddCRIfNeeded D1 (P 0 Len I 0 Stream) 3@ Hj!HH @Hk @ l @` h(56Q NC.AppendStringToStream 41Q SETFILEPTR 30Q \FZEROP 3 TEXTOBJ) (53Q NC.CRString 6 TEXTOBJ) () NC.ChangeParaLeading D1 (P 0 TextObj I 0 Stream) @ Hg`hHk (32Q TEDIT.PARALOOKS 3 TEXTOBJ) (24Q TEXTOBJ 15Q NC.DocTitleParaLeading 12Q PARALEADING) () NC.AddDocumentCard D1 NIL 2ggggghhooogihh (57Q NC.AddCardType) (42Q CardDisplayedInMenuFlg 16Q NC.MakeDocument 13Q MakeCardFn 10Q TEXT 5 Text 2 Document) ( 37Q (DefaultWidth 536Q) 33Q (DefaultHeight 536Q) 27Q (LinkDisplayMode Icon)) (PRETTYCOMPRINT NCDOCUMENTCARDCOMS) (RPAQQ NCDOCUMENTCARDCOMS ((E (SETQ NC.SystemDate (DATE)) (PUTPROP (QUOTE NC.SystemDate) (QUOTE NewestFile) (ROOTFILENAME (FULLNAME (OUTPUT))))) (* * Stuff for the Document compiler facility.) ( FILES NCTEXTSUBSTANCE NCTEXTCARD) (GLOBALVARS NC.MakeDocParameters NC.DocBackPtrLinkLabel NC.SubBoxLinkLabel NC.FiledCardLinkLabel PSA.Database NC.SelectingCardMenu NC.CRString NC.DocTitleParaLeading) (VARS (NC.MakeDocParameters (QUOTE ((HeadingsFromFileboxes NumberedBold UnnumberedBold NONE) (TitlesFromNoteCards Bold NotBold NONE) (BuildBackLinks ToCardsBoxes ToCards ToBoxes NONE) (CopyEmbeddedLinks ALL NONE Select) (ExpandEmbeddedLinks ALL NONE Select) (--DONE--)))) (NC.CRString (CONCAT (CHARACTER 13))) (NC.DocTitleParaLeading 20)) (* * MakeDocument stuff) (FNS NC.MakeDocument NC.DumpFileBoxToDoc NC.DumpNoteCardToDoc NC.DumpGraphOrSketchCardToDoc NC.FetchToLinksInOrder NC.BuildMakeDocInspector NC.MakeDocInspectorSelectionFn NC.AppendStringToStream NC.AddCRIfNeeded NC.ChangeParaLeading) (P (SETPROPLIST (QUOTE NC.MakeDocParameters) (QUOTE ( HeadingsFromFileboxes NumberedBold TitlesFromNoteCards Bold BuildBackLinks NONE CopyEmbeddedLinks ALL ExpandEmbeddedLinks NONE --DONE-- --CANCEL-- VALUE ((HeadingsFromFileboxes NumberedBold UnnumberedBold NONE) (TitlesFromNoteCards Bold NotBold NONE) (BuildBackpointers ToCardsBoxes ToCards ToBoxes NONE) ( CopyEmbeddedLinks ALL NONE Select) (ExpandEmbeddedLinks ALL NONE Select) (--DONE--)))))) (FNS NC.AddDocumentCard) (P (NC.AddDocumentCard)))) (FILESLOAD NCTEXTSUBSTANCE NCTEXTCARD) (RPAQQ NC.MakeDocParameters ((HeadingsFromFileboxes NumberedBold UnnumberedBold NONE) ( TitlesFromNoteCards Bold NotBold NONE) (BuildBackLinks ToCardsBoxes ToCards ToBoxes NONE) ( CopyEmbeddedLinks ALL NONE Select) (ExpandEmbeddedLinks ALL NONE Select) (--DONE--))) (RPAQ NC.CRString (CONCAT (CHARACTER 13))) (RPAQQ NC.DocTitleParaLeading 20) (SETPROPLIST (QUOTE NC.MakeDocParameters) (QUOTE (HeadingsFromFileboxes NumberedBold TitlesFromNoteCards Bold BuildBackLinks NONE CopyEmbeddedLinks ALL ExpandEmbeddedLinks NONE --DONE-- --CANCEL-- VALUE ((HeadingsFromFileboxes NumberedBold UnnumberedBold NONE) (TitlesFromNoteCards Bold NotBold NONE) (BuildBackpointers ToCardsBoxes ToCards ToBoxes NONE) (CopyEmbeddedLinks ALL NONE Select ) (ExpandEmbeddedLinks ALL NONE Select) (--DONE--))))) (NC.AddDocumentCard) (PUTPROPS NCDOCUMENTCARD COPYRIGHT ("Xerox Corporation" 1985)) NIL