(FILECREATED " 5-Jun-87 15:35:39" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH274.;1
 1456   

      changes to:  (VARS RHTPATCH274COMS)
		   (FNS NC.SmashGraphNodeIDProps))


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

(PRETTYCOMPRINT RHTPATCH274COMS)

(RPAQQ RHTPATCH274COMS
 ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD))))
			  (* * Fixes bug reported by Cathy whereby removing edge between labels in 
			     browser breaks.)
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.SmashGraphNodeIDProps)))
(DECLARE: FIRST 
(NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD))
)
(* * Fixes bug reported by Cathy whereby removing edge between labels in browser breaks.)


(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.SmashGraphNodeIDProps

  (LAMBDA (GraphNodeID)                                      (* rht: " 5-Jun-87 15:34")


          (* * Smash the prop list of GraphNodeID except be sure to save the CardObject prop if there is one.)




          (* * rht 6/5/87: Now checks to make sure GraphNodeID is a UID before trying to clear its proplist.)



    (LET ((Card (
NC.CardFromBrowserNodeID
 GraphNodeID)))
         (
AND
 (type?
 UID GraphNodeID)
		(
NC.UIDSetPropList
 GraphNodeID NIL))
         (
AND
 Card (
NC.GraphNodeIDPutProp
 GraphNodeID (
QUOTE
 CardObject)
					      Card)))))
)
(PUTPROPS RHTPATCH274 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (750 1374 (NC.SmashGraphNodeIDProps 760 . 1372)))))
STOP