(FILECREATED " 5-Jun-86 18:45:34" {QV}<NOTECARDS>1.3K>FGHPATCH057.;3
 3314   

      changes to:  (VARS FGHPATCH057COMS)

      previous date: " 5-Jun-86 18:25:44" {QV}<NOTECARDS>1.3K>FGHPATCH057.;1)


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

(PRETTYCOMPRINT FGHPATCH057COMS)

(RPAQQ FGHPATCH057COMS
 ((* * Fix to bug %# 70, MakeLabel now calls AskLinkLabel)
			  (FNS NC.MakeLink)))
(* * Fix to bug %# 70, MakeLabel now calls AskLinkLabel)


(DEFINEQ

(NC.MakeLink

  (LAMBDA (Window LinkLabel DestinationCard SourceCard DisplayMode AnchorMode Message NoDisplayFlg 
		  LinkToInsertAfter)                         (* fgh: " 5-Jun-86 18:28")


          (* * 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)



    (LET (Link Type)
         (
OR
 SourceCard (
SETQ
 SourceCard (
NC.CoerceToCard
 Window)))
         (
OR
 Window (
SETQ
 Window (
NC.FetchWindow
 SourceCard)))
         (
OR
 Message (
SETQ
 Message "Please 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 NIL Message)))
         (
COND

	   ((
EQ
 DestinationCard (
QUOTE
 *New% Card*))
	     (
SETQ
 DestinationCard (
AND
 (
SETQ
 Type (
NC.AskNoteCardType
 (
WINDOWREGION
 Window)
									       ))
					    (
NC.CoerceToCard
 (
NC.MakeNoteCard

								 Type
								 (fetch
 (Card NoteFile)
								    of
 SourceCard)
								 NIL NoDisplayFlg))))))
         (
COND

	   (DestinationCard (
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)
			    Link)
	   (T NIL)))))
)
(PUTPROPS FGHPATCH057 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (481 3232 (NC.MakeLink 491 . 3230)))))
STOP