(FILECREATED "30-May-86 11:18:11" {QV}<NOTECARDS>RELEASE1.2I>LIBRARY>NCIDEASKETCH.;4
 2411   

      changes to:  (FNS NCIDEASKETCH.MakeIdeaSketchCard)

      previous date: "14-Sep-85 15:45:45" {QV}<NOTECARDS>RELEASE1.2I>LIBRARY>NCIDEASKETCH.;3)


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

(PRETTYCOMPRINT NCIDEASKETCHCOMS)

(RPAQQ NCIDEASKETCHCOMS
 ((* * This package makes a card type IdeaSketch implementing Richard's idea 
			      sketch package.)
			   (FILES (FROM VALUEOF LISPUSERSDIRECTORIES)
				  IDEASKETCH)
			   (FILES NCSKETCHSUBSTANCE NCSKETCHCARD)
			   (FNS NCIDEASKETCH.AddIdeaSketchCard NCIDEASKETCH.MakeIdeaSketchCard)
			   (P (NCIDEASKETCH.AddIdeaSketchCard))))
(* * This package makes a card type IdeaSketch implementing Richard's idea sketch package.)


(FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES)
	   IDEASKETCH)
(FILESLOAD NCSKETCHSUBSTANCE NCSKETCHCARD)
(DEFINEQ

(NCIDEASKETCH.AddIdeaSketchCard

  (LAMBDA NIL                                                (* rht: "27-Aug-85 19:22")


          (* * This mostly stolen from NC.AddSketchCard.)



    (
NC.AddCardType
 (
QUOTE
 IdeaSketch)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 SKETCH)
		    (
BQUOTE
 ((MakeCardFn , (
FUNCTION
 NCIDEASKETCH.MakeIdeaSketchCard))))
		    (
BQUOTE
 ((LinkDisplayMode Title)
			     (CardDisplayedInMenuFlg , T))))))

(NCIDEASKETCH.MakeIdeaSketchCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* kirk: "30-May-86 08:21")


          (* * Create an idea sketch card. This is almost a copy of NC.MakeSketchCard.)




          (* * kirk 30May86 Changed CREATEW.CREATE for new call.)



    (
COND

      (NoDisplayFlg (
NC.SetSubstance
 ID NIL)
		    ID)
      (T (
PROG
 (Window)
	         (
SETQ
 Window (
WRITEW.CREATE
 NIL NIL (
NC.DetermineDisplayRegion
 ID NIL)
						 (
OR
 Title "Untitled")
						 NIL T))
	         (
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))))))
)
(NCIDEASKETCH.AddIdeaSketchCard)
(PUTPROPS NCIDEASKETCH COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (929 2290 (NCIDEASKETCH.AddIdeaSketchCard 939 . 1398) (NCIDEASKETCH.MakeIdeaSketchCard 
1400 . 2288)))))
STOP