(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