(FILECREATED "30-Nov-87 16:25:34" ("compiled on " {QV}1.3KNEXT>NCDOCUMENTCARD.;4) "12-Nov-85 14:59:23" recompiled changes: NC.MakeDocument NC.MakeDocInspectorSelectionFn in "LOOPS/KOTO 9-Sep-87 ..." dated " 9-Sep-87 14:19:57") (FILECREATED "30-Nov-87 16:24:58" {QV}1.3KNEXT>NCDOCUMENTCARD.;4 36565 changes to: (FNS NC.MakeDocument NC.MakeDocInspectorSelectionFn) (FILES NCTEXTCARD) previous date: "31-Aug-87 15:27:23" {QV}1.3KNEXT>NCDOCUMENTCARD.;3) NCAddStub.DocumentCard D1 NIL ggghoo (25Q NC.AddCardTypeStub) (10Q NCDOCUMENTCARD 5 Text 2 Document) ( 21Q (LinkIconAttachedBitMap) 15Q ((DisplayedInMenuFlg . T))) NC.MakeDocumentA0001A0003 D1 (NAME ERRORSET P 0 \NF F 2 RESETVARSLST F 3 DocCard F 4 DocStream F 5 DocWindow F 6 CopyEmbeddedLinks F 7 RootCard F 10Q ExpandEmbeddedLinks F 11Q HeadingsFromFileboxes F 12Q TitlesFromNoteCards F 13Q BuildBackLinks F 14Q RESETY)  g` hhRcUho ohhRcohhRcT`k Tkd SgSHd`SH YIhh WSTjdWWWVW Uho ci(220Q NC.PrintMsg 206Q NC.DumpCardToDoc 162Q NC.SetUserDataProp 145Q NC.NoteFileFromNoteFileUID 105Q TEDIT.DELETE 76Q TEDIT.INSERT 33Q NC.PrintMsg 10Q CURSOR) (141Q CardObject 131Q NoteFileTYPE# 116Q CardObject 112Q CrossFileLinkModePropList 72Q NC.CRString 5 WAITINGCURSOR 2 CURSOR) ( 215Q "Done!" 55Q (PROGN (NC.SetUserDataProp DocCard (QUOTE CrossFileLinkModePropList) NIL)) 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 4 $$ActiveFlg$$ P 3 $$ActiveFlg$$ P 2 $$ActiveFlg$$ P 1 Type P 0 Title 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)  @ @ @A bddoHl @ @ @ Ig*@ J@ @ABCDEFGGGI J@ @ )@ K@ @ABCDEFGGG K@ @ )@ L@ @ABCDEFGGG L@ do@ l D(325Q NC.PrintMsg 321Q CHARACTER 314Q NC.RetrieveTitle 301Q NC.DeactivateCard 273Q NC.DumpNoteCardToDoc 251Q NC.GetNoteCard 240Q NC.ActiveCardP 232Q NCP.TextBasedP 224Q NC.DeactivateCard 216Q NC.DumpFileBoxToDoc 174Q NC.GetNoteCard 163Q NC.ActiveCardP 155Q NCP.FileBoxP 147Q NC.DeactivateCard 141Q NC.DumpExportableCardToDoc 116Q NC.GetNoteCard 105Q NC.ActiveCardP 71Q NCP.GraphBasedP 64Q NCP.SketchBasedP 55Q NC.RetrieveType 50Q NC.PrintMsg 44Q CHARACTER 24Q NC.GetCrossFileLinkDestCard 21Q NC.CoerceToInterestedWindow 12Q NC.CrossFileLinkCardP 3 NC.RetrieveTitle) (76Q ExportSubstanceFn) ( 310Q "Can't make document from non-exportable card " 36Q "Couldn't follow cross-file link to ") NC.DumpFileBoxToDoc D1 (P 7 ChildCard P 6 Link P 5 SubSectionCounter P 3 OldLoc P 2 ShrunkenFlg P 1 InterestedWindow 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) I B A "B H[EdgO"HOk BIkjg OO"OABCDEFGGG bN^hd@ ol D(1017Q NC.PrintMsg 1013Q CHARACTER 1002Q NC.RetrieveTitle 763Q NC.DumpCardToDoc 730Q TEDIT.COPY 725Q TEDIT.SETSEL 705Q TEDIT.SETSEL 662Q NC.PrintMsg 656Q CHARACTER 645Q NC.RetrieveTitle 626Q NC.FetchUserDataProp 525Q TEDIT.COPY 522Q TEDIT.SETSEL 504Q TEDIT.SETSEL 442Q NC.FetchLinkFromLinkIcon 433Q BLOCK 421Q SHRINKW 416Q NC.FetchWindow 404Q NC.SetUserDataProp 374Q TEDIT.SETSEL 353Q TEDIT.COPY 350Q TEDIT.SETSEL 330Q TEDIT.SETSEL 264Q TEDIT.LIST.OF.OBJECTS 254Q NC.SetUserDataProp 243Q NC.SetUserDataProp 237Q NC.FetchUserDataProp 222Q NC.GetShrunkenWin 212Q NC.FetchUserDataProp 202Q NC.ChangeParaLeading 175Q NC.AddCRIfNeeded 157Q NC.AddLinkToCard 153Q NC.MakeLink 147Q NC.ComputeCrossFileLinkMode 143Q NC.FetchUserDataProp 65Q NC.AppendStringToStream 55Q CONCAT 52Q NC.RetrieveTitle 27Q NC.AddCRIfNeeded 22Q TEXTOBJ 13Q NC.CoerceToInterestedWindow 7 TEXTOBJ 3 NC.FetchSubstance) (722Q RIGHT 712Q TEXTOBJ 623Q SeenBefore 614Q Link 567Q ALL 542Q ALL 517Q RIGHT 511Q TEXTOBJ 447Q Link 401Q SeenBefore 371Q RIGHT 361Q TEXTOBJ 345Q RIGHT 335Q TEXTOBJ 320Q TEXTOBJ 303Q TEXTOBJ 261Q NC.LinkIconImageObjP 250Q SeenBefore 234Q SeenCards 227Q SeenCards 207Q SeenBefore 164Q TEXTOBJ 140Q CrossFileLinkModePropList 117Q LINKDISPLAYMODE 112Q NC.DocBackPtrLinkLabel 102Q ToCardsBoxes 73Q ToCards 61Q Bold 42Q NONE 33Q TEXTOBJ) ( 1006Q " only expanded once in this cycle." 651Q " 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 17Q AlreadyExpanded P 16Q CopyFlg P 15Q ExpandFlg P 14Q ActiveFlg P 13Q ToCardType P 12Q ToCard P 11Q LinkLabel P 10Q Link P 6 ExportSubstanceFn P 5 ThingToInsert P 4 OldLoc P 3 ShrunkenFlg P 2 InterestedWindow 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 A 3B I\FgB@ Fg GgGg-Ah`@Aghdihhddd@Ag J @ ILB B @g {@ Ag@Ag  @gi G H &G @ H GgNHkNH4M MB 'M "MkM  BIkg @ O*BIkjg @g K@ _O_Gg GOG_Gg GOG_O_g _OhdO ol OOFO%AhOOAhddddOAg J O OOOABCDEFGGG bO_hd@ ol D(1024Q NC.PrintMsg 1020Q CHARACTER 1007Q NC.RetrieveTitle 766Q NC.DumpCardToDoc 733Q NC.AddLinkToCard 726Q NC.MakeLink 722Q NC.ComputeCrossFileLinkMode 716Q NC.FetchUserDataProp 655Q NC.PrintMsg 651Q CHARACTER 640Q NC.RetrieveTitle 621Q NC.FetchUserDataProp 515Q BLOCK 503Q SHRINKW 500Q NC.FetchWindow 466Q NC.SetUserDataProp 456Q TEDIT.SETSEL 425Q NC.CollectReferences 420Q TEDIT.COPY 415Q TEDIT.SETSEL 377Q TEDIT.SETSEL 367Q TEXTOBJ 357Q TEXTSTREAMP 351Q TEDIT.INSERT.OBJECT 343Q IMAGEOBJP 307Q NC.MakeExternalSketchCopy 301Q NC.FetchWindow 274Q NCP.SketchBasedP 265Q GRAPHEROBJ 262Q NC.MakeExternalGraphCopy 255Q NCP.GraphBasedP 247Q NC.SetUserDataProp 236Q NC.SetUserDataProp 232Q NC.FetchUserDataProp 215Q NC.GetShrunkenWin 205Q NC.FetchUserDataProp 175Q NC.ChangeParaLeading 170Q NC.AddCRIfNeeded 152Q NC.AddLinkToCard 146Q NC.MakeLink 142Q NC.ComputeCrossFileLinkMode 136Q NC.FetchUserDataProp 60Q NC.AppendStringToStream 50Q CONCAT 45Q NC.RetrieveTitle 22Q NC.AddCRIfNeeded 13Q NC.CoerceToInterestedWindow 7 TEXTOBJ 3 NC.FetchSubstance) (713Q CrossFileLinkModePropList 616Q SeenBefore 607Q Link 562Q ALL 535Q ALL 523Q Link 463Q SeenBefore 453Q RIGHT 443Q TEXTOBJ 412Q RIGHT 404Q TEXTOBJ 372Q TEXTOBJ 316Q ExportSubstanceFn 243Q SeenBefore 227Q SeenCards 222Q SeenCards 202Q SeenBefore 157Q TEXTOBJ 133Q CrossFileLinkModePropList 112Q LINKDISPLAYMODE 105Q NC.DocBackPtrLinkLabel 75Q ToCardsBoxes 66Q ToCards 54Q Bold 35Q NONE 26Q TEXTOBJ) ( 1013Q " only expanded once in this cycle." 644Q " 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))) (PRETTYCOMPRINT NCDOCUMENTCARDCOMS) (RPAQQ NCDOCUMENTCARDCOMS ((* * Stuff for the Document compiler facility.) (DECLARE: DONTEVAL@LOAD ( FILES NCTEXTCARD)) (FNS NCAddStub.DocumentCard) (GLOBALVARS NC.MakeDocParameters NC.DocBackPtrLinkLabel NC.SubBoxLinkLabel NC.FiledCardLinkLabel PSA.Database NC.SelectingCardMenu NC.CRString NC.DocTitleParaLeading) (DECLARE: DONTEVAL@LOAD (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) ( DECLARE: DONTEVAL@LOAD (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) (DECLARE: DONTEVAL@LOAD (P (NC.AddDocumentCard))))) (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