(FILECREATED "27-Apr-87 17:24:56" ("compiled on " {QV}1.3K>NEXT>NCDOCUMENTCARD.;26) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "23-Apr-87 19:47:08" {QV}1.3K>NEXT>NCDOCUMENTCARD.;26 32988 changes to: (FNS NC.BuildMakeDocInspector NC.DumpExportableCardToDoc) previous date: "21-Apr-87 19:06:08" {QV}1.3K>NEXT>NCDOCUMENTCARD.;25) NC.MakeDocumentA0001A0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 DocStream F 2 DocWindow F 3 CopyEmbeddedLinks F 4 RootCard F 5 DocCard F 6 ExpandEmbeddedLinks F 7 HeadingsFromFileboxes F 10Q TitlesFromNoteCards F 11Q BuildBackLinks F 12Q RESETY) Z g` hhPcRho ohhPcQ`k Qkd TUQjdWWWSV Rho ci(124Q NC.PrintMsg 112Q NC.DumpCardToDoc 70Q TEDIT.DELETE 61Q TEDIT.INSERT 33Q NC.PrintMsg 10Q CURSOR) (55Q NC.CRString 5 WAITINGCURSOR 2 CURSOR) ( 121Q "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 LISPXHIST F 33Q RESETVARSLST) E 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 ih`Jo XW.hi h KoIo JJgK K W,J _ O gdgggg W.hi hdggg_gg_gg_gg_W4!W6og hg_* O*W,l Ji Lc2i(1074Q NC.ClearMsg 1066Q BLOCK 1054Q ERROR! 1045Q RESETRESTORE 1032Q NC.MakeDocumentA0001A0003 730Q NC.DeleteNoteCard 720Q PUTPROP 667Q BLOCK 663Q OPENWP 655Q TOTOPW 650Q NC.BuildMakeDocInspector 637Q NC.FetchSubstance 632Q PUTWINDOWPROP 627Q NC.RetrieveTitle 614Q NC.SetTitle 611Q CONCAT 573Q NC.RetrieveTitle 563Q NC.DeleteNoteCard 551Q 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) (1040Q ERROR 1027Q INTERNAL 1005Q ExpandEmbeddedLinks 1002Q NC.MakeDocParameters 773Q CopyEmbeddedLinks 770Q NC.MakeDocParameters 761Q BuildBackLinks 756Q NC.MakeDocParameters 747Q TitlesFromNoteCards 744Q NC.MakeDocParameters 737Q HeadingsFromFileboxes 715Q --CANCEL-- 712Q --DONE-- 704Q QUIT 700Q --DONE-- 674Q NC.MakeDocParameters 623Q TITLE 540Q NC.SelectingCardMenu 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) ( 1024Q (NC.MakeDocumentA0001A0003) 606Q "%"" 601Q "Document from %"" 545Q "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.DumpCardToDoc D1 (P 1 $$ActiveFlg$$ P 0 Type I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 SubSectionNum I 3 CurSection I 2 DocStream I 1 DocCard I 0 Card)  @ @ @ Hg*@ I@ @ABCDEFGGGH I@ @ )@ I@ @ABCDEFGGG I@ @ )@ I@ @ABCDEFGGG I@ do@ l D(253Q NC.PrintMsg 247Q CHARACTER 242Q NC.RetrieveTitle 227Q NC.DeactivateCard 221Q NC.DumpNoteCardToDoc 177Q NC.GetNoteCard 166Q NC.ActiveCardP 160Q NCP.TextBasedP 152Q NC.DeactivateCard 144Q NC.DumpFileBoxToDoc 122Q NC.GetNoteCard 111Q NC.ActiveCardP 103Q NCP.FileBoxP 75Q NC.DeactivateCard 67Q NC.DumpExportableCardToDoc 44Q NC.GetNoteCard 33Q NC.ActiveCardP 17Q NCP.GraphBasedP 12Q NCP.SketchBasedP 3 NC.RetrieveType) (24Q ExportSubstanceFn) ( 236Q "Can't make document from non-exportable card ") NC.DumpFileBoxToDoc D1 (P 6 ChildCard P 5 Link P 4 SubSectionCounter P 2 OldLoc P 1 ShrunkenFlg P 0 DocObject I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 SubSectionNum I 3 CurSection I 2 DocStream I 1 DocCard I 0 FileBoxCard) ( B !B HZEdgO HOk BIkjg OO OABCDEFGGG bM]hd@ ol D(751Q NC.PrintMsg 745Q CHARACTER 734Q NC.RetrieveTitle 715Q NC.DumpCardToDoc 662Q TEDIT.COPY 657Q TEDIT.SETSEL 637Q TEDIT.SETSEL 614Q NC.PrintMsg 610Q CHARACTER 577Q NC.RetrieveTitle 560Q NC.FetchUserDataProp 461Q TEDIT.COPY 456Q TEDIT.SETSEL 440Q TEDIT.SETSEL 401Q NC.FetchLinkFromLinkIcon 372Q BLOCK 360Q SHRINKW 355Q NC.FetchWindow 343Q NC.SetUserDataProp 333Q TEDIT.SETSEL 312Q TEDIT.COPY 307Q TEDIT.SETSEL 267Q TEDIT.SETSEL 224Q TEDIT.LIST.OF.OBJECTS 214Q NC.SetUserDataProp 203Q NC.SetUserDataProp 177Q NC.FetchUserDataProp 162Q NC.GetShrunkenWin 152Q NC.FetchUserDataProp 142Q NC.ChangeParaLeading 135Q NC.AddCRIfNeeded 117Q NCP.LocalGlobalLink 61Q NC.AppendStringToStream 51Q CONCAT 46Q NC.RetrieveTitle 23Q NC.AddCRIfNeeded 16Q TEXTOBJ 7 TEXTOBJ 3 NC.FetchSubstance) (654Q RIGHT 644Q TEXTOBJ 555Q SeenBefore 546Q Link 521Q ALL 474Q ALL 453Q RIGHT 445Q TEXTOBJ 406Q Link 340Q SeenBefore 330Q RIGHT 320Q TEXTOBJ 304Q RIGHT 274Q TEXTOBJ 257Q TEXTOBJ 243Q TEXTOBJ 221Q NC.LinkIconImageObjP 210Q SeenBefore 174Q SeenCards 167Q SeenCards 147Q SeenBefore 124Q TEXTOBJ 113Q Icon 110Q END 103Q NC.DocBackPtrLinkLabel 76Q ToCardsBoxes 67Q ToCards 55Q Bold 36Q NONE 27Q TEXTOBJ) ( 740Q " only expanded once in this cycle." 603Q " only expanded once in this cycle.") NC.FetchToLinksInOrder D1 (P 3 ObjectPair I 0 Card) 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) j@ g0`dKJh\J&LghohgogHHHkk Yd@ggg Igi I(146Q PUTWINDOWPROP 136Q ATTACHWINDOW 116Q INSPECTW.CREATE 112Q CREATEPOSITION 3 WINDOWREGION) (142Q NoteCardsMakeDocInspector 132Q LOCALCLOSE 127Q LEFT 124Q TOP 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 11Q \NF P 7 CardWin 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 g@`@`HdIdod`di dg dgjdndhHdI d ` k 2Kdg]B OidhddJd7g1O  O_d`OO ^Ni i \Ldg[KJh]dg@K B@ B h(424Q INSPECTW.SELECTITEM 417Q INSPECTW.REDISPLAY 411Q PUTPROP 352Q NC.AskLinkLabel 345Q NC.RetrieveLinkLabels 333Q NC.NoteFileFromNoteFileUID 273Q NC.CoerceToCard 241Q MAINWINDOW 221Q MENU 212Q FONTHEIGHT 47Q PUTPROP 24Q CLOSEW 20Q DETACHWINDOW) (404Q NC.MakeDocParameters 365Q NONE 326Q CardObject 314Q NoteFileTYPE# 303Q CardObject 263Q ALL 231Q Select 207Q NC.MenuFont 177Q MENU 143Q DEFAULTMENUHELDFN 134Q CLRPROMPT 120Q NC.MenuFont 70Q NC.MakeDocParameters 63Q MENUTYPE# 56Q NC.MakeDocParameters 44Q QUIT 41Q --DONE-- 36Q NC.MakeDocParameters 11Q --CANCEL-- 3 --DONE--) ( 111Q "Choose New Value") 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.DumpExportableCardToDoc D1 (P 16Q AlreadyExpanded P 15Q CopyFlg P 14Q ExpandFlg P 13Q ActiveFlg P 12Q ToCardType P 11Q ToCard P 10Q LinkLabel P 7 Link P 5 ExportSubstanceFn P 4 ThingToInsert P 3 OldLoc P 2 ShrunkenFlg P 1 DocObj P 0 CardStream I 12Q CardType I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 SubSectionNum I 3 CurSection I 2 DocStream I 1 DocCard I 0 Card)  @ B 2B I[FgB@ Fg GgGg`A@gghdih IKB B @g ]@ Ag@Ag  @gi G H &G @ H GgMHkMH4L LB 'L "LkL  BIkg @ N*BIkjg @g J@ _O_Gg GOG_Gg GOG_O_g _OhdO ol OO.OOAOg OOOABCDEFGGG bN^7hd@ ol D(737Q NC.PrintMsg 733Q CHARACTER 722Q NC.RetrieveTitle 703Q NC.DumpCardToDoc 650Q NCP.LocalGlobalLink 622Q NC.PrintMsg 616Q CHARACTER 605Q NC.RetrieveTitle 566Q NC.FetchUserDataProp 462Q BLOCK 450Q SHRINKW 445Q NC.FetchWindow 433Q NC.SetUserDataProp 423Q TEDIT.SETSEL 373Q NC.CollectReferences 366Q TEDIT.COPY 363Q TEDIT.SETSEL 345Q TEDIT.SETSEL 335Q TEXTOBJ 325Q TEXTSTREAMP 317Q TEDIT.INSERT.OBJECT 311Q IMAGEOBJP 255Q NC.MakeExternalSketchCopy 247Q NC.FetchWindow 242Q NCP.SketchBasedP 233Q GRAPHEROBJ 226Q NCP.GraphBasedP 220Q NC.SetUserDataProp 207Q NC.SetUserDataProp 203Q NC.FetchUserDataProp 166Q NC.GetShrunkenWin 156Q NC.FetchUserDataProp 146Q NC.ChangeParaLeading 141Q NC.AddCRIfNeeded 123Q NCP.LocalGlobalLink 54Q NC.AppendStringToStream 44Q CONCAT 41Q NC.RetrieveTitle 16Q NC.AddCRIfNeeded 7 TEXTOBJ 3 NC.FetchSubstance) (645Q END 563Q SeenBefore 554Q Link 527Q ALL 502Q ALL 470Q Link 430Q SeenBefore 420Q RIGHT 410Q TEXTOBJ 360Q RIGHT 352Q TEXTOBJ 340Q TEXTOBJ 264Q ExportSubstanceFn 214Q SeenBefore 200Q SeenCards 173Q SeenCards 153Q SeenBefore 130Q TEXTOBJ 107Q LINKDISPLAYMODE 104Q END 77Q NC.DocBackPtrLinkLabel 71Q ToCardsBoxes 62Q ToCards 50Q Bold 31Q NONE 22Q TEXTOBJ) ( 726Q " only expanded once in this cycle." 611Q " only expanded once in this cycle.") NC.AddDocumentCard D1 NIL ggoo (20Q NC.AddCardType) (5 Text 2 Document) ( 15Q ((LinkDisplayMode Icon) (DefaultHeight 536Q) (DefaultWidth 536Q) (DisplayedInMenuFlg T)) 11Q ((MakeFn NC.MakeDocument))) NCAddStub.DocumentCard D1 NIL ggghoo (25Q NC.AddCardTypeStub) (10Q NCDOCUMENTCARD 5 Text 2 Document) ( 21Q (LinkIconAttachedBitMap) 15Q ((DisplayedInMenuFlg . T))) (PRETTYCOMPRINT NCDOCUMENTCARDCOMS) (RPAQQ NCDOCUMENTCARDCOMS ((* * Stuff for the Document compiler facility.) (FILES 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.DumpCardToDoc NC.DumpFileBoxToDoc NC.DumpNoteCardToDoc NC.FetchToLinksInOrder NC.BuildMakeDocInspector NC.MakeDocInspectorSelectionFn NC.AddCRIfNeeded NC.ChangeParaLeading NC.DumpExportableCardToDoc) (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)) (FNS NCAddStub.DocumentCard))) (FILESLOAD 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" 1986 1987)) NIL