(FILECREATED "18-Jan-88 17:09:47" {QV}<NOTECARDS>1.3KNEXT>NCLINKS.;6 214391
changes to: (FNS NC.CreateLinkIconStrings NC.DrawLinkOrPointerIcon
NC.ComputeLinkOrPointerImageBox NC.CheckForOrphanDelete
NC.LinkIconWhenDeletedFn)
previous date: "30-Nov-87 15:40:44" {QV}<NOTECARDS>1.3KNEXT>NCLINKS.;5)
(* Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT NCLINKSCOMS)
(RPAQQ NCLINKSCOMS ((* * Internal variables)
(GLOBALVARS NC.LinkIconSpaceInterLine NC.FileBoxLinkSpacer NC.NoDeleteImageFns
NC.SystemLinkLabels NC.InitialLinkLabels NC.SubBoxLinkLabel NC.FiledCardLinkLabel
NC.BrowserContentsLinkLabel NC.ListContentsLinkLabel NC.UnspecifiedLinkLabel
NC.UCASESystemLinkLabels NC.DocBackPtrLinkLabel NC.LinkIndexBackPtrLinkLabel
NC.LinkIconImageFns NC.LinkIconMiddleButtonMenu NC.LinkDisplayModesStylesheet
NC.LinkIconBorderWidth NC.LinkIconSpaceOuterY NC.LinkIconSpaceInnerY
NC.LinkIconSpaceOuterX NC.LinkIconSpaceInnerX NC.OrphanID
MINIMUM.VISIBLE.SCALE.FACTOR DEFAULT.VISIBLE.SCALE.FACTOR TEDIT.DEFAULT.FONT)
[DECLARE: DONTEVAL@LOAD (VARS (NC.SubBoxLinkLabel (QUOTE SubBox))
(NC.FiledCardLinkLabel (QUOTE FiledCard))
(NC.BrowserContentsLinkLabel (QUOTE BrowserContents))
(NC.ListContentsLinkLabel (QUOTE ListContents))
(NC.UnspecifiedLinkLabel (QUOTE Unspecified))
(NC.DocBackPtrLinkLabel (QUOTE DocBackPtr))
(NC.LinkIndexBackPtrLinkLabel (QUOTE LinkIndexBackPtr))
(NC.SystemLinkLabels (LIST NC.ListContentsLinkLabel
NC.BrowserContentsLinkLabel
NC.FiledCardLinkLabel
NC.SubBoxLinkLabel
NC.DocBackPtrLinkLabel
NC.LinkIndexBackPtrLinkLabel))
(NC.UCASESystemLinkLabels (FOR Label in NC.SystemLinkLabels
collect (U-CASE Label)))
(NC.InitialLinkLabels (APPEND (QUOTE (Comment See Unspecified))
NC.SystemLinkLabels]
(INITVARS (NC.LinkIconSpaceInterLine 0)
(NC.LinkIconBorderWidth 1)
(NC.LinkIconSpaceOuterY 2)
(NC.LinkIconSpaceInnerY 1)
(NC.LinkIconSpaceOuterX 2)
(NC.LinkIconSpaceInnerX 3)
(NC.FileBoxLinkSpacer (CHARACTER 13)))
(* * Links mechanism)
(RECORDS Link LINKDISPLAYMODE)
(FNS NC.GlobalLinkP NC.ChildLinkP NC.ContentsLinkP NC.SubContentsLinkP NC.ReverseLinkLabelP
NC.MakeGlobalLink NC.AddFromLink NC.AddLinkToGraphCard NC.AddLinkToSketchCard
NC.InsertLinkInSketch NC.InsertLinkInText NC.AddToLink NC.CachedAddToLink NC.DelFromLink
NC.CachedDelFromLink NC.DelToLink NC.DelReferencesToCard
NC.DelReferencesToCardFromGlobalList NC.DeleteLink NC.DeleteToLink NC.DeleteFromLink
NC.DeletedLinkDisplayFn NC.DeletedLinkGetFn NC.DeletedLinkImageBoxFn NC.DeletedLinkPutFn
NC.DeletedLinkImageObjP NC.DeleteBadLink NC.ReplaceWithDeletedLinkImageObj
NC.CheckForOrphanDelete NC.FileInOrphanBox NC.HookToOrphanCard NC.InsertLinkBeforeMarker
NC.LinkLabelP NC.IDAlphOrder NC.MakeLink NC.CachedMakeFilingLink NC.MakeFilingLink
NC.MakeFilingLinks NC.RelabelLink NC.SystemLinkLabelP NC.ValidLinkP NC.MakeChildLink
NC.EnsureNoCycles NC.SameLinkP NC.SameLinksP NC.AddGlobalLinkToCard
NC.AddGlobalLinksToCard NC.ChangeCardTitleFromLinkIcon NC.UncacheLinks NC.TraverseLink
NC.CreateLinkIconStrings)
(FNS NC.AddLinkToCard NC.AddLinksToCard)
(FNS NC.DelReferencesToCardFromShowLinks NC.UpdateLinkImagesInShowLinks
NC.FetchShowLinksWindow NC.ChangeLinkLabelInShowLinksWin)
(* * New Display Mode format)
(FNS NC.CheckDisplayModeFormat NC.InsureLinkDisplayMode NC.MakeNewDisplayMode
NC.DisplayModeFromStylesheetSelections NC.StylesheetSelectionsFromDisplayMode)
(GLOBALVARS NC.MenuItems/DisplayModeValues)
[DECLARE: DONTEVAL@LOAD
(VARS (NC.MenuItems/DisplayModeValues (QUOTE (Yes T No NIL Float FLOAT Yes T No NIL
Float FLOAT Yes T No NIL Float
FLOAT]
(* * New fns to support No-Link cards/substances)
(FNS NC.LinksSupportedP)
(* * Link display icons)
(FNS NC.FetchLinkIconForLink NC.MakeLinkIcon NC.LinkIconButtonEventInFn NC.LinkIconDisplayFn
NC.LinkIconImageBoxFn NC.LinkIconImageObjP NC.LinkIconPutFn NC.LinkIconGetFn
NC.LinkIconMiddleButtonFn NC.LinkIconWhenCopiedFn NC.LinkIconWhenDeletedFn
NC.LinkIconWhenInsertedFn NC.LinkIconWhenMovedFn NC.FetchLinkFromLinkIcon
NC.ChangeLinkDisplayMode NC.UpdateLinkImages NC.LinkIconCopyFn NC.LinkAtCharPos
NC.LinkIconLeftButtonFn)
(FNS NC.FillInLinkIcon NC.InvisibleLinkImageBoxFn NC.InvisibleLinkPutFn NC.InvisibleLinkGetFn)
(* * Pointer icons. These act like links, except that their icon boxes are dashed, and
they're invisible as far as the source or destination cards are concerned. That is, only
the imageobject containing the pointer knows about the connection. Functions exist for
creating pointer icons and converting them into link icons.)
(GLOBALVARS NC.PointerIconImageObjFns NC.PointerIconDashingStyle
NC.PointerIconMiddleButtonMenu)
[INITVARS (NC.PointerIconImageObjFns (IMAGEFNSCREATE (FUNCTION NC.PointerIconDisplayFn)
(FUNCTION NC.PointerIconImageBoxFn)
(FUNCTION NC.PointerIconPutFn)
(FUNCTION NC.PointerIconGetFn)
(FUNCTION NC.PointerIconCopyFn)
(FUNCTION NC.LinkIconButtonEventInFn)))
(NC.PointerIconDashingStyle (QUOTE (4 2]
(RECORDS NCPointer)
(* * Functions likely to be useful externally.)
(FNS NC.InsertPointerInText NC.ConvertPointerIconToLinkIcon NC.MakePointerIcon NC.MakePointer
NC.PointerIconImageObjP NC.FetchPointerFromPointerIcon)
(* * Internal functions.)
(FNS NC.PointerIconDisplayFn NC.PointerIconImageBoxFn NC.PointerIconPutFn NC.PointerIconGetFn
NC.PointerIconCopyFn NC.WritePointer NC.ReadPointer)
(FNS NC.PointerIconLeftButtonFn NC.PointerIconMiddleButtonFn NC.TraversePointer
NC.ChangePointerDisplayMode NC.RelabelPointer NC.ChangeCardTitleFromPointerIcon)
(FNS NC.DeleteBadPointer NC.DrawLinkOrPointerIcon NC.ComputeLinkOrPointerImageBox)
(DECLARE: DONTEVAL@LOAD (P (NC.MakePointerIcon)))
(* * New stuff for allowing put to work from TEdit.)
(GLOBALVARS NC.ExternalPutLinkIconImageFns)
[DECLARE: DONTEVAL@LOAD (VARS (NC.ExternalPutLinkIconImageFns (IMAGEFNSCREATE
(FUNCTION
NC.ExternalPutLinkIconDisplayFn)
(FUNCTION
NC.ExternalPutLinkIconImageBoxFn)
(FUNCTION
NC.ExternalPutLinkIconPutFn)
(FUNCTION
NC.ExternalPutLinkIconGetFn)
NIL
(FUNCTION NILL]
(FNS NC.ExternalPutLinkIconDisplayFn NC.ExternalPutLinkIconImageBoxFn
NC.ExternalPutLinkIconPutFn NC.ExternalPutLinkIconGetFn NC.CoerceToExternalPutLinkIcon)
(* * Stuff to register our image object for intermezzo.)
(FNS NC.RegisterPlaceMarkerImageObj)
(DECLARE: DONTEVAL@LOAD (P (NC.RegisterPlaceMarkerImageObj)))
(* * Stuff for handling link icons in sketches.)
(FNS NC.LinkIconSketchElementP NC.DeleteLinkIconSketchElement)
(* * Icons representing notecards types.)
(GLOBALVARS NC.FileBoxIcon NC.GraphCardIcon NC.SketchCardIcon NC.TextCardIcon NC.TypelessIcon)
(* * DELETEME imageobjs)
(GLOBALVARS NC.DELETEMEImageObjDatum NC.RemoveDELETEMEImageObjsFromCardFlg)
(INITVARS (NC.DELETEMEImageObjDatum "[[DELETE ME]]")
(NC.RemoveDELETEMEImageObjsFromCardFlg NIL))
(FNS NC.DELETEMEImageObjP)))
(* * Internal variables)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.LinkIconSpaceInterLine NC.FileBoxLinkSpacer NC.NoDeleteImageFns NC.SystemLinkLabels
NC.InitialLinkLabels NC.SubBoxLinkLabel NC.FiledCardLinkLabel NC.BrowserContentsLinkLabel
NC.ListContentsLinkLabel NC.UnspecifiedLinkLabel NC.UCASESystemLinkLabels
NC.DocBackPtrLinkLabel NC.LinkIndexBackPtrLinkLabel NC.LinkIconImageFns
NC.LinkIconMiddleButtonMenu NC.LinkDisplayModesStylesheet NC.LinkIconBorderWidth
NC.LinkIconSpaceOuterY NC.LinkIconSpaceInnerY NC.LinkIconSpaceOuterX
NC.LinkIconSpaceInnerX NC.OrphanID MINIMUM.VISIBLE.SCALE.FACTOR
DEFAULT.VISIBLE.SCALE.FACTOR TEDIT.DEFAULT.FONT)
)
(DECLARE: DONTEVAL@LOAD
(RPAQQ NC.SubBoxLinkLabel SubBox)
(RPAQQ NC.FiledCardLinkLabel FiledCard)
(RPAQQ NC.BrowserContentsLinkLabel BrowserContents)
(RPAQQ NC.ListContentsLinkLabel ListContents)
(RPAQQ NC.UnspecifiedLinkLabel Unspecified)
(RPAQQ NC.DocBackPtrLinkLabel DocBackPtr)
(RPAQQ NC.LinkIndexBackPtrLinkLabel LinkIndexBackPtr)
(RPAQ NC.SystemLinkLabels (LIST NC.ListContentsLinkLabel NC.BrowserContentsLinkLabel
NC.FiledCardLinkLabel NC.SubBoxLinkLabel NC.DocBackPtrLinkLabel
NC.LinkIndexBackPtrLinkLabel))
(RPAQ NC.UCASESystemLinkLabels (FOR Label in NC.SystemLinkLabels collect (U-CASE Label)))
(RPAQ NC.InitialLinkLabels (APPEND (QUOTE (Comment See Unspecified))
NC.SystemLinkLabels))
)
(RPAQ? NC.LinkIconSpaceInterLine 0)
(RPAQ? NC.LinkIconBorderWidth 1)
(RPAQ? NC.LinkIconSpaceOuterY 2)
(RPAQ? NC.LinkIconSpaceInnerY 1)
(RPAQ? NC.LinkIconSpaceOuterX 2)
(RPAQ? NC.LinkIconSpaceInnerX 3)
(RPAQ? NC.FileBoxLinkSpacer (CHARACTER 13))
(* * Links mechanism)
[DECLARE: EVAL@COMPILE
(DATATYPE Link (UID SourceCard DestinationCard AnchorMode Label DisplayMode UserData))
(TYPERECORD LINKDISPLAYMODE (SHOWTITLEFLG SHOWLINKTYPEFLG ATTACHBITMAPFLG)
(TYPE? (AND (EQ (LENGTH DATUM)
4)
(EQ (CAR DATUM)
(QUOTE LINKDISPLAYMODE))
(FMEMB (CADR DATUM)
(QUOTE (T NIL FLOAT)))
(FMEMB (CADDR DATUM)
(QUOTE (T NIL FLOAT)))
(FMEMB (CADDDR DATUM)
(QUOTE (T NIL FLOAT)))
T)))
]
(/DECLAREDATATYPE (QUOTE Link)
(QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER))
(QUOTE ((Link 0 POINTER)
(Link 2 POINTER)
(Link 4 POINTER)
(Link 6 POINTER)
(Link 8 POINTER)
(Link 10 POINTER)
(Link 12 POINTER)))
(QUOTE 14))
(DEFINEQ
(NC.GlobalLinkP
[LAMBDA (Link) (* kirk: "15-Nov-85 03:36")
(* * Return T if Link is a Global to Global link)
(EQ (QUOTE GlobalGlobal)
(fetch (Link AnchorMode) of Link])
(NC.ChildLinkP
[LAMBDA (Link) (* rht: " 1-Aug-84 09:34")
(* * Is link either to a filed card or sub filebox?)
(OR (NC.ContentsLinkP Link)
(NC.SubContentsLinkP Link])
(NC.ContentsLinkP
[LAMBDA (Link) (* kirk: "15-Nov-85 01:42")
(COND
((EQ NC.FiledCardLinkLabel (fetch (Link Label) of Link))
T)
(T NIL])
(NC.SubContentsLinkP
[LAMBDA (Link) (* kirk: "15-Nov-85 01:42")
(COND
((EQ NC.SubBoxLinkLabel (fetch (Link Label) of Link))
T)
(T NIL])
(NC.ReverseLinkLabelP
[LAMBDA (Link ListOfLabels) (* kirk: "15-Nov-85 01:43")
(* Is the reverse of Link, i.e. with "←" prefix
attached, present on ListOfLabels?)
(* * rht 9/4/84: Modified so as to return the linklabel found or nil.)
(PROG ((Label (fetch (Link Label) of Link)))
(RETURN (COND
((FMEMB (PACK* (QUOTE ←)
Label)
(OR (LISTP ListOfLabels)
(LIST ListOfLabels)))
Label])
(NC.MakeGlobalLink
[LAMBDA (Window LinkLabel DestinationCard SourceCard DisplayMode)
(* rht: "26-Oct-87 19:32")
(* * Make a new global link from DestinationCard to SourceCard with label LinkLabel and display mode DisplayMode.
Window is optional if SourceCard is specified, otherwise it is required.)
(* * rht 11/9/84: Now checks result of NC.MakeLink before building link.)
(* * rht 10/26/87: Now lets functions under NC.MakeLink take care of adding to global links list.)
(NC.MakeLink Window LinkLabel DestinationCard SourceCard DisplayMode (QUOTE GlobalGlobal)
NIL NIL (QUOTE ATEND])
(NC.AddFromLink
[LAMBDA (Link) (* Randy.Gobbel "15-Jul-87 17:54")
(* * Add Link to the FromLinks of the appropraite card on DatbaseStream)
(* * kirk: 14Nov85: deleted use of of DatabaseStream)
(* * rht 2/14/86: Now calls NC.UncacheLinks instead of two calls to NC.SetToLinks and NC.SetFromLinks.)
(* * kef 7/22/86: Now only calls NC.PutFromLinks instead of NC.PutLinks because we can't be certain of owning the
write locks on all of the Link parts.)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)
(LET ((Card (fetch (Link DestinationCard) of Link)))
[COND
((NC.LinksCachedP Card)
(NC.SetFromLinks Card (CONS Link (NC.FetchFromLinks Card)))
(NC.SetLinksDirtyFlg Card T))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of Card))
(NC.GetLinks Card)
(NC.SetFromLinks Card (CONS Link (NC.FetchFromLinks Card)))
(NC.PutFromLinks Card)
(NC.UncacheLinks Card]
Link])
(NC.AddLinkToGraphCard
[LAMBDA (Window LinkOrLinkLabel DestinationCard) (* rht: " 2-Nov-86 00:41")
(* Add a NOTECARD link to a graph card.
Pass the fact that this is a link-add to
NC.GraphAddNodeFn via the NoteCardInsertingLink window
property)
(* * rht 4/7/86: Now can handle insertion of multiple links by accepting label and/or destination card args.
Either or both can be nil.)
(* * rht 11/2/86: Now checks result of NC.MakeLink before proceeding.)
(LET [(Link (if (type? Link LinkOrLinkLabel)
then LinkOrLinkLabel
else (NC.MakeLink Window LinkOrLinkLabel DestinationCard]
(if Link
then (WINDOWPROP Window (QUOTE NoteCardInsertingLink)
Link)
(EDITADDNODE Window])
(NC.AddLinkToSketchCard
[LAMBDA (SketchWindow LinkOrLinkLabel DestinationCard) (* rht: " 7-Apr-86 17:24")
(* Called from a SKETCH window to add a new NoteCard
Link Icon to the sketch)
(* * rht 11/9/84: Now checks result of NC.MakeLink before building link.)
(* * rht 4/7/86: Now accepts LinkOrLinkLabel and DestinationCard args. Either or both can be nil.)
(if (NOT (type? Link LinkOrLinkLabel))
then (SETQ LinkOrLinkLabel (NC.MakeLink SketchWindow
(OR LinkOrLinkLabel
(NC.AskLinkLabel SketchWindow NIL NIL T
T))
DestinationCard)))
(NC.InsertLinkInSketch SketchWindow LinkOrLinkLabel])
(NC.InsertLinkInSketch
[LAMBDA (SketchWindow Link SketchWindowPosition) (* kirk: " 4-Sep-86 18:42")
(* * rht 8/20/85: Rewritten to use Richard's sketch programmer's interface. Eliminates references to sketch
records.)
(* * rht 10/1/85: Now checks that chosen position is actually within sketch, otherwise aborts by deleting link.)
(* * fgh 2/6/86 Added Card argument.)
(* * kirk 11Mar86 Deleted Card argument.)
(* * rht 8/1/86: Now doesn't break if NULL Link.)
(* * kirk 9/4/86 changed to use VIEWER.SCALE instead of old name)
(AND Link (LET ((LinkIcon (NC.MakeLinkIcon Link))
(Scale (VIEWER.SCALE SketchWindow))
SketchIcon Size Position)
(SETQ Size (IMAGEBOXSIZE LinkIcon))
(SETQ Position (OR (POSITIONP SketchWindowPosition)
(GETBOXPOSITION (fetch (IMAGEBOX XSIZE)
of Size)
(fetch (IMAGEBOX YSIZE)
of Size)
NIL NIL SketchWindow)))
(if (AND (INSIDEP (DSPCLIPPINGREGION NIL SketchWindow)
Position)
(SETQ SketchIcon (SKETCH.IMAGE.OBJECT.ELEMENT LinkIcon Scale
Position)))
then (SKETCH.ADD.ELEMENT SketchIcon SketchWindow)
SketchIcon
else (NCP.DeleteLinks Link)
NIL])
(NC.InsertLinkInText
[LAMBDA (TextStream LinkOrLinkLabel DestinationCard SourceCard DisplayMode CharacterPosition)
(* kirk: "15-Nov-85 11:53")
(* * Add a link image object (and hence a link) to the text specified by TextStream. Link has LinkLabel, goes to
DestinationCard and has DisplayMode. Returns the Link inserted.)
(* * rht 11/9/84: Now checks result of NC.MakeLink before building link.)
(* * rht 3/26/85: Now uses insert position to calculate the link after which to insert new link and passes this to
NC.MakeLink.)
(PROG ((Window (WINDOW.FROM.TEDIT.THING TextStream))
(TextObject (TEXTOBJ TextStream))
Link InsertPos)
(RETURN (COND
((SETQ InsertPos (OR (if (AND (FIXP CharacterPosition)
(ILEQ CharacterPosition
(fetch (TEXTOBJ TEXTLEN)
of TextObject)))
then CharacterPosition)
(NC.CharPosFromTextObject TextObject)))
(if [SETQ Link (COND
((type? Link LinkOrLinkLabel)
LinkOrLinkLabel)
(T (NC.MakeLink Window LinkOrLinkLabel DestinationCard
SourceCard DisplayMode NIL NIL NIL
(NC.LinkAtCharPos InsertPos TextStream]
then (TEDIT.SETSEL TextObject InsertPos 0 (QUOTE LEFT))
(TEDIT.INSERT.OBJECT (NC.MakeLinkIcon Link)
(TEXTSTREAM TextObject)
InsertPos))
Link)
(T (NC.ReportError "NC.InsertLinkInText"
"No selection set when inserting link image object.")
NIL])
(NC.AddToLink
[LAMBDA (Link LinkToInsertAfter BeingMovedFlg) (* rht: "11-Aug-86 21:39")
(* * Add Link to the ToLinks of the source card)
(* * rht 3/26/85: Added LinkToInsertAfter arg which is either NIL, ATEND, or a link after which to insert new link.
If NIL, then insert at front of list. If ATEND then insert at end.)
(* * kirk: 13Nov85: deleted second parameter (DatabaseSTream) and changed to call NC.CachedAddToLink.)
(* * rht 2/14/86: Now calls NC.UncacheLinks instead of two calls to NC.SetToLinks and NC.SetFromLinks.)
(* * rht 8/11/86: Added BeingMovedFlg. If non-nil, then delete instance of Link from ToLinks before inserting it in
new spot.)
[LET ((SourceCard (fetch (Link SourceCard) of Link)))
(COND
((NC.ActiveCardP SourceCard)
(NC.CachedAddToLink Link SourceCard LinkToInsertAfter BeingMovedFlg))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(NC.GetLinks SourceCard)
(NC.CachedAddToLink Link SourceCard LinkToInsertAfter BeingMovedFlg)
(NC.PutLinks SourceCard)
(NC.UncacheLinks SourceCard]
Link])
(NC.CachedAddToLink
[LAMBDA (Link SourceCard LinkToInsertAfter BeingMovedFlg)
(* rht: "26-Oct-87 19:31")
(* * Add Link to the cached ToLinks of the source card)
(* * rht 3/26/85: Added LinkToInsertAfter arg which is either NIL, ATEND, or a link after which to insert new link.
If NIL, then insert at front of list. If ATEND then insert at end.)
(* * kirk: 13Nov85: changed to use NoteFile instead of DatabaseStream)
(* * kirk 15Nov85: deleted use of LinkID)
(* * rht 8/11/86: Added BeingMovedFlg. If non-nil, then delete instance of Link from ToLinks before inserting it in
new spot.)
(* * rht 10/26/87: Now adds to global links list if necessary.)
(LET ((ToLinks (NC.FetchToLinks SourceCard)))
[if BeingMovedFlg
then (* Look for and delete old instance of the link.)
(if (NC.SameLinkP Link (CAR ToLinks))
then (NC.SetToLinks SourceCard (SETQ ToLinks (CDR ToLinks)))
else (for RestOfToLinks on ToLinks thereis (NC.SameLinkP
Link
(CADR RestOfToLinks))
finally (RPLACD RestOfToLinks (CDDR RestOfToLinks]
[COND
[(AND ToLinks (type? Link LinkToInsertAfter))
(* Destructively insert after a given link.)
(for RestOfToLinks on ToLinks thereis (NC.SameLinkP LinkToInsertAfter
(CAR RestOfToLinks))
finally (COND
[RestOfToLinks (RPLACD RestOfToLinks (CONS Link (CDR RestOfToLinks]
(T (NC.SetToLinks SourceCard (NCONC1 ToLinks Link]
((EQ LinkToInsertAfter (QUOTE ATEND)) (* Destructively insert at the end.)
(NC.SetToLinks SourceCard (NCONC1 ToLinks Link)))
(T (* Stick it at the front.)
(NC.SetToLinks SourceCard (CONS Link ToLinks]
[if (EQ (fetch (Link AnchorMode) of Link)
(QUOTE GlobalGlobal))
then (NC.SetGlobalLinks SourceCard (CONS Link (NC.FetchGlobalLinks SourceCard]
(NC.SetLinksDirtyFlg SourceCard T)
Link])
(NC.DelFromLink
[LAMBDA (Link NoOrphanHookFlg) (* Randy.Gobbel "15-Jul-87 18:21")
(* * Delete a FromLink from its destination card Hook card to orphan if this is the last link.)
(* * rht 11/15/84: Changed decision as to when to orphanize a card. Now must have deleted its last link
(not just last subbox or filedcard link). Also checks that link doesn't point from card to itself.)
(* * rht 12/1/84: Now doesn't do any work unless ID is valid, i.e. not DELETED or FREE.)
(* * kirk: 13Nov85: deleted of use of DatabaseStream and changed to call CachedDelFromLink.)
(* * kirk 29Jan86 Changed to a direct recursive call eliminating CachedDelFromLink. Added NC.FileInOrphanBox.)
(* * rht 2/14/86: Now calls NC.UncacheLinks instead of two calls to NC.SetToLinks and NC.SetFromLinks.)
(* * kef 7/30/86: Modified so that it only puts the FROMLINKS in the case of an inactiveP card.)
(* * rg 5/8/87 check for active card should have been check for links cached ; fixed)
(* * rg 7/15/87 now waits to call NC.PutFromLinks until after NC.FileInOrphanBox)
(LET ((DestinationCard (fetch (Link DestinationCard) of Link)))
(COND
((NC.ValidCardP DestinationCard)
(COND
((NC.LinksCachedP DestinationCard)
(NC.CachedDelFromLink Link DestinationCard)
(OR NoOrphanHookFlg (NC.FileInOrphanBox Link DestinationCard)))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of DestinationCard))
(NC.GetLinks DestinationCard)
(NC.CachedDelFromLink Link DestinationCard)
(OR NoOrphanHookFlg (NC.FileInOrphanBox Link DestinationCard))
(NC.PutFromLinks DestinationCard)
(NC.UncacheLinks DestinationCard))
Link])
(NC.CachedDelFromLink
[LAMBDA (Link DestinationCard) (* kirk: "29-Jan-86 17:07")
(* * Delete a FromLink from its destination card Hook card to orphan if this is the last link.)
(* * rht 11/15/84: Changed decision as to when to orphanize a card. Now must have deleted its last link
(not just last subbox or filedcard link). Also checks that link doesn't point from card to itself.)
(* * rht 12/1/84: Now doesn't do any work unless DestinationCard is valid, i.e. not DELETED or FREE.)
(* * kirk: 13Nov85: copied out of NC.DelFromLink and changed to use NoteFile instead of DatabaseStream)
(* * kirk 14Nov85: deleted use of LinkID)
(* * rht 12/9/85: Changed Global var NC.TopLevelCards to call on the NC.FetchTopLevelCards fn.)
(* * kirk 29Jan86 moved all the orphans stuff to NC.FileInOrphanBox called by NC.DelFromLink)
(NC.SetFromLinks DestinationCard (DREMOVE (for OldLink in (NC.FetchFromLinks
DestinationCard)
thereis (AND (NC.SameLinkP Link OldLink)
OldLink))
(NC.FetchFromLinks DestinationCard)))
(NC.SetLinksDirtyFlg DestinationCard T)
Link])
(NC.DelToLink
[LAMBDA (Link) (* Randy.Gobbel "15-May-87 16:54")
(* * Delete ToLink spoecified by Link from cards on DatabasseStream)
(* * rht 12/1/84: Now doesn't do any work unless SourceCard is valid, i.e. not DELETED or FREE.)
(* * kirk: 13Nov85: changed to use NoteFile from card from link instead of DatabaseStream)
(* * rht 2/14/86: Now calls NC.UncacheLinks instead of two calls to NC.SetToLinks and NC.SetFromLinks.)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)
(PROG ((SourceCard (fetch (Link SourceCard) of Link)))
(COND
((NOT (NC.ValidCardP SourceCard)))
((NC.LinksCachedP SourceCard)
(NC.SetToLinks SourceCard (DREMOVE (for OldLink in (NC.FetchToLinks
SourceCard)
thereis (AND (NC.SameLinkP Link
OldLink)
OldLink))
(NC.FetchToLinks SourceCard)))
(NC.SetLinksDirtyFlg SourceCard T))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard)
"NC.AddFromLink")
(NC.GetLinks SourceCard)
(NC.SetToLinks SourceCard (DREMOVE (for OldLink
in (NC.FetchToLinks
SourceCard)
thereis
(AND (NC.SameLinkP
Link OldLink)
OldLink))
(NC.FetchToLinks SourceCard)))
(NC.SetLinksDirtyFlg SourceCard T)
(NC.PutLinks SourceCard))
(NC.UncacheLinks SourceCard)))
(RETURN Link])
(NC.DelReferencesToCard
[LAMBDA (SourceCard LinkOrDestinationCard Don'tCreateDeletedImageObjFlg)
(* rht: " 9-Jun-87 18:16")
(* The card specified by DestinationID is being
deleted. Remove all references to it from the card
specified by SourceCard)
(* * kirk: 13Nov85: deleted use of DatabaseStream)
(* * fgh 2/5/86 Added call to NC.ApplyFn)
(* * kef 7/31/86: Added wrapping of write lock grabbing so that deactivating the card preserves the nesting of
write lock ownership.)
(* * kef 8/5/86: Added putting of Main Card data in ActiveP case. This is so that if subsequent other people bring
up the card, they will see the fact that link card was deleted.)
(* * kef 8/7/86: Now requires that the card is being edited rather than just Active to thwart direct write through
to NoteFile.)
(* * rht 8/11/86 Added ShrunkenFlg so that SourceCard is reshrunk afterwards if necessary.)
(* * fgh 8/30/86 Changed APPLY* to NC.ApplyFn. Appears there might be trouble here since we don't appear to wait if
we can't get all the write permission locks. I am assuming for now that this is being taken care of at a higher
level.)
(* * rht 9/19/86: It was testing NC.BeingEditedP to decide whether had to obtain write permission, etc. I think
NC.ActiveCardP is enough. NC.BeingEditedP is bogus anyway as it doesn't work on card's whose editors don't have
processes like graph cards.)
(* * rht 11/4/86: Now takes Don'tCreateDeletedImageObjFlg arg.)
(* * rht 3/19/87: Undo Ken's server-related fix of 8/5/86, i.e. ripped out call to NC.PutMainCardData when card is
active.)
(* * rht 6/9/87: Now marks card dirty after calling DeleteLinksFn.)
(LET ((ShrunkenFlg (NC.GetShrunkenWin SourceCard))
NoteCardType Substance)
[COND
((NC.ActiveCardP SourceCard)
(SETQ NoteCardType (NC.RetrieveType SourceCard))
(SETQ Substance (NC.FetchSubstance SourceCard))
(NC.ApplyFn DeleteLinksFn SourceCard LinkOrDestinationCard Don'tCreateDeletedImageObjFlg)
(NC.MarkCardDirty SourceCard))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(if (NC.ValidCardP (NC.GetNoteCard SourceCard))
then (RESETLST (RESETSAVE (for CardPart
in (QUOTE (SUBSTANCE TOLINKS
GLOBALTOLINKS
PROPLIST))
do (NC.ApplyFn
ObtainWritePermissionFn
SourceCard
CardPart))
(BQUOTE (NC.DeactivateCard ,
SourceCard)))
(SETQ NoteCardType (NC.RetrieveType SourceCard)
)
(SETQ Substance (NC.FetchSubstance SourceCard))
(NC.ApplyFn DeleteLinksFn SourceCard
LinkOrDestinationCard
Don'tCreateDeletedImageObjFlg)
(NC.PutMainCardData SourceCard]
(NC.DelReferencesToCardFromGlobalList SourceCard LinkOrDestinationCard)
(AND ShrunkenFlg (SHRINKW (NC.FetchWindow SourceCard])
(NC.DelReferencesToCardFromGlobalList
[LAMBDA (SourceCard LinkOrDestinationCard) (* rht: " 5-Jun-87 14:56")
(* * LinkOrDestinationCard is being deleted. Remove all references to it from the global links list of SourceCard)
(* * rht 11/19/84: Fixed a naming typo changing ID to SourceCard everywhere. Also fixed DestinationID arg to be
LinkOrDestinationID.)
(* * kirk: 14Nov85: deleted use of of DatabaseStream and LinkID and changed EQs to NC.Same*Ps)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)
(* * rht&pmi 6/5/87: Added call to NC.UncacheLinks.)
(COND
((NC.LinksCachedP SourceCard)
(NC.SetGlobalLinks SourceCard (for Link in (NC.FetchGlobalLinks SourceCard)
when (if (NC.CardP LinkOrDestinationCard)
then (NOT (NC.SameCardP
LinkOrDestinationCard
(fetch (Link DestinationCard)
of Link)))
else (NOT (NC.SameLinkP
LinkOrDestinationCard
Link)))
collect Link)))
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(NC.GetLinks SourceCard)
(NC.SetGlobalLinks SourceCard
(for Link in (NC.FetchGlobalLinks SourceCard)
when (if (NC.CardP LinkOrDestinationCard)
then (NOT (NC.SameCardP
LinkOrDestinationCard
(fetch (Link
DestinationCard)
of Link)))
else (NOT (NC.SameLinkP
LinkOrDestinationCard
Link)))
collect Link))
(NC.PutLinks SourceCard)
(NC.UncacheLinks SourceCard])
(NC.DeleteLink
[LAMBDA (Link NoOrphanHookFlg Don'tDelLinkIconFlg) (* pmi: "19-Jun-87 10:33")
(* * Delete a link with the option of not putting an orphan hook in case of last filing link.
Also option of not deleting link icon from the source card's substance.)
(* * fgh 5/2/86 Included calls to NC.DelReferencesToCardFromShowLinks in order to clean up ShowLinks windows when
links are deleted.)
(* * kef 7/17/86: Added the requirement that the write permissions be obtained for the TOLINKS of the Source Card
and the FROMLINKS of the Destination Card.)
(* * kef 7/22/86: Puts the links for the Destination Card now right away while we are still holding onto the write
lock for the FROMLINKS.)
(* * kef 7/30/86: Modified to check for Client's concept of whether he owns the write lock or not, thus deciding
whether or not to setup the release of the write lock afterwards.)
(* * fgh 8/30/86 Adpated to use NC.IfCardPartNotBusy. Note use of ERROR!. Unfortunately, it appears that the only
way to keep TEDIT from deleting the Link's Image Object is to bail out but good. The control structure here works
because NC.IfCardPartNotBusy returns NIL if the CardPart is busy. The Ts at the end as the last SExpr in each call
to NC.IfCardPartNotBusy insure that NC.IfCardPartNotBusy returns non-NIL otherwise.)
(* * rht 9/29/86: Removed the call to NC.PutFromLinks. Looks to me like it'll get called anyway by NC.DelFromLink
if necessary.)
(* * rht 10/6/86: Delete crossfilelink cards when their links are deleted.)
(* * rht 11/4/86: Now takes Don'tCreateDeletedImageObjFlg arg.)
(* * rht 11/13/86: Undid my change of 11/4/86.)
(* * rg 3/11/87 changed call of NC.DeleteNoteCard to NC.DeleteNoteCardInternal)
(* * rht 3/13/87: Broke out code into the NC.DeleteFromLink and NC.DeleteToLink functions.)
(* * rht 5/26/87: Changed to match reduced functionality of NC.ValidLinkP, now checks that DestinationCard and
SourceCard are valid cards.)
(* * rht 6/9/87: Slight modification of previous fix; moved check for valid source and destination card to be
around the relevant calls to NC.DeleteFromLink and NC.DeleteToLink.)
(* * pmi 6/19/87: Leave the check for valid source and destination card for NC.DeleteFromLink and NC.DeleteToLink.)
(AND (NC.ValidLinkP Link)
(LET ((SourceCard (fetch (Link SourceCard) of Link))
(DestinationCard (fetch (Link DestinationCard) of Link)))
(WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(OR (NC.IfCardPartNotBusy DestinationCard (QUOTE FROMLINKS)
(OR (NC.IfCardPartNotBusy
DestinationCard
(QUOTE TOLINKS)
(NC.DeleteFromLink Link
NoOrphanHookFlg)
(NC.DeleteToLink Link
Don'tDelLinkIconFlg)
(replace (Link UID) of Link
with -1)
T)
(ERROR!))
T)
(ERROR!])
(NC.DeleteToLink
[LAMBDA (Link Don'tDelLinkIconFlg) (* rht: "27-May-87 14:40")
(* * This is part of what used to be the innards of NC.DeleteLink.)
(* * rht 3/26/87: Changed to call NC.DeleteNoteCardInternal with QuietFlg on.)
(* * rht 5/27/87: Changed to match reduced functionality of NC.ValidLinkP, now checks that SourceCard is valid
card. Now calls NC.DeleteCrossFileLinkCard which tries to delete other end of cross-file link if that notefile is
open.)
(AND (NC.ValidLinkP Link)
(LET ((SourceCard (fetch (Link SourceCard) of Link)))
(AND (NC.ValidCardP SourceCard)
(WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(OR Don'tDelLinkIconFlg (NC.DelReferencesToCard SourceCard
Link))
(NC.DelToLink Link)
(NC.DelReferencesToCardFromShowLinks SourceCard Link)
(* * Delete cross file link cards when their links are deleted.)
(if (NC.CrossFileLinkCardP SourceCard)
then (NC.DeleteCrossFileLinkCard SourceCard])
(NC.DeleteFromLink
[LAMBDA (Link NoOrphanHookFlg) (* rht: "27-May-87 14:40")
(* * This is part of what used to be the innards of NC.DeleteLink.)
(* * rht 3/26/87: Changed to call NC.DeleteNoteCardInternal with QuietFlg on.)
(* * rht 5/26/87: Changed to match reduced functionality of NC.ValidLinkP, now checks that DestinationCard is a
valid card. Now calls NC.DeleteCrossFileLinkCard which tries to delete other end of cross-file link if that
notefile is open.)
(AND (NC.ValidLinkP Link)
(LET ((DestinationCard (fetch (Link DestinationCard) of Link)))
(AND (NC.ValidCardP DestinationCard)
(WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of DestinationCard)
)
(NC.DelFromLink Link NoOrphanHookFlg)
(NC.DelReferencesToCardFromShowLinks DestinationCard Link)
(* * Delete cross file link cards when their links are deleted.)
(if (NC.CrossFileLinkCardP DestinationCard)
then (NC.DeleteCrossFileLinkCard DestinationCard])
(NC.DeletedLinkDisplayFn
[LAMBDA (ImageObj Stream) (* fgh: "14-May-85 13:04")
(SELECTQ (IMAGESTREAMTYPE Stream)
(DISPLAY (* This is being displayed on the screen)
(PROG ((ImageBox (NC.DeletedLinkImageBoxFn ImageObj Stream))
Bottom XSize YSize Left)
(DSPXPOSITION (IPLUS 3 (SETQ Left (DSPXPOSITION NIL Stream)))
Stream)
(SETQ XSize (fetch (IMAGEBOX XSIZE) of ImageBox))
(SETQ YSize (fetch (IMAGEBOX YSIZE) of ImageBox))
(SETQ Bottom (IDIFFERENCE (DSPYPOSITION NIL Stream)
(fetch (IMAGEBOX YDESC)
of ImageBox)))
(* don't bother to errorset this)
(DSPFONT (PROG1 (DSPFONT NC.LinkIconFont Stream)
(PRIN1 "Deleted" Stream))
Stream)
(BITBLT NIL NIL NIL Stream (ADD1 Left)
(IPLUS Bottom 2)
(IDIFFERENCE XSize 2)
(IDIFFERENCE YSize 4)
(QUOTE TEXTURE)
(COND
((EQ (DSPOPERATION NIL Stream)
(QUOTE ERASE))
(QUOTE ERASE))
(T (QUOTE INVERT)))
BLACKSHADE)))
((PRESS INTERPRESS) (* It's being displayed on a press file)
NIL)
NIL])
(NC.DeletedLinkGetFn
[LAMBDA (InputStream TextStream) (* rht: "10-Jun-87 14:56")
(* * rht 6/10/87: Now skips carriage return if any.)
(if (EQ (\PEEKBIN InputStream)
13)
then (BIN InputStream))
(BIN InputStream)
NC.DeletedLinkImageObject])
(NC.DeletedLinkImageBoxFn
[LAMBDA (ImageObj Stream) (* fgh: " 1-Apr-85 18:07")
(PROG ((Font NC.DefaultFont))
(RETURN (create IMAGEBOX
XSIZE ← (IPLUS 6 (STRINGWIDTH "Deleted" Font))
YSIZE ← (IPLUS 4 (FONTPROP Font (QUOTE HEIGHT)))
YDESC ← (IPLUS 2 (FONTPROP Font (QUOTE DESCENT)))
XKERN ← 0])
(NC.DeletedLinkPutFn
[LAMBDA (ImageObj OutputStream) (* fgh: "26-Feb-84 01:04")
(BOUT OutputStream 1])
(NC.DeletedLinkImageObjP
[LAMBDA (ImageObj) (* rht: "12-Jun-85 10:07")
(* * Returns non-nil if ImageObj is a deleted link icon.)
(AND (IMAGEOBJP ImageObj)
(EQ (FUNCTION NC.DeletedLinkDisplayFn)
(IMAGEOBJPROP ImageObj (QUOTE DISPLAYFN])
(NC.DeleteBadLink
[LAMBDA (Link ImageObj ImageStream StreamType TextStream Scale)
(* pmi: "19-Jun-87 15:04")
(* * pmi&rht 6/19/87: Deletes a bad link when it is discovered at display time. If the link icon being displayed is
in the Show Links window, then find its corresponding real link and delete it. Otherwise, just delete the link.)
(LET (Card)
(if (LISTGET (fetch (Link UserData) of Link)
(QUOTE InsidePropListEditor))
then (SETQ Card (fetch (Link SourceCard) of Link))
(for RealLink in (NC.FetchFromLinks Card) when (NC.SameLinkP RealLink
Link)
do (NC.DeleteLink RealLink))
(for RealLink in (NC.FetchToLinks Card) when (NC.SameLinkP RealLink
Link)
do (NC.DeleteLink RealLink))
(QUOTE DON'T)
else (NC.DeleteLink Link NIL T)
(NC.ReplaceWithDeletedLinkImageObj ImageObj)
(APPLY* (IMAGEOBJPROP ImageObj (QUOTE DISPLAYFN))
ImageObj ImageStream StreamType TextStream Scale)
(QUOTE CHANGED])
(NC.ReplaceWithDeletedLinkImageObj
[LAMBDA (ImageObject) (* pmi: "19-Jun-87 10:28")
(* * pmi 6/19/87: smash a bad link's image object with the fields of a "Deleted" image object.)
(DECLARE (GLOBALVARS NC.DeletedLinkImageObject))
(create IMAGEOBJ smashing ImageObject OBJECTDATUM ← (fetch (IMAGEOBJ OBJECTDATUM)
of NC.DeletedLinkImageObject)
IMAGEOBJPLIST ← (fetch (IMAGEOBJ IMAGEOBJPLIST) of
NC.DeletedLinkImageObject)
IMAGEOBJFNS ← (fetch (IMAGEOBJ IMAGEOBJFNS) of
NC.DeletedLinkImageObject])
(NC.CheckForOrphanDelete
[LAMBDA (SourceCard DestinationCard SourceWindow) (* rht: " 9-Dec-87 16:52")
(* Check to make sure we are not deleteing the last reference to a note card from the orphan card.
Last references are okay to delete it since they will be put in the orphan card. But deleting last reference from
the orphan card is very, very bad. Warn the user.)
(* * kirk: 14Nov85: changed EQs to NC.Same*Ps)
(* * rht 7/4/86: Brought up to date with 1.3k. E.g. took out mention of NC.OrphansID)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)
(* * rht 12/9/87: No longer checks links caching. Now just assumed that links are cached when this fn is called.)
(DECLARE (GLOBALVARS NC.SubBoxLinkLabel NC.FiledCardLinkLabel))
(LET [(FilingLinks (LIST NC.SubBoxLinkLabel NC.FiledCardLinkLabel))
(OrphansCard (fetch (NoteFile OrphansCard) of (fetch (Card NoteFile) of SourceCard]
(AND (NC.SameCardP SourceCard OrphansCard)
(for Link in (NC.FetchFromLinks DestinationCard)
when (FMEMB (fetch (Link Label) of Link)
FilingLinks)
unless (NC.SameCardP (fetch (Link SourceCard) of Link)
OrphansCard)
never Link)
(NC.PrintMsg (NC.FetchWindow SourceCard)
T "You have just deleted the last filing link to " (NC.RetrieveTitle
DestinationCard)
(CHARACTER 13)
"The Search operation can be used to find it."])
(NC.FileInOrphanBox
[LAMBDA (Link DestinationCard) (* rht: "29-May-87 01:00")
(* * Hook card to orphan if this is the last link.)
(* * rht 7/4/86: Changed to call NC.FetchSpecialCards so that RegistryCard, etc. won't have to be filed somewhere.)
(* * rg 11/18/86 Added globalvars declaration)
(* * rht 4/20/87: Changed to work on new cards unless they're displayed on screen. Also removed reference to
long-demised NC.OrphansID.)
(* * rht 5/28/87: Now calls NC.CardNeedsFilingP, i.e. card should need filing before we gripe.)
(LET ((SourceCard (fetch (Link SourceCard) of Link)))
[AND (NC.CardNeedsFilingP DestinationCard)
(NOT (NC.SameCardP SourceCard DestinationCard))
(NOT (AND (NC.FetchNewCardFlg DestinationCard)
(NC.FetchWindow DestinationCard)))
[NOT (NC.SameCardP SourceCard (fetch (NoteFile OrphansCard)
of (fetch (Card NoteFile) of SourceCard]
(COND
((OR (NULL (NC.FetchFromLinks DestinationCard))
(for FromLink in (NC.FetchFromLinks DestinationCard)
always (NC.SameCardP (fetch (Link SourceCard) of FromLink)
DestinationCard)))
(NC.PrintMsg NIL T "You have just removed the last link to " (NC.RetrieveTitle
DestinationCard)
"."
(CHARACTER 13)
"It is being filed in the Orphan FileBox.")
(NC.HookToOrphanCard DestinationCard))
([for FromLink in (NC.FetchFromLinks DestinationCard)
never (FMEMB (fetch (Link Label) of FromLink)
(QUOTE (SubBox FiledCard]
(NC.PrintMsg NIL T "You have just unfiled " (NC.RetrieveTitle DestinationCard)
" from its last filebox."
(CHARACTER 13)
"It is being filed in the Orphan FileBox.")
(NC.HookToOrphanCard DestinationCard]
Link])
(NC.HookToOrphanCard
[LAMBDA (Card OrphansCard) (* Randy.Gobbel "19-Feb-87 16:57")
(* The last reference to the card has just been
deleted. Hook this card to the orphan card so it
doesn't get lost forever)
(* * kirk: 14Nov85: deleted use of DatabaseStream and changed EQs to NC.Same*Ps)
(* * kef 7/29/86: Took out the calls to NC.PutMainCardData, NC.PutLinks, and NC.DeactivateCard after
NC.MakeFilingLink. The reason is that this is done within NC.InsertLinkBeforeMarker or NC.InsertLinkInOrdering,
which are called by NC.MakeFilingLink. Therefore, don't do this twice.)
(* * rg 2/19/87 Return parent as value)
(DECLARE (GLOBALVARS NC.FiledCardLinkLabel NC.SubBoxLinkLabel))
(LET ((NoteFile (fetch (Card NoteFile) of Card)))
(OR OrphansCard (SETQ OrphansCard (fetch (NoteFile OrphansCard) of NoteFile)))
(COND
((NC.ActiveCardP OrphansCard)
(COND
((NC.MakeFilingLink OrphansCard Card (if (NC.FileBoxP Card T)
then NC.SubBoxLinkLabel
else NC.FiledCardLinkLabel))
OrphansCard)))
(T (WITH.MONITOR (NC.FetchMonitor NoteFile)
(NC.GetNoteCard OrphansCard) (* These no longer needed expressions used to go after
the NC.MakeFilingLink below:
(NC.PutMainCardData OrphansCard)
(NC.PutLinks OrphansCard) (NC.DeactivateCard
OrphansCard))
(COND
((NC.MakeFilingLink OrphansCard Card (if (NC.FileBoxP Card T)
then NC.SubBoxLinkLabel
else NC.FiledCardLinkLabel))
OrphansCard])
(NC.InsertLinkBeforeMarker
[LAMBDA (SourceCard DestinationCard LinkLabel DisplayMode Marker# NoSpacerFlg)
(* fgh: " 1-Sep-86 13:21")
(* Insert a link to DestinationCard in SourceCard just
before the Marker#'th place marker object)
(* * rht 12/7/84: Now returns the newly created link.)
(* * rht 9/13/85: When card is inactive, there won't be a current cursor position. So if no marker# is specified,
then insert at end.)
(* * kirk: 14Nov85: deleted use of of DatabaseStream)
(* * kef 7/28/86: Added call to obtain write locks on SUBSTANCE and all LINKS in the case when the card is not
NC.ActiveCardP.)
(* * kef 7/31/86: Added "balancing" of write lock ownership with NC.DeactivateCard.)
(* * kef 8/7/86: Now cached changes only occur if the card is currently being edited.)
(* * fgh 8/30/86 Adpated to NC.IfCardPartsNotBusy)
(* * fgh 9/1/86 Rescinded kef's change of 8/7/86. This causes active but nit visible cards to be written over even
if they are dirty.)
(LET (Objects TextStream TextObject (Spacer (CONCAT (CHARACTER 13)))
Link BusyPart)
[COND
[(NC.ActiveCardP SourceCard)
(NC.IfMultipleCardPartsNotBusy SourceCard (SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS)
[SETQ TextObject (TEXTOBJ (SETQ TextStream
(NC.FetchSubstance
SourceCard]
[COND
[[AND (FIXP Marker#)
(SETQ Objects (TEDIT.LIST.OF.OBJECTS
TextObject
(FUNCTION NC.PlaceMarkerP]
(COND
((EQ Marker# 0)
(TEDIT.SETSEL TextStream 1 0 (QUOTE LEFT)))
((IGREATERP Marker# (FLENGTH Objects))
(TEDIT.SETSEL TextStream
(ADD1 (fetch (TEXTOBJ
TEXTLEN)
of TextObject))
0
(QUOTE RIGHT)))
(T (TEDIT.SETSEL TextStream
(CADAR (FNTH Objects Marker#)
)
0
(QUOTE LEFT]
(NC.MarkersInFileBoxesFlg (TEDIT.SETSEL TextStream
(GETEOFPTR
TextStream)
0
(QUOTE
RIGHT]
(SETQ Link (NC.InsertLinkInText TextStream LinkLabel
DestinationCard
SourceCard
DisplayMode))
(COND
((NULL NoSpacerFlg)
(TEDIT.INSERT TextStream Spacer]
(T (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(NC.IfMultipleCardPartsNotBusy
SourceCard
(SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS)
(COND
((NC.CardP (NC.GetNoteCard SourceCard))
(* * This next set of obtain write locks is only to make sure that we come out even when NC.DeactivateCard releases
the write locks. Note that the SourceCard will be deactivated upon exit of the RESETLST, as set up by the
RESETSAVE.)
(RESETSAVE (for CardPart in (QUOTE (SUBSTANCE TOLINKS
GLOBALTOLINKS
PROPLIST))
do (APPLY* (fetch (Card
ObtainWritePermissionFn)
of SourceCard)
SourceCard CardPart))
(BQUOTE (NC.DeactivateCard , SourceCard)))
[SETQ TextObject (TEXTOBJ (SETQ TextStream (
NC.FetchSubstance SourceCard]
[COND
[[AND (FIXP Marker#)
(SETQ Objects (TEDIT.LIST.OF.OBJECTS
TextObject
(FUNCTION NC.PlaceMarkerP]
(COND
((EQ Marker# 0)
(TEDIT.SETSEL TextStream 1 0 (QUOTE LEFT)))
((IGREATERP Marker# (FLENGTH Objects))
(TEDIT.SETSEL TextStream (ADD1 (fetch (TEXTOBJ
TEXTLEN)
of TextObject))
0
(QUOTE RIGHT)))
(T (TEDIT.SETSEL TextStream (CADAR (FNTH Objects
Marker#))
0
(QUOTE LEFT]
(T (* Cursor has no position in closed Tedit win, so just
set selection to end.)
(TEDIT.SETSEL TextStream (ADD1 (fetch (TEXTOBJ TEXTLEN)
of TextObject))
0
(QUOTE RIGHT]
(SETQ Link (NC.InsertLinkInText TextStream LinkLabel
DestinationCard SourceCard
DisplayMode))
(COND
((NULL NoSpacerFlg)
(TEDIT.INSERT TextStream Spacer)))
(NC.PutMainCardData SourceCard)
(NC.PutLinks SourceCard]
Link])
(NC.LinkLabelP
[LAMBDA (Link ListOfLabels) (* kirk: "15-Nov-85 01:43")
(* * rht 9/4/84: Modified so as to return the linklabel if found or nil.)
(CAR (FMEMB (fetch (Link Label) of Link)
(OR (LISTP ListOfLabels)
(LIST ListOfLabels])
(NC.IDAlphOrder
[LAMBDA (LinkOrCard1 LinkOrCard2) (* rht: "18-Jul-86 15:20")
(* * Return T if Card1's title is alphabetically before Card2's)
(* * rht 7/18/86: Now can accept either links or cards as arg.)
(ALPHORDER (NCP.CardTitle (if (NC.ValidLinkP LinkOrCard1)
then (fetch (Link DestinationCard) of LinkOrCard1)
else LinkOrCard1))
(NCP.CardTitle (if (NC.ValidLinkP LinkOrCard2)
then (fetch (Link DestinationCard) of LinkOrCard2)
else LinkOrCard2])
(NC.MakeLink
[LAMBDA (Window LinkLabel DestinationCard SourceCard DisplayMode AnchorMode Message NoDisplayFlg
LinkToInsertAfter CrossFileLinksMode) (* rht: "20-Nov-87 22:27")
(* * Make a link from (OR Window SourceCard) to DestinationCard with linklabel of LinkLabel)
(* * rht 1/12/85: If need to create a new card, then now shows card type menu near window of SourceID.)
(* * rht 1/13/85: Added extra args Message and NoDisplayFlg.)
(* * rht 3/26/85: Added LinkToInsertAfter arg which should be NIL or a link to insert the new To link after.
If NIL, then insert at front of ToLinks.)
(* * kirk 9/23/85: took out GETPROMPTWINDOW call for asknotecardtype)
(* * kirk: 14Nov85: changed NC.CoerceToID to to NC.CoerceToCard)
(* * fgh 11/16/85 Changed from PROG to LET and used COND to contyrol returnmed value.)
(* * fgh 2/5/86 Changed call DefaultLinkDisplayMode to FetchLinkDisplayMode)
(* * fgh 6/5/86 Now calls AskLinkLabel if LinkLabel arg is NIL)
(* * rht 7/4/86: Added check for readonly card.)
(* * kef 7/17/86: Added calls to grab the write permission on the appropriate card parts.)
(* * kef 7/22/86: Saves the links on the Destination Card now right away, while still holding onto the FROMLINKS
write lock.)
(* * fgh 8/30/86 Adpated to use NC.IfCardPartNotBusy.)
(* * rht 9/29/86: Tossed Ken's call to NC.PutFromLinks; It was the cause of too many nasty breaks.
Also made syntactic fixes.)
(* * rht 10/4/86: Now handles cross file links. New arg CrossFileLinksMode determines whether cross-file link will
be two-way, i.e. will destination card know it's being linked to.)
(* * rht 11/10/86: Now creates new crossfile link if Destination card is a CrossFileLink card that we didn't just
create.)
(* * rht 11/14/86: Now checks if non-nil DestinationCard before trying to do cross-filelink stuff.)
(* * pmi 12/5/86: Modified message to NC.SelectNoteCards to mention SHIFT-selection.)
(* * rht 12/9/86: Throws out JustCreatedFlg marker stuff.)
(* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)
(* * rht 12/16/86: Fixed bug whereby electing not to open notefile containing crossfilelink dest card caused
break.)
(* * rht 12/16/86: Now passes Window down to NC.GetCrossFileLinkDestCard.)
(* * rg 3/18/87 added NCP.WithLockedCards wrapper)
(* * rht 5/25/87: No longer tries to make two way cross-file links when dest notefile is open read-only.
Also assumes that CrossFileLinksMode is one of TWOWAY, ONEWAY or ASK. Now fills in the new
RemoteCrossFileLinkCardUID field of cross file link cards.)
(* * rht 11/20/87: Now recomputes ShowLinks menus if they're visible.)
(DECLARE (GLOBALVARS NC.SelectingSingleCardMenu NC.NewCrossFileLinksMode))
(OR SourceCard (SETQ SourceCard (NC.CoerceToCard Window)))
(AND
(NC.CheckForNotReadOnly SourceCard Window "Can't make links in ")
(NCP.WithLockedCards
(LET (Link Type)
(OR Window (SETQ Window (NC.FetchWindow SourceCard)))
(OR Message (SETQ Message "Please shift-select the Card or Box to be linked to."))
(OR LinkLabel (SETQ LinkLabel (NC.AskLinkLabel Window NIL NIL T NIL)))
(OR DestinationCard (SETQ DestinationCard (NC.SelectNoteCards
T
[FUNCTION (LAMBDA (Card)
(COND
((NOT (NC.SameCardP Card SourceCard))
T)
(T (NC.PrintMsg Window T "A Card/Box cannot link to itself. "
(CHARACTER 13)
"Selection ignored."
(CHARACTER 13))
NIL]
NC.SelectingSingleCardMenu SourceCard Message)))
[if (EQ DestinationCard (QUOTE *New% Card*))
then (SETQ DestinationCard (AND (SETQ Type (NC.AskNoteCardType
(WINDOWREGION Window)))
(NC.CoerceToCard (NC.MakeNoteCard
Type
(fetch (Card NoteFile)
of SourceCard)
NIL NoDisplayFlg]
(* * If we're trying to link to a CrossFileLink card, then check whether card was just created.
If so, then it's the first link, otherwise we make a new CrossFileLink.)
(AND DestinationCard (NC.CrossFileLinkCardP DestinationCard)
(SETQ DestinationCard (NC.GetCrossFileLinkDestCard DestinationCard Window))
(NC.SetUserDataProp DestinationCard (QUOTE JustCreatedFlg)
NIL))
(if DestinationCard
then
(NC.IfCardPartNotBusy
DestinationCard
(QUOTE FROMLINKS)
(NC.IfCardPartNotBusy
SourceCard
(QUOTE TOLINKS)
(* * If have cross-file link, then make two new crossfilelink cards, one per notefile. Make global link over there
from crossfilelink card to DestinationCard and local link here from SourceCard to crossfilelink card.)
[if (NOT (NC.SameNoteFileP (fetch (Card NoteFile) of SourceCard)
(fetch (Card NoteFile) of DestinationCard))
)
then (LET ([CrossFileLinksTwoWayFlg
(OR (EQ CrossFileLinksMode (QUOTE TWOWAY))
(AND (NULL CrossFileLinksMode)
(EQ NC.NewCrossFileLinksMode (QUOTE TWOWAY))
)
(AND [OR (EQ CrossFileLinksMode (QUOTE ASK))
(AND (NULL CrossFileLinksMode)
(EQ NC.NewCrossFileLinksMode
(QUOTE ASK]
(NC.AskCrossFileLinkMode DestinationCard
Window]
RemoteSourceCard)
(if CrossFileLinksTwoWayFlg
then (AND (SETQ RemoteSourceCard
(NC.CreateCrossFileLinkCard
DestinationCard
SourceCard T))
(NC.MakeGlobalLink Window LinkLabel
DestinationCard
RemoteSourceCard
DisplayMode)))
(SETQ DestinationCard (NC.CreateCrossFileLinkCard
SourceCard
DestinationCard
CrossFileLinksTwoWayFlg))
(if RemoteSourceCard
then (* Make the two crossfile link cards know about each
other's UIDs.)
(replace (CrossFileLinkSubstance
RemoteCrossFileLinkCardUID)
of (NC.FetchSubstance RemoteSourceCard)
with (fetch (Card UID) of DestinationCard))
(replace (CrossFileLinkSubstance
RemoteCrossFileLinkCardUID)
of (NC.FetchSubstance DestinationCard)
with (fetch (Card UID) of RemoteSourceCard]
[SETQ Link (create Link
UID ← (NC.MakeUID)
SourceCard ← SourceCard
DestinationCard ← DestinationCard
AnchorMode ← AnchorMode
Label ← LinkLabel
DisplayMode ← (OR DisplayMode (
NC.FetchLinkDisplayMode
SourceCard]
(NC.AddToLink Link LinkToInsertAfter)
(NC.AddFromLink Link) (* Recompute ShowLinks menus if they're up.)
(if (NC.FetchShowLinksWindow SourceCard)
then (NC.ShowLinks SourceCard))
(if (NC.FetchShowLinksWindow DestinationCard)
then (NC.ShowLinks DestinationCard))
Link))
else NIL])
(NC.CachedMakeFilingLink
[LAMBDA (SourceCard DestinationCard LinkType DisplayMode IgnoreMarkersFlg)
(* rht: "13-Oct-86 12:31")
(* * Assumes SourceCard is cached. Inserts a link to DestinationCard into SourceCard. Unless IgnoreMarkersFlg is
non-nil or there's no marker for type of DestinationCard, then will insert somewhere between appropriate marker and
either the next marker or the end of SourceCard substance using SourceCard's OrderingFn to determine where to
insert. If there's no OrderingFn, but there is an appropriate marker, then stick at end of group.
If no marker and no OrderingFn, then stick wherever cursor is.)
(LET ((OrderingFn (NC.GetProp SourceCard (QUOTE OrderingFn)))
(TextStream (NC.FetchSubstance SourceCard))
StartLoc EndLoc TextObject FoundMarkerFlg Link)
(SETQ TextObject (TEXTOBJ TextStream))
[OR IgnoreMarkersFlg (SETQ FoundMarkerFlg (for MarkerPairs
on (TEDIT.LIST.OF.OBJECTS
TextObject
(FUNCTION NC.PlaceMarkerP))
eachtime (BLOCK)
do (if (NC.MarkerMatchesCardP
(CAAR MarkerPairs)
DestinationCard)
then
(SETQ StartLoc (CADAR
MarkerPairs))
[SETQ EndLoc
(OR (CADADR MarkerPairs)
(ADD1 (GETEOFPTR
TextStream]
(RETURN T))
finally (SETQ StartLoc 1)
(SETQ EndLoc
(ADD1 (GETEOFPTR TextStream]
[COND
[OrderingFn (for ObjectPair in (TEDIT.LIST.OF.OBJECTS TextObject
(FUNCTION
NC.LinkIconImageObjP))
eachtime (BLOCK) until (GREATERP (CADR ObjectPair)
EndLoc)
when [AND (LEQ StartLoc (CADR ObjectPair))
(APPLY* OrderingFn DestinationCard
(fetch (Link DestinationCard)
of (NC.FetchLinkFromLinkIcon (CAR
ObjectPair]
do (TEDIT.SETSEL TextStream (CADR ObjectPair)
0
(QUOTE LEFT))
(RETURN)
finally (TEDIT.SETSEL TextStream EndLoc 0 (QUOTE RIGHT]
(FoundMarkerFlg (TEDIT.SETSEL TextStream EndLoc 0 (QUOTE RIGHT]
(PROG1 (NC.InsertLinkInText TextStream LinkType DestinationCard SourceCard DisplayMode)
(TEDIT.INSERT TextStream NC.FileBoxLinkSpacer])
(NC.MakeFilingLink
[LAMBDA (SourceCard DestinationCard LinkType) (* rht: "13-Oct-86 12:09")
(* Make a link from FileBox to DestinationCard If card is a regular card, insert link at end of contents card.
If card is a supercontents of contents card then insert just before the subcontents marker
(i.e., at end of super contents list). If card is a subcontents card then insert just before note cards marker
(i.e., at end of subcontents list))
(* * rht 10/25/85: Now checks if card's window is shrunken. If so, shrink it back at the end.)
(* * kirk: 14Nov85: deleted use of of DatabaseStream)
(* * fgh 11/15/85 Adapted from and intended to replace NC.MakeAContentsHook)
(* * kirk 11Apr86 took out hard coded link display mode)
(* * rht 10/13/86: Totally overhauled. Now calls NC.CachedMakeFilingLink which does both inserting before markers
and inserting in ordering.)
(if (NC.ActiveCardP SourceCard)
then [NC.IfMultipleCardPartsNotBusy SourceCard (SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS)
(LET ((ShrunkenFlg (NC.GetShrunkenWin SourceCard)))
(PROG1 (NC.CachedMakeFilingLink SourceCard
DestinationCard
LinkType)
(AND ShrunkenFlg (SHRINKW
(NC.FetchWindow SourceCard]
else (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile) of SourceCard))
(NC.IfMultipleCardPartsNotBusy
SourceCard
(SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS)
(if (NC.CardP (NC.GetNoteCard SourceCard))
then
(* * This next set of obtain write locks is only to make sure that we come out even when NC.DeactivateCard releases
the write locks. Note that the SourceCard will be deactivated upon exit of the RESETLST, as set up by the
RESETSAVE.)
(RESETSAVE (for CardPart
in (QUOTE (SUBSTANCE TOLINKS
GLOBALTOLINKS
PROPLIST))
do (APPLY* (fetch (Card
ObtainWritePermissionFn)
of SourceCard)
SourceCard CardPart))
(BQUOTE (NC.DeactivateCard , SourceCard)))
(PROG1 (NC.CachedMakeFilingLink SourceCard
DestinationCard LinkType)
(NC.PutMainCardData SourceCard)
(NC.PutLinks SourceCard])
(NC.MakeFilingLinks
[LAMBDA (Card Msg InterestedWindow) (* Randy.Gobbel " 2-Apr-87 15:38")
(* Hooks card specified by Card to all of the current
contents cards by a Contents link)
(* * rht 8/1/84: Changed the NC.PrintMsg2 call for "No FileBox has been specified." to use NIL as second arg rather
than T. This prevents erasure of previous error messages.)
(* * rht 12/8/84: Massive rewrite. Now calls NC.MakeChildLink. And always orphanizes if no parent specified.
This is because it's currently called only by NC.InsureProperFiling.)
(* * rht 6/25/85: Now returns NewParents and checks if CANCELLED comes back from NC.SelectNoteCards so can abort
the calling operation.)
(* * Fgh 11/15/85 Adapted from and intended to replace NC.MakeContentsHooks)
(* * fgh 8/6/86 Updated to use NC.AttachPromptWindow and added Msg arg)
(* * pmi 12/5/86: Modified message to NC.SelectNoteCards to mention SHIFT-selection.)
(* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)
(* * rg 2/19/87 Make sure NewParents always has the real value)
(* * rg 3/18/87 added NC.CardSelectionOperation wrapper)
(* * rht 3/23/87: Changed so that message will fit on one less line.)
(* * rht 3/23/87: Now takes InterestedWindow arg.)
(* * Rht 3/24/87: Now calls NC.CoerceToInterestedWindow)
(* * rht 3/26/87: No longer allows selection of boxes in foreign notefiles.)
(* * rg 4/1/87 changed CANCELLED to DON'T)
(DECLARE (GLOBALVARS NC.SelectingContentsMenu))
(NCP.WithLockedCards (PROG ((NoteFile (fetch (Card NoteFile) of Card))
OneHook NewParents)
(OR InterestedWindow (SETQ InterestedWindow (
NC.CoerceToInterestedWindow Card)))
(SETQ NewParents (NC.SelectNoteCards
NIL
[FUNCTION (LAMBDA (SelectedCard)
(AND (NC.FileBoxP SelectedCard)
(NC.SameNoteFileP NoteFile (fetch (Card NoteFile)
of SelectedCard]
NC.SelectingContentsMenu Card (CONCAT (OR Msg "")
"('Done' with no selections files in ToBeFiled.)")
T))
[COND
([NOT (OR (EQ NewParents (QUOTE DON'T))
(AND NewParents
(for ParentCard in NewParents
bind OneHook
when (NC.MakeChildLink Card ParentCard
InterestedWindow)
do (SETQ OneHook T)
finally (RETURN OneHook]
(NC.PrintMsg InterestedWindow NIL
"No FileBox has been specified."
(CHARACTER 13)
"This card will be filed in the ToBeFiled Box."
(CHARACTER 13))
(SETQ NewParents (NC.HookToOrphanCard Card
(fetch (NoteFile
ToBeFiledCard)
of NoteFile)))
(COND
((NC.AttachPromptWindow InterestedWindow NIL NIL NIL T)
(SPAWN.MOUSE)
(DISMISS 2000)
(NC.ClearMsg InterestedWindow T]
(RETURN NewParents])
(NC.RelabelLink
[LAMBDA (LinkOrLinkIcon Window NewLinkLabel ForceRedisplayFlg)
(* rht: "30-Sep-87 20:52" pp pp)
(* Relabel a NoteCard link.
Ask user for new label. Update all the proper
references to this link.)
(* * rht 11/19/84: Fixed so that Card is defined before first use.)
(* * kirk 14Nov85: deleted use of and LinkID)
(* * kef 8/8/86: Added obtaining write lock and NC.PutFromLinks.)
(* * fgh 8/30/86 Adapted to NC.IfCardPartNotBusy)
(* * rht 9/29/86: Changed Ken's call to NC.CardBeingEditedP to NC.ActiveCardP and other minor mod's.)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)
(* * rht 5/27/87: Now passes new label through cross file link if its dest notefile is open.)
(* * pmi 9/11/87: Fixes bug 692 -
can no longer change link label when notefile is open read-only.)
(* * rht 9/30/87: Now tries to update ShowLinks windows if any.)
(LET (Link LinkIcon Card DestinationCard OldLabel NoteCardType GlobalLinkFlg)
[if (NC.LinkIconImageObjP LinkOrLinkIcon)
then (SETQ Link (NC.FetchLinkFromLinkIcon LinkOrLinkIcon))
(SETQ LinkIcon LinkOrLinkIcon)
else (SETQ Link LinkOrLinkIcon)
(OR (SETQ GlobalLinkFlg (NC.GlobalLinkP Link))
(SETQ LinkIcon (NC.FetchLinkIconForLink Link]
(SETQ Card (fetch (Link SourceCard) of Link))
(if (NC.CheckForNotReadOnly Card Window "Can't change link type of links in ")
then [COND
((WINDOWP Window))
((NC.ActiveCardP Card)
(SETQ Window (NC.FetchWindow Card]
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(NC.IfCardPartNotBusy DestinationCard (QUOTE FROMLINKS)
(COND
((NC.SystemLinkLabelP (fetch (Link Label)
of Link))
(NC.PrintMsg Window T
"This is a system maintained pointer."
(CHARACTER 13)
"You cannot change its label."
(CHARACTER 13))
(SPAWN.MOUSE)
(DISMISS 1500)
(NC.ClearMsg Window T))
((SETQ NewLinkLabel
(OR NewLinkLabel (NC.AskLinkLabel Window NIL NIL
T T)))
(SETQ NoteCardType (NC.RetrieveType Card))
(* * Put new label in Link Icon or global links list)
(if GlobalLinkFlg
then (for GlobalLink in (NC.FetchGlobalLinks
Card)
when (NC.SameLinkP GlobalLink Link)
do (replace (Link Label)
of GlobalLink with
NewLinkLabel)
(NC.SetLinksDirtyFlg Card T)
(RETURN))
else (replace (Link Label) of (
NC.FetchLinkFromLinkIcon
LinkIcon)
with NewLinkLabel)
(NC.MarkCardDirty Card))
(* * Update ToLink list of the SourceCard card)
(for ToLink in (NC.FetchToLinks Card)
when (NC.SameLinkP ToLink Link)
do (replace (Link Label) of ToLink
with NewLinkLabel)
(NC.SetLinksDirtyFlg Card T)
(RETURN))
(* * Update link icons in any displayed ShowLinks windows.)
(LET ((ShowLinksWin (NC.FetchShowLinksWindow Card)))
(if ShowLinksWin
then (NC.ChangeLinkLabelInShowLinksWin
Link ShowLinksWin NewLinkLabel)))
(LET ((ShowLinksWin (NC.FetchShowLinksWindow
DestinationCard)))
(if ShowLinksWin
then (NC.ChangeLinkLabelInShowLinksWin
Link ShowLinksWin NewLinkLabel)))
(* * Update FromLink list of DestinationCard card)
(if (NC.LinksCachedP DestinationCard)
then (for FromLink in (NC.FetchFromLinks
DestinationCard)
when (NC.SameLinkP FromLink Link)
do (replace (Link Label)
of FromLink with NewLinkLabel)
(NC.SetLinksDirtyFlg
DestinationCard T)
(RETURN))
else (WITH.MONITOR (NC.FetchMonitor
(fetch (Card NoteFile)
of DestinationCard))
(NC.GetLinks DestinationCard)
(for FromLink
in (NC.FetchFromLinks
DestinationCard)
when (NC.SameLinkP
FromLink
Link)
do (replace (Link Label)
of FromLink
with NewLinkLabel)
(NC.SetLinksDirtyFlg
DestinationCard T)
(RETURN))
(NC.PutFromLinks
DestinationCard)
(NC.UncacheLinks
DestinationCard)))
(* * Pass change through cross-file link to other notefile if open.)
[if (NC.CrossFileLinkCardP Card)
then (LET ((RemoteCrossFileLinkCard (
NC.FetchRemoteCrossFileLinkCard
Card)))
(AND RemoteCrossFileLinkCard
(NC.CheckCrossFileLinkType
RemoteCrossFileLinkCard Card
Link]
[if (NC.CrossFileLinkCardP DestinationCard)
then (LET ((RemoteCrossFileLinkCard (
NC.FetchRemoteCrossFileLinkCard
DestinationCard)))
(AND RemoteCrossFileLinkCard
(NC.CheckCrossFileLinkType
RemoteCrossFileLinkCard
DestinationCard Link]
(* * Update images in SourceCard window)
(if (WINDOWP Window)
then (NC.UpdateLinkImages Window
(fetch
(Link
DestinationCard)
of Link)))
(if (AND (NULL ForceRedisplayFlg)
(NC.TEditBasedP NoteCardType))
then (QUOTE CHANGED)
else NIL])
(NC.SystemLinkLabelP
[LAMBDA (LinkLabel) (* fgh: "23-Apr-84 23:07")
(* Return T in LinkLabel is a label for a system
maintained link. NIL otherwise.
System maintained links determined by hardwire list
for now.)
(FMEMB LinkLabel NC.SystemLinkLabels])
(NC.ValidLinkP
[LAMBDA (Link) (* rht: "27-May-87 12:13")
(* Check Link to see if it is a valid NOTECARDLINK,
incvluding check that the NoteCard specified by
DESTINATIONID is an active card.)
(* * kirk 15Nov85: deleted use of DatabaseStream)
(* * rht 7/18/86: Was actually reading in the destination card from notefile! No more.)
(* * rht 5/27/87: Took out checks for valid source and destination cards.)
(LET (DestinationCard)
(AND (type? Link Link)
(NEQ (fetch (Link UID) of Link)
-1])
(NC.MakeChildLink
[LAMBDA (Child Parent Window) (* Randy.Gobbel "18-Dec-86 18:26")
(* * Tries to add Child as a child of Parent using either FiledCard or SubBox link as appropriate.
Won't allow if would cause a cycle. Returns new link if successful, else NIL.)
(* * kirk 14Nov85: deleted use of PSA.Database)
(* * rg 12/18/86: Cycle-checking code moved to NC.EnsureNoCycles)
(DECLARE (GLOBALVARS NC.SubBoxLinkLabel NC.FiledCardLinkLabel))
(AND (NC.EnsureNoCycles Parent Child (FUNCTION NC.ChildLinkP)
Window)
(NC.MakeFilingLink Parent Child (if (NC.FileBoxP Child T)
then NC.SubBoxLinkLabel
else NC.FiledCardLinkLabel])
(NC.EnsureNoCycles
[LAMBDA (Parent Child LinkPredicate InterestedWindow) (* Randy.Gobbel "18-Dec-86 18:14")
(* * Return T if no cycles via specified link predicate, else NIL.)
(COND
([for Link in (NC.FetchToLinks Parent) thereis (AND (APPLY* LinkPredicate Link)
(NC.SameCardP
Child
(fetch (Link DestinationCard)
of Link]
(NC.PrintMsg InterestedWindow NIL (NC.RetrieveTitle Child)
" is already a child of "
(NC.RetrieveTitle Parent)
(CHARACTER 13))
NIL)
((AND (NEQ Parent Child)
(NC.NotDaughterP Child Parent LinkPredicate))
T)
(T (NC.PrintMsg InterestedWindow T (NC.RetrieveTitle Child)
" is an ancestor of "
(NC.RetrieveTitle Parent)
(CHARACTER 13))
NIL])
(NC.SameLinkP
[LAMBDA (Link1 Link2) (* rht: "15-Nov-85 15:45")
(* Compare two link UIDs)
(NC.SameUIDP (fetch (Link UID) of Link1)
(fetch (Link UID) of Link2])
(NC.SameLinksP
[LAMBDA (LinkListA LinkListB) (* rht: "15-Nov-85 15:39")
(* * ARe these two lists of links the same?)
(for LinkA in LinkListA as LinkB in LinkListB always (NC.SameLinkP LinkA LinkB])
(NC.AddGlobalLinkToCard
[LAMBDA (WindowOrTextStream) (* rht: "15-Feb-85 18:54")
(* * Called from card's menu to add one global link.)
(NC.AddGlobalLinksToCard WindowOrTextStream T])
(NC.AddGlobalLinksToCard
[LAMBDA (CardIdentifier SingleLinkFlg) (* pmi: "21-May-87 15:42")
(* * Called from card's menu to add some global links.)
(* * rht 11/24/85: Fixed bugs. It was calling NC.CoerceToID.)
(* * fgh 6/9/86 Added chack for other interaction operations already in progress.)
(* * pmi 12/5/86: Modified message to NC.SelectNoteCards to mention SHIFT-selection.)
(* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)
(* * rg 3/4/87 rewritten for new version of NC.ProtectedCardOperation)
(* * rg 3/18/87 added NC.CardSelectionOperation wrapper)
(* * rg 3/31/87 fixed bug in NC.ProtectedCardOperation wrapper)
(* * pmi 5/21/87: Changed NC.CardSelectionOperation to NCP.WithLockedCards)
(NC.ProtectedCardOperation (NC.CoerceToCard CardIdentifier)
"Add Global Link(s)" NIL
(NCP.WithLockedCards
(LET (Window SourceCard DestinationCards Label)
(SETQ SourceCard (NC.CoerceToCard CardIdentifier))
(SETQ Window (NC.FetchWindow SourceCard))
(SETQ Label (NC.AskLinkLabel Window NIL NIL T T))
(AND Label
(if SingleLinkFlg
then (NC.MakeGlobalLink Window Label NIL
SourceCard)
(NC.ClearMsg Window T)
else (SETQ DestinationCards
(NC.SelectNoteCards
NIL
[FUNCTION (LAMBDA (Card)
(COND
((NEQ Card SourceCard)
T)
(T (NC.PrintMsg Window T
"A Card/Box cannot point to itself. "
(CHARACTER 13)
"Selection ignored."
(CHARACTER 13))
NIL]
NC.SelectingMultipleCardsMenu SourceCard
"Please shift-select the Cards or Boxes to be pointed to."))
(NC.ClearMsg Window T)
(for DestinationCard in DestinationCards
do (NC.MakeGlobalLink Window Label
DestinationCard
SourceCard])
(NC.ChangeCardTitleFromLinkIcon
[LAMBDA (LinkIcon Window) (* rht: "18-Feb-87 11:34")
(* * From a link icon sitting in Window, change the title of the link's destination card.)
(* * kirk 14Nov85: deleted use of PSA.Database)
(* * fgh 6/4/86 Fixed so that moves card back to original location if moved to be on screen.
This fixes a bug in TEdit that'll mess up the screen if a window is mived under a ImageObj ButtonEventInFn.)
(* * kef 7/16/86: Added mechanism for grabbing the write permission on the TITLE of the destination card.)
(* * kef 7/30/86: Modified to check for Client's concept of whether he owns the write lock or not, thus deciding
whether or not to setup the release of the write lock afterwards.)
(* * fgh 8/30/86 Adpated to use NC.IfCardPartNotBusy.)
(* * rht 11/13/86: Now checks for crossfile links and bails out.)
(* * rht 2/18/87: Added check for readonly notefile to fix bug %#376.0)
(LET (Link Card DestinationCard OldTitle NewTitle)
(RESETLST [RESETSAVE NIL (BQUOTE (MOVEW , Window , (LOWERLEFT (WINDOWPROP
Window
(QUOTE REGION]
(if (NC.LinkIconImageObjP LinkIcon)
then
(SETQ Link (NC.FetchLinkFromLinkIcon LinkIcon))
(SETQ Card (fetch (Link SourceCard) of Link))
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(if (NC.CheckForNotReadOnly Card Window
"Can't change titles for cards in ")
then
(if (NC.CrossFileLinkCardP DestinationCard)
then (NC.PrintMsg Window T
"Can't change card title from a cross notefile link.")
(DISMISS 1500)
(NC.ClearMsg Window T)
NIL
else (NC.IfCardPartNotBusy
DestinationCard
(QUOTE TITLE)
(if (SETQ NewTitle
(NC.AskUser (CONCAT
"Enter new title for card with title '"
(NC.RetrieveTitle
DestinationCard)
"'"
(CHARACTER 13))
"--> "
(if (AND (STREQUAL
(SETQ OldTitle
(NC.RetrieveTitle
DestinationCard))
"Untitled")
(NC.FetchNewCardFlg
DestinationCard))
then NIL
else OldTitle)
T Window))
then (NC.AssignTitle DestinationCard NIL NewTitle)
(QUOTE CHANGED])
(NC.UncacheLinks
[LAMBDA (Card) (* rht: "14-Feb-86 15:06")
(* * Throw away the links cache for this card.)
(replace (Card Links) of Card with NIL])
(NC.TraverseLink
[LAMBDA (LinkIcon Window) (* Randy.Gobbel " 4-Nov-87 13:57")
(* * Follow the link to the card at the other end. For now, amounts to editing the destination card.)
(* * pmi&rht 6/19/87: Now checks for valid destination card before trying to edit it. Prints message to prompt
window and changes link icon to "Deleted" if card is invalid.)
(* * rg 11/4/87 calls NC.EditNoteCard w/ ReadOnly TRUE if NoteFile is read-only)
(DECLARE (GLOBALVARS NC.MsgDelay))
(LET ((Link (NC.FetchLinkFromLinkIcon LinkIcon))
(InterestedWindow (NC.CoerceToInterestedWindow (MAINWINDOW Window)))
Card OldTitle)
(SETQ Card (fetch (Link DestinationCard) of Link))
(if (NC.ValidCardP Card)
then (SETQ OldTitle (NC.RetrieveTitle Card))
(NC.EditNoteCard Card (fetch (NoteFile ReadOnlyFlg)
of (fetch (Card NoteFile) of Card)))
(* * We're under TEdit, so if title was changed by EditFn, then be sure link icon gets redisplayed.)
(if (STREQUAL OldTitle (NC.RetrieveTitle Card))
then (QUOTE DON'T)
else (QUOTE CHANGED))
else
(* * The link is bad -
tell the user and change it to "Deleted")
(NC.PrintMsg InterestedWindow T
"This is a bad link - the destination card is invalid."
(CHARACTER 13))
(DISMISS NC.MsgDelay)
(NC.ClearMsg InterestedWindow T)
(NC.DeleteBadLink Link LinkIcon Window])
(NC.CreateLinkIconStrings
[LAMBDA (LinkIconString Icon CrossFileLinkIcon ImageStream)
(* pmi: " 4-Nov-87 13:26")
(* * pmi 2/9/87: First written to parse the text for a link icon into multiple lines)
(* * rht 10/24/87: Removed initial "Link" arg. It was not being used.)
(* * pmi 11/3/87: Added CrossFileLinkIcon argument for change to cross-file link icons (adding attached bitmap to
right of link icon).)
(DECLARE (GLOBALVARS NC.LinkIconMaxWidth NC.LinkIconMultiLineMode NC.LinkIconBorderWidth
NC.LinkIconSpaceInnerX))
(PROG ((Scale (DSPSCALE NIL ImageStream))
(LinkIconLines NIL)
(ThisString "")
RemainingLineWidth Font ScaledBorderWidth ScaledSpaceInnerX LineWidth StringLength
CharsPtr NumberOfLines StringList String StringWidth Char CharWidth CurrentWidth EndPtr)
(SETQ Font (DSPFONT NIL ImageStream))
(* * Make temporaries of scaled vars.)
(SETQ ScaledBorderWidth (TIMES Scale NC.LinkIconBorderWidth))
(SETQ ScaledSpaceInnerX (TIMES Scale NC.LinkIconSpaceInnerX))
(* * Width of text in link icon)
(SETQ LineWidth (DIFFERENCE (TIMES Scale NC.LinkIconMaxWidth)
(PLUS ScaledSpaceInnerX ScaledSpaceInnerX
ScaledBorderWidth ScaledBorderWidth)))
(* * If there isn't even enough room for the bitmap, give up.)
(if Icon
then [SETQ RemainingLineWidth (DIFFERENCE LineWidth
(PLUS (if Icon
then
(DIFFERENCE
(BITMAPWIDTH Icon)
ScaledBorderWidth)
else 0)
(if CrossFileLinkIcon
then
(DIFFERENCE
(BITMAPWIDTH Icon)
ScaledBorderWidth)
else 0]
else (SETQ RemainingLineWidth LineWidth))
(* * Turn the text into a string list of words and spaces)
[if NC.LinkIconMultiLineMode
then
(* * Calculate multiple lines of text)
(SETQ StringList (NC.ParseString LinkIconString))
(SETQ String (CAR StringList))
(SETQ NumberOfLines 0)
(* * Determine the line breaks)
[while StringList
do (if (AND (STREQUAL (SUBSTRING String 1 1)
(QUOTE " "))
(STREQUAL ThisString ""))
then
(* * The "word" is a space or spaces and we are at the beginning of the line. In this case we want to throw away
the spaces.)
(SETQ StringList (CDR StringList))
(if StringList
then (SETQ String (CAR StringList)))
else (SETQ StringWidth (STRINGWIDTH String Font))
(if (LESSP StringWidth RemainingLineWidth)
then
(* * The word or spaces will fit on the remainder of the line)
(SETQ ThisString (CONCAT ThisString String))
(SETQ RemainingLineWidth (DIFFERENCE
RemainingLineWidth
StringWidth))
(SETQ StringList (CDR StringList))
(if StringList
then (SETQ String (CAR StringList))
else (SETQ LinkIconLines (NCONC1
LinkIconLines
ThisString)))
elseif (EQ StringWidth RemainingLineWidth)
then
(* * The word or spaces will exactly fit on the remainder of the line)
(SETQ ThisString (CONCAT ThisString String))
(SETQ LinkIconLines (NCONC1 LinkIconLines
ThisString))
(SETQ ThisString "")
(SETQ RemainingLineWidth LineWidth)
(SETQ NumberOfLines (ADD1 NumberOfLines))
(SETQ StringList (CDR StringList))
(if StringList
then (SETQ String (CAR StringList)))
elseif (STREQUAL ThisString "")
then
(* * We have a word that is too long for the line, and we are at the beginning of the line)
(SETQ CurrentWidth 0)
[SETQ EndPtr (for I from 1
to (NCHARS String)
do (SETQ Char
(SUBSTRING String I I))
(SETQ CurrentWidth
(PLUS CurrentWidth
(STRINGWIDTH
Char Font)))
(if (GREATERP
CurrentWidth
RemainingLineWidth)
then
(RETURN
(SUB1 I]
[if (EQ EndPtr 0)
then
(* * This character won't fit on this line, so give up)
(OR LinkIconLines (SETQ
LinkIconLines (LIST "")))
(RETURN)
else (SETQ ThisString
(CONCAT ThisString
(SUBSTRING String 1 EndPtr]
(SETQ LinkIconLines (NCONC1 LinkIconLines
ThisString))
(SETQ String (SUBSTRING String (ADD1 EndPtr))
)
(SETQ ThisString "")
(SETQ RemainingLineWidth LineWidth)
(SETQ NumberOfLines (ADD1 NumberOfLines))
elseif (STREQUAL (SUBSTRING String 1 1)
(QUOTE " "))
then
(* * We have spaces at the end of the line which can be thrown away)
(SETQ LinkIconLines (NCONC1 LinkIconLines
ThisString))
(SETQ ThisString "")
(SETQ RemainingLineWidth LineWidth)
(SETQ NumberOfLines (ADD1 NumberOfLines))
(SETQ StringList (CDR StringList))
(if StringList
then (SETQ String (CAR StringList)))
else
(* * We have a word that won't fit on the remainder of the line, so we must start it on the next line)
(SETQ LinkIconLines (NCONC1 LinkIconLines
ThisString))
(SETQ ThisString "")
(SETQ RemainingLineWidth LineWidth)
(SETQ NumberOfLines (ADD1 NumberOfLines]
elseif (LESSP (STRINGWIDTH LinkIconString Font)
RemainingLineWidth)
then
(* * Calculate single line of text. The string will fit as is)
(SETQ LinkIconLines (LIST LinkIconString))
else
(* * Calculate single line of text. We have to chop the string down to fit in one line)
(SETQ StringLength (NCHARS LinkIconString))
(SETQ CharsPtr 1)
(SETQ LinkIconLines (LIST (while (ILEQ CharsPtr StringLength)
do [if (LESSP (SETQ CharWidth
(STRINGWIDTH
(NTHCHAR
LinkIconString
CharsPtr)
Font))
RemainingLineWidth)
then (SETQ RemainingLineWidth
(DIFFERENCE
RemainingLineWidth
CharWidth))
(SETQ CharsPtr (ADD1
CharsPtr))
elseif (EQ CharsPtr 1)
then (RETURN "")
else (RETURN (SUBSTRING
LinkIconString 1
(SUB1 CharsPtr]
finally (RETURN (SUBSTRING LinkIconString
1
(SUB1
CharsPtr]
(RETURN LinkIconLines])
)
(DEFINEQ
(NC.AddLinkToCard
[LAMBDA (CardIdentifier LinkOrLinkLabel DestinationCard) (* Randy.Gobbel " 4-Mar-87 14:15")
(* * Add a link to card designated by CardIdentifier. Rest of args can be NIL. Currently, this dispatches on card
type. Should eventually call something like an InsertLinkFn.)
(* * fgh 6/9/86 Added code to check to make sure that another operation is not in progress on this card when this
fn is called.)
(* * rg 3/4/87 rewritten for new version of NC.ProtectedCardOperation)
(LET ((Card (NC.CoerceToCard CardIdentifier))
CardType Window)
(NC.ProtectedCardOperation Card "Insert Link" NIL (SETQ Window (NC.FetchWindow Card))
(SETQ CardType (NC.FetchType Card))
(OR LinkOrLinkLabel (SETQ LinkOrLinkLabel
(NC.AskLinkLabel Window NIL NIL T T)))
(AND LinkOrLinkLabel (COND
((NC.IsSubTypeOfP CardType (QUOTE Text))
(NC.InsertLinkInText (NC.FetchSubstance Card)
LinkOrLinkLabel DestinationCard
Card))
((NC.IsSubTypeOfP CardType (QUOTE Graph))
(NC.AddLinkToGraphCard Window LinkOrLinkLabel
DestinationCard))
((NC.IsSubTypeOfP CardType (QUOTE Sketch))
(NC.AddLinkToSketchCard Window LinkOrLinkLabel
DestinationCard])
(NC.AddLinksToCard
[LAMBDA (CardIdentifier LinkLabel DestinationCards) (* Randy.Gobbel " 2-Apr-87 15:38")
(* * Adds multiple links to card designated by CardIdentifier. Rest of args can be NIL.)
(* * fgh 6/9/86 Added Checks to make sure other interaction operation not in porgress.)
(* * rht 9/23/86: Fixed bug in function passed to NC.SelectNoteCards.)
(* * pmi 12/5/86: Modified message to NC.SelectNoteCards to mention SHIFT-selection.)
(* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)
(* * rg 3/4/87 rewritten for new version of NC.ProtectedCardOperation)
(* * rg 3/18/87 added NC.CardSelectionOperation wrapper)
(* * RG 4/2/87 changed NC.CardSelectionOperation to NCP.WithLockedCards)
(LET ((SourceCard (NC.CoerceToCard CardIdentifier))
CardType Window OperationInProgress)
(NC.ProtectedCardOperation SourceCard "Insert Links" NIL
(NCP.WithLockedCards
(SETQ Window (NC.FetchWindow SourceCard))
(SETQ CardType (NC.FetchType SourceCard))
(OR LinkLabel (SETQ LinkLabel
(NC.AskLinkLabel Window NIL NIL T T)))
(if LinkLabel
then (OR DestinationCards
(SETQ DestinationCards
(NC.SelectNoteCards
NIL
[FUNCTION (LAMBDA (SelectedCard)
(COND
((NOT (NC.SameCardP SelectedCard
SourceCard))
T)
(T (NC.PrintMsg (NC.FetchWindow
SourceCard)
T
"A Card/Box cannot point to itself. "
(CHARACTER
13)
"Selection ignored."
(CHARACTER
13))
NIL]
NC.SelectingMultipleCardsMenu SourceCard
"Please shift-select the Cards or Boxes to be pointed to.")))
(NC.ClearMsg Window T)
(for DestinationCard in DestinationCards
do (NC.AddLinkToCard CardIdentifier LinkLabel
DestinationCard])
)
(DEFINEQ
(NC.DelReferencesToCardFromShowLinks
[LAMBDA (Card Link) (* rht: "30-Sep-87 20:56")
(* * Delete any references to link from the show links editor above Card, if any)
(* * fgh 5/2/86 First created.)
(* * rht 9/30/87: Now calls NC.FetchShowLinksWindow making things a bit cleaner.)
(DECLARE (GLOBALVARS NC.NoDeleteImageFns NC.DeletedLinkImageObject))
(LET ((ShowLinksWindow (NC.FetchShowLinksWindow Card))
TextStream OldSel)
(if (AND (OPENWP ShowLinksWindow)
(SETQ TextStream (TEXTSTREAM ShowLinksWindow)))
then (for LinkIconPair in (TEDIT.LIST.OF.OBJECTS (TEXTOBJ TextStream)
(FUNCTION
NC.LinkIconImageObjP))
when (NC.SameLinkP Link (NC.FetchLinkFromLinkIcon (CAR LinkIconPair)))
do (replace (IMAGEOBJ IMAGEOBJFNS) of (CAR LinkIconPair) with
NC.NoDeleteImageFns)
(* WHENDELETEDFN taken care of earlier in delete
cycle)
(SETQ OldSel (TEDIT.GETSEL TextStream))
(TEDIT.DELETE TextStream (CADR LinkIconPair)
1)
(TEDIT.INSERT.OBJECT NC.DeletedLinkImageObject TextStream (CADR
LinkIconPair))
(TEDIT.SETSEL TextStream OldSel])
(NC.UpdateLinkImagesInShowLinks
[LAMBDA (SourceCard DestinationCard) (* rht: "30-Sep-87 15:17")
(* * If there's a ShowLinks window up, then update the affected link icons if any.)
(LET ((ShowLinksWindow (NC.FetchShowLinksWindow SourceCard))
TextObject)
(if (AND (OPENWP ShowLinksWindow)
(SETQ TextObject (TEXTOBJ ShowLinksWindow)))
then (for LinkIconPair in (TEDIT.LIST.OF.OBJECTS TextObject
(FUNCTION
NC.LinkIconImageObjP))
bind Link when (PROGN (SETQ Link (NC.FetchLinkFromLinkIcon
(CAR LinkIconPair)))
(OR (NC.SameCardP (fetch (Link
DestinationCard)
of Link)
DestinationCard)
(NC.SameCardP (fetch (Link SourceCard)
of Link)
DestinationCard)))
do (TEDIT.OBJECT.CHANGED TextObject (CAR LinkIconPair])
(NC.FetchShowLinksWindow
[LAMBDA (Card) (* rht: "30-Sep-87 15:33")
(* * Return the ShowLinks window if there is one for Card, else NIL.)
(LET ((Window (NC.FetchWindow Card)))
(if Window
then (for AttachedWindow in (ALLATTACHEDWINDOWS Window)
when (WINDOWPROP AttachedWindow (QUOTE ShowLinks)) do (RETURN
AttachedWindow])
(NC.ChangeLinkLabelInShowLinksWin
[LAMBDA (Link ShowLinksWin NewLinkLabel) (* rht: "30-Sep-87 20:49")
(* * Find the Link Icon corresponding to Link in a ShowLinks window and change its label.)
(for LinkIconPair in (TEDIT.LIST.OF.OBJECTS (TEXTOBJ ShowLinksWin)
(FUNCTION NC.LinkIconImageObjP))
do (LET (FoundLink)
(if [NC.SameLinkP Link (SETQ FoundLink (NC.FetchLinkFromLinkIcon
(CAR LinkIconPair]
then (replace (Link Label) of FoundLink with NewLinkLabel])
)
(* * New Display Mode format)
(DEFINEQ
(NC.CheckDisplayModeFormat
[LAMBDA (Link) (* fgh: "16-Nov-85 17:56")
(* * If Link's display mode is an atom, then change to the new record format.)
(* * rht 3/28/85: Now does nothing if link is not in current format. In that case, we should be inside of a
ConvertVersion0ToVersion1 so that a later repair should fix the links.)
(* * rht 7/17/85: Now turns into a typed record if wasn't already.)
(* * fgh 11/16/85 Removed conversion to typed record, since links are now datatypes.)
(LET (DisplayMode)
[COND
((type? Link Link)
(COND
((ATOM (SETQ DisplayMode (fetch (Link DisplayMode) of Link)))
(replace (Link DisplayMode) of Link with (NC.MakeNewDisplayMode DisplayMode))
)
((NEQ (CAR DisplayMode)
(QUOTE LINKDISPLAYMODE))
(replace (Link DisplayMode) of Link with (CONS (QUOTE LINKDISPLAYMODE)
DisplayMode]
Link])
(NC.InsureLinkDisplayMode
[LAMBDA (LinkDisplayMode) (* rht: " 6-Oct-86 23:40")
(* * Return the recordized form of the LinkDisplayMode argument.)
(* * fgh 5/2/86 First created)
(* * rht 10/6/86: Now uses FLOAT for ATTACHBITMAPFLG in most cases where LinkDisplayMode is atomic.)
(COND
((type? LINKDISPLAYMODE LinkDisplayMode)
LinkDisplayMode)
(T (SELECTQ LinkDisplayMode
(Title (create LINKDISPLAYMODE
SHOWTITLEFLG ← T
ATTACHBITMAPFLG ← (QUOTE FLOAT)))
(Icon (create LINKDISPLAYMODE
ATTACHBITMAPFLG ← T))
(Label (create LINKDISPLAYMODE
SHOWLINKTYPEFLG ← T
ATTACHBITMAPFLG ← (QUOTE FLOAT)))
(Both (create LINKDISPLAYMODE
SHOWTITLEFLG ← T
SHOWLINKTYPEFLG ← T
ATTACHBITMAPFLG ← (QUOTE FLOAT)))
(create LINKDISPLAYMODE
ATTACHBITMAPFLG ← T])
(NC.MakeNewDisplayMode
[LAMBDA (ModeAtom) (* rht: " 9-Sep-85 22:12")
(* * Makes a new display mode record structure using info in ModeAtom.)
(create LINKDISPLAYMODE
SHOWTITLEFLG ← (AND (FMEMB ModeAtom (QUOTE (Title Both)))
T)
SHOWLINKTYPEFLG ← (AND (FMEMB ModeAtom (QUOTE (Label Both)))
T)
ATTACHBITMAPFLG ← (if (OR (NULL ModeAtom)
(EQ ModeAtom (QUOTE Icon)))
then T
else (QUOTE FLOAT])
(NC.DisplayModeFromStylesheetSelections
[LAMBDA (Selections) (* rht: "18-Jul-85 14:35")
(* * Return the display mode corresponding to the user's selection from the changeDisplayMode stylesheet.)
(AND Selections (create LINKDISPLAYMODE
SHOWTITLEFLG ← (LISTGET NC.MenuItems/DisplayModeValues
(CAR Selections))
SHOWLINKTYPEFLG ← (LISTGET NC.MenuItems/DisplayModeValues
(CADR Selections))
ATTACHBITMAPFLG ← (LISTGET NC.MenuItems/DisplayModeValues
(CADDR Selections])
(NC.StylesheetSelectionsFromDisplayMode
[LAMBDA (DisplayMode) (* rht: "16-Mar-85 16:28")
(* * Return the list of ChangeDisplayMode stylesheet selections corresponding to the given DisplayMode.)
(LIST (SELECTQ (fetch (LINKDISPLAYMODE SHOWTITLEFLG) of DisplayMode)
(NIL (QUOTE No))
(FLOAT (QUOTE Float))
(QUOTE Yes))
(SELECTQ (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG) of DisplayMode)
(NIL (QUOTE No))
(FLOAT (QUOTE Float))
(QUOTE Yes))
(SELECTQ (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG) of DisplayMode)
(NIL (QUOTE No))
(FLOAT (QUOTE Float))
(QUOTE Yes])
)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.MenuItems/DisplayModeValues)
)
(DECLARE: DONTEVAL@LOAD
(RPAQQ NC.MenuItems/DisplayModeValues (Yes T No NIL Float FLOAT Yes T No NIL Float FLOAT Yes T No
NIL Float FLOAT))
)
(* * New fns to support No-Link cards/substances)
(DEFINEQ
(NC.LinksSupportedP
[LAMBDA (Card AnchorModesList) (* fgh: " 5-Feb-86 14:08")
(* * Are all of the anchor modes supporterd by the card Card)
(* * fgh 2/5/86 Changed call to LinkAnchorModesFromType to NC.FetchLinkAnchorModesSupported)
(LET ((SupportedAnchorModes (NC.FetchLinkAnchorModesSupported Card)))
(COND
((EQ SupportedAnchorModes T))
((NULL SupportedAnchorModes)
NIL)
(T (SETQ SupportedAnchorModes (MKLIST SupportedAnchorModes))
(for AnchorMode in AnchorModesList always (FMEMB AnchorMode
SupportedAnchorModes])
)
(* * Link display icons)
(DEFINEQ
(NC.FetchLinkIconForLink
[LAMBDA (Link) (* fgh: " 5-Feb-86 19:52")
(* * Find the Link Icon corresponding to Link)
(* * kirk 14Nov85: deleted use of LinkID and PSA.Database)
(* * fgh 2/5/86 Added call to NC.ApplyFn)
(LET ((SourceCard (fetch (Link SourceCard) of Link)))
(for LinkIcon in (CAR (NC.ApplyFn CollectLinksFn SourceCard NIL T))
thereis (if (NC.SameLinkP Link (NC.FetchLinkFromLinkIcon LinkIcon))
then LinkIcon])
(NC.MakeLinkIcon
[LAMBDA (Link) (* fgh: " 1-Oct-84 20:48")
(* * Create a Link Icon image object from the lionk info in Link)
(IMAGEOBJCREATE Link NC.LinkIconImageFns])
(NC.LinkIconButtonEventInFn
[LAMBDA (ImageObject Window) (* rht: "25-Oct-87 00:38")
(* If the guy buttons inside a link image object)
(* * fgh 6/3/86 Removed hot region, removed push copy link icon.)
(* * fgh 6/29/86 Put back in a hot region.)
(* * rht 11/18/86: Now calls NC.LinkIconLeftButtonFn rather than hardwiring in the call to NC.EditNoteCard.)
(* * rht 10/25/87: Now handles Pointer icons as well as link icons.)
(LET ((Window (COND
((WINDOWP Window)
Window)
((DISPLAYSTREAMP Window)
(WFROMDS Window))
((TEXTSTREAMP Window)
(WINDOW.FROM.TEDIT.THING Window))
(T NIL)))
(ClippingRegion (DSPCLIPPINGREGION NIL Window))
HotRegion MouseButtonState TTYWindow ClippingRegionWidth)
(* * Figure out the hot region -- basically the clipping region minus a few pts at right and left to allow for
TEdit selection of icon.)
[SETQ HotRegion (if (GREATERP (SETQ ClippingRegionWidth (fetch (REGION WIDTH)
of ClippingRegion))
24)
then (* There's at least 10 pts between the two 7pt cold
regions at left and right.)
(CREATEREGION (PLUS (fetch (REGION LEFT) of
ClippingRegion)
7)
(fetch (REGION BOTTOM) of ClippingRegion)
(DIFFERENCE (fetch (REGION WIDTH)
of ClippingRegion)
14)
(fetch (REGION HEIGHT) of ClippingRegion))
elseif (AND (LESSP ClippingRegionWidth 9))
then (* if link icon width less than 9 then no cold
regions)
ClippingRegion
else (* Divide into 4ths and give 1/4 at each edge as cold
regions.)
(CREATEREGION (PLUS (fetch (REGION LEFT) of
ClippingRegion)
(TIMES .25 ClippingRegionWidth))
(fetch (REGION BOTTOM) of ClippingRegion)
(QUOTIENT ClippingRegionWidth 2)
(fetch (REGION HEIGHT) of ClippingRegion]
(COND
((NOT (INSIDEP HotRegion (LASTMOUSEX Window)
(LASTMOUSEY Window)))
(* * If in the link icon, but not in the hot region -- want to select the link icon.)
NIL)
(T
(* * Otherwise, invert the window and wait until the mouse is up or the cursor moves out of the link icon.)
(RESETLST (RESETSAVE (INVERTW Window))
(until [OR (MOUSESTATE UP)
(NOT (INSIDEP HotRegion (LASTMOUSEX Window)
(LASTMOUSEY Window]
do (SETQ MouseButtonState LASTMOUSEBUTTONS)))
(* * If user let up inside the link icon, then call the appropriate function.)
(COND
((AND (INSIDEP HotRegion (LASTMOUSEX Window)
(LASTMOUSEY Window))
MouseButtonState)
(* * User let up inside the link icon.)
(COND
((OR (KEYDOWNP (QUOTE LSHIFT))
(KEYDOWNP (QUOTE RSHIFT))
(KEYDOWNP (QUOTE CTRL))
(KEYDOWNP (QUOTE COPY))
(KEYDOWNP (QUOTE DELETE))
(KEYDOWNP (QUOTE MOVE))) (* Copy or move or delete key is down, just do
selection)
NIL)
[(ZEROP (LOGXOR MouseButtonState 4))
(* The left button was down, call the left button fn.)
(COND
((NC.LinkIconImageObjP ImageObject)
(NC.LinkIconLeftButtonFn ImageObject Window))
((NC.PointerIconImageObjP ImageObject)
(NC.PointerIconLeftButtonFn ImageObject Window]
[(OR (ZEROP (LOGXOR MouseButtonState 1))
(ZEROP (LOGXOR MouseButtonState 6)))
(* The middle button was down, call the middle button
fn.)
(COND
((NC.LinkIconImageObjP ImageObject)
(NC.LinkIconMiddleButtonFn ImageObject Window))
((NC.PointerIconImageObjP ImageObject)
(NC.PointerIconMiddleButtonFn ImageObject Window]
((ZEROP (LOGXOR MouseButtonState 2))
(* The right button was down, allow selection)
NIL)
(T (* Hmmm, don't know know, allow selectin)
NIL)))
([AND (INSIDEP ClippingRegion (LASTMOUSEX Window)
(LASTMOUSEY Window))
(NOT (INSIDEP HotRegion (LASTMOUSEX Window)
(LASTMOUSEY Window]
(* * User let up outside the hot region but inside the link icon -- select the link icon)
NIL)
(T
(* * User let up outside the link icon -- don't select the link icon)
(QUOTE DON'T])
(NC.LinkIconDisplayFn
[LAMBDA (ImageObj ImageStream StreamType TextStream Scale)
(* rht: "24-Oct-87 18:39")
(* * Display a link icon)
(* * rht 11/13/84: Made width of box lines also scale dependent.)
(* * rht 12/4/84: Hacked so type-dependent icons come out optionally to left of text.)
(* * rht 2/9/85: Changed to use new display mode format.)
(* * fgh 2/5/86 Added call to NC.FetchLinkIconAttachedBitMap)
(* * rht & fgh 5/9/86: Massive hacking to display coords, etc.)
(* * fgh 5/9/86 Added DSPFONT kludge after TypeIcon BITBLT to get around bug in PRESS BITBLT.
Bug reported as AR %#5630.0)
(* * rht 5/10/86: Rearranged order of expressions a bit and added arg to call to NC.FetchLinkIconAttachedBitMap in
order to get a bitmap with correct height for the box we're drawing.)
(* * rht 8/7/86: Now passes Scale argument to NC.FetchLinkIconAttachedBitMap. Also uses the Title and Label args if
non-nil. If not, then recomputes them more sensibly.)
(* * rht 8/25/86: Fixed improperly placed comment.)
(* * pmi 2/11/87: Overhauled to accommodate multi-line link icons)
(* * pmi 2/27/87: Fixed problems with only displaying the attached bitmap and with displaying null titles)
(* * pmi 5/1/87: added missing local vars declarations.)
(* * pmi&rht 6/19/87: Added check for bad link (ie: half link to a deleted card.) Such a link will now be deleted
and its image object replaced with a "Bad Link" object.)
(* * rht 10/24/87: Ripped out heart of this function and moved to NC.DrawLinkOrPointerIcon.
In the case when there is no stored ImageBox on the Imageobj, it was doing the calculation twice, once here and
then again when the ImageBoxFn is called. Now just calls the ImageBoxFn if necessary up front.)
(DECLARE (GLOBALVARS NC.LinkIconAttachBitmapFlg NC.LinkIconShowLinkTypeFlg
NC.LinkIconShowTitleFlg))
(RESETLST (RESETSAVE NIL (BQUOTE (DSPFONT , (DSPFONT NC.LinkIconFont ImageStream)
, ImageStream)))
(PROG ((Scale (DSPSCALE NIL ImageStream))
(Link (NC.FetchLinkFromLinkIcon ImageObj))
ShowTitleFlg ShowLinkTypeFlg AttachBitmapFlg DisplayType Card Title Label
LinkIconString)
(* * Check for bad Link)
(if [NOT (AND (NC.ValidCardP (fetch (Link SourceCard) of Link))
(NC.ValidCardP (fetch (Link DestinationCard)
of Link]
then
(* * Delete the offending link, smash its image object into a "Deleted" image object, and return by displaying it.)
(NC.DeleteBadLink Link ImageObj ImageStream StreamType
TextStream Scale)
(RETURN))
(* * Link is okay, continue)
(* * Determine what type of Display to do)
(SETQ DisplayType (fetch (Link DisplayMode) of Link))
(SETQ ShowTitleFlg (fetch (LINKDISPLAYMODE SHOWTITLEFLG) of DisplayType)
)
(SETQ Card (if (EQ ShowTitleFlg (QUOTE SOURCE))
then (fetch (Link SourceCard) of Link)
else (fetch (Link DestinationCard) of Link)))
(SETQ ShowLinkTypeFlg (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG)
of DisplayType))
(SETQ AttachBitmapFlg (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG)
of DisplayType))
(if (EQ AttachBitmapFlg (QUOTE FLOAT))
then (SETQ AttachBitmapFlg NC.LinkIconAttachBitmapFlg))
(* * Construct the text for the link icon)
(SETQ Title (if (AND ShowTitleFlg (OR (NEQ ShowTitleFlg
(QUOTE FLOAT))
NC.LinkIconShowTitleFlg))
then (NC.RetrieveTitle Card)
else NIL))
(SETQ Label (AND (COND
((EQ ShowLinkTypeFlg (QUOTE FLOAT))
NC.LinkIconShowLinkTypeFlg)
(T ShowLinkTypeFlg))
(fetch (Link Label) of Link)))
(SETQ LinkIconString (CONCAT (COND
(Label (CONCAT "<" Label ">"))
(T ""))
(COND
((AND Label Title)
" ")
(T ""))
(OR Title "")))
(* * Now do all the hard work.)
(NC.DrawLinkOrPointerIcon ImageStream
(OR (IMAGEOBJPROP ImageObj (QUOTE BOUNDBOX))
(NC.LinkIconImageBoxFn ImageObj
ImageStream NIL
NIL NIL
DisplayType Title
Label
LinkIconString))
LinkIconString AttachBitmapFlg Card NIL])
(NC.LinkIconImageBoxFn
[LAMBDA (ImageObj ImageStream CurrentX RightMargin DummyArg DisplayType Title Label LinkIconString)
(* rht: "25-Oct-87 19:44")
(* * rht 9/20/84: Now scales result before returning by proper amount depending on stream type.
e.g. for PRESS and INTERPRESS.)
(* * rht 11/13/84: In computation of XSIZE, extra width is figured using characters in the font, "nn", rather than
absolute pixel count.)
(* * rht 2/9/85: Now uses new displaymode format.)
(* * rht 5/9/86: Note that RightMargin non-nil signals a TEdit stream.)
(* * rht & fgh 5/9/86: Massive hacking to display coords, etc.)
(* * rht 5/10/86: Rearranged order of expressions a bit and added arg to call to NC.FetchLinkIconAttachedBitMap in
order to get a bitmap with correct height for the box we're drawing.)
(* * rht 8/7/86: Now passes Scale argument to NC.FetchLinkIconAttachedBitMap. Also uses the Title and Label args if
non-nil. If not, then recomputes them more sensibly.)
(* * rht 8/25/85: Fixed improperly placed comment.)
(* * rg 11/18/86: Added TotalEdgeSpaceY to local vars declaration)
(* * pmi 2/6/87: Overhauled to accommodate multi-line link icons)
(* * pmi 2/27/87: Fixed problems with only displaying the attached bitmap and with displaying null titles)
(* * pmi 5/1/87: added missing local vars declarations.)
(* * pmi&rg 7/15/87 recreated peggy's patch to deal w/ links to deleted cards)
(* * rht 10/24/87: Ripped out heart of code and put in NC.ComputeLinkOrPointerImageBox. Removed Icon and
LinkIconStrings args as both were being computed here anyway.)
(DECLARE (GLOBALVARS NC.LinkIconAttachBitmapFlg NC.LinkIconShowLinkTypeFlg
NC.LinkIconShowTitleFlg))
(RESETLST (RESETSAVE NIL (BQUOTE (DSPFONT , (DSPFONT NC.LinkIconFont ImageStream)
, ImageStream)))
(PROG ((Link (NC.FetchLinkFromLinkIcon ImageObj))
Card ShowTitleFlg AttachBitmapFlg ShowLinkTypeFlg)
(* * Check for bad Link)
(if [NOT (AND (NC.ValidCardP (fetch (Link SourceCard) of Link))
(NC.ValidCardP (fetch (Link DestinationCard)
of Link]
then
(* * Delete the offending link, smash its image object into a "Deleted" image object, and return by displaying it.)
(RETURN (NC.DeletedLinkImageBoxFn ImageObj ImageStream)))
(* * Determine what type of Display to do)
(OR DisplayType (SETQ DisplayType (fetch (Link DisplayMode)
of Link)))
(SETQ ShowTitleFlg (fetch (LINKDISPLAYMODE SHOWTITLEFLG) of DisplayType)
)
(SETQ Card (if (EQ ShowTitleFlg (QUOTE SOURCE))
then (fetch (Link SourceCard) of Link)
else (fetch (Link DestinationCard) of Link)))
(SETQ ShowLinkTypeFlg (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG)
of DisplayType))
(SETQ AttachBitmapFlg (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG)
of DisplayType))
(SETQ AttachBitmapFlg (if (EQ AttachBitmapFlg (QUOTE FLOAT))
then NC.LinkIconAttachBitmapFlg
else AttachBitmapFlg))
(* * Construct the text for the link icon)
[if (NOT LinkIconString)
then (OR Title (SETQ Title
(if (AND ShowTitleFlg (OR (NEQ ShowTitleFlg
(QUOTE FLOAT))
NC.LinkIconShowTitleFlg))
then (NC.RetrieveTitle Card)
else NIL)))
[OR Label (SETQ Label (AND (if (EQ ShowLinkTypeFlg
(QUOTE FLOAT))
then
NC.LinkIconShowLinkTypeFlg
else ShowLinkTypeFlg)
(fetch (Link Label)
of Link]
(SETQ LinkIconString (CONCAT (COND
(Label (CONCAT "<" Label ">"))
(T ""))
(COND
((AND Label Title)
" ")
(T ""))
(OR Title ""]
(* * Now do the hard work.)
(RETURN (NC.ComputeLinkOrPointerImageBox ImageStream LinkIconString
AttachBitmapFlg Card RightMargin]
)
(NC.LinkIconImageObjP
[LAMBDA (IMAGEOBJ) (* fgh: " 1-Oct-84 20:04")
(* * Is IMAGEOBJ a Link Icon?)
(AND (IMAGEOBJP IMAGEOBJ)
(EQ (FUNCTION NC.LinkIconGetFn)
(IMAGEOBJPROP IMAGEOBJ (QUOTE GETFN])
(NC.LinkIconPutFn
[LAMBDA (ImageObject Stream) (* rht: "15-Jul-86 14:52")
(* * Writes the Link information in the link icon specified by ImageObject onto the file specified by Stream)
(* * fgh 11/16/85 Updated to handle Link DATATYPE)
(* * rht 7/15/86: Now checks for old style links. If so, then put down a placeholder imageobj.)
(LET ((Link (NC.FetchLinkFromLinkIcon ImageObject)))
(if (type? Link Link)
then (NC.WriteLink Link Stream)
else (IMAGEOBJPROP ImageObject (QUOTE OBJECTDATUM)
"[[Old style link.]]")
(replace (IMAGEOBJ IMAGEOBJFNS) of ImageObject with
NC.ExternalPutLinkIconImageFns)
(NC.ExternalPutLinkIconPutFn ImageObject Stream])
(NC.LinkIconGetFn
[LAMBDA (Stream) (* fgh: "16-Nov-85 20:40")
(* * Reads the link information from Stream and returns a link icon image object for this link info.
If the value on the stream is an atom in the old style, convert to a proper record.)
(NC.MakeLinkIcon (NC.ReadLink Stream])
(NC.LinkIconMiddleButtonFn
[LAMBDA (LinkIcon Window) (* pmi: "25-Mar-87 12:43")
(* Middle button has been pressed in the Notecard
pointer. Bring up menu of choices for manipulating
this pointer.)
(* * rht 11/18/86: Now calls NC.TraverseLink rather than NC.EditNoteCard.)
(* * rht 2/4/87: Now checks the ExtraLinkIconMenuItems property of the destination's card type atom.
If non-nil, then include those items in link icon menu.)
(* * pmi 3/25/87: Added NC.MenuFont to all menus)
(DECLARE (GLOBALVARS NC.LinkIconMiddleButtonMenu NC.MenuFont))
(LET ((Card (fetch (Link DestinationCard) of (NC.FetchLinkFromLinkIcon LinkIcon)))
ExtraItems Selection Menu)
(SETQ ExtraItems (GETPROP (NC.RetrieveType Card)
(QUOTE ExtraLinkIconMenuItems)))
[SETQ Menu (COND
((AND (BOUNDP (QUOTE NC.LinkIconMiddleButtonMenu))
(type? MENU NC.LinkIconMiddleButtonMenu)
(NULL ExtraItems))
NC.LinkIconMiddleButtonMenu)
(T (create MENU
ITEMS ← (APPEND (QUOTE ((Bring% Up% Card/Box (QUOTE Edit)
"Bring up the note card pointed to by this pointer.")
(Change% Link% Type (QUOTE Relabel)
"Change the label of this pointer.")
(Change% Card% Title (QUOTE Retitle)
"Change the destination card's title.")
(Change% Display% Mode (QUOTE Display)
"Change the type of information displayed in this pointer.")))
ExtraItems)
CENTERFLG ← T
TITLE ← "Link Ops"
MENUFONT ← NC.MenuFont
ITEMHEIGHT ← (IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
1]
(if (NULL ExtraItems)
then (SETQ NC.LinkIconMiddleButtonMenu Menu))
(if (NC.CardP (NC.CoerceToCard Window))
then (SELECTQ (SETQ Selection (MENU Menu))
(Edit (NC.TraverseLink LinkIcon Window))
(Display (NC.ChangeLinkDisplayMode LinkIcon Window))
(Relabel (NC.RelabelLink LinkIcon Window))
(Retitle (NC.ChangeCardTitleFromLinkIcon LinkIcon Window))
(NIL NIL)
(APPLY* Selection Card))
else NIL])
(NC.LinkIconWhenCopiedFn
[LAMBDA (ImageObject ToWindowStream FromTextStream ToTextStream)
(* rht: " 1-Jul-87 19:27")
(* * Called when copying a link icon from FromTextStream to ToWindowStream. Sets the necessary link information up
for card corresponding to ToWindowStream.)
(* * rht 11/18/84: Major hacking. Now checks for all sorts of illegal cases. Either goes ahead with copy, converts
link type to "Unspecified", or deletes the new "invisible" link. The latter will change when imageobj fns can
return DON'T.)
(* * rht 12/12/84: now does RETFROM instead of adding processes to delete imageobj's. This is cleaner, but still
ugly.)
(* * rht 3/25/85: Fixed to handle copies within a sketch card. That is indicated by nullity of the two textstream
args.)
(* * rht 3/24/86: Changed call to NC.CoerceToID to NC.CoerceToCard)
(* * fgh 6/30/86 Now ERROR! out of attempt to copy between NoteFiles)
(* * rht 7/14/86: Reversed order of tests for WINDOWP and TEXTSTREAMP in computation of NewSourceCard.)
(* * rht 8/11/86: Now only resets NewSourceCard if it was NIL so that copies to a sketch will work.)
(* * rht 10/5/86: Undid change fgh 6/30/86: now allows copies of links across notefiles. Also handles illegal
copies differently. Rather than RETFROM'ing or ERROR!'ing, it puts in a DELETE ME imageobj.)
(* * rht 12/16/86: Now passes Window to NC.GetCrossFileLinkDestCard.)
(* * rht 1/21/87: Now handles attempt to copy to non-NoteCards stream differently than other illegalities.)
(* * rht 1/25/87: Now stashes new link created on source card's user data props for use by NC.LinkAtCharPos in case
this is a copy of multiple links.)
(* * rht 6/24/87: Undid change of 3/25/85. No longer needed and causes bugs.)
(* * rht 7/1/87: Removed action of changing linkdisplaymode when copying system links.)
(DECLARE (GLOBALVARS NC.CopyCrossFileLinksMode NC.DELETEMEImageObjDatum NC.SystemLinkLabels
NC.UnspecifiedLinkLabel NC.NewCrossFileLinksTwoWayFlg))
(LET ((Link (NC.FetchLinkFromLinkIcon ImageObject))
(ImageObjectCopy (IMAGEOBJPROP ImageObject (QUOTE ImageObjectCopy)))
(InTEditCopyFlg (COND
((STKPOS (QUOTE TEDIT.COPY))
T)))
(Window (AND ToWindowStream (WFROMDS ToWindowStream T)))
SourceCard DestinationCard NewSourceCard NewLabel OldDisplayMode Label InsertPos
IllegalCopyFlg ExternalCopyFlg)
(SETQ Label (fetch (Link Label) of Link))
(SETQ SourceCard (fetch (Link SourceCard) of Link))
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(SETQ OldDisplayMode (fetch (Link DisplayMode) of Link))
[SETQ NewSourceCard (COND
((TEXTSTREAMP ToTextStream)
(NC.CoerceToCard ToTextStream))
((WINDOWP Window)
(NC.CoerceToCard Window]
[COND
((TEXTSTREAMP ToTextStream) (* If it's a text copy, then compute position to
insert link at.)
(SETQ InsertPos (NC.CharPosFromTextObject (TEXTOBJ ToTextStream]
[COND
((NULL NewSourceCard) (* Trying to copy to a non NoteCard stream)
(NC.PrintMsg NIL NIL (CONCAT "Tried to copy a NoteCards link icon"
" to a non-NoteCards stream."
(CHARACTER 13)))
(SETQ ExternalCopyFlg T))
([NULL (NC.LinksSupportedP NewSourceCard (QUOTE (Local]
(NC.PrintMsg Window NIL (CONCAT "Tried to copy a NoteCards link icon"
" to a NoteCard that"
" does not support links!!."
(CHARACTER 13)))
(SETQ IllegalCopyFlg T))
((AND (FMEMB Label (QUOTE (FiledCard SubBox)))
(NEQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))) (* Copy from filebox to non-filebox.)
(NC.PrintMsg Window NIL (CONCAT
"Tried to copy filedcard or subbox link to a non-filebox."
(CHARACTER 13)
"Link type of copy set to 'Unspecified'."
(CHARACTER 13)))
(SETQ NewLabel NC.UnspecifiedLinkLabel))
((AND (NEQ (NC.RetrieveType SourceCard)
(QUOTE FileBox))
(EQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))) (* Copy from non-filebox to filebox.)
(NC.PrintMsg Window NIL (CONCAT "Can't copy links from non-filebox to filebox."
(CHARACTER 13)
"Try using 'PutCardsHere'."
(CHARACTER 13)))
(SETQ IllegalCopyFlg T))
((AND (FMEMB Label (QUOTE (FiledCard SubBox)))
(EQ NewSourceCard SourceCard)) (* Copy within same filebox.)
(NC.PrintMsg Window NIL (CONCAT
"Can't copy links within a FileBox. Try move instead."
(CHARACTER 13)))
(SETQ IllegalCopyFlg T))
([AND (EQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))
(for Link1 in (NC.FetchToLinks NewSourceCard)
thereis (AND (NC.ChildLinkP Link1)
(EQ DestinationCard (fetch (Link DestinationCard)
of Link1]
(* Copy to a filebox already containing this child.)
(NC.PrintMsg Window NIL (CONCAT (NC.RetrieveTitle DestinationCard)
" not copied: already appears as a child of "
(NC.RetrieveTitle NewSourceCard)
(CHARACTER 13)))
(SETQ IllegalCopyFlg T))
([AND (EQ Label (QUOTE SubBox))
(OR (EQ NewSourceCard DestinationCard)
(NOT (NC.NotDaughterP DestinationCard NewSourceCard
(FUNCTION NC.ChildLinkP]
(* Copy to a filebox causes a cycle.)
(NC.PrintMsg Window NIL (CONCAT "Couldn't copy " Link " because of subbox cycle."
(CHARACTER 13)))
(SETQ IllegalCopyFlg T))
((AND (FMEMB Label NC.SystemLinkLabels)
[NOT (FMEMB Label (QUOTE (FiledCard SubBox]
(NEQ NewSourceCard SourceCard)) (* Copy of system link outside of own card.)
(NC.PrintMsg Window NIL (CONCAT "Tried to copy system link." (CHARACTER 13)
"Link type of copy set to 'Unspecified'."
(CHARACTER 13)))
(SETQ NewLabel NC.UnspecifiedLinkLabel))
((NC.CrossFileLinkCardP DestinationCard) (* Copy of a cross-file link.)
(if (NOT (NC.ActiveCardP DestinationCard))
then (NC.GetNoteCard DestinationCard))
(* If it's to be two-way, then make a fresh
CrossFileLinkCard.)
(if (OR (EQ NC.CopyCrossFileLinksMode (QUOTE TWOWAY))
(AND (NULL NC.CopyCrossFileLinksMode)
NC.NewCrossFileLinksTwoWayFlg))
then (SETQ DestinationCard (NC.GetCrossFileLinkDestCard DestinationCard Window)
))
(OR DestinationCard (SETQ IllegalCopyFlg T]
[COND
(IllegalCopyFlg (IMAGEOBJPROP ImageObjectCopy (QUOTE OBJECTDATUM)
NC.DELETEMEImageObjDatum)
(NC.SetUserDataProp SourceCard (QUOTE NeedsCleaningFlg)
T))
(ExternalCopyFlg (NC.CoerceToExternalPutLinkIcon ImageObjectCopy SourceCard
DestinationCard (OR NewLabel Label)))
(T (NC.SetUserDataProp NewSourceCard (QUOTE LastLinkCopiedOrMoved)
(NC.FillInLinkIcon ImageObjectCopy (OR NewLabel Label)
DestinationCard NewSourceCard OldDisplayMode
(NC.LinkAtCharPos InsertPos ToTextStream)
NC.CopyCrossFileLinksMode]
(IMAGEOBJPROP ImageObject (QUOTE ImageObjectCopy)
NIL])
(NC.LinkIconWhenDeletedFn
[LAMBDA (ImageObject Stream) (* rht: " 9-Dec-87 16:48")
(* * When deleting a link icon image object from a card, make sure the link information on the source and
destinmation cards get updated. When deleting a link image object from a prop list editor, just inform the user
that this is a useless operation.)
(* * rht 11/19/84: Now handles the case when a move is in progress. True if the old link is cached on the ImageObj.
Also changed so that SourceID is computed from ImageObject rather than from Stream. Similarly for the window.)
(* * kirk 14Nov85: deleted use of PSA.Database)
(* * fgh 5/2/86 Added code to handle deleting of links from ShowLinks editors.)
(* * fgh 6/4/86 Added KLUDGE to take care of case when this is called under TEDIT.UNDO.MOVE)
(* * rht 7/4/86: Now checks for readonly cards. Also passes checks for deleting from orphan card when calling
NC.DeleteLink.)
(* * fgh 7/14/86 Now deletes link icon directly, rather than depending on DeleteLink to do it.
Sets the Don'tDeleteLinkIconFlg in the call to DeleteLink to do so.)
(* * rht 8/11/86: Now computes InsideShowLinksP and lets that determine value of Don'tDelLinkIcon flg in call to
NC.DeleteLink.)
(* * rht&pmi 12/8/86: Now checks whether we're called by TEDIT.MOVE. If so, don't cause orphan hook under
NC.DelFromLink.)
(* * rht 3/26/87: Now passes non-nil NoOrphanHookFlg to NC.DeleteLink in case we're deleting a cross-file link.)
(* * rht 10/1/87: Fixed case when we're under a move to call NC.DeleteLink rather than NC.DelFromLink and
NC.DelToLink individually.)
(* * rht 12/9/87: Now checks to make sure links are cached before calling NC.CheckOrphanDelete.)
(DECLARE (GLOBALVARS NC.DeletedLinkImageObject))
(LET ((Link (NC.FetchLinkFromLinkIcon ImageObject))
LinkType OldLink StkPtr SourceCard DestinationCard InsideShowLinksP)
(COND
[(NC.CheckForNotReadOnly (fetch (Link SourceCard) of Link)
NIL "Can't delete links in ")
(COND
((IMAGEOBJPROP ImageObject (QUOTE LinkBeingMovedWithinCard))
(* TEdit is trying to delete the old link imageobj
after moving within a card.)
(IMAGEOBJPROP ImageObject (QUOTE LinkBeingMovedWithinCard)
NIL))
((SETQ OldLink (IMAGEOBJPROP ImageObject (QUOTE LinkBeingMoved)))
(NC.DeleteLink OldLink)
(replace (Link UID) of OldLink with -1)
(IMAGEOBJPROP ImageObject (QUOTE LinkBeingMoved)
NIL))
((SETQ StkPtr (STKPOS (QUOTE TEDIT.UNDO.MOVE)))
(* * Called from TEDIT.UNDO.MOVE, don't relly want to delete the links. KLUDGE because TEDIT will not call the
LinkIconInsertFn later on.)
(RELSTK StkPtr)
NIL)
(T
(* * if this is reversed source/dest {i.e., a From link} inside the show links editor, then return it to its
original direction)
[COND
((AND (SETQ InsideShowLinksP (IMAGEOBJPROP ImageObject (QUOTE
InsidePropListEditor)))
(LISTGET (fetch (Link UserData) of Link)
(QUOTE Reversed)))
(SETQ Link (create Link using Link SourceCard ← (fetch (Link
DestinationCard)
of Link)
DestinationCard ← (fetch (Link SourceCard)
of Link]
(* * Then just delete the link)
(SETQ SourceCard (fetch (Link SourceCard) of Link))
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(LET ((WasCachedFlg (NC.LinksCachedP SourceCard)))
(if (NOT WasCachedFlg)
then (NC.GetLinks SourceCard))
(NC.CheckForOrphanDelete SourceCard DestinationCard)
(NC.DeleteLink Link (OR (NC.SameCardP SourceCard
(fetch (NoteFile OrphansCard)
of (fetch (Card NoteFile)
of SourceCard)))
(NC.CrossFileLinkCardP DestinationCard)
(NC.CrossFileLinkCardP SourceCard))
(NOT InsideShowLinksP))
(if (NOT WasCachedFlg)
then (NC.PutLinks SourceCard)
(NC.UncacheLinks SourceCard)))
(create IMAGEOBJ smashing ImageObject OBJECTDATUM ← (fetch (IMAGEOBJ
OBJECTDATUM)
of
NC.DeletedLinkImageObject)
IMAGEOBJPLIST ← (fetch (IMAGEOBJ IMAGEOBJPLIST)
of NC.DeletedLinkImageObject)
IMAGEOBJFNS ← (fetch (IMAGEOBJ IMAGEOBJFNS)
of NC.DeletedLinkImageObject))
(replace (Link UID) of Link with -1]
(T (ERROR!])
(NC.LinkIconWhenInsertedFn
[LAMBDA (ImageObj WindowStream) (* rht: "24-Jun-87 16:29")
(* An Notecard link is being inserted.
If this is a deleteundo, then have to re-establish the
link information)
(* * kirk 15Nov85: deleted use of PSA.Database)
(* * rht 6/24/87: Now calls WhenDeletedFn if the imageobj has an OriginalImageObject property, i.e. we're in the
middle of a copy.)
(LET [(OriginalImageObj (IMAGEOBJPROP ImageObj (QUOTE OriginalImageObject]
(if OriginalImageObj
then (NC.LinkIconWhenCopiedFn OriginalImageObj WindowStream)
(IMAGEOBJPROP ImageObj (QUOTE OriginalImageObject)
NIL)
else (LET ((StackPointer (STKPOS (QUOTE TEDIT.UNDO.DELETION)))
SourceCard Link)
(COND
((NULL StackPointer)
(RELSTK StackPointer))
(T (RELSTK StackPointer)
(SETQ SourceCard (NC.CoerceToCard WindowStream))
(COND
((NC.CardP SourceCard)
(SETQ Link (NC.FetchLinkFromLinkIcon ImageObj))
(NC.AddFromLink Link)
(NC.AddToLink Link])
(NC.LinkIconWhenMovedFn
[LAMBDA (ImageObject ToWindowStream FromTextStream ToTextStream)
(* rht: " 1-Jul-87 19:27")
(* * Called when moving a link icon from FromTextStream to ToWindowStream. Sets the necessary link information up
for card corresponding to ToWindowStream.)
(* * rht 11/18/84: Major hacking. Now checks for all sorts of illegal cases. Either goes ahead with move, converts
link type to "Unspecified", or deletes the new "invisible" link. The code is very similar to
NC.LinkIconWhenCopiedFn except that within-filebox moves are allowed. Also when aborting a move, we must insert a
copy of the link back to take the place of the deleted original. This will all change when imageobj fns can return
DON'T.)
(* * rht 12/12/84: Now just RETFROM's rather than doing the addprocess stuff. Should be cleaner, but still ugly.)
(* * kirk 15Nov85: deleted use of PSA.Database)
(* * rht 3/24/86: Changed call to NC.CoerceToID to NC.CoerceToCard)
(* * kirk 24Mar86: added Dave Newman patch to avoid duplicate links in sketch cards)
(* * rht 7/14/86: Reversed order of tests for WINDOWP and TEXTSTREAMP in computation of NewSourceCard.)
(* * rht 8/11/86: Now only resets NewSourceCard if it was NIL so that moves to a sketch will work.
Now checks if SourceCard = NewSourceCard in which case we're moving within a card. Don't make a new link in that
case.)
(* * rht 10/5/86: Undid change fgh 6/30/86: now allows copies of links across notefiles.)
(* * rht 11/13/86: Removed "tsk, tsk" messages.)
(* * rht 12/16/86: Fixed calls to NC.PrintMsg to use Window arg.)
(* * rht 1/25/87: Now stashes new link created on source card's user data props for use by NC.LinkAtCharPos in case
this is a copy of multiple links.)
(* * rht 7/1/87: Removed action of changing linkdisplaymode when copying system links.)
(DECLARE (GLOBALVARS NC.SystemLinkLabels NC.UnspecifiedLinkLabel))
(LET (Label (Link (NC.FetchLinkFromLinkIcon ImageObject))
SourceCard DestinationCard NewSourceCard NewLabel OldDisplayMode
(Window (AND ToWindowStream (WFROMDS ToWindowStream T)))
InsertPos)
(SETQ Label (fetch (Link Label) of Link))
[SETQ NewSourceCard (COND
((TEXTSTREAMP ToTextStream)
(NC.CoerceToCard ToTextStream))
((WINDOWP Window)
(NC.CoerceToCard Window]
(SETQ SourceCard (fetch (Link SourceCard) of Link))
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(SETQ OldDisplayMode (fetch (Link DisplayMode) of Link))
[COND
((AND (NULL NewSourceCard)
(NULL FromTextStream)
(NULL ToTextStream)) (* We must be moving within a sketch.)
(SETQ NewSourceCard SourceCard))
((TEXTSTREAMP ToTextStream) (* If it's a text copy, then compute position to
insert link at.)
(SETQ InsertPos (NC.CharPosFromTextObject (TEXTOBJ ToTextStream]
(COND
((NULL NewSourceCard) (* Trying to copy to a non NoteCard stream)
(NC.PrintMsg Window NIL (CONCAT "Tried to move a NoteCards link icon"
" to a non-NoteCards stream!!."
(CHARACTER 13)))
(RETFROM (QUOTE TEDIT.MOVE)
NIL T))
([NULL (NC.LinksSupportedP NewSourceCard (QUOTE (Local]
(NC.PrintMsg Window NIL (CONCAT "Tried to move a NoteCards link icon"
" to a NoteCard that"
" does not support links!!."
(CHARACTER 13)))
(RETFROM (QUOTE TEDIT.MOVE)
NIL T))
((AND (FMEMB Label (QUOTE (FiledCard SubBox)))
(NEQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))) (* Move from filebox to non-filebox.)
(NC.PrintMsg Window NIL (CONCAT
"Tried to move filedcard or subbox link to a non-filebox."
(CHARACTER 13)
"Link type of copy set to 'Unspecified'."
(CHARACTER 13)))
(SETQ NewLabel NC.UnspecifiedLinkLabel))
((AND (NEQ (NC.RetrieveType SourceCard)
(QUOTE FileBox))
(EQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))) (* Move from non-filebox to filebox.)
(NC.PrintMsg Window NIL (CONCAT "Can't move links from non-filebox to filebox."
(CHARACTER 13)
"Try using PutCardsHere."
(CHARACTER 13)))
(RETFROM (QUOTE TEDIT.MOVE)
NIL T))
([AND (EQ (NC.RetrieveType NewSourceCard)
(QUOTE FileBox))
(NEQ NewSourceCard SourceCard)
(for Link1 in (NC.FetchToLinks NewSourceCard)
thereis (AND (NC.ChildLinkP Link1)
(EQ DestinationCard (fetch (Link DestinationCard)
of Link1]
(* Move to a filebox already containing this child.)
(NC.PrintMsg Window NIL (CONCAT (NC.RetrieveTitle DestinationCard)
" not moved: already appears as a child of "
(NC.RetrieveTitle NewSourceCard)
(CHARACTER 13)))
(RETFROM (QUOTE TEDIT.MOVE)
NIL T))
([AND (EQ Label (QUOTE SubBox))
(NEQ NewSourceCard SourceCard)
(OR (EQ NewSourceCard DestinationCard)
(NOT (NC.NotDaughterP DestinationCard NewSourceCard
(FUNCTION NC.ChildLinkP]
(* Move to a filebox causes a cycle.)
(NC.PrintMsg Window NIL (CONCAT "Couldn't move " Link " because of subbox cycle."
(CHARACTER 13)))
(RETFROM (QUOTE TEDIT.MOVE)
NIL T))
((AND (FMEMB Label NC.SystemLinkLabels)
[NOT (FMEMB Label (QUOTE (FiledCard SubBox]
(NEQ NewSourceCard SourceCard)) (* Move of system link outside of own card.)
(NC.PrintMsg Window NIL (CONCAT "Tried to copy system link." (CHARACTER 13)
"Link type of copy set to 'Unspecified'."
(CHARACTER 13)))
(SETQ NewLabel NC.UnspecifiedLinkLabel)))
(if (EQ SourceCard NewSourceCard)
then (* Moving within a card, so just reposition Link in
ToLinks list.)
(AND (NC.TEditBasedP SourceCard)
(IMAGEOBJPROP ImageObject (QUOTE LinkBeingMovedWithinCard)
Link))
(NC.AddToLink Link (NC.LinkAtCharPos InsertPos ToTextStream)
T)
else (IMAGEOBJPROP ImageObject (QUOTE LinkBeingMoved)
Link)
(NC.SetUserDataProp NewSourceCard (QUOTE LastLinkCopiedOrMoved)
(NC.FillInLinkIcon ImageObject (OR NewLabel Label)
DestinationCard NewSourceCard
OldDisplayMode (NC.LinkAtCharPos
InsertPos ToTextStream])
(NC.FetchLinkFromLinkIcon
[LAMBDA (LinkIcon) (* fgh: "16-Nov-85 17:57")
(* * Return the link information from the LinkIcon image object)
(* * rht 7/18/85: Changed to convert to typed links.)
(* * fgh 11/16/85 Removed code to make link into aTYPEDRECORD, since links are now datatypes.)
(NC.CheckDisplayModeFormat (IMAGEOBJPROP LinkIcon (QUOTE OBJECTDATUM])
(NC.ChangeLinkDisplayMode
[LAMBDA (LinkOrLinkIcon Window NewDisplayMode) (* Randy.Gobbel "15-May-87 16:39")
(* * Change the display mode of the NOTECARDLINK defined by LinkOrLinkIcon. Have the user choose the new display
mode.)
(* * NOTE: assumes that the SourceID card of the link is active, i.e., the substance and links are cached for this
card.)
(* * rht 2/1/85: Now doesn't do all the work if new display mode is same as the old one. Or if user doesn't make a
selection from the menu.)
(* * kef 8/8/86: Now does the write through to the NoteFile even if the card is active, but not being edited.
Also, in the case of doing the write through, puts only the from links.)
(* * fgh 8/30/86 Adapted to call NC.IfCardPartNotBusy.)
(* * rht 9/29/86: Changed Ken's call to NC.CardBeingEditedP to NC.ActiveCardP and other minor changes.)
(* * rht 2/18/87: Added check for readonly notefile to fix bug %#376.0)
(* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP when changing FromLinks)
(LET (Card DestinationCard Link LinkIcon GlobalLinkFlg OldDisplayMode)
[if (NC.LinkIconImageObjP LinkOrLinkIcon)
then (SETQ Link (NC.FetchLinkFromLinkIcon LinkOrLinkIcon))
(SETQ LinkIcon LinkOrLinkIcon)
else (SETQ Link LinkOrLinkIcon)
(OR (SETQ GlobalLinkFlg (NC.GlobalLinkP Link))
(SETQ LinkIcon (NC.FetchLinkIconForLink Link]
(SETQ Card (fetch (Link SourceCard) of Link))
(SETQ OldDisplayMode (fetch (Link DisplayMode) of Link))
(if (NC.CheckForNotReadOnly Card Window "Can't change display mode for links in ")
then [COND
((WINDOWP Window))
((NC.ActiveCardP Card)
(SETQ Window (NC.FetchWindow Card]
(* * Get new display mode from user)
(SETQ DestinationCard (fetch (Link DestinationCard) of Link))
(NC.IfCardPartNotBusy
DestinationCard
(QUOTE FROMLINKS)
[if (NOT NewDisplayMode)
then (SETQ NewDisplayMode
(NC.DisplayModeFromStylesheetSelections
(STYLESHEET (CREATE.STYLE (QUOTE ITEMS)
[LIST
(create MENU
ITEMS ←
(QUOTE (Yes No Float)
))
(create MENU
ITEMS ←
(QUOTE (Yes No Float)
))
(create MENU
ITEMS ←
(QUOTE (Yes No Float]
(QUOTE ITEM.TITLES)
(QUOTE (Title?% LinkType?%
AttachBitmap?))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT (QUOTE
WEIGHT)
(QUOTE BOLD))
(QUOTE SELECTIONS)
(
NC.StylesheetSelectionsFromDisplayMode
OldDisplayMode)
(QUOTE NEED.NOT.FILL.IN)
NIL
(QUOTE TITLE)
(QUOTE Display% Mode?)
(QUOTE POSITION)
(create POSITION
XCOORD ← LASTMOUSEX
YCOORD ← LASTMOUSEY]
(if (OR (NULL NewDisplayMode)
(EQUAL NewDisplayMode OldDisplayMode))
then
(* * If new display mode is same as old, then bail out.)
NIL
else
(* * Update link in LinkIcon or in global links list)
(if GlobalLinkFlg
then (for GlobalLink in (NC.FetchGlobalLinks Card)
when (NC.SameLinkP Link GlobalLink)
do (replace (Link DisplayMode) of GlobalLink
with NewDisplayMode))
(NC.SetLinksDirtyFlg Card T)
else (replace (Link DisplayMode) of (NC.FetchLinkFromLinkIcon
LinkIcon)
with NewDisplayMode)
(NC.MarkCardDirty Card))
(* * Update link in ToLinks List of Source card)
(for ToLink in (NC.FetchToLinks Card) when (NC.SameLinkP
Link ToLink)
do (replace (Link DisplayMode) of ToLink with
NewDisplayMode))
(NC.SetLinksDirtyFlg Card T)
(* * Update Link in FromLinks list of Destination card)
(if (NC.LinksCachedP DestinationCard)
then (for FromLink in (NC.FetchFromLinks DestinationCard)
when (NC.SameLinkP Link FromLink)
do (replace (Link DisplayMode) of FromLink
with NewDisplayMode))
(NC.SetLinksDirtyFlg DestinationCard T)
else (WITH.MONITOR (NC.FetchMonitor (fetch (Card NoteFile)
of DestinationCard))
(NC.GetLinks DestinationCard)
(for FromLink in (NC.FetchFromLinks
DestinationCard)
when (NC.SameLinkP Link FromLink)
do (replace (Link DisplayMode)
of FromLink with NewDisplayMode))
(NC.PutFromLinks DestinationCard)
(NC.UncacheLinks DestinationCard)))
(* * Update the image in any active window for Card)
(if [AND (WINDOWP Window)
(NOT (NC.TEditBasedP (NC.RetrieveType Card]
then (NC.UpdateLinkImages Window (fetch (Link
DestinationCard)
of Link)))
(* This causes tedit to redisplay the screen.)
(QUOTE CHANGED])
(NC.UpdateLinkImages
[LAMBDA (SourceWindowOrCard DestinationCard) (* rht: "30-Sep-87 19:35")
(* * Update the Link Image Objects in SourceCard that point to DestinationID)
(* * rht 10/2/85: Now checks if card's window was shrunk. If so, unshrink, modify and reshrink.)
(* * fgh 11/17/85 Updated to handle card objects.)
(* * fgh 2/5/86 Addeed call to NC.ApplyFn)
(* * rht 9/30/87: Added calls to NC.UpdateLinkImagesInShowLinks.)
(LET (SourceWindow SourceCard NoteCardType ShrunkenWin)
(COND
((WINDOWP SourceWindowOrCard)
(SETQ SourceWindow SourceWindowOrCard)
(SETQ SourceCard (NC.CoerceToCard SourceWindowOrCard)))
(T (SETQ SourceWindow (NC.FetchWindow SourceWindowOrCard))
(SETQ SourceCard SourceWindowOrCard)))
(COND
((SETQ ShrunkenWin (NC.GetShrunkenWin SourceWindow))
(EXPANDW ShrunkenWin)))
(SETQ NoteCardType (NC.RetrieveType SourceCard))
(NC.UpdateLinkImagesInShowLinks SourceCard DestinationCard)
(NC.UpdateLinkImagesInShowLinks DestinationCard SourceCard)
(NC.ApplyFn UpdateLinkIconsFn SourceCard DestinationCard)
(COND
(ShrunkenWin (SHRINKW SourceWindow)))
NIL])
(NC.LinkIconCopyFn
[LAMBDA (ImageObject) (* rht: "24-Jun-87 16:30")
(* * Return a copy of image object. IF it is a system link label, then make its label unspecified.)
(* * rht 11/18/84: No longer worries about system link labels. All that is handled by WhenCopiedFn and WhenMovedFn.
Caches the new copy on the prop list of the original imageobj.)
(* * rht 8/22/85: Added call to NC.CoerceToExternalPutLinkIcon to make the imageobj look like a external link icon.
If we're in a normal imageobj copy then the whencopiedfn will get called and replace the contents of
ImageObjectCopy anyway. However, if only the CopyFn gets called, then this will stick.)
(* * fgh 1/29/86 Removed the "copying ImageObj" clause in the create of ImageObjectCopy to fix bug where the
copying was causing a stack overflow thru infinite recursive COPYALL calls. Copying clause was unnecessary.)
(* * rht 6/24/87: Now saves original imageobj on the OriginalImageObject property of ImageObjectCopy.)
(LET ((ImageObjectCopy (create IMAGEOBJ))
(Link (NC.FetchLinkFromLinkIcon ImageObject)))
(NC.CoerceToExternalPutLinkIcon ImageObjectCopy (fetch (Link SourceCard) of Link)
(fetch (Link DestinationCard) of Link)
(fetch (Link Label) of Link))
(IMAGEOBJPROP ImageObject (QUOTE ImageObjectCopy)
ImageObjectCopy)
(IMAGEOBJPROP ImageObjectCopy (QUOTE OriginalImageObject)
ImageObject)
(IMAGEOBJPROP ImageObjectCopy (QUOTE WHENINSERTEDFN)
(FUNCTION NC.LinkIconWhenInsertedFn))
ImageObjectCopy])
(NC.LinkAtCharPos
[LAMBDA (CharPos TextStream) (* rht: " 1-Feb-87 15:45")
(* * Returns the link right before CharPos in TextStream. Return NIL if there is no link icon located before
CharPos.)
(* * rht 1/25/87: Now takes special kludgy action if we're under a copy of multiple links. If it's past the first
link in the copy then the value returned is the link just copied previously.)
(* * rht 2/1/87: Fix to above kludgy action so that STKARG call is safe.)
(if (TEXTSTREAMP TextStream)
then (if [LET [(StkPos (STKPOS (QUOTE TEDIT.SELECTED.PIECES]
(AND StkPos (PROG1 (STKARG (QUOTE NPC)
StkPos)
(RELSTK StkPos]
then (NC.FetchUserDataProp (NC.CoerceToCard TextStream)
(QUOTE LastLinkCopiedOrMoved))
else (for LinkIconPair in (TEDIT.LIST.OF.OBJECTS (TEXTOBJ TextStream)
(FUNCTION
NC.LinkIconImageObjP))
bind OldLinkIconPair while (LESSP (CADR LinkIconPair)
CharPos)
do (SETQ OldLinkIconPair LinkIconPair)
finally (RETURN (AND OldLinkIconPair (NC.FetchLinkFromLinkIcon
(CAR OldLinkIconPair])
(NC.LinkIconLeftButtonFn
[LAMBDA (LinkIcon Window) (* rht: "18-Nov-86 18:47")
(* * Left button has been pressed in the link icon. For now, just traverse the link.)
(NC.TraverseLink LinkIcon Window])
)
(DEFINEQ
(NC.FillInLinkIcon
[LAMBDA (ImageObj Label DestinationCard SourceCard DisplayMode LinkToInsertAfter CrossFileLinksMode)
(* rht: "25-Jan-87 20:01")
(* * Called by WhenCopiedFn and WhenMovedFn to build the new link and stick it in the ImageObj.)
(* * rht 1/25/87: Now returns the new link.)
(DECLARE (GLOBALVARS NC.LinkIconImageFns))
(LET ((Link (NC.MakeLink NIL Label DestinationCard SourceCard DisplayMode NIL NIL NIL
LinkToInsertAfter CrossFileLinksMode)))
(IMAGEOBJPROP ImageObj (QUOTE OBJECTDATUM)
Link)
(replace (IMAGEOBJ IMAGEOBJFNS) of ImageObj with NC.LinkIconImageFns)
Link])
(NC.InvisibleLinkImageBoxFn
[LAMBDA (ImageObj Stream) (* rht: "20-Nov-84 10:57")
(* * Returns a zero-size image box.)
(create IMAGEBOX
XSIZE ← 0
YSIZE ← 0
YDESC ← 0
XKERN ← 0])
(NC.InvisibleLinkPutFn
[LAMBDA (ImageObj OutputStream) (* fgh: "26-Feb-84 01:04")
(BOUT OutputStream 1])
(NC.InvisibleLinkGetFn
[LAMBDA (InputStream TextStream) (* rht: "21-Nov-84 12:10")
(BIN InputStream)
NC.InvisibleLinkImageObject])
)
(* * Pointer icons. These act like links, except that their icon boxes are dashed, and they're
invisible as far as the source or destination cards are concerned. That is, only the
imageobject containing the pointer knows about the connection. Functions exist for creating
pointer icons and converting them into link icons.)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.PointerIconImageObjFns NC.PointerIconDashingStyle NC.PointerIconMiddleButtonMenu)
)
(RPAQ? NC.PointerIconImageObjFns (IMAGEFNSCREATE (FUNCTION NC.PointerIconDisplayFn)
(FUNCTION NC.PointerIconImageBoxFn)
(FUNCTION NC.PointerIconPutFn)
(FUNCTION NC.PointerIconGetFn)
(FUNCTION NC.PointerIconCopyFn)
(FUNCTION NC.LinkIconButtonEventInFn)))
(RPAQ? NC.PointerIconDashingStyle (QUOTE (4 2)))
[DECLARE: EVAL@COMPILE
(DATATYPE NCPointer (DestinationCard DisplayMode Label UserData))
]
(/DECLAREDATATYPE (QUOTE NCPointer)
(QUOTE (POINTER POINTER POINTER POINTER))
(QUOTE ((NCPointer 0 POINTER)
(NCPointer 2 POINTER)
(NCPointer 4 POINTER)
(NCPointer 6 POINTER)))
(QUOTE 8))
(* * Functions likely to be useful externally.)
(DEFINEQ
(NC.InsertPointerInText
[LAMBDA (SourceCard DestinationCard PointerOrPointerLabel DisplayMode CharacterPosition)
(* rht: "27-Oct-87 12:23")
(* * Create a Pointer icon pointing to DestinationCard and stick it in SourceCard at location Loc.
Loc defaults to current cursor position. Return the Pointer icon.)
(LET ((WasActiveFlg (NCP.CardCachedP SourceCard))
Pointer TextStream TextObj InsertPos)
(if (NOT WasActiveFlg)
then (NCP.CacheCards SourceCard))
(SETQ TextStream (NCP.CardSubstance SourceCard))
(SETQ TextObj (TEXTOBJ TextStream))
(if (SETQ InsertPos (OR (if (AND (FIXP CharacterPosition)
(ILEQ CharacterPosition (fetch (TEXTOBJ
TEXTLEN)
of TextObj)))
then CharacterPosition)
(NC.CharPosFromTextObject TextObj)))
then (if [SETQ Pointer (COND
((type? NCPointer PointerOrPointerLabel)
PointerOrPointerLabel)
(T (NC.MakePointer DestinationCard PointerOrPointerLabel DisplayMode]
then (TEDIT.SETSEL TextObj InsertPos 0 (QUOTE LEFT))
(TEDIT.INSERT.OBJECT (NC.MakePointerIcon Pointer)
TextStream InsertPos))
else (NC.ReportError "NC.InsertPointerInText"
"No selection set when inserting pointer image object."))
(if (NOT WasActiveFlg)
then (NCP.UncacheCards SourceCard T))
Pointer])
(NC.ConvertPointerIconToLinkIcon
[LAMBDA (SourceCardOrWindow PointerIcon) (* rht: "29-Oct-87 12:19")
(* * Create a new link out of information in PointerIcon and replace the PointerIcon with it.)
(DECLARE (GLOBALVARS NC.LinkIconImageFns))
(LET ((Pointer (NC.FetchPointerFromPointerIcon PointerIcon))
(SourceCard (NC.CoerceToCard SourceCardOrWindow))
TextStream)
(SETQ TextStream (NC.FetchSubstance SourceCard))
[IMAGEOBJPROP PointerIcon (QUOTE OBJECTDATUM)
(NC.MakeLink NIL (fetch (NCPointer Label) of Pointer)
(fetch (NCPointer DestinationCard) of Pointer)
SourceCard
(fetch (NCPointer DisplayMode) of Pointer)
NIL NIL NIL (for LinkIconPair
in [TEDIT.LIST.OF.OBJECTS
(TEXTOBJ TextStream)
(FUNCTION (LAMBDA (ImageObj)
(OR (NC.LinkIconImageObjP
ImageObj)
(NC.PointerIconImageObjP
ImageObj]
bind OldLinkIconPair
until (EQ (CAR LinkIconPair)
PointerIcon)
do (if (NC.LinkIconImageObjP
(CAR LinkIconPair))
then (SETQ OldLinkIconPair
LinkIconPair))
finally (RETURN
(AND OldLinkIconPair
(NC.FetchLinkFromLinkIcon
(CAR OldLinkIconPair]
(replace (IMAGEOBJ IMAGEOBJFNS) of PointerIcon with NC.LinkIconImageFns)
(TEDIT.OBJECT.CHANGED TextStream PointerIcon)
PointerIcon])
(NC.MakePointerIcon
[LAMBDA (Pointer) (* rht: "19-Oct-87 14:35")
(* * Create and return a pointer icon image object.)
(DECLARE (GLOBALVARS NC.PointerIconImageObjFns))
(IMAGEOBJCREATE Pointer NC.PointerIconImageObjFns])
(NC.MakePointer
[LAMBDA (DestinationCard Label DisplayMode UserData) (* rht: "24-Oct-87 18:43")
(* * Create and return a pointer datatype suitable as OBJECTDATUM for a pointer icon imageobj.
DisplayMode, Label and UserData args are optional.)
(create NCPointer
DestinationCard ← DestinationCard
Label ← Label
DisplayMode ← DisplayMode
UserData ← UserData])
(NC.PointerIconImageObjP
[LAMBDA (IMAGEOBJ) (* rht: "24-Oct-87 23:46")
(* * Is IMAGEOBJ a Pointer Icon?)
(AND (IMAGEOBJP IMAGEOBJ)
(EQ (FUNCTION NC.PointerIconGetFn)
(IMAGEOBJPROP IMAGEOBJ (QUOTE GETFN])
(NC.FetchPointerFromPointerIcon
[LAMBDA (PointerIcon) (* rht: "24-Oct-87 18:35")
(* * Return the Pointer object found in PointerIcon)
(IMAGEOBJPROP PointerIcon (QUOTE OBJECTDATUM])
)
(* * Internal functions.)
(DEFINEQ
(NC.PointerIconDisplayFn
[LAMBDA (ImageObj ImageStream StreamType TextStream Scale)
(* rht: "24-Oct-87 23:51")
(* * Display a pointer icon)
(DECLARE (GLOBALVARS NC.LinkIconAttachBitmapFlg NC.LinkIconShowLinkTypeFlg
NC.LinkIconShowTitleFlg))
(RESETLST (RESETSAVE NIL (BQUOTE (DSPFONT , (DSPFONT NC.LinkIconFont ImageStream)
, ImageStream)))
(PROG ((Scale (DSPSCALE NIL ImageStream))
(Pointer (NC.FetchPointerFromPointerIcon ImageObj))
Card ShowTitleFlg ShowLinkTypeFlg AttachBitmapFlg DisplayType Title Label
LinkIconString)
(* * Check for bad Pointer)
(if [NOT (NC.ValidCardP (SETQ Card (fetch (NCPointer
DestinationCard)
of Pointer]
then
(* * Delete the offending link, smash its image object into a "Deleted" image object, and return by displaying it.)
(NC.DeleteBadPointer Pointer ImageObj ImageStream StreamType
TextStream Scale)
(RETURN))
(* * Pointer is okay, continue)
(* * Determine what type of Display to do)
(SETQ DisplayType (fetch (NCPointer DisplayMode) of Pointer))
(SETQ ShowTitleFlg (fetch (LINKDISPLAYMODE SHOWTITLEFLG) of DisplayType)
)
(SETQ ShowLinkTypeFlg (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG)
of DisplayType))
(SETQ AttachBitmapFlg (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG)
of DisplayType))
(if (EQ AttachBitmapFlg (QUOTE FLOAT))
then (SETQ AttachBitmapFlg NC.LinkIconAttachBitmapFlg))
(* * Construct the text for the link icon)
(SETQ Title (if (AND ShowTitleFlg (OR (NEQ ShowTitleFlg
(QUOTE FLOAT))
NC.LinkIconShowTitleFlg))
then (NC.RetrieveTitle Card)
else NIL))
(SETQ Label (AND (COND
((EQ ShowLinkTypeFlg (QUOTE FLOAT))
NC.LinkIconShowLinkTypeFlg)
(T ShowLinkTypeFlg))
(fetch (NCPointer Label) of Pointer)))
(SETQ LinkIconString (CONCAT (COND
(Label (CONCAT "<" Label ">"))
(T ""))
(COND
((AND Label Title)
" ")
(T ""))
(OR Title "")))
(* * Now do all the hard work.)
(NC.DrawLinkOrPointerIcon ImageStream
(OR (IMAGEOBJPROP ImageObj (QUOTE BOUNDBOX))
(NC.LinkIconImageBoxFn ImageObj
ImageStream NIL
NIL NIL
DisplayType Title
Label
LinkIconString))
LinkIconString AttachBitmapFlg Card T])
(NC.PointerIconImageBoxFn
[LAMBDA (ImageObj ImageStream CurrentX RightMargin DummyArg DisplayType Title Label LinkIconString)
(* rht: "27-Oct-87 12:31")
(* * Compute the image box for pointer icon.)
(DECLARE (GLOBALVARS NC.LinkIconShowLinkTypeFlg NC.LinkIconShowTitleFlg
NC.LinkIconAttachBitmapFlg))
(RESETLST (RESETSAVE NIL (BQUOTE (DSPFONT , (DSPFONT NC.LinkIconFont ImageStream)
, ImageStream)))
(PROG ((Pointer (NC.FetchPointerFromPointerIcon ImageObj))
Card ShowTitleFlg AttachBitmapFlg ShowLinkTypeFlg)
(* * Check for bad Pointer)
(if [NOT (NC.ValidCardP (SETQ Card (fetch (NCPointer
DestinationCard)
of Pointer]
then
(* * Delete the offending link, smash its image object into a "Deleted" image object, and return by displaying it.)
(RETURN (NC.DeletedLinkImageBoxFn ImageObj ImageStream)))
(* * Determine what type of Display to do)
(OR DisplayType (SETQ DisplayType (fetch (NCPointer DisplayMode)
of Pointer)))
(SETQ ShowTitleFlg (fetch (LINKDISPLAYMODE SHOWTITLEFLG) of DisplayType)
)
(SETQ ShowLinkTypeFlg (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG)
of DisplayType))
(SETQ AttachBitmapFlg (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG)
of DisplayType))
(SETQ AttachBitmapFlg (if (EQ AttachBitmapFlg (QUOTE FLOAT))
then NC.LinkIconAttachBitmapFlg
else AttachBitmapFlg))
(* * Construct the text for the link icon)
[if (NOT LinkIconString)
then (OR Title (SETQ Title
(if (AND ShowTitleFlg (OR (NEQ ShowTitleFlg
(QUOTE FLOAT))
NC.LinkIconShowTitleFlg))
then (NC.RetrieveTitle Card)
else NIL)))
[OR Label (SETQ Label (AND (if (EQ ShowLinkTypeFlg
(QUOTE FLOAT))
then
NC.LinkIconShowLinkTypeFlg
else ShowLinkTypeFlg)
(fetch (NCPointer Label)
of Pointer]
(SETQ LinkIconString (CONCAT (COND
(Label (CONCAT "<" Label ">"))
(T ""))
(COND
((AND Label Title)
" ")
(T ""))
(OR Title ""]
(* * Now do the hard work.)
(RETURN (NC.ComputeLinkOrPointerImageBox ImageStream LinkIconString
AttachBitmapFlg Card RightMargin]
)
(NC.PointerIconPutFn
[LAMBDA (ImageObject Stream) (* rht: "24-Oct-87 23:05")
(* * Writes the Pointer information in the pointer icon specified by ImageObject onto Stream)
(LET ((Pointer (NC.FetchLinkFromLinkIcon ImageObject)))
(if (type? NCPointer Pointer)
then (NC.WritePointer Pointer Stream])
(NC.PointerIconGetFn
[LAMBDA (Stream) (* rht: "24-Oct-87 16:28")
(* * Reads the pointer information from Stream and returns a pointer icon image object.)
(NC.MakePointerIcon (NC.ReadPointer Stream])
(NC.PointerIconCopyFn
[LAMBDA (PointerIcon) (* rht: "29-Oct-87 12:33")
(* * Return a copy of this pointer icon.)
(LET ((Pointer (NC.FetchPointerFromPointerIcon PointerIcon)))
(NC.MakePointerIcon (NC.MakePointer (fetch (NCPointer DestinationCard) of Pointer)
(fetch (NCPointer Label) of Pointer)
(fetch (NCPointer DisplayMode) of Pointer])
(NC.WritePointer
[LAMBDA (Pointer Stream) (* rht: "24-Oct-87 23:05")
(* * Write a single Pointer DATAYPE instance down to Stream)
(DECLARE (GLOBALVARS NC.OrigReadTable))
(LET ((DestinationCard (fetch (NCPointer DestinationCard) of Pointer)))
(* * This is version 0 Pointer format)
(NC.WritePtr Stream 0 1)
(NC.WriteUID Stream (fetch (Card UID) of DestinationCard))
(NC.WriteUID Stream (fetch (NoteFile UID) of (NCP.CardNoteFile DestinationCard)))
(PRINT (fetch (NCPointer Label) of Pointer)
Stream NC.OrigReadTable)
(PRINT (fetch (NCPointer DisplayMode) of Pointer)
Stream NC.OrigReadTable])
(NC.ReadPointer
[LAMBDA (Stream) (* rht: "24-Oct-87 23:05")
(* * Read a single Pointer DATAYPE instance from Stream)
(DECLARE (GLOBALVARS NC.OrigReadTable))
(LET ((FirstChar (NC.ReadPtr Stream 1)))
(COND
((EQ FirstChar 0)
(* * The link info for a version 0 style pointer.)
(PROG1 (create NCPointer
DestinationCard ← (NC.CardOrCardHolderFromUID (NC.ReadUID Stream)
(NC.ReadUID Stream))
Label ← (READ Stream NC.OrigReadTable)
DisplayMode ← (READ Stream NC.OrigReadTable))
(* * Get that damn CR)
(BIN Stream)))
((EQ FirstChar 13)
(* * KLUDGE to account for fact that some versions of WRITE.IMAGEOBJ put a CR before beginning the actual stuff.)
(NC.ReadPointer Stream])
)
(DEFINEQ
(NC.PointerIconLeftButtonFn
[LAMBDA (PointerIcon Window) (* rht: "25-Oct-87 00:42")
(* * Left button has been pressed in the pointer icon. For now, just traverse the pointer.)
(NC.TraversePointer PointerIcon Window])
(NC.PointerIconMiddleButtonFn
[LAMBDA (PointerIcon Window) (* rht: "29-Oct-87 12:09")
(* * Middle button has been pressed in a pointer icon. Bring up menu of operations.)
(DECLARE (GLOBALVARS NC.PointerIconMiddleButtonMenu NC.MenuFont))
(LET ((Card (fetch (NCPointer DestinationCard) of (NC.FetchPointerFromPointerIcon
PointerIcon)))
ExtraItems Selection Menu)
(SETQ ExtraItems (GETPROP (NC.RetrieveType Card)
(QUOTE ExtraLinkIconMenuItems)))
[SETQ Menu (COND
((AND (BOUNDP (QUOTE NC.PointerIconMiddleButtonMenu))
(type? MENU NC.PointerIconMiddleButtonMenu)
(NULL ExtraItems))
NC.PointerIconMiddleButtonMenu)
(T (create MENU
ITEMS ← (APPEND (QUOTE ((Bring% Up% Card/Box (QUOTE Edit)
"Bring up the note card pointed to by this pointer.")
(Change% Link% Type (QUOTE Relabel)
"Change the label of this pointer.")
(Change% Card% Title (QUOTE Retitle)
"Change the destination card's title.")
(Change% Display% Mode (QUOTE Display)
"Change the type of information displayed in this pointer.")
(Convert% to% Link (QUOTE Convert)
"Turn this pointer icon into a link icon.")))
ExtraItems)
CENTERFLG ← T
TITLE ← "Link Ops"
MENUFONT ← NC.MenuFont
ITEMHEIGHT ← (IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
1]
(if (NULL ExtraItems)
then (SETQ NC.PointerIconMiddleButtonMenu Menu))
(if (NC.CardP (NC.CoerceToCard Window))
then (SELECTQ (SETQ Selection (MENU Menu))
(Edit (NC.TraversePointer PointerIcon Window))
(Display (NC.ChangePointerDisplayMode PointerIcon Window))
(Relabel (NC.RelabelPointer PointerIcon Window))
(Retitle (NC.ChangeCardTitleFromPointerIcon PointerIcon Window))
(Convert (NC.ConvertPointerIconToLinkIcon Window PointerIcon)
(QUOTE CHANGED))
(NIL NIL)
(APPLY* Selection Card))
else NIL])
(NC.TraversePointer
[LAMBDA (PointerIcon Window) (* rht: "25-Oct-87 00:45")
(* * Follow the pointer to the card at the other end. For now, amounts to editing the destination card.)
(DECLARE (GLOBALVARS NC.MsgDelay))
(LET ((Pointer (NC.FetchPointerFromPointerIcon PointerIcon))
(InterestedWindow (NC.CoerceToInterestedWindow (MAINWINDOW Window)))
Card OldTitle)
(SETQ Card (fetch (NCPointer DestinationCard) of Pointer))
(if (NC.ValidCardP Card)
then (SETQ OldTitle (NC.RetrieveTitle Card))
(NC.EditNoteCard Card)
(* * We're under TEdit, so if title was changed by EditFn, then be sure link icon gets redisplayed.)
(if (STREQUAL OldTitle (NC.RetrieveTitle Card))
then (QUOTE DON'T)
else (QUOTE CHANGED))
else
(* * The pointer is bad -
tell the user and change it to "Deleted")
(NC.PrintMsg InterestedWindow T
"This is a bad pointer - the destination card is invalid."
(CHARACTER 13))
(DISMISS NC.MsgDelay)
(NC.ClearMsg InterestedWindow T)
(NC.DeleteBadPointer Pointer PointerIcon Window])
(NC.ChangePointerDisplayMode
[LAMBDA (PointerIcon Window NewDisplayMode) (* rht: "25-Oct-87 01:00")
(* * Change the display mode of the pointer icon defined by LinkOrLinkIcon. Have the user choose the new display
mode.)
(LET ((Card (NC.CardFromWindow Window))
(Pointer (NC.FetchPointerFromPointerIcon PointerIcon))
DestinationCard GlobalLinkFlg OldDisplayMode)
(SETQ OldDisplayMode (fetch (NCPointer DisplayMode) of Pointer))
(if (NC.CheckForNotReadOnly Card Window "Can't change display mode for pointers in ")
then [COND
((WINDOWP Window))
((NC.ActiveCardP Card)
(SETQ Window (NC.FetchWindow Card]
(* * Get new display mode from user)
(SETQ DestinationCard (fetch (NCPointer DestinationCard) of Pointer))
(NC.IfCardPartNotBusy
DestinationCard
(QUOTE FROMLINKS)
[if (NOT NewDisplayMode)
then (SETQ NewDisplayMode
(NC.DisplayModeFromStylesheetSelections
(STYLESHEET (CREATE.STYLE (QUOTE ITEMS)
[LIST
(create MENU
ITEMS ←
(QUOTE (Yes No Float)
))
(create MENU
ITEMS ←
(QUOTE (Yes No Float)
))
(create MENU
ITEMS ←
(QUOTE (Yes No Float]
(QUOTE ITEM.TITLES)
(QUOTE (Title?% LinkType?%
AttachBitmap?))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT (QUOTE
WEIGHT)
(QUOTE BOLD))
(QUOTE SELECTIONS)
(
NC.StylesheetSelectionsFromDisplayMode
OldDisplayMode)
(QUOTE NEED.NOT.FILL.IN)
NIL
(QUOTE TITLE)
(QUOTE Display% Mode?)
(QUOTE POSITION)
(create POSITION
XCOORD ← LASTMOUSEX
YCOORD ← LASTMOUSEY]
(if (OR (NULL NewDisplayMode)
(EQUAL NewDisplayMode OldDisplayMode))
then
(* * If new display mode is same as old, then bail out.)
NIL
else
(* * Update link in PointerIcon or in global links list)
(replace (NCPointer DisplayMode) of Pointer with NewDisplayMode)
(NC.MarkCardDirty Card) (* This causes tedit to redisplay the screen.)
(QUOTE CHANGED])
(NC.RelabelPointer
[LAMBDA (PointerIcon Window NewLinkLabel ForceRedisplayFlg)
(* rht: "25-Oct-87 19:37" pp pp)
(* * Relabel a NoteCard pointer. Ask user for new label.)
(LET ((Pointer (NC.FetchLinkFromLinkIcon PointerIcon))
(Card (NC.CardFromWindow Window))
LinkIcon DestinationCard OldLabel)
(if (NC.CheckForNotReadOnly Card Window "Can't change link type of pointers in ")
then [COND
((WINDOWP Window))
((NC.ActiveCardP Card)
(SETQ Window (NC.FetchWindow Card]
(SETQ DestinationCard (fetch (NCPointer DestinationCard) of Pointer))
(NC.IfCardPartNotBusy DestinationCard (QUOTE FROMLINKS)
(COND
((NC.SystemLinkLabelP (fetch (NCPointer Label)
of Pointer))
(NC.PrintMsg Window T
"This is a system maintained pointer."
(CHARACTER 13)
"You cannot change its label."
(CHARACTER 13))
(SPAWN.MOUSE)
(DISMISS 1500)
(NC.ClearMsg Window T))
((SETQ NewLinkLabel
(OR NewLinkLabel (NC.AskLinkLabel Window NIL NIL
T T)))
(* * Put new label in Pointer Icon or global links list)
(replace (NCPointer Label) of Pointer with
NewLinkLabel)
(NC.MarkCardDirty Card)
(QUOTE CHANGED])
(NC.ChangeCardTitleFromPointerIcon
[LAMBDA (PointerIcon Window) (* rht: "25-Oct-87 01:14")
(* * From a pointer icon sitting in Window, change the title of the pointer's destination card.)
(LET (Pointer Card DestinationCard OldTitle NewTitle)
(RESETLST [RESETSAVE NIL (BQUOTE (MOVEW , Window , (LOWERLEFT (WINDOWPROP
Window
(QUOTE REGION]
(if (NC.PointerIconImageObjP PointerIcon)
then
(SETQ Pointer (NC.FetchPointerFromPointerIcon PointerIcon))
(SETQ Card (NC.CardFromWindow Window))
(SETQ DestinationCard (fetch (NCPointer DestinationCard) of Pointer))
(if (NC.CheckForNotReadOnly Card Window
"Can't change titles for cards in ")
then
(if (NC.CrossFileLinkCardP DestinationCard)
then (NC.PrintMsg Window T
"Can't change card title from a cross notefile link.")
(DISMISS 1500)
(NC.ClearMsg Window T)
NIL
else (NC.IfCardPartNotBusy
DestinationCard
(QUOTE TITLE)
(if (SETQ NewTitle
(NC.AskUser (CONCAT
"Enter new title for card with title '"
(NC.RetrieveTitle
DestinationCard)
"'"
(CHARACTER 13))
"--> "
(if (AND (STREQUAL
(SETQ OldTitle
(NC.RetrieveTitle
DestinationCard))
"Untitled")
(NC.FetchNewCardFlg
DestinationCard))
then NIL
else OldTitle)
T Window))
then (NC.AssignTitle DestinationCard NIL NewTitle)
(QUOTE CHANGED])
)
(DEFINEQ
(NC.DeleteBadPointer
[LAMBDA (Pointer ImageObj ImageStream StreamType TextStream Scale)
(* rht: "24-Oct-87 19:04")
(* * Deletes a bad pointer when it is discovered at display time.)
(LET (Card)
(NC.ReplaceWithDeletedLinkImageObj ImageObj)
(APPLY* (IMAGEOBJPROP ImageObj (QUOTE DISPLAYFN))
ImageObj ImageStream StreamType TextStream Scale)
(QUOTE CHANGED])
(NC.DrawLinkOrPointerIcon
[LAMBDA (ImageStream ImageBox LinkIconString AttachBitmapFlg Card PointerStyleFlg)
(* pmi: " 5-Nov-87 12:27")
(* * Draw the icon representing either a link or a pointer object.)
(* * pmi 11/3/87: Added ability to print new cross-file link icon, with bitmap attached to right side of link
icon.)
(DECLARE (GLOBALVARS NC.LinkIconMultiLineMode NC.LinkIconMaxWidth NC.LinkIconSpaceInnerX
NC.LinkIconSpaceOuterX NC.LinkIconSpaceInnerY NC.LinkIconSpaceOuterY
NC.LinkIconSpaceInterLine NC.LinkIconBorderWidth
NC.PointerIconDashingStyle))
(PROG ((Scale (DSPSCALE NIL ImageStream))
(Font (DSPFONT NIL ImageStream))
Dashing FontHeight FontAscent FontDescent Left Bottom Top CrossFileLinkFlg
CrossFileLinkDestCard ActualCard Icon SavedIcon CrossFileLinkIcon LinkIconStrings
ApproxBoxWidth ApproxBoxHeight BoxWidth BoxHeight ScaledIconHeight ScaledIconWidth
XPosition ScaledLinkIconMaxWidth ScaledBorderWidth ScaledSpaceInnerX ScaledSpaceOuterX
ScaledSpaceInnerY ScaledSpaceOuterY ScaledSpaceInterLine HalfScaledSpaceInterLine
BottomOfLine)
(* * Make temporaries of scaled variables)
(SETQ ScaledLinkIconMaxWidth (TIMES Scale NC.LinkIconMaxWidth))
(SETQ ScaledBorderWidth (TIMES Scale NC.LinkIconBorderWidth))
(SETQ ScaledSpaceInnerX (TIMES Scale NC.LinkIconSpaceInnerX))
(SETQ ScaledSpaceOuterX (TIMES Scale NC.LinkIconSpaceOuterX))
(SETQ ScaledSpaceInnerY (TIMES Scale NC.LinkIconSpaceInnerY))
(SETQ ScaledSpaceOuterY (TIMES Scale NC.LinkIconSpaceOuterY))
(SETQ ScaledSpaceInterLine (TIMES Scale NC.LinkIconSpaceInterLine))
(SETQ HalfScaledSpaceInterLine (IQUOTIENT ScaledSpaceInterLine 2))
(SETQ FontHeight (FONTHEIGHT Font))
(* * Indicate Pointer vs Link using dashing style.)
(if PointerStyleFlg
then (SETQ Dashing NC.PointerIconDashingStyle))
(* * Set up the icon, if displayed)
(if AttachBitmapFlg
then
(* * Attached icon)
(* * Check to see if this link points to a card in another notefile.)
(if (EQ (NCP.CardType Card)
(QUOTE CrossFileLink))
then (SETQ CrossFileLinkFlg T)
(if (SETQ CrossFileLinkDestCard (NCP.GetCrossFileLinkDestCard
Card NIL T))
then (SETQ ActualCard CrossFileLinkDestCard)
else (SETQ ActualCard NIL))
else (SETQ CrossFileLinkFlg NIL)
(SETQ ActualCard Card))
(* * Use an estimate of the width and height to tell if the box contains more than one line of text)
[if NC.LinkIconMultiLineMode
then
(* * Multi-line link icons are enabled)
(SETQ ApproxBoxWidth (PLUS ScaledSpaceOuterX ScaledBorderWidth
ScaledSpaceInnerX (STRINGWIDTH
LinkIconString Font)
ScaledSpaceInnerX ScaledBorderWidth
ScaledSpaceOuterX))
(SETQ ApproxBoxHeight (PLUS ScaledSpaceOuterY ScaledBorderWidth
ScaledSpaceInnerY FontHeight
ScaledSpaceInnerY ScaledBorderWidth
ScaledSpaceOuterY))
(* * Use the box height to determine if Multi-line or Single line. Calculate the correct bitmap.)
(SETQ BoxHeight (fetch (IMAGEBOX YSIZE) of ImageBox))
(if (GREATERP BoxHeight ApproxBoxHeight)
then (* Calculate height for Multi-line icon)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth
ScaledSpaceInnerY
FontHeight
HalfScaledSpaceInterLine))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap
ActualCard
ScaledIconHeight
Scale))
(SETQ SavedIcon
(NC.FetchLinkIconAttachedBitMap ActualCard
(PLUS
ScaledBorderWidth
ScaledSpaceInnerY
FontHeight
ScaledSpaceInnerY
ScaledBorderWidth)
Scale))
else (* Calculate height for Single line icon)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth
ScaledSpaceInnerY
FontHeight
ScaledSpaceInnerY
ScaledBorderWidth))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap ActualCard
ScaledIconHeight
Scale))
(SETQ SavedIcon Icon))
(SETQ ScaledIconHeight (TIMES Scale (BITMAPHEIGHT Icon)))
(SETQ ScaledIconWidth (TIMES Scale (BITMAPWIDTH Icon)))
else
(* * Multi-line link icons are disabled)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth ScaledSpaceInnerY
FontHeight ScaledSpaceInnerY
ScaledBorderWidth))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap ActualCard
ScaledIconHeight Scale)
)
(SETQ SavedIcon Icon)
(SETQ ScaledIconHeight (TIMES Scale (BITMAPHEIGHT Icon)))
(SETQ ScaledIconWidth (TIMES Scale (BITMAPWIDTH Icon]
(SETQ CrossFileLinkIcon (if CrossFileLinkFlg
then (NC.FetchCrossFileLinkIconAttachedBitMap
Card CrossFileLinkDestCard
ScaledIconHeight Scale)
else NIL))
else
(* * No attached icon)
(SETQ Icon NIL)
(SETQ SavedIcon Icon)
(SETQ CrossFileLinkIcon NIL)
(SETQ ScaledIconHeight 0)
(SETQ ScaledIconWidth 0))
(* * Now determine the text to be printed)
(if (AND Icon (GREATERP (PLUS ScaledSpaceInnerX ScaledSpaceInnerX ScaledIconWidth
(if CrossFileLinkIcon
then ScaledIconWidth
else 0))
ScaledLinkIconMaxWidth))
then
(* If the width of the icon plus the inner x's is greater than the ScaledLinkIconMaxWidth set by the user, set the
icons and text to NIL)
(SETQ Icon NIL)
(SETQ SavedIcon Icon)
(SETQ CrossFileLinkIcon NIL)
(SETQ ScaledIconHeight 0)
(SETQ ScaledIconWidth 0)
(SETQ LinkIconStrings (LIST ""))
elseif (STREQUAL LinkIconString "")
then (* There is no text to print, so set it to the null
string)
(SETQ LinkIconStrings (LIST ""))
else
(* * Have the text parsed into separate lines)
(SETQ LinkIconStrings (NC.CreateLinkIconStrings LinkIconString SavedIcon
CrossFileLinkIcon
ImageStream)))
(* * Compute all the size values.)
(SETQ Bottom (PLUS (DIFFERENCE (DSPYPOSITION NIL ImageStream)
(fetch (IMAGEBOX YDESC) of ImageBox))
ScaledSpaceOuterY))
(SETQ BoxHeight (DIFFERENCE (fetch (IMAGEBOX YSIZE) of ImageBox)
(PLUS ScaledSpaceOuterY ScaledSpaceOuterY)))
(SETQ Top (PLUS Bottom BoxHeight))
(SETQ Left (PLUS (DSPXPOSITION NIL ImageStream)
ScaledSpaceOuterX))
(SETQ BoxWidth (DIFFERENCE (fetch (IMAGEBOX XSIZE) of ImageBox)
(PLUS ScaledSpaceOuterX ScaledSpaceOuterX)))
(* * Display the icon, if possible)
(if (AND Icon (LEQ (PLUS ScaledIconWidth ScaledSpaceInnerX ScaledSpaceInnerX)
ScaledLinkIconMaxWidth))
then
(* Put out the icon bitmap, but only if the width of the icon plus the inner x's does not exceed the
LinkIconMaxWidth set by the user.)
(BITBLT Icon 0 0 ImageStream Left (DIFFERENCE Top ScaledIconHeight))
(* DSPFONT is a kludge to get around bug in PRESS BITBLT which sets the width of a space char to NIL.
Bug reported as AR #5630.0)
(DSPFONT Font ImageStream)
(if (ZEROP (NCHARS LinkIconString))
then (* Display the cross-file link icon, if necessary)
(if CrossFileLinkIcon
then (BITBLT CrossFileLinkIcon 0 0 ImageStream
(DIFFERENCE (PLUS Left BoxWidth)
ScaledIconWidth)
(DIFFERENCE Top ScaledIconHeight)))
(* Quit because just a typeicon)
(RETURN))
else (* There isn't enough space for the icon, so set it to
NIL)
(SETQ Icon NIL)
(SETQ ScaledIconWidth 0))
(* * Enter the appropriate text.)
(SETQ XPosition (PLUS Left (if Icon
then ScaledIconWidth
else ScaledBorderWidth)
ScaledSpaceInnerX))
(DSPXPOSITION XPosition ImageStream)
(SETQ FontDescent (FONTDESCENT Font))
(if LinkIconStrings
then (if (GREATERP (LENGTH LinkIconStrings)
1)
then (SETQ FontAscent (FONTASCENT Font))
(SETQ BottomOfLine (DIFFERENCE Top (PLUS ScaledBorderWidth
ScaledSpaceInnerY
FontAscent)))
(SETQ XPosition (PLUS Left ScaledSpaceInnerX ScaledBorderWidth))
(for String in LinkIconStrings
do (DSPYPOSITION BottomOfLine ImageStream)
(PRIN1 String ImageStream)
(SETQ BottomOfLine (DIFFERENCE BottomOfLine
(PLUS FontDescent
ScaledSpaceInterLine
FontAscent)))
(DSPXPOSITION XPosition ImageStream))
(* * Draw the box for multiple lines of text.)
(NC.DrawInnerBox Left Bottom BoxWidth BoxHeight ScaledBorderWidth
NIL ImageStream Dashing Icon CrossFileLinkIcon
ScaledIconWidth ScaledIconHeight)
else (DSPYPOSITION (PLUS Bottom ScaledBorderWidth ScaledSpaceInnerY
FontDescent)
ImageStream)
(PRIN1 (CAR LinkIconStrings)
ImageStream)
(* * Draw the box for a single line of text.)
(NC.DrawInnerBox (PLUS Left ScaledIconWidth)
Bottom
(DIFFERENCE BoxWidth (if CrossFileLinkIcon
then (PLUS
ScaledIconWidth
ScaledIconWidth)
else ScaledIconWidth))
BoxHeight ScaledBorderWidth NIL ImageStream
Dashing Icon CrossFileLinkIcon)))
(* * Display the cross-file link icon, if necessary)
(if CrossFileLinkIcon
then (BITBLT CrossFileLinkIcon 0 0 ImageStream (DIFFERENCE (PLUS Left
BoxWidth)
ScaledIconWidth)
(DIFFERENCE Top ScaledIconHeight])
(NC.ComputeLinkOrPointerImageBox
[LAMBDA (ImageStream LinkIconString AttachBitmapFlg Card RightMargin)
(* pmi: " 4-Nov-87 13:25")
(* * Compute the size of the image box needed to print a link or pointer icon.)
(* * pmi 11/3/87: Added ability to print new cross-file link icon, with bitmap attached to right side of link
icon.)
(DECLARE (GLOBALVARS NC.LinkIconMultiLineMode NC.LinkIconMaxWidth NC.LinkIconBorderWidth
NC.LinkIconSpaceInnerX NC.LinkIconSpaceOuterX NC.LinkIconSpaceInnerY
NC.LinkIconSpaceOuterY NC.LinkIconSpaceInterLine))
(LET ((Scale (DSPSCALE NIL ImageStream))
(StringWidth 0)
(Font (DSPFONT NIL ImageStream))
CrossFileLinkFlg CrossFileLinkDestCard ActualCard Icon SavedIcon CrossFileLinkIcon
FontHeight ApproxBoxWidth LinkIconStrings ScaledIconHeight ScaledIconWidth NumberOfLines
XSize YSize ScaledLinkIconMaxWidth ScaledBorderWidth ScaledSpaceInnerX ScaledSpaceOuterX
ScaledSpaceInnerY ScaledSpaceOuterY ScaledSpaceInterLine HalfScaledSpaceInterLine
TotalEdgeSpaceY)
(SETQ FontHeight (FONTHEIGHT Font))
(* * Make temporaries of scaled vars.)
(SETQ ScaledLinkIconMaxWidth (TIMES Scale NC.LinkIconMaxWidth))
(SETQ ScaledBorderWidth (TIMES Scale NC.LinkIconBorderWidth))
(SETQ ScaledSpaceInnerX (TIMES Scale NC.LinkIconSpaceInnerX))
(SETQ ScaledSpaceOuterX (TIMES Scale NC.LinkIconSpaceOuterX))
(SETQ ScaledSpaceInnerY (TIMES Scale NC.LinkIconSpaceInnerY))
(SETQ ScaledSpaceOuterY (TIMES Scale NC.LinkIconSpaceOuterY))
(SETQ ScaledSpaceInterLine (TIMES Scale NC.LinkIconSpaceInterLine))
(SETQ HalfScaledSpaceInterLine (IQUOTIENT ScaledSpaceInterLine 2))
(* *)
(SETQ TotalEdgeSpaceY (PLUS ScaledBorderWidth ScaledSpaceOuterY ScaledSpaceInnerY))
(SETQ YSize (PLUS TotalEdgeSpaceY TotalEdgeSpaceY FontHeight))
(* * Set up the icon, if displayed)
(if AttachBitmapFlg
then
(* * Attached icon)
(* * Check to see if this link points to a card in another notefile.)
(if (EQ (NCP.CardType Card)
(QUOTE CrossFileLink))
then (SETQ CrossFileLinkFlg T)
(if (SETQ CrossFileLinkDestCard (NCP.GetCrossFileLinkDestCard
Card NIL T))
then (SETQ ActualCard CrossFileLinkDestCard)
else (SETQ ActualCard NIL))
else (SETQ CrossFileLinkFlg NIL)
(SETQ ActualCard Card))
(* * Use an estimate of the width to tell if the box contains more than one line of text)
[if NC.LinkIconMultiLineMode
then
(* * Multi-line link icons are enabled)
(SETQ ApproxBoxWidth (PLUS ScaledBorderWidth ScaledSpaceInnerX
(STRINGWIDTH LinkIconString Font)
ScaledSpaceInnerX ScaledBorderWidth))
(* * The image box must be calculated)
[if (GREATERP ApproxBoxWidth ScaledLinkIconMaxWidth)
then (* Calculate Multi-line icon)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth
ScaledSpaceInnerY
FontHeight
HalfScaledSpaceInterLine))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap ActualCard
ScaledIconHeight
Scale))
(SETQ SavedIcon Icon)
(SETQ ScaledIconHeight (TIMES Scale (BITMAPHEIGHT
Icon)))
(SETQ ScaledIconWidth (TIMES Scale (BITMAPWIDTH
Icon)))
else (* Calculate Single line icon)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth
ScaledSpaceInnerY FontHeight
ScaledSpaceInnerY
ScaledBorderWidth))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap ActualCard
ScaledIconHeight
Scale))
(SETQ SavedIcon Icon)
(SETQ ScaledIconHeight (TIMES Scale (BITMAPHEIGHT
Icon)))
(SETQ ScaledIconWidth (TIMES Scale (BITMAPWIDTH Icon)))
(* * Now see if total width, including the icon, will still fit if this is a Single line)
(if (AND (NOT (STREQUAL LinkIconString ""))
(GREATERP (PLUS ApproxBoxWidth
ScaledIconWidth
(if CrossFileLinkFlg
then ScaledIconWidth
else 0))
ScaledLinkIconMaxWidth))
then (* Now it doesn't fit. Calculate Multi-line icon)
(SETQ ScaledIconHeight
(PLUS ScaledBorderWidth ScaledSpaceInnerY
FontHeight HalfScaledSpaceInterLine))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap
ActualCard ScaledIconHeight Scale))
(SETQ ScaledIconHeight (TIMES Scale
(BITMAPHEIGHT
Icon)))
(SETQ ScaledIconWidth (TIMES Scale
(BITMAPWIDTH
Icon]
else
(* * Multi-line link icons are disabled)
(SETQ ScaledIconHeight (PLUS ScaledBorderWidth ScaledSpaceInnerY
FontHeight ScaledSpaceInnerY
ScaledBorderWidth))
(SETQ Icon (NC.FetchLinkIconAttachedBitMap ActualCard
ScaledIconHeight Scale))
(SETQ SavedIcon Icon)
(SETQ ScaledIconHeight (TIMES Scale (BITMAPHEIGHT Icon)))
(SETQ ScaledIconWidth (TIMES Scale (BITMAPWIDTH Icon]
(SETQ CrossFileLinkIcon (if CrossFileLinkFlg
then (NC.FetchCrossFileLinkIconAttachedBitMap
Card CrossFileLinkDestCard
ScaledIconHeight Scale)
else NIL))
else
(* * No attached icon)
(SETQ Icon NIL)
(SETQ SavedIcon Icon)
(SETQ CrossFileLinkIcon NIL)
(SETQ ScaledIconHeight 0)
(SETQ ScaledIconWidth 0))
(* * Now determine the actual size of the image box)
[if (AND Icon (GREATERP (PLUS ScaledSpaceInnerX ScaledSpaceInnerX ScaledIconWidth
(if CrossFileLinkIcon
then ScaledIconWidth
else ScaledBorderWidth))
ScaledLinkIconMaxWidth))
then
(* If the width of the icon plus the width of the cross-file link icon (if any) plus the inner x's is greater than
the ScaledLinkIconMaxWidth set by the user, set the box width to ScaledLinkIconMaxWidth plus the outer x's.)
(SETQ XSize (PLUS ScaledLinkIconMaxWidth ScaledSpaceOuterX ScaledSpaceOuterX))
elseif (ZEROP (NCHARS LinkIconString))
then (if Icon
then
(* There is no text to print, so the box width is just the icon width plus the width of the cross-file link icon
(if any) plus the outer x on each side)
(SETQ XSize (PLUS ScaledSpaceOuterX ScaledSpaceOuterX
ScaledIconWidth (if CrossFileLinkIcon
then ScaledIconWidth
else ScaledBorderWidth)))
else
(* There is no text or Icon to print, so the box width is just the inner x, border width, and outer x on each side)
(SETQ XSize (PLUS ScaledSpaceInnerX ScaledSpaceInnerX
ScaledBorderWidth ScaledBorderWidth
ScaledSpaceOuterX ScaledSpaceOuterX)))
else (* Have the text parsed into separate lines)
(SETQ LinkIconStrings (NC.CreateLinkIconStrings LinkIconString SavedIcon
CrossFileLinkIcon ImageStream))
(if LinkIconStrings
then (SETQ NumberOfLines (LENGTH LinkIconStrings))
[if (GREATERP NumberOfLines 1)
then (SETQ StringWidth (PLUS (STRINGWIDTH (CAR
LinkIconStrings)
Font)
ScaledIconWidth
(if CrossFileLinkIcon
then ScaledIconWidth
else 0)))
(* Find the longest string for the width of the box)
(for String in (CDR LinkIconStrings) bind
PartStringWidth
when (GREATERP (SETQ PartStringWidth
(STRINGWIDTH String Font))
StringWidth)
do (SETQ StringWidth PartStringWidth))
(SETQ YSize (PLUS TotalEdgeSpaceY TotalEdgeSpaceY
(TIMES NumberOfLines FontHeight)
(TIMES (SUB1 NumberOfLines)
ScaledSpaceInterLine)))
else (SETQ StringWidth (PLUS (STRINGWIDTH (CAR
LinkIconStrings)
Font)
ScaledIconWidth
(if CrossFileLinkIcon
then ScaledIconWidth
else 0]
(SETQ XSize (MIN (PLUS StringWidth ScaledSpaceOuterX
ScaledSpaceOuterX ScaledSpaceInnerX
ScaledSpaceInnerX
(if Icon
then (if CrossFileLinkIcon
then 0
else ScaledBorderWidth)
else (PLUS ScaledBorderWidth
ScaledBorderWidth)))
(PLUS ScaledLinkIconMaxWidth ScaledSpaceOuterX
ScaledSpaceOuterX]
(create IMAGEBOX
XSIZE ← XSize
YSIZE ← YSize
YDESC ← (COND
(RightMargin (* This is in a TEdittextstream)
(PLUS (FONTDESCENT Font)
TotalEdgeSpaceY))
(T 0))
XKERN ← 0])
)
(DECLARE: DONTEVAL@LOAD
(NC.MakePointerIcon)
)
(* * New stuff for allowing put to work from TEdit.)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.ExternalPutLinkIconImageFns)
)
(DECLARE: DONTEVAL@LOAD
(RPAQ NC.ExternalPutLinkIconImageFns (IMAGEFNSCREATE (FUNCTION NC.ExternalPutLinkIconDisplayFn)
(FUNCTION NC.ExternalPutLinkIconImageBoxFn)
(FUNCTION NC.ExternalPutLinkIconPutFn)
(FUNCTION NC.ExternalPutLinkIconGetFn)
NIL
(FUNCTION NILL)))
)
(DEFINEQ
(NC.ExternalPutLinkIconDisplayFn
[LAMBDA (ImageObj ImageStream STREAMTYPE TEXTSTREAM SCALE)
(* fgh: "30-May-85 23:09")
(* * Display a link icon)
(PROG [(Font (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD]
(DSPFONT (PROG1 (DSPFONT Font ImageStream)
(PRIN1 (IMAGEOBJPROP ImageObj (QUOTE OBJECTDATUM))
ImageStream))
ImageStream])
(NC.ExternalPutLinkIconImageBoxFn
[LAMBDA (ImageObj ImageStream CurrentX RightMargin) (* fgh: "30-May-85 16:52")
(PROG ((FONT (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(Scale (DSPSCALE NIL ImageStream)))
(RETURN (create IMAGEBOX
XSIZE ← (TIMES Scale (STRINGWIDTH (IMAGEOBJPROP ImageObj
(QUOTE
OBJECTDATUM))
FONT))
YSIZE ← (TIMES Scale (FONTPROP FONT (QUOTE HEIGHT)))
YDESC ← (COND
(RightMargin (* This is in a TEdittextstream)
(FONTPROP FONT (QUOTE DESCENT)))
(T 0))
XKERN ← 0])
(NC.ExternalPutLinkIconPutFn
[LAMBDA (ImageObject Stream) (* kirk: "15-Nov-85 03:38")
(* * Writes the Link information in the link icon specified by ImageObject onto the file specified by Stream)
(LET (String Link)
(COND
([SETQ String (STRINGP (IMAGEOBJPROP ImageObject (QUOTE OBJECTDATUM]
(PRIN2 String Stream))
(T (SETQ Link (NC.FetchLinkFromLinkIcon ImageObject))
(PRIN2 (CONCAT "***[[" (fetch (Link Label) of Link)
" link to "
(NC.RetrieveTitle (fetch (Link DestinationCard) of Link))
"]]***")
Stream])
(NC.ExternalPutLinkIconGetFn
[LAMBDA (Stream) (* fgh: "30-May-85 16:43")
(* * Reads the link information from Stream and returns a link icon image object for this link info.)
(IMAGEOBJCREATE (READ Stream)
NC.ExternalPutLinkIconImageFns])
(NC.CoerceToExternalPutLinkIcon
[LAMBDA (ImageObject SourceCard DestinationCard LinkLabel)
(* rht: "15-Nov-85 15:59")
(* * Make image object into an external put link icon with the given data)
(* * kirk 15Nov85: deleted use of LinkID)
(IMAGEOBJPROP ImageObject (QUOTE OBJECTDATUM)
(CONCAT "[[" LinkLabel " link to " (NC.RetrieveTitle DestinationCard)
"]]"))
(replace (IMAGEOBJ IMAGEOBJFNS) of ImageObject with NC.ExternalPutLinkIconImageFns])
)
(* * Stuff to register our image object for intermezzo.)
(DEFINEQ
(NC.RegisterPlaceMarkerImageObj
[LAMBDA NIL (* rht: "31-May-85 11:40")
(* * Cause the PlaceMarker Image Obj to be registered by creating the make place marker function once)
(NC.MakePlaceMarker])
)
(DECLARE: DONTEVAL@LOAD
(NC.RegisterPlaceMarkerImageObj)
)
(* * Stuff for handling link icons in sketches.)
(DEFINEQ
(NC.LinkIconSketchElementP
[LAMBDA (SketchElement) (* rht: "20-Aug-85 16:23")
(* * Return non-nil if SketchElement is a link icon imageobj.)
(NC.LinkIconImageObjP (SKETCH.IMAGEOBJ.OF.ELEMENT SketchElement])
(NC.DeleteLinkIconSketchElement
[LAMBDA (SketchElement CardID Don'tCreateDeletedImageObjFlg)
(* rht: " 4-Nov-86 21:01")
(* * This replaces the link icon for SketchElement from SketchWin with deleted link icon.)
(* * rht 4/30/86: Changed to simply delete the link icon if NC.UseDeletedLinkIconIndicators is NIL)
(* * rht 11/4/86: Now takes Don'tCreateDeletedImageObjFlg arg.)
(DECLARE (GLOBALVARS NC.DeletedLinkImageFns NC.UseDeletedLinkIconIndicatorsFlg
NC.DeletedLinkImageObject))
(LET ((Position (SKETCH.POSITION.OF.ELEMENT SketchElement))
(SketchSubstance (NC.FetchSubstance CardID))
(LinkIcon (SKETCH.IMAGEOBJ.OF.ELEMENT SketchElement))
(Window (NC.FetchWindow CardID))
Scale)
(if (AND NC.UseDeletedLinkIconIndicatorsFlg (NOT Don'tCreateDeletedImageObjFlg))
then (SETQ Scale (if Window
then (VIEWER.SCALE Window)
else (NC.FetchScale CardID)))
(create IMAGEOBJ smashing LinkIcon OBJECTDATUM ← (IMAGEOBJPROP
NC.DeletedLinkImageObject
(QUOTE OBJECTDATUM))
IMAGEOBJFNS ← NC.DeletedLinkImageFns)
(AND Window (SKETCH.ELEMENT.CHANGED SketchSubstance SketchElement Window))
else (SKETCH.DELETE.ELEMENT SketchElement SketchSubstance T])
)
(* * Icons representing notecards types.)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.FileBoxIcon NC.GraphCardIcon NC.SketchCardIcon NC.TextCardIcon NC.TypelessIcon)
)
(* * DELETEME imageobjs)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.DELETEMEImageObjDatum NC.RemoveDELETEMEImageObjsFromCardFlg)
)
(RPAQ? NC.DELETEMEImageObjDatum "[[DELETE ME]]")
(RPAQ? NC.RemoveDELETEMEImageObjsFromCardFlg NIL)
(DEFINEQ
(NC.DELETEMEImageObjP
[LAMBDA (ImageObj) (* rht: " 7-Oct-86 16:26")
(* * Returns non-nil if ImageObj is a DELETEME imageobj.)
(DECLARE (GLOBALVARS NC.DELETEMEImageObjDatum))
(AND (IMAGEOBJP ImageObj)
(EQUAL (IMAGEOBJPROP ImageObj (QUOTE OBJECTDATUM))
NC.DELETEMEImageObjDatum])
)
(PUTPROPS NCLINKS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(DECLARE: DONTCOPY
(FILEMAP (NIL (10127 95296 (NC.GlobalLinkP 10137 . 10399) (NC.ChildLinkP 10401 . 10656) (
NC.ContentsLinkP 10658 . 10880) (NC.SubContentsLinkP 10882 . 11104) (NC.ReverseLinkLabelP 11106 .
11704) (NC.MakeGlobalLink 11706 . 12441) (NC.AddFromLink 12443 . 13614) (NC.AddLinkToGraphCard 13616
. 14539) (NC.AddLinkToSketchCard 14541 . 15353) (NC.InsertLinkInSketch 15355 . 16783) (
NC.InsertLinkInText 16785 . 18505) (NC.AddToLink 18507 . 19776) (NC.CachedAddToLink 19778 . 22212) (
NC.DelFromLink 22214 . 24140) (NC.CachedDelFromLink 24142 . 25453) (NC.DelToLink 25455 . 27166) (
NC.DelReferencesToCard 27168 . 30602) (NC.DelReferencesToCardFromGlobalList 30604 . 32479) (
NC.DeleteLink 32481 . 35781) (NC.DeleteToLink 35783 . 36979) (NC.DeleteFromLink 36981 . 38151) (
NC.DeletedLinkDisplayFn 38153 . 39630) (NC.DeletedLinkGetFn 39632 . 39962) (NC.DeletedLinkImageBoxFn
39964 . 40367) (NC.DeletedLinkPutFn 40369 . 40516) (NC.DeletedLinkImageObjP 40518 . 40855) (
NC.DeleteBadLink 40857 . 42078) (NC.ReplaceWithDeletedLinkImageObj 42080 . 42731) (
NC.CheckForOrphanDelete 42733 . 44356) (NC.FileInOrphanBox 44358 . 46402) (NC.HookToOrphanCard 46404
. 48260) (NC.InsertLinkBeforeMarker 48262 . 53217) (NC.LinkLabelP 53219 . 53551) (NC.IDAlphOrder
53553 . 54175) (NC.MakeLink 54177 . 62049) (NC.CachedMakeFilingLink 62051 . 64688) (NC.MakeFilingLink
64690 . 67197) (NC.MakeFilingLinks 67199 . 70640) (NC.RelabelLink 70642 . 77090) (NC.SystemLinkLabelP
77092 . 77513) (NC.ValidLinkP 77515 . 78249) (NC.MakeChildLink 78251 . 79038) (NC.EnsureNoCycles 79040
. 79932) (NC.SameLinkP 79934 . 80233) (NC.SameLinksP 80235 . 80516) (NC.AddGlobalLinkToCard 80518 .
80764) (NC.AddGlobalLinksToCard 80766 . 82989) (NC.ChangeCardTitleFromLinkIcon 82991 . 85671) (
NC.UncacheLinks 85673 . 85907) (NC.TraverseLink 85909 . 87553) (NC.CreateLinkIconStrings 87555 . 95294
)) (95297 98990 (NC.AddLinkToCard 95307 . 96749) (NC.AddLinksToCard 96751 . 98988)) (98991 102574 (
NC.DelReferencesToCardFromShowLinks 99001 . 100461) (NC.UpdateLinkImagesInShowLinks 100463 . 101482) (
NC.FetchShowLinksWindow 101484 . 101961) (NC.ChangeLinkLabelInShowLinksWin 101963 . 102572)) (102611
106702 (NC.CheckDisplayModeFormat 102621 . 103711) (NC.InsureLinkDisplayMode 103713 . 104709) (
NC.MakeNewDisplayMode 104711 . 105291) (NC.DisplayModeFromStylesheetSelections 105293 . 105901) (
NC.StylesheetSelectionsFromDisplayMode 105903 . 106700)) (106999 107693 (NC.LinksSupportedP 107009 .
107691)) (107725 160456 (NC.FetchLinkIconForLink 107735 . 108323) (NC.MakeLinkIcon 108325 . 108571) (
NC.LinkIconButtonEventInFn 108573 . 113796) (NC.LinkIconDisplayFn 113798 . 118795) (
NC.LinkIconImageBoxFn 118797 . 123437) (NC.LinkIconImageObjP 123439 . 123735) (NC.LinkIconPutFn 123737
. 124570) (NC.LinkIconGetFn 124572 . 124946) (NC.LinkIconMiddleButtonFn 124948 . 127458) (
NC.LinkIconWhenCopiedFn 127460 . 135699) (NC.LinkIconWhenDeletedFn 135701 . 140782) (
NC.LinkIconWhenInsertedFn 140784 . 142060) (NC.LinkIconWhenMovedFn 142062 . 149429) (
NC.FetchLinkFromLinkIcon 149431 . 149904) (NC.ChangeLinkDisplayMode 149906 . 155717) (
NC.UpdateLinkImages 155719 . 157085) (NC.LinkIconCopyFn 157087 . 158849) (NC.LinkAtCharPos 158851 .
160186) (NC.LinkIconLeftButtonFn 160188 . 160454)) (160457 161840 (NC.FillInLinkIcon 160467 . 161233)
(NC.InvisibleLinkImageBoxFn 161235 . 161507) (NC.InvisibleLinkPutFn 161509 . 161658) (
NC.InvisibleLinkGetFn 161660 . 161838)) (163031 167630 (NC.InsertPointerInText 163041 . 164656) (
NC.ConvertPointerIconToLinkIcon 164658 . 166321) (NC.MakePointerIcon 166323 . 166629) (NC.MakePointer
166631 . 167063) (NC.PointerIconImageObjP 167065 . 167370) (NC.FetchPointerFromPointerIcon 167372 .
167628)) (167663 176288 (NC.PointerIconDisplayFn 167673 . 170617) (NC.PointerIconImageBoxFn 170619 .
173435) (NC.PointerIconPutFn 173437 . 173828) (NC.PointerIconGetFn 173830 . 174109) (
NC.PointerIconCopyFn 174111 . 174576) (NC.WritePointer 174578 . 175376) (NC.ReadPointer 175378 .
176286)) (176289 186265 (NC.PointerIconLeftButtonFn 176299 . 176580) (NC.PointerIconMiddleButtonFn
176582 . 178934) (NC.TraversePointer 178936 . 180223) (NC.ChangePointerDisplayMode 180225 . 182862) (
NC.RelabelPointer 182864 . 184418) (NC.ChangeCardTitleFromPointerIcon 184420 . 186263)) (186266 207922
(NC.DeleteBadPointer 186276 . 186775) (NC.DrawLinkOrPointerIcon 186777 . 197979) (
NC.ComputeLinkOrPointerImageBox 197981 . 207920)) (208448 211263 (NC.ExternalPutLinkIconDisplayFn
208458 . 208949) (NC.ExternalPutLinkIconImageBoxFn 208951 . 209650) (NC.ExternalPutLinkIconPutFn
209652 . 210333) (NC.ExternalPutLinkIconGetFn 210335 . 210661) (NC.CoerceToExternalPutLinkIcon 210663
. 211261)) (211327 211616 (NC.RegisterPlaceMarkerImageObj 211337 . 211614)) (211732 213457 (
NC.LinkIconSketchElementP 211742 . 212018) (NC.DeleteLinkIconSketchElement 212020 . 213455)) (213891
214293 (NC.DELETEMEImageObjP 213901 . 214291)))))
STOP