(FILECREATED "27-May-87 17:48:43" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH268.;2
 6616   

      changes to:  (VARS RHTPATCH268COMS)

      previous date: "27-May-87 11:34:12" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH268.;1)


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH268COMS)

(RPAQQ RHTPATCH268COMS
 ((* * Fix to bug %#184: NCP.LocalGlobalLink using wrong display mode 
			     default.)
			  (* * Changes to NCPROGINT)
			  (FNS NCP.LocalGlobalLink NCP.CoerceToLinkDisplayMode)
			  (* * PLEASE remove NC.MakeNewDisplayMode and NC.LinkIconPutFn from 
			     NCCONVERTVERSION2TO3. They're already in NCLINKS. Also remove the 
			     comment in NCCONVERTVERSION2TO3 coms right above the FNS for 
			     NC.ConvertLinkFormat.)))
(* * Fix to bug %#184: NCP.LocalGlobalLink using wrong display mode default.)


(* * Changes to NCPROGINT)


(DEFINEQ

(NCP.LocalGlobalLink

  (LAMBDA (LinkType SourceCard DestinationCard FromLoc DisplayMode)
                                                             (* rht: "27-May-87 11:12")


          (* * Create a link from within the text of the SourceCard card to the DestinationCard card.)




          (* * rht 4/1/85: Changed to handle old-style link display modes.)




          (* * rht 11/17/85: Updated to handle new card and notefile objects.)




          (* * rht 8/25/86: Now passes non-nil QuietFlg to NCP.UncacheCards.)




          (* * rht 11/16/86: Changed call to NCP.ReportError)




          (* * rht 5/27/87: Changed call to NCP.CoerceToLinkDisplayMode slightly.)



    (
PROG
 ((CoercedDisplayMode (NCP.CoerceToLinkDisplayMode
 (
OR
 DisplayMode SourceCard)))
	     WasActive NoteFile)
	    (if
 (
NULL
 CoercedDisplayMode)
		then
 (
NCP.ReportError
 (
QUOTE
 NCP.LocalGlobalLink)
					  (
CONCAT
 DisplayMode " is invalid link display mode."
						    (
CHARACTER
 13)
						    "No link created."))
		       (
RETURN
 NIL))
	    (if
 (
EQ
 LinkType NC.FiledCardLinkLabel)
		then
 (if
 (
AND
 (
NOT
 (
NCP.FileBoxP
 DestinationCard))
				    (
NCP.FileBoxP
 SourceCard))
			   then
 (
OR
 (
SETQ
 WasActive (
NCP.CardCachedP
 SourceCard))
					(
NCP.CacheCards
 SourceCard))
				  (
NCP.ChangeLoc
 SourceCard FromLoc)
				  (
NCP.FileCards
 DestinationCard SourceCard)
				  (
RETURN
 (
PROG1
 (
CAR
 (
NCP.GetLinks
 SourceCard 
									    DestinationCard 
									    NC.FiledCardLinkLabel))
						     (
OR
 WasActive (
NCP.UncacheCards
 SourceCard T)
							   )))
			 else
 (
NCP.ReportError
 (
QUOTE
 NCP.LocalGlobalLink)
						   (
CONCAT
 
						   "FiledCard link must be from a box to a card."
							     (
CHARACTER
 13)
							     "No link created."))
				(
RETURN
 NIL)))
	    (if
 (
EQ
 LinkType NC.SubBoxLinkLabel)
		then
 (if
 (
AND
 (
NCP.FileBoxP
 DestinationCard)
				    (
NCP.FileBoxP
 SourceCard))
			   then
 (
OR
 (
SETQ
 WasActive (
NCP.CardCachedP
 SourceCard))
					(
NCP.CacheCards
 SourceCard))
				  (
NCP.ChangeLoc
 SourceCard FromLoc)
				  (
NCP.FileCards
 DestinationCard SourceCard)
				  (
RETURN
 (
PROG1
 (
CAR
 (
NCP.GetLinks
 SourceCard 
									    DestinationCard 
									    NC.SubBoxLinkLabel))
						     (
OR
 WasActive (
NCP.UncacheCards
 SourceCard T)
							   )))
			 else
 (
NCP.ReportError
 (
QUOTE
 NCP.LocalGlobalLink)
						   (
CONCAT
 
						       "SubBox link must be from a box to a box."
							     (
CHARACTER
 13)
							     "No link created."))
				(
RETURN
 NIL)))             (* Inserting non-hierarchical link into a filebox.)

	    (if
 (
NCP.FileBoxP
 SourceCard)
		then
 (
NCP.ReportError
 (
QUOTE
 NCP.LocalGlobalLink)
					  (
CONCAT
 
				 "Local links from fileboxes must be either SubBox or FiledCard."
						    (
CHARACTER
 13)
						    "No link created."))
		       (
RETURN
 NIL))
	    (if
 (
NOT
 (
FMEMB
 LinkType (
NCP.LinkTypes
 (
SETQ
 NoteFile (fetch
 (Card NoteFile)
										of
 SourceCard)))))
		then
 (if
 (
NC.AskYesOrNo
 (
CONCAT
 
						   "That link type hasn't been used in NoteFile "
							(fetch
 (NoteFile FullFileName)
							   of
 NoteFile)
							(
CHARACTER
 13)
							"Want to create a new link type: " LinkType 
							"? ")
					      "--" NIL T (
NC.AttachPromptWindow

						(
WFROMMENU
 (fetch
 (NoteFile Menu) of
 NoteFile)))
					      NIL NIL)
			   then
 (
NCP.CreateLinkType
 LinkType NoteFile)
			 else
 (
RETURN
 NIL)))
	    (
OR
 (
SETQ
 WasActive (
NCP.CardCachedP
 SourceCard))
		  (
NCP.CacheCards
 SourceCard))
	    (
AND
 FromLoc (
NCP.ChangeLoc
 SourceCard FromLoc))
	    (
RETURN
 (
PROG1
 (
NC.InsertLinkInText
 (
NC.FetchSubstance
 SourceCard)
						      LinkType DestinationCard SourceCard 
						      CoercedDisplayMode)
			       (
OR
 WasActive (
NCP.UncacheCards
 SourceCard T)))))))

(NCP.CoerceToLinkDisplayMode

  (LAMBDA (Thing)                                            (* rht: "27-May-87 11:28")


          (* * Thing can be a cardtype, link, atom, list or LINKDISPLAYMODE record.)




          (* * Fixed so that returns non-nil, if Thing is already a linkdisplaymode.)




          (* * rht 5/27/87: Now checks for case of card type up front.)



    (
PROG
 (DisplayMode)
	    (
SETQ
 DisplayMode (
COND

		((type?
 LINKDISPLAYMODE Thing)
		  (
RETURN
 Thing))
		((
NCP.CardTypeP
 Thing)
		  (
NCP.CardTypeVar
 Thing (
QUOTE
 LinkDisplayMode)))
		((
NCP.ValidCardP
 Thing)
		  (
NC.FetchLinkDisplayMode
 Thing))
		((
NCP.ValidLinkP
 Thing)
		  (
NCP.LinkDisplayMode
 Thing))
		(T Thing)))
	    (
SETQ
 DisplayMode (
COND

		((type?
 LINKDISPLAYMODE DisplayMode)
		  (
RETURN
 DisplayMode))
		((
FMEMB
 DisplayMode NCP.LinkDisplayModes)
		  (
NC.MakeNewDisplayMode
 DisplayMode))
		((
LISTP
 DisplayMode)
		  (create
 LINKDISPLAYMODE
			    SHOWTITLEFLG _(
CAR
 DisplayMode)
			    SHOWLINKTYPEFLG _(
CADR
 DisplayMode)
			    ATTACHBITMAPFLG _(
CADDR
 DisplayMode)))
		(T DisplayMode)))
	    (
RETURN
 (if
 (type?
 LINKDISPLAYMODE DisplayMode)
			  then
 DisplayMode
			else
 NIL)))))
)
(* * PLEASE remove NC.MakeNewDisplayMode and NC.LinkIconPutFn from NCCONVERTVERSION2TO3. 
They're already in NCLINKS. Also remove the comment in NCCONVERTVERSION2TO3 coms right above 
the FNS for NC.ConvertLinkFormat.)


(PUTPROPS RHTPATCH268 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (892 6309 (NCP.LocalGlobalLink 902 . 5015) (NCP.CoerceToLinkDisplayMode 5017 . 6307))))
)
STOP