(FILECREATED "17-Mar-85 19:37:52" {PHYLUM}<NOTECARDS>RELEASE1.2>NCTEXTCARD.;3
 2747   

      changes to:  (FNS NC.AddTextCard)

      previous date: "13-Mar-85 01:08:10" {PHYLUM}<NOTECARDS>RELEASE1.2>NCTEXTCARD.;2)


(* 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
 "17-Mar-85 19:37:54")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(FILESLOAD NCTEXTSUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS TEDIT.DEFAULT.MENU)
)
(DEFINEQ

(NC.MakeTEditCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* fgh: " 5-Feb-85 19:28")

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

    (
COND

      (NoDisplayFlg (
PROG
 (TextStream)
		          (
SETQ
 TextStream (
OPENTEXTSTREAM
 "" NIL NIL NIL
							   (
LIST
 (
QUOTE
 FONT)
								 NC.DefaultFont
								 (
QUOTE
 TITLEMENUFN)
								 (
FUNCTION
 NC.TEditMenuFn))))
		          (
NC.SetSubstance
 ID TextStream)
		          (
RETURN
 ID)))
      (T (
PROG
 (Window)
	       (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 ID NIL)
				     (
OR
 Title "Untitled")))
	       (
WINDOWPROP
 Window (
QUOTE
 NoteCardsLeftButtonMenu)
			   (NC.MakeTEditLeftMenu
 (
NC.FetchType
 ID)))
	       (
WINDOWPROP
 Window (
QUOTE
 NoteCardsMiddleButtonMenu)
			   (NC.MakeTEditMiddleMenu
))
	       (
WINDOWPROP
 Window (
QUOTE
 SHRINKFN)
			   (
FUNCTION
 NC.ShrinkFn))
	       (
TEDIT
 NIL Window NIL (
LIST
 (
QUOTE
 FONT)
					   NC.DefaultFont
					   (
QUOTE
 TITLEMENUFN)
					   (
FUNCTION
 NC.TEditMenuFn)))
	       (until
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)) do
 (
BLOCK
))
	       (
NC.SetSubstance
 ID (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)))
	       (
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 (906 2649 (NC.MakeTEditCard 916 . 2290) (NC.AddTextCard 2292 . 2647)))))
STOP