(FILECREATED "13-Mar-85 01:06:57" {PHYLUM}<NOTECARDS>RELEASE1.2>NCSKETCHCARD.;2 2090   

      changes to:  (VARS NCSKETCHCARDCOMS)
		   (FNS NC.AddSketchCard)

      previous date: "12-Feb-85 23:12:00" {PHYLUM}<NOTECARDS>RELEASE1.2>NCSKETCHCARD.;1)


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

(PRETTYCOMPRINT NCSKETCHCARDCOMS)

(RPAQQ NCSKETCHCARDCOMS ((E (SETQ NC.SystemDate (DATE))
			    (UNMARKASCHANGED (QUOTE NC.SystemDate)
					     (QUOTE VARS)))
			 (VARS NC.SystemDate)
			 (P (UNMARKASCHANGED (QUOTE NC.SystemDate)
					     (QUOTE VARS)))
			 (FILES NCSKETCHSUBSTANCE)
			 (GLOBALVARS NC.SketchTitleBarMenu)
			 (FNS NC.MakeSketchCard NC.AddSketchCard)
			 (P (NC.AddSketchCard))))

(RPAQQ NC.SystemDate "13-Mar-85 01:06:59")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(FILESLOAD NCSKETCHSUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.SketchTitleBarMenu)
)
(DEFINEQ

(NC.MakeSketchCard
  (LAMBDA (ID Title NoDisplayFlg)                            (* fgh: " 5-Feb-85 19:16")

          (* * rht 2/1/85: Added windowprop to prevent sketch asking about saving changes.)


    (COND
      (NoDisplayFlg (NC.SetSubstance ID NIL)
		    ID)
      (T (PROG (Window)
	       (SETQ Window (SKETCHW.CREATE ID NIL (NC.DetermineDisplayRegion ID NIL)
					    (OR Title "Untitled")))
	       (WINDOWPROP Window (QUOTE DONTQUERYCHANGES)
			   T)
	       (NC.SetupTitleBarMenu Window ID (QUOTE Sketch))
	       (NC.SetSubstance ID (GETPROP ID (QUOTE SKETCH)))
	       (RETURN Window))))))

(NC.AddSketchCard
  (LAMBDA NIL                                                (* fgh: "15-Feb-85 13:19")
    (NC.AddCardType (QUOTE Sketch)
		    (QUOTE NoteCard)
		    (QUOTE SKETCH)
		    (BQUOTE ((MakeCardFn , (FUNCTION NC.MakeSketchCard))))
		    (BQUOTE ((LinkDisplayMode Icon)
			     (CardDisplayedInMenuFlg , T))))))
)
(NC.AddSketchCard)
(PUTPROPS NCSKETCHCARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (936 1988 (NC.MakeSketchCard 946 . 1623) (NC.AddSketchCard 1625 . 1986)))))
STOP