(FILECREATED " 9-Jun-87 00:04:34" ("compiled on " {QV}1.3K>NEXT>RHTPATCH272.;7) "12-Nov-85 14:59:23" recompiled changes: NC.OpenCrossFileLinkDestNoteFile NC.GetCrossFileLinkDestCard in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED " 9-Jun-87 00:04:12" {QV}1.3K>NEXT>RHTPATCH272.;7 39541 changes to: (FNS NC.OpenNoteFile NC.OpenCrossFileLinkDestNoteFile NC.GetCrossFileLinkDestCard) (VARS RHTPATCH272COMS) previous date: " 4-Jun-87 16:16:04" {QV}1.3K>NEXT>RHTPATCH272.;5) (NC.LoadFileFromDirectories (QUOTE NCDOCUMENTCARD)) NC.AskUserWithMenuA0002 D1 (P 0 Win I 2 Button I 1 Menu I 0 Item) A Hg@ Hg (33Q NOTIFY.EVENT 30Q GETWINDOWUSERPROP 21Q PUTWINDOWPROP 6 MAINWINDOW 3 WFROMMENU) (25Q AskUserWithMenu-Event 15Q AskUserWithMenu-SelectedItem) () NC.AskUserWithMenu D1 (P 3 PromptWin P 2 MenuWindow P 1 Menu P 0 Event I 4 FlashFlg I 3 DontCloseAtEndFlg I 2 InterestedWindow I 1 Message I 0 MenuItems) g QBiA [Dd KgH `d@dgglg dLdkdg dgjdndhdM d lYKd`ggg ZH Ii J CBi Kg (245Q PUTWINDOWPROP 235Q NC.ClearMsg 226Q DETACHWINDOW 222Q DELETEMENU 215Q AWAIT.EVENT 211Q ALLOW.BUTTON.EVENTS 205Q ATTACHMENU 71Q FONTCREATE 36Q PUTWINDOWPROP 25Q FLASHWINDOW 16Q NC.PrintMsg 5 CREATE.EVENT) (242Q AskUserWithMenu-SelectedItem 202Q LEFT 177Q TOP 173Q BOTTOM 166Q PROMPTWINDOW 147Q MENU 117Q DEFAULTMENUHELDFN 110Q CLRPROMPT 66Q BOLD 61Q HELVETICA 53Q NC.AskUserWithMenuA0002 41Q MENUTYPE# 32Q AskUserWithMenu-Event 2 AskUserWithMenu) () NC.OpenCrossFileLinkDestNoteFile D1 (P 3 ReadOnlyOpenFlg P 2 Message P 1 MenuItems P 0 WasOpenPromptWindowFlg I 3 CrossFileLinkCard I 2 InterestedWindow I 1 DestFileName I 0 DestNoteFile) BC B @ @oAohdiBH bpC oAoC o oAo IJBHi dghidg#i[&@AhddddddddddK b @ghBioAol hbbooohBH L(315Q NC.AskYesOrNo 263Q NC.PrintMsg 257Q CHARACTER 224Q NCP.OpenNoteFileP 217Q NC.OpenNoteFile 144Q NC.AskUserWithMenu 130Q CONCAT 113Q CONCAT 103Q NC.RetrieveTitle 64Q NC.ValidCardP 54Q NC.AskUser 22Q NCP.OpenNoteFileP 13Q NC.PromptWindowOpenP 6 NC.CoerceToInterestedWindow) (232Q Don't% Open 163Q Read-Only 150Q Read/Write) ( 306Q "Yes" 302Q " -- " 276Q "Want to try opening a different notefile? " 252Q "." 245Q "Couldn't open " 125Q "?" 120Q "OPEN " 107Q "'?" 77Q " to look for '" 72Q "Open " 43Q "File name to try opening: " 31Q (Read/Write Read-Only Don't% Open)) NC.AskCrossFileLinkMode D1 (P 3 FullFileName P 2 NoteFile P 0 \NF I 1 InterestedWindow I 0 DestCard) q@Hd`@H YIJJ ho@ oKg oKg ol o ooiA (156Q NC.AskYesOrNo 140Q CONCAT 130Q CHARACTER 117Q FILENAMEFIELD 104Q FILENAMEFIELD 71Q NC.RetrieveTitle 56Q NC.ReadOnlyNoteFileP 32Q NC.NoteFileFromNoteFileUID) (114Q VERSION 101Q NAME 47Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 150Q "Yes" 144Q " -- " 134Q "(otherwise leaves no record of link in destination notefile) " 123Q "' be TWOWAY?" 110Q ";" 75Q "' in '" 65Q "Okay to make cross-file link to '") NC.GetCrossFileLinkDestCard D1 (P 14Q NewFileName P 13Q WasOpenPromptWindowFlg P 12Q Card P 11Q DestFileName P 10Q DestNoteFile P 7 DestCardUID P 6 DestFileHint P 5 DestNoteFileUID P 4 Substance P 3 SourceNoteFile P 2 Title P 0 \NF I 2 Don'tOpenDestNoteFileFlg I 1 InterestedWindow I 0 CrossFileLinkCard)  @ @Hd`@H YI AK b _@ @ @ \d_L]L^M _d`dN_ BO OOA@ _>OO _ 1O_L LghgO @ OBhAioOol ooohAO h__x(365Q NC.AskYesOrNo 340Q NC.PrintMsg 334Q CHARACTER 304Q NC.MarkCardDirty 275Q PACKFILENAME 252Q FULLNAME 226Q NC.ValidCardP 221Q NC.CardFromUID 206Q NC.OpenCrossFileLinkDestNoteFile 174Q NCP.OpenNoteFileP 136Q NC.NoteFileFromNoteFileUID 103Q NC.FetchSubstance 76Q NC.GetNoteCard 71Q NC.ActiveCardP 63Q NC.PromptWindowOpenP 56Q NC.CoerceToInterestedWindow 36Q NC.NoteFileFromNoteFileUID 3 NC.FetchTitle) (270Q BODY 264Q VERSION 261Q CrossFileLinkSubstance 245Q CrossFileLinkSubstance 235Q NoteFile 153Q NoteFile 145Q NoteFileTYPE# 127Q CrossFileLinkSubstance 120Q CrossFileLinkSubstance 110Q CrossFileLinkSubstance 32Q CardObject 22Q NoteFileTYPE# 7 CardObject) ( 355Q "Yes" 351Q " -- " 345Q "Want to try opening a different notefile? " 327Q "." 321Q "Couldn't find destination card in ") NC.NewCrossFileLinksModeSelectionFn D1 (I 0 GlobalVar) ``dododi d`dg dgjdndhHdI d ` k g(130Q MENU 121Q FONTHEIGHT) (135Q NOTCHANGED 116Q NC.MenuFont 106Q MENU 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 34Q NC.MenuFont 2 MENUTYPE#) ( 20Q "New cross-file links mode" 10Q ((Two-way (QUOTE TWOWAY) "Make new cross-file links be two-way, i.e. back link is created in destination notefile.") (One-way (QUOTE ONEWAY) "Make new cross-file links be one-way, i.e. no record of link is made in destination notefile.") (Ask% User (QUOTE ASK) "Ask user to find out whether cross-file link should be one-way or two-way."))) NC.NewCrossFileLinksModeCheckFn D1 (L (0 CandidateVar)) @oNIL NIL ( 4 (TWOWAY ONEWAY ASK)) 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.MakeDocumentA0001A0003 D1 (NAME ERRORSET P 0 \NF F 2 RESETVARSLST F 3 DocCard F 4 DocStream F 5 DocWindow F 6 CopyEmbeddedLinks F 7 NC.CRString F 10Q RootCard F 11Q ExpandEmbeddedLinks F 12Q HeadingsFromFileboxes F 13Q TitlesFromNoteCards F 14Q BuildBackLinks F 15Q RESETY)  g` hhRcUho ohhRcohhRcTWk Tkd SgSHd`SH YIhh WSTjdWWWVW Uho ci(217Q NC.PrintMsg 205Q NC.DumpCardToDoc 161Q NC.SetUserDataProp 144Q NC.NoteFileFromNoteFileUID 104Q TEDIT.DELETE 75Q TEDIT.INSERT 33Q NC.PrintMsg 10Q CURSOR) (140Q CardObject 130Q NoteFileTYPE# 115Q CardObject 111Q CrossFileLinkModePropList 5 WAITINGCURSOR 2 CURSOR) ( 214Q "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 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.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 x@ 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(1021Q NC.PrintMsg 1015Q CHARACTER 1004Q NC.RetrieveTitle 763Q NC.DumpCardToDoc 730Q NC.AddLinkToCard 723Q NC.MakeLink 717Q NC.ComputeCrossFileLinkMode 713Q NC.FetchUserDataProp 652Q NC.PrintMsg 646Q CHARACTER 635Q NC.RetrieveTitle 616Q NC.FetchUserDataProp 512Q BLOCK 500Q SHRINKW 475Q NC.FetchWindow 463Q NC.SetUserDataProp 453Q TEDIT.SETSEL 422Q NC.CollectReferences 415Q TEDIT.COPY 412Q TEDIT.SETSEL 374Q TEDIT.SETSEL 364Q TEXTOBJ 354Q TEXTSTREAMP 346Q TEDIT.INSERT.OBJECT 340Q IMAGEOBJP 304Q NC.MakeExternalSketchCopy 276Q NC.FetchWindow 271Q NCP.SketchBasedP 262Q GRAPHEROBJ 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) (710Q CrossFileLinkModePropList 613Q SeenBefore 604Q Link 557Q ALL 532Q ALL 520Q Link 460Q SeenBefore 450Q RIGHT 440Q TEXTOBJ 407Q RIGHT 401Q TEXTOBJ 367Q TEXTOBJ 313Q 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) ( 1010Q " only expanded once in this cycle." 641Q " only expanded once in this cycle.") 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 F 10Q NC.FiledCardLinkLabel) H 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.") (PRETTYCOMPRINT RHTPATCH272COMS) (RPAQQ RHTPATCH272COMS ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCDOCUMENTCARD)))) (* * Contains more cross-file link hacking. Includes ability for document cards to follow cross-file links and global parameter governing cross-file link mode. Also includes the new NC.AskUserWithMenu function which may be handy elsewhere.) (* * New function for NCUTILITIES) (FNS NC.AskUserWithMenu) (* * Changes to NCCROSSFILELINKS) (FNS NC.OpenCrossFileLinkDestNoteFile NC.AskCrossFileLinkMode NC.GetCrossFileLinkDestCard) (* * New stuff for NCPARAMETERS) (PROPS (NC.NoteCardsParameters NewCrossFileLinksMode)) (FNS NC.NewCrossFileLinksModeSelectionFn NC.NewCrossFileLinksModeCheckFn) (* * Following just for people loading this patchfile. Ignore at integration time.) (VARS ( NC.NoteCardsParameters (PROPNAMES (QUOTE NC.NoteCardsParameters)))) (* * Changes to NCDOCUMENTCARD) ( FNS NC.DumpCardToDoc NC.MakeDocument NC.DumpExportableCardToDoc NC.DumpFileBoxToDoc NC.DumpNoteCardToDoc))) (PUTPROPS NC.NoteCardsParameters NewCrossFileLinksMode (NC.NewCrossFileLinksMode EVAL NC.NewCrossFileLinksModeSelectionFn NC.NewCrossFileLinksModeCheckFn)) (RPAQ NC.NoteCardsParameters (PROPNAMES (QUOTE NC.NoteCardsParameters))) (PUTPROPS RHTPATCH272 COPYRIGHT ("Xerox Corporation" 1987)) NIL