(FILECREATED "26-May-87 15:31:08" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH040.;1
 2616   

      changes to:  (VARS PMIPATCH040COMS)
		   (FNS NC.AddGraphCard))


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

(PRETTYCOMPRINT PMIPATCH040COMS)

(RPAQQ PMIPATCH040COMS
 ((* * pmi 5/26/87: Changed default card size as requested by Cathy Marshall.)
			  (DECLARE: COPY FIRST (P (NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD))))
			  (* * Change to NCGRAPHCARD)
			  (FNS NC.AddGraphCard)
			  (* * For this patch file only)
			  (P (NC.AddGraphCard))))
(* * pmi 5/26/87: Changed default card size as requested by Cathy Marshall.)


(DECLARE: COPY FIRST 
(NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD))
)
(* * Change to NCGRAPHCARD)


(DEFINEQ

(NC.AddGraphCard

  (LAMBDA NIL                                                (* pmi: "26-May-87 10:59")


          (* * fgh 11/14/85: Updated to conform to merge of substance and card types.)




          (* * fgh 2/17/86 Added attached bitmap field.)




          (* * rht 4/7/86: Added middle button menu items.)




          (* * pmi 5/26/87: Changed default card size as requested by Cathy Marshall.)



    (
NC.AddCardType
 (
QUOTE
 Graph)
		      (
QUOTE
 NoteCard)
		      (
BQUOTE
 ((MakeFn , (
FUNCTION
 NC.MakeGraphCard))
				 (EditFn , (
FUNCTION
 NC.BringUpGraphCard))
				 (QuitFn , (
FUNCTION
 NC.GraphCardCloseFn))
				 (GetFn , (
FUNCTION
 NC.GetGraphSubstance))
				 (PutFn , (
FUNCTION
 NC.PutGraphSubstance))
				 (CopyFn , (
FUNCTION
 NC.GraphCopySubstance))
				 (MarkDirtyFn , (
FUNCTION
 NC.MarkGraphDirty))
				 (DirtyPFn , (
FUNCTION
 NC.GraphDirtyP))
				 (CollectLinksFn , (
FUNCTION
 NC.CollectReferencesInGraph))
				 (DeleteLinksFn , (
FUNCTION
 NC.DelReferencesToCardFromGraph))
				 (UpdateLinkIconsFn , (
FUNCTION
 NC.UpdateLinkImagesInGraph))
				 (InsertLinkFn , (
FUNCTION
 NC.InsertLinkInGraph))
				 (TranslateWindowPositionFn , (
FUNCTION
 
							NC.TranslateWindowPositionToGraphPosition))))
		      (
BQUOTE
 ((LinkDisplayMode Title)
				 (DisplayedInMenuFlg , T)
				 (DefaultWidth 500)
				 (DefaultHeight 330)
				 (LinkAnchorModesSupported T)
				 (LinkIconAttachedBitMap , NC.GraphCardIcon)
				 (MiddleButtonMenuItems , (
QUOTE
 ((Relayout% Graph
								       (
FUNCTION
 
									 NC.RelayoutGraphCard)
								       
						      "Re-layout the graph, but keep same nodes.")))))
				))))
)
(* * For this patch file only)


(NC.AddGraphCard)
(PUTPROPS PMIPATCH040 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (762 2479 (NC.AddGraphCard 772 . 2477)))))
STOP