(FILECREATED "23-Aug-85 20:45:16" {QV}<NOTECARDS>RELEASE1.2I>NCSKETCHCARD.;3
 2152   

      changes to:  (FNS NC.AddSketchCard)

      previous date: "31-May-85 15:51:13" {QV}<NOTECARDS>RELEASE1.2I>NCSKETCHCARD.;2)


(* 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
 "23-Aug-85 20:45:16")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(FILESLOAD NCSKETCHSUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.SketchTitleBarMenu)
)
(DEFINEQ

(NC.MakeSketchCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* rht: "31-May-85 15:01")


          (* * 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)
	       (
WINDOWPROP
 Window (
QUOTE
 SHRINKFN)
			   (
FUNCTION
 NC.SketchCardShrinkFn))
	       (
NC.SetupTitleBarMenu
 Window ID (
QUOTE
 Sketch))
	       (
NC.SetSubstance
 ID (
GETPROP
 ID (
QUOTE
 SKETCH)))
	       (
RETURN
 Window))))))

(NC.AddSketchCard

  (LAMBDA NIL                                                (* rht: "22-Aug-85 15:01")

    (
NC.AddCardType
 (
QUOTE
 Sketch)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 SKETCH)
		    (
BQUOTE
 ((MakeCardFn , (
FUNCTION
 NC.MakeSketchCard))))
		    (
BQUOTE
 ((LinkDisplayMode Title)
			     (CardDisplayedInMenuFlg , T))))))
)
(NC.AddSketchCard)
(PUTPROPS NCSKETCHCARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (901 2050 (NC.MakeSketchCard 911 . 1684) (NC.AddSketchCard 1686 . 2048)))))
STOP