(FILECREATED "18-Jan-88 17:14:22" ("compiled on " {QV}1.3KNEXT>NCCROSSFILELINKS.;6) "12-Nov-85 14:59:23" recompiled changes: nothing in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED "18-Jan-88 17:14:03" {QV}1.3KNEXT>NCCROSSFILELINKS.;6 29366 changes to: (VARS NCCROSSFILELINKSCOMS) previous date: "30-Nov-87 15:55:37" {QV}1.3KNEXT>NCCROSSFILELINKS.;5) NC.CrossFileLinkAttachedBitMapFn D1 (P 4 ScaledHeight P 3 BitMap P 2 BitMapList P 1 BitMapSample P 0 NoteFile I 3 Scale I 2 ScaledHeightToMatch I 1 CrossFileLinkDestCard I 0 Card) p`@  X` ld H`ZH@ Y` HJ` BjbCkbJ]CMּKLdBMBMK(100Q PUTHASH 67Q NC.MakeTypeIconBitMapSet 60Q NC.FetchNoteFileAttachedBitmap 55Q NC.CoerceToInterestedWindow 33Q HASHARRAY 25Q HARRAYP 16Q NC.NoteFileFromNoteFileUID 6 NCP.CardSubstance) (75Q NC.AttachedBitMapsHashArray 64Q NC.DefaultLinkIconAttachedBitMapHeights 43Q NC.AttachedBitMapsHashArray 36Q NC.AttachedBitMapsHashArray 22Q NC.AttachedBitMapsHashArray 11Q CrossFileLinkSubstance) () NC.FetchNoteFileAttachedBitmap D1 (P 2 BitMapShade P 1 BitMap P 0 NoteFileName I 1 InterestedWindow I 0 NoteFile) c0@ XAioH ZAi ` ` Y`hdIhdddgg JIhdddg `hdIhdddgg I(137Q BITBLT 113Q BLTSHADE 76Q BITBLT 51Q BITMAPCREATE 46Q BITMAPHEIGHT 40Q BITMAPWIDTH 32Q NCP.ClearMsg 24Q EDITSHADE 21Q NCP.PrintMsg 6 NCP.FileNameFromNoteFile) (133Q ERASE 130Q INPUT 116Q NC.NoteFileAttachedBitMapMask 107Q PAINT 72Q PAINT 67Q INPUT 55Q NC.NoteFileAttachedBitMap 43Q NC.NoteFileAttachedBitMap 35Q NC.NoteFileAttachedBitMap) ( 15Q "Create a shade for notefile ") 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.DeleteCrossFileLinkCard D1 (P 0 DestCard I 0 CrossFileLinkCard) @ H@i i (23Q NC.DeleteNoteCardInternal 16Q NC.DeleteNoteCardInternal 3 NC.FetchRemoteCrossFileLinkCard) NIL () NC.FetchRemoteCrossFileLinkCard D1 (P 4 NoteFile P 3 NoteFileUID P 2 RemoteCrossFileLinkCardUID P 1 DestCard P 0 CrossFileLinkSubstance I 0 CrossFileLinkCard) C@ AHj0HZ(H[`K \ JL Y Ih(73Q NC.ValidCardP 67Q NC.CardFromUID 60Q NCP.OpenNoteFileP 54Q NC.NoteFileFromNoteFileUID 3 NCP.CardSubstance) (45Q UIDTYPE# 36Q CrossFileLinkSubstance 25Q CrossFileLinkSubstance 12Q CrossFileLinkSubstance) () NC.CheckCrossFileLinkCardTitle D1 (P 0 DestinationCardTitle I 1 DestinationCard I 0 CrossFileLinkCard) A H@ @hH h(25Q NC.AssignTitle 16Q STREQUAL 13Q NC.RetrieveTitle 3 NC.RetrieveTitle) NIL () NC.CheckCrossFileLinkType D1 (P 11Q \NF P 10Q ToLink P 6 FromLink P 3 NoteFile P 2 RemoteLink P 1 LinkLabel P 0 RemoteDestCard I 2 Link I 1 LocalCrossFileLinkCard I 0 RemoteCrossFileLinkCard) Ahi B2H@ M5h@ O9hZdIgI@ Od`0>^H NM]_H OO_@O \L[ IK JhI h(241Q NC.RelabelLink 232Q NCP.CreateLinkType 224Q NCP.ValidLinkTypeP 212Q NC.NoteFileFromNoteFileUID 163Q NC.SameCardP 136Q NC.SameCardP 50Q NC.RetrieveToLinks 31Q NC.RetrieveFromLinks 5 NC.GetCrossFileLinkDestCard) (205Q CardObject 155Q Link 130Q Link 116Q NoteFileTYPE# 102Q CardObject 67Q Link 11Q Link) () NC.MakeCrossFileLinkIconStandIn D1 (I 0 CrossFileLinkCard) o@ o ` (24Q IMAGEOBJCREATE 16Q CONCAT 7 NC.RetrieveTitle) (21Q NC.ExternalPutLinkIconImageFns) ( 13Q "' ]]" 3 "[[ Cross-file link to '") NC.ComputeCrossFileLinkMode D1 (P 3 Mode P 2 NoteFile P 0 \NF I 2 InterestedWindow I 1 CrossFileLinkModePropList I 0 RemoteCard) \@Hd`@H YI`dgdgih`JAAJ'@B gg[AJK K(130Q LISTPUT 111Q NC.AskCrossFileLinkMode 32Q NC.NoteFileFromNoteFileUID) (121Q ONEWAY 115Q TWOWAY 73Q NC.NewCrossFileLinksMode 60Q ONEWAY 52Q TWOWAY 46Q NC.NewCrossFileLinksMode 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.FetchCrossFileLinkIconAttachedBitMap D1 (P 1 BitMap P 0 AttachedBitMapFn I 3 Scale I 2 ScaledHeightToMatch I 1 CrossFileLinkDestCard I 0 Card) ggH@ABClHY@BC (35Q NC.FetchLinkIconAttachedBitMap) (5 AttachedBitMapFn 2 CrossFileLink) () 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@ _hbOO` O_>OO _ 1O_L LghgO @ OBhAioOol ooohAO h__\(421Q NC.AskYesOrNo 374Q NC.PrintMsg 370Q CHARACTER 340Q NC.MarkCardDirty 331Q PACKFILENAME 306Q FULLNAME 262Q NC.ValidCardP 255Q NC.CardFromUID 207Q 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) (324Q BODY 320Q VERSION 315Q CrossFileLinkSubstance 301Q CrossFileLinkSubstance 271Q NoteFile 240Q NoteFile 230Q NoteFileTYPE# 153Q NoteFile 145Q NoteFileTYPE# 127Q CrossFileLinkSubstance 120Q CrossFileLinkSubstance 110Q CrossFileLinkSubstance 32Q CardObject 22Q NoteFileTYPE# 7 CardObject) ( 411Q "Yes" 405Q " -- " 401Q "Want to try opening a different notefile? " 363Q "." 355Q "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 Message P 1 MenuItems P 0 WasOpenPromptWindowFlg I 3 CrossFileLinkCard I 2 InterestedWindow I 1 DestFileName I 0 DestNoteFile) BC B @ @oAohidhB 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.DatabaseFileName 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.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 3 \NF P 1 DestinationCardTitle P 0 DestinationCard I 4 TypeSpecificArgs I 3 RegionOrPosition I 2 ReadOnly I 1 Substance I 0 Card) @@ !H6@H HB(@Kd`@K ZJ(CD (75Q NC.EditNoteCard 55Q NC.NoteFileFromNoteFileUID 16Q NC.CheckCrossFileLinkCardTitle 3 NC.GetCrossFileLinkDestCard) (66Q NoteFile 51Q CardObject 41Q NoteFileTYPE# 26Q CardObject) () NC.CrossFileLinkGetFn D1 (I 3 VersionNum I 2 Stream I 1 Length I 0 Card) Cj3`B HdIB HdIB` HdI`B HdIB HdIB HdIB` HdIB` HdIkj(173Q READ 152Q READ 131Q NC.ReadUID 113Q NC.ReadUID 75Q NC.ReadUID 53Q READ 32Q NC.ReadUID 14Q NC.ReadUID) (170Q NC.OrigReadTable 147Q NC.OrigReadTable 70Q CrossFileLinkSubstanceTYPE# 50Q NC.OrigReadTable 7 CrossFileLinkSubstanceTYPE#) () NC.CrossFileLinkPutFn D1 (P 0 Substance I 1 Stream I 0 Card) K@ AH AH AH HA` HjhA` k(107Q PRINT 64Q PRINT 46Q NC.WriteUID 33Q NC.WriteUID 20Q NC.WriteUID 3 NC.FetchSubstance) (104Q NC.OrigReadTable 71Q CrossFileLinkSubstance 61Q NC.OrigReadTable 53Q CrossFileLinkSubstance 41Q 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.) (* * A programmer can customize the icon which will appear on the right side of the link icon for cross-file links. The main hook is the property "AttachedBitMapFn" which should be placed on the card type's atom; which in this case is CrossFileLink. This function is called in the display code by NC.FetchCrossFileLinkIconAttachedBitMap when a cross-file link is encountered.) (GLOBALVARS NC.CopyCrossFileLinksMode NC.CrossFileLinkIcon NC.MakeCrossFileLinkIconStandIn NC.NewCrossFileLinksMode NC.AttachedBitMapsHashArray NC.NoteFileAttachedBitMap NC.NoteFileAttachedBitMapMask) (INITVARS (NC.NewCrossFileLinksMode (QUOTE ASK)) (NC.AttachedBitMapsHashArray)) (FNS NC.CrossFileLinkAttachedBitMapFn NC.FetchNoteFileAttachedBitmap) (BITMAPS NC.CrossFileLinkIcon NC.NoteFileAttachedBitMap NC.NoteFileAttachedBitMapMask) (DECLARE: DONTEVAL@LOAD (VARS (NC.NewCrossFileLinksTwoWayFlg T) ( NC.CopyCrossFileLinksMode NIL))) (FNS NC.AskCrossFileLinkMode NC.DeleteCrossFileLinkCard NC.FetchRemoteCrossFileLinkCard NC.CheckCrossFileLinkCardTitle NC.CheckCrossFileLinkType NC.MakeCrossFileLinkIconStandIn NC.ComputeCrossFileLinkMode NC.FetchCrossFileLinkIconAttachedBitMap) ( FNS NC.GetCrossFileLinkDestCard NC.CreateCrossFileLinkCard NC.CrossFileLinkCardP NC.OpenCrossFileLinkDestNoteFile) (FNS NC.AddCrossFileLink NC.CrossFileLinkCopyFn NC.CrossFileLinkMakeFn NC.CrossFileLinkEditFn NC.CrossFileLinkGetFn NC.CrossFileLinkPutFn) (RECORDS CrossFileLinkSubstance) (DECLARE: DONTEVAL@LOAD (P (NC.AddCrossFileLink) (PUTPROP (QUOTE CrossFileLink ) (QUOTE Don'tForceFilingFlg) T))) (FNS NCAddStub.CrossFileLink))) (RPAQ? NC.NewCrossFileLinksMode (QUOTE ASK)) (RPAQ? NC.AttachedBitMapsHashArray) (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@@") (RPAQ NC.NoteFileAttachedBitMap (READBITMAP)) (21 18 "OOO@@@@@" "@@AH@@@@" "@@@L@@@@" "@@@F@@@@" "@@@C@@@@" "@@@AH@@@" "@@@@L@@@" "@@@@F@@@" "@@@@C@@@" "@@@@C@@@" "@@@@F@@@" "@@@@L@@@" "@@@AH@@@" "@@@C@@@@" "@@@F@@@@" "@@@L@@@@" "@@AH@@@@" "OOO@@@@@") (RPAQ NC.NoteFileAttachedBitMapMask (READBITMAP)) (21 18 "@@@OOH@@" "@@@GOH@@" "@@@COH@@" "@@@AOH@@" "@@@@OH@@" "@@@@GH@@" "@@@@CH@@" "@@@@AH@@" "@@@@@H@@" "@@@@@H@@" "@@@@AH@@" "@@@@CH@@" "@@@@GH@@" "@@@@OH@@" "@@@AOH@@" "@@@COH@@" "@@@GOH@@" "@@@OOH@@") (RPAQQ NC.NewCrossFileLinksTwoWayFlg T) (RPAQQ NC.CopyCrossFileLinksMode NIL) (DATATYPE CrossFileLinkSubstance (CrossFileLinkDestCardUID CrossFileLinkDestNoteFileUID CrossFileLinkDestFileHint (CrossFileLinkTwoWayFlg FLAG) RemoteCrossFileLinkCardUID)) (/DECLAREDATATYPE (QUOTE CrossFileLinkSubstance) (QUOTE (POINTER POINTER POINTER FLAG POINTER)) (QUOTE ((CrossFileLinkSubstance 0 POINTER) (CrossFileLinkSubstance 2 POINTER) (CrossFileLinkSubstance 4 POINTER) (CrossFileLinkSubstance 4 (FLAGBITS . 0)) (CrossFileLinkSubstance 6 POINTER))) (QUOTE 8)) (NC.AddCrossFileLink) (PUTPROP (QUOTE CrossFileLink) (QUOTE Don'tForceFilingFlg) T) (PUTPROPS NCCROSSFILELINKS COPYRIGHT ("Xerox Corporation" 1986 1987 1988)) NIL