(FILECREATED " 1-Apr-87 11:20:52" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH022.;2
 2788   

      changes to:  (VARS RGPATCH022COMS)

      previous date: " 1-Apr-87 11:17:08" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH022.;1)


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

(PRETTYCOMPRINT RGPATCH022COMS)

(RPAQQ RGPATCH022COMS
 ((* * RG 3/31/87 fixes bug 496 - refs to unbound vars)
			 (* * changes to NCLINKS)
			 (FNS NC.AddGlobalLinksToCard)))
(* * RG 3/31/87 fixes bug 496 - refs to unbound vars)


(* * changes to NCLINKS)


(DEFINEQ

(NC.AddGlobalLinksToCard

  [LAMBDA (CardIdentifier SingleLinkFlg)                     (* Randy.Gobbel "31-Mar-87 14:04")


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



    (NC.ProtectedCardOperation (
NC.CoerceToCard
 CardIdentifier)
			       "Add Global Link(s)" NIL
			       (NC.CardSelectionOperation
				 (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 RGPATCH022 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (551 2707 (NC.AddGlobalLinksToCard 561 . 2705)))))
STOP