(FILECREATED " 1-Aug-85 21:46:54" {PHYLUM}<NOTECARDS>RELEASE1.2I>NCGRAPHCARD.;2
 2712   

      changes to:  (FNS NC.MakeGraphCard)

      previous date: "13-Mar-85 01:06:14" {PHYLUM}<NOTECARDS>RELEASE1.2I>NCGRAPHCARD.;1)


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

(PRETTYCOMPRINT NCGRAPHCARDCOMS)

(RPAQQ NCGRAPHCARDCOMS
 ((E (SETQ NC.SystemDate (DATE))
			   (UNMARKASCHANGED (QUOTE NC.SystemDate)
					    (QUOTE VARS)))
			(VARS NC.SystemDate)
			(P (UNMARKASCHANGED (QUOTE NC.SystemDate)
					    (QUOTE VARS)))
			(FILES NCGRAPHSUBSTANCE)
			(GLOBALVARS NC.GraphTitleBarMenu NC.GraphTitleBarMiddleButtonMenu)
			(FNS NC.MakeGraphCard NC.AddGraphCard)
			(P (NC.AddGraphCard))))

(RPAQQ NC.SystemDate
 " 1-Aug-85 21:46:56")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(FILESLOAD NCGRAPHSUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.GraphTitleBarMenu NC.GraphTitleBarMiddleButtonMenu)
)
(DEFINEQ

(NC.MakeGraphCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* rht: " 1-Aug-85 21:25")


          (* * Creates a StructEdit card. Alot like a graph card except that it allows editing of underlying NC structure, and

	  doesn't allow an "insertlink" operation in title bar menu.)



    (
PROG
 (Window Graph)
          (
SETQ
 Graph (create
 GRAPH
			      GRAPH.ADDNODEFN ←(
FUNCTION
 NC.GraphAddNodeFn)
			      GRAPH.DELETENODEFN ←(
FUNCTION
 NC.GraphDeleteNodeFn)
			      GRAPH.ADDLINKFN ←(
FUNCTION
 NC.GraphAddLinkFn)
			      GRAPH.DELETELINKFN ←(
FUNCTION
 NC.GraphDeleteLinkFn)
			      GRAPH.MOVENODEFN ←(
FUNCTION
 NC.GraphMoveNodeFn)
			      GRAPH.FONTCHANGEFN ←(
FUNCTION
 NC.GraphFontChangeFn)))
          (
NC.SetSubstance
 ID Graph)
          (
COND

	    ((
NOT
 NoDisplayFlg)
	      (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 ID NIL)
				    (
OR
 Title "Untitled")))
	      (
SHOWGRAPH
 Graph Window (
FUNCTION
 NC.GraphCardLeftButtonFn)
			 (
FUNCTION
 NC.GraphCardMiddleButtonFn)
			 T T)
	      (
WINDOWADDPROP
 Window (
QUOTE
 SHRINKFN)
			     (
FUNCTION
 NC.GraphCardShrinkFn))
	      (
NC.SetupTitleBarMenu
 Window ID)))
          (
RETURN
 (
OR
 Window ID)))))

(NC.AddGraphCard

  (LAMBDA NIL                                                (* fgh: "15-Feb-85 13:18")

    (
NC.AddCardType
 (
QUOTE
 Graph)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 GRAPH)
		    (
BQUOTE
 ((MakeCardFn , (
FUNCTION
 NC.MakeGraphCard))))
		    (
BQUOTE
 ((LinkDisplayMode Title)
			     (CardDisplayedInMenuFlg , T))))))
)
(NC.AddGraphCard)
(PUTPROPS NCGRAPHCARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (955 2612 (NC.MakeGraphCard 965 . 2250) (NC.AddGraphCard 2252 . 2610)))))
STOP