(FILECREATED "16-May-86 12:08:59" {QV}<NOTECARDS>1.3K>FGHPATCH036.;1
 2015   

      changes to:  (VARS FGHPATCH036COMS)
		   (FNS NC.InsertLinkInOrdering))


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

(PRETTYCOMPRINT FGHPATCH036COMS)

(RPAQQ FGHPATCH036COMS
 ((* * Minor fix to NC.InsertLinkInOrder FROM NCLINKS)
			  (FNS NC.InsertLinkInOrdering)))
(* * Minor fix to NC.InsertLinkInOrder FROM NCLINKS)


(DEFINEQ

(NC.InsertLinkInOrdering

  (LAMBDA (SourceCard DestinationCard LinkLabel DisplayMode NoSpacerFlg OrderingFn)
                                                             (* fgh: "16-May-86 12:08")

                                                             (* Insert a link to DestinationCard in SourceID.

							     Place to insert is dertermined alphabetically.)


          (* * rht 6/14/85: Fixed the CHLIM uses according to Intermezzo changes. Also took out some SEL setting that was 

	  useless. And changed TEDIT.SETSEL calls. Now uses OrderingFn arg so can do any sorts of orderings user wants.)




          (* * kirk: 14Nov85: deleted use of of DatabaseStream and created Cached version)




          (* * fgh 5/16/86 Replaced spuriois reference to Orphans card and replaced with correct reference to SourceCard.)



    (if
 (
NC.ActiveCardP
 SourceCard)
	then
 (
NC.CachedInsertLinkInOrdering
 SourceCard DestinationCard LinkLabel DisplayMode 
						NoSpacerFlg OrderingFn)
      else
 (WITH.MONITOR (
NC.FetchMonitor
 (fetch
 (Card NoteFile) of
 SourceCard))
			   (if
 (
NC.CardP
 (
NC.GetNoteCard
 SourceCard))
			       then
 (
NC.CachedInsertLinkInOrdering
 SourceCard DestinationCard 
								       LinkLabel DisplayMode 
								       NoSpacerFlg OrderingFn)
				      (
NC.PutMainCardData
 SourceCard)
				      (
NC.PutLinks
 SourceCard)
				      (
NC.DeactivateCard
 SourceCard))))))
)
(PUTPROPS FGHPATCH036 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (442 1933 (NC.InsertLinkInOrdering 452 . 1931)))))
STOP