(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED " 1-Jun-88 17:56:19" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH097.;1
 2607   

      changes to%:  (VARS PMIPATCH097COMS))


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

(PRETTYCOMPRINT PMIPATCH097COMS)

(RPAQQ PMIPATCH097COMS
 (

(* ;;; "pmi 6/1/88: A fix to the changes for NCToulminCards (PMIPATCH094).  It seems that I broke regular Insertion of a link into a graph.")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH097 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH097 FILETYPE)))
                        [DECLARE%: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories 'NCGRAPHCARD]
                        
          
          (* ;; "Changed in NCGRAPHCARD")


                        (FNS NC.AddLinkToGraphCard)))



(* ;;; 
"pmi 6/1/88: A fix to the changes for NCToulminCards (PMIPATCH094).  It seems that I broke regular Insertion of a link into a graph."
)


(DECLARE%: DONTCOPY 

(PUTPROPS PMIPATCH097 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS PMIPATCH097 FILETYPE
 :BCOMPL)
)
(DECLARE%: DONTEVAL@LOAD FIRST 
(NC.LoadFileFromDirectories 'NCGRAPHCARD)
)



(* ;; "Changed in NCGRAPHCARD")


(DEFINEQ

(NC.AddLinkToGraphCard

  [LAMBDA (Window LinkOrLinkLabel DestinationCard)
           (* ; "Edited  1-Jun-88 17:47 by pmi")

          
          (* ;; "Add a NOTECARD link to a graph card.  Pass the fact that this is a link-add to NC.GraphAddNodeFn via the NoteCardInsertingLink window property")

          
          (* ;; "rht 4/7/86: Now can handle insertion of multiple links by accepting label and/or destination card args.  Either or both can be nil.")

          
          (* ;; "rht 11/2/86: Now checks result of NC.MakeLink before proceeding.")

          
          (* ;; "pmi 6/1/88: Now makes sure that GRAPH.ADDNODEFN of this Window's graph is NC.GraphAddNodeFn; it may have been changed elsewhere.")


    (LET [(Link (if
 (type?
 Link LinkOrLinkLabel)
                    then
 LinkOrLinkLabel
                  else
 (NC.MakeLink Window LinkOrLinkLabel DestinationCard]
         (if
 Link
             then
 (WINDOWPROP Window 'NoteCardInsertingLink Link)
                  (replace
 (GRAPH GRAPH.ADDNODEFN) of
 (WINDOWPROP Window 'GRAPH)
                     with
 (FUNCTION NC.GraphAddNodeFn))
                  (EDITADDNODE Window])
)
(PUTPROPS PMIPATCH097 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1310 2524 (NC.AddLinkToGraphCard 1320 . 2522)))))
STOP