(FILECREATED "21-May-87 16:00:03" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH041.;1
 3063   

      changes to:  (VARS PMIPATCH041COMS))


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

(PRETTYCOMPRINT PMIPATCH041COMS)

(RPAQQ PMIPATCH041COMS
 ((* * pmi 5/21/87: Fixes UDF break when adding a global link to a card. 
			     Looks like Randy G. missed this substitution: Changed 
			     NC.CardSelectionOperation to NCP.WithLockedCards)
			  (* * Changed in NCLINKS)
			  (FNS NC.AddGlobalLinksToCard)))
(* * pmi 5/21/87: Fixes UDF break when adding a global link to a card. Looks like Randy G. 
missed this substitution: Changed NC.CardSelectionOperation to NCP.WithLockedCards)


(* * Changed in NCLINKS)


(DEFINEQ

(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)))))))))
)
(PUTPROPS PMIPATCH041 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (736 2981 (NC.AddGlobalLinksToCard 746 . 2979)))))
STOP