(FILECREATED " 8-Jun-87 18:23:20" ("compiled on " {QV}1.3K>NEXT>NCCROSSFILELINKS.;21) "12-Nov-85 14:59:23" recompiled changes: NC.OpenCrossFileLinkDestNoteFile in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 18:22:52" {QV}1.3K>NEXT>NCCROSSFILELINKS.;21 13891 changes to: (FNS NC.OpenCrossFileLinkDestNoteFile) previous date: " 5-Apr-87 19:51:29" {QV}1.3K>NEXT>NCCROSSFILELINKS.;20) NC.GetCrossFileLinkDestCard D1 (P 13Q NewFileName 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 1 InterestedWindow I 0 CrossFileLinkCard) @ @Hd`@H YIb A K b@ @ @ \d_L]L^M _d`dN_ OOA _>OO _ 1O_L LghgO @ OAioOol ohohA hh__(341Q NC.AskYesOrNo 321Q NC.PrintMsg 315Q CHARACTER 271Q NC.MarkCardDirty 262Q PACKFILENAME 237Q FULLNAME 213Q NC.ValidCardP 206Q NC.CardFromUID 173Q NC.OpenCrossFileLinkDestNoteFile 134Q NC.NoteFileFromNoteFileUID 101Q NC.FetchSubstance 74Q NC.GetNoteCard 67Q NC.ActiveCardP 60Q NC.CoerceToInterestedWindow 53Q OPENWP 36Q NC.NoteFileFromNoteFileUID 3 NC.FetchTitle) (255Q BODY 251Q VERSION 246Q CrossFileLinkSubstance 232Q CrossFileLinkSubstance 222Q NoteFile 151Q NoteFile 143Q NoteFileTYPE# 125Q CrossFileLinkSubstance 116Q CrossFileLinkSubstance 106Q CrossFileLinkSubstance 32Q CardObject 22Q NoteFileTYPE# 7 CardObject) ( 333Q "Yes" 326Q "Want to try opening a different notefile? " 310Q "." 302Q "Couldn't find destination card in ") NC.CreateCrossFileLinkCard D1 (P 3 CrossFileLinkCard P 2 DestNoteFile P 0 \NF I 2 TwoWayFlg I 1 DestCard I 0 SourceCard) AHd`AH YIQg@Hd`@H \LA i`AdMJdNghgJ _dOdBkj (217Q NC.MakeNoteCard 170Q PACKFILENAME 113Q NC.FetchTitle 101Q NC.NoteFileFromNoteFileUID 32Q NC.NoteFileFromNoteFileUID) (163Q NoteFile 157Q BODY 153Q VERSION 140Q NoteFile 124Q CardObject 117Q CrossFileLinkSubstanceTYPE# 75Q CardObject 65Q NoteFileTYPE# 52Q CardObject 46Q CrossFileLink 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.CrossFileLinkCardP D1 (I 0 Card) @ g(3 NC.FetchType) (6 CrossFileLink) () NC.OpenCrossFileLinkDestNoteFile D1 (P 3 ReadOnlyOpenFlg P 2 Menu I 2 InterestedWindow I 1 DestFileName I 0 DestNoteFile) `dogl g HdIdkdkgl g HdI$dg dgjdndhHdI d l@ @JoAo J dghidg#i[&@AhddddddBhddK b @gFhBioAol hbbohohB AohdiB bph(411Q NC.AskUser 370Q NC.AskYesOrNo 342Q NC.PrintMsg 336Q CHARACTER 303Q NCP.OpenNoteFileP 276Q NC.OpenNoteFile 223Q MENU 214Q CONCAT 166Q NCP.OpenNoteFileP 65Q FONTCREATE 26Q FONTCREATE) (311Q Cancel 242Q Open% Read-Only 227Q Open% Read/Write 200Q MENU 146Q MENU 112Q DEFAULTMENUHELDFN 103Q CLRPROMPT 62Q BOLD 55Q HELVETICA 23Q BOLD 16Q HELVETICA 2 MENUTYPE#) ( 401Q "File name to try opening: " 362Q "Yes" 355Q "Want to try opening a different notefile? " 331Q "." 324Q "Couldn't open " 211Q "?" 204Q "OPEN " 10Q (Open% Read/Write Open% Read-Only Cancel)) NC.AddCrossFileLink D1 NIL ,ggoogg hg`hh (51Q NC.AddCardType 26Q NC.InsureLinkDisplayMode) (37Q NC.CrossFileLinkIcon 34Q LinkIconAttachedBitMap 23Q Title 20Q LinkDisplayMode 5 NoteCard 2 CrossFileLink) ( 15Q (LinkAnchorModesSupported NIL) 11Q ((MakeFn NC.CrossFileLinkMakeFn) (EditFn NC.CrossFileLinkEditFn) (GetFn NC.CrossFileLinkGetFn) (PutFn NC.CrossFileLinkPutFn) (CopyFn NC.CrossFileLinkCopyFn) (MarkDirtyFn NILL) (DirtyPFn NILL) (QuitFn NILL) (DeleteLinksFn NILL) (InsertLinkFn NILL) (CollectLinksFn NILL) (UpdateLinkIconsFn NILL) (TranslateWindowPositionFn NILL))) NC.CrossFileLinkCopyFn D1 (P 1 FromEndPtr P 0 FromStartPtr I 3 Length I 2 ToStream I 1 FromStream I 0 Card) A CHԹABHI i(21Q COPYBYTES 3 GETFILEPTR) NIL () NC.CrossFileLinkMakeFn D1 (I 3 CrossFileLinkSubstance I 2 NoDisplayFlg I 1 Title I 0 Card) @C @(4 NC.SetSubstance) NIL () NC.CrossFileLinkEditFn D1 (P 1 DestinationCardTitle P 0 DestinationCard I 3 TypeSpecificArgs I 2 RegionOrPosition I 1 Substance I 0 Card) &@ Hd Y@ @hI HBC (43Q NC.EditNoteCard 34Q NC.AssignTitle 25Q STREQUAL 22Q NC.FetchTitle 15Q NC.RetrieveTitle 3 NC.GetCrossFileLinkDestCard) NIL () NC.CrossFileLinkGetFn D1 (I 2 Stream I 1 Length I 0 Card) 2`B HdIB HdIB` HdI(46Q READ 25Q NC.ReadUID 7 NC.ReadUID) (43Q NC.OrigReadTable 2 CrossFileLinkSubstanceTYPE#) () NC.CrossFileLinkPutFn D1 (P 0 Substance I 1 Stream I 0 Card) -@ AH AH HA` j(51Q PRINT 33Q NC.WriteUID 20Q NC.WriteUID 3 NC.FetchSubstance) (46Q NC.OrigReadTable 40Q CrossFileLinkSubstance 26Q CrossFileLinkSubstance 13Q CrossFileLinkSubstance) () NCAddStub.CrossFileLink D1 NIL ggg (13Q NC.AddCardTypeStub) (10Q NCCROSSFILELINKS 5 NoteCard 2 CrossFileLink) () (PRETTYCOMPRINT NCCROSSFILELINKSCOMS) (RPAQQ NCCROSSFILELINKSCOMS ((* * This file defines a card type called CrossFileLink that is a stand-in for really being able to link across notefiles.) (GLOBALVARS NC.NewCrossFileLinksTwoWayFlg NC.CopyCrossFileLinksMode NC.CrossFileLinkIcon NC.MakeCrossFileLinkIconStandIn) (BITMAPS NC.CrossFileLinkIcon) (VARS (NC.NewCrossFileLinksTwoWayFlg T) (NC.CopyCrossFileLinksMode NIL)) (FNS NC.GetCrossFileLinkDestCard NC.CreateCrossFileLinkCard NC.CrossFileLinkCardP NC.OpenCrossFileLinkDestNoteFile) (FNS NC.AddCrossFileLink NC.CrossFileLinkCopyFn NC.CrossFileLinkMakeFn NC.CrossFileLinkEditFn NC.CrossFileLinkGetFn NC.CrossFileLinkPutFn) (RECORDS CrossFileLinkSubstance) (P (NC.AddCrossFileLink) (PUTPROP (QUOTE CrossFileLink) (QUOTE Don'tForceFilingFlg) T)) (FNS NCAddStub.CrossFileLink))) (RPAQ NC.CrossFileLinkIcon (READBITMAP)) (21 18 "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "H@CH@H@@" "H@AL@H@@" "H@@N@H@@" "H@@G@H@@" "IOOOHH@@" "IOOOLH@@" "IOOOHH@@" "H@@G@H@@" "H@@N@H@@" "H@AL@H@@" "H@CH@H@@" "H@@@@H@@" "H@@@@H@@" "H@@@@H@@" "OOOOOH@@") (RPAQQ NC.NewCrossFileLinksTwoWayFlg T) (RPAQQ NC.CopyCrossFileLinksMode NIL) (DATATYPE CrossFileLinkSubstance (CrossFileLinkDestCardUID CrossFileLinkDestNoteFileUID CrossFileLinkDestFileHint (CrossFileLinkTwoWayFlg FLAG))) (/DECLAREDATATYPE (QUOTE CrossFileLinkSubstance) (QUOTE (POINTER POINTER POINTER FLAG)) (QUOTE (( CrossFileLinkSubstance 0 POINTER) (CrossFileLinkSubstance 2 POINTER) (CrossFileLinkSubstance 4 POINTER ) (CrossFileLinkSubstance 4 (FLAGBITS . 0)))) (QUOTE 6)) (NC.AddCrossFileLink) (PUTPROP (QUOTE CrossFileLink) (QUOTE Don'tForceFilingFlg) T) (PUTPROPS NCCROSSFILELINKS COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL