(FILECREATED "13-May-87 12:35:40" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH260.;1
 1401   

      changes to:  (VARS RHTPATCH260COMS)
		   (FNS NC.GraphDeleteNodeFn))


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

(PRETTYCOMPRINT RHTPATCH260COMS)

(RPAQQ RHTPATCH260COMS
 ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD))))
			  (* * Fixes bug %#574: Deleting links from graph cards is funky.)
			  (* * Change to NCGRAPHCARD)
			  (FNS NC.GraphDeleteNodeFn)))
(DECLARE: FIRST 
(NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD))
)
(* * Fixes bug %#574: Deleting links from graph cards is funky.)


(* * Change to NCGRAPHCARD)


(DEFINEQ

(NC.GraphDeleteNodeFn

  (LAMBDA (Node Graph Window)                                (* rht: "13-May-87 12:32")


          (* * Just mark the card as dirty.)




          (* * rht 4/30/86: Now makes sure there's a window first.)




          (* * rht 5/13/87: Now deletes link if node is a link icon.)



    (LET ((GraphNodeLabel (fetch
 (GRAPHNODE NODELABEL) of
 Node)))
         (
AND
 Window (
NC.MarkCardDirty
 (
NC.CoerceToCard
 Window)))
         (if
 (
NC.LinkIconImageObjP
 GraphNodeLabel)
	     then
 (
NC.DeleteLink
 (
NC.FetchLinkFromLinkIcon
 GraphNodeLabel)
				     NIL T)))))
)
(PUTPROPS RHTPATCH260 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (675 1319 (NC.GraphDeleteNodeFn 685 . 1317)))))
STOP