(FILECREATED "10-Sep-85 17:20:26" {QV}<NOTECARDS>RELEASE1.2I>NCTEXTCARD.;6
 2913   

      changes to:  (FNS NC.MakeTEditCard)

      previous date: "30-Jul-85 16:56:36" {QV}<NOTECARDS>RELEASE1.2I>NCTEXTCARD.;5)


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

(PRETTYCOMPRINT NCTEXTCARDCOMS)

(RPAQQ NCTEXTCARDCOMS
 ((E (SETQ NC.SystemDate (DATE))
			  (UNMARKASCHANGED (QUOTE NC.SystemDate)
					   (QUOTE VARS)))
		       (VARS NC.SystemDate)
		       (P (UNMARKASCHANGED (QUOTE NC.SystemDate)
					   (QUOTE VARS)))
		       (FILES NCTEXTSUBSTANCE)
		       (GLOBALVARS TEDIT.DEFAULT.MENU)
		       (FNS NC.MakeTEditCard NC.AddTextCard)
		       (P (NC.AddTextCard))))

(RPAQQ NC.SystemDate
 "10-Sep-85 17:20:26")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(FILESLOAD NCTEXTSUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TEDIT.DEFAULT.MENU)
)
(DEFINEQ

(NC.MakeTEditCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* rht: "10-Sep-85 17:17")

                                                             (* Make up a blank text card and display it.)


          (* * rht 9/10/85: Fixed call to NC.MakeTEditPropsList so prompt window gets fixed up before card is brought up.)



    (
PROG
 (TextStream Window)
          (
COND

	    (NoDisplayFlg (
SETQ
 TextStream (
OPENTEXTSTREAM
 "" NIL NIL NIL (
NC.MakeTEditPropsList
)))
			  (
NC.SetSubstance
 ID TextStream)
			  (
STREAMPROP
 TextStream (
QUOTE
 NoteCardID)
				      ID)
			  (
RETURN
 ID))
	    (T (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 ID NIL)
				     (
OR
 Title "Untitled")
				     NIL T))
	       (
WINDOWPROP
 Window (
QUOTE
 NoteCardID)
			   ID)
	       (
WINDOWPROP
 Window (
QUOTE
 NoteCardsLeftButtonMenu)
			   (
NC.MakeTEditLeftMenu
 (
NC.FetchType
 ID)))
	       (
WINDOWPROP
 Window (
QUOTE
 NoteCardsMiddleButtonMenu)
			   (
NC.MakeTEditMiddleMenu
))
	       (
WINDOWADDPROP
 Window (
QUOTE
 SHRINKFN)
			      (
FUNCTION
 NC.TextCardShrinkFn))
	       (
TEDIT
 NIL Window NIL (
NC.MakeTEditPropsList
 Window))
	       (until
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)) do
 (
BLOCK
))
	       (
SETQ
 TextStream (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)))
	       (
NC.SetSubstance
 ID TextStream)
	       (
STREAMPROP
 TextStream (
QUOTE
 NoteCardID)
			   ID)
	       (
RETURN
 Window))))))

(NC.AddTextCard

  (LAMBDA NIL                                                (* rht: "17-Mar-85 15:55")

    (
NC.AddCardType
 (
QUOTE
 Text)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 TEXT)
		    (
BQUOTE
 ((MakeCardFn , (
FUNCTION
 NC.MakeTEditCard))))
		    (
BQUOTE
 ((LinkDisplayMode Title)
			     (CardDisplayedInMenuFlg , T))))))
)
(NC.AddTextCard)
(PUTPROPS NCTEXTCARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (902 2815 (NC.MakeTEditCard 912 . 2456) (NC.AddTextCard 2458 . 2813)))))
STOP