(FILECREATED "28-Apr-85 22:23:34" {PHYLUM}<NOTECARDS>RELEASE1.2>LIBRARY>NCFILECARD.;16
 3885   

      changes to:  (FNS NC.AddFileCardType)

      previous date: "12-Mar-85 18:45:05" {PHYLUM}<NOTECARDS>RELEASE1.2>LIBRARY>NCFILECARD.;15)


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

(PRETTYCOMPRINT NCFILECARDCOMS)

(RPAQQ NCFILECARDCOMS
 ((FILES NCFILESUBSTANCE)
		       (GLOBALVARS NC.DefaultFont PSA.Database NC.DeletedLinkImageObject 
				   NC.NoDeleteImageFns NC.AnnoFlg TEDIT.DEFAULT.MENU)
		       (* * Card type functions)
		       (FNS NC.MakeFileCard NC.MakeFileCardCore)
		       (* * Add file card type)
		       (FNS NC.AddFileCardType)
		       (P (NC.AddFileCardType))))
(FILESLOAD NCFILESUBSTANCE)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.DefaultFont PSA.Database NC.DeletedLinkImageObject NC.NoDeleteImageFns NC.AnnoFlg 
	    TEDIT.DEFAULT.MENU)
)
(* * Card type functions)


(DEFINEQ

(NC.MakeFileCard

  (LAMBDA (ID Title NoDisplayFlg)                            (* fgh: " 8-Feb-85 00:10")


          (* * Make a new card of type File -

	  -

	  ERSETQ around Core procedure here!)



    (
COND

      ((
ERSETQ
 (NC.MakeFileCardCore
 ID Title NoDisplayFlg)))
      (T (
AND
 (
OPENWP
 (
NC.FetchWindow
 ID))
	      (
CLOSEW
 (
NC.FetchWindow
 ID)))
	 NIL))))

(NC.MakeFileCardCore

  (LAMBDA (ID Title NoDisplayFlg)                            (* fgh: "12-Feb-85 23:45")


          (* * Make a new card of type File -

	  -

	  Core procedure)



    (
PROG
 (FileName TextStream)
          (
RETURN
 (
COND

		    ((
NULL
 NoDisplayFlg)
		      (
PROG
 (Window)
			    (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 ID NIL)
						  (
OR
 Title "Creating File card ...")))
			    (
WINDOWPROP
 Window (
QUOTE
 NoteCardID)
					ID)
			    (
WINDOWPROP
 Window (
QUOTE
 NoteCardsLeftButtonMenu)
					(
NC.FileCardLeftButtonMenu
))
			    (
WINDOWPROP
 Window (
QUOTE
 NoteCardsMiddleButtonMenu)
					(
NC.FileCardMiddleButtonMenu
))
			    (
WINDOWPROP
 Window (
QUOTE
 SHRINKFN)
					(
FUNCTION
 NC.ShrinkFn))
			    (
TEDIT
 NIL Window NIL (
LIST
 (
QUOTE
 FONT)
							NC.DefaultFont
							(
QUOTE
 TITLEMENUFN)
							(
FUNCTION
 NC.TEditMenuFn)))
			    (until
 (
SETQ
 TextStream (
NC.SetTextStream
 ID (
WINDOWPROP
 Window
										     (
QUOTE
 
										       TEXTSTREAM))))
			       do
 (
BLOCK
))
			    (
COND

			      ((
SETQ
 FileName (
NC.CreateFileSubstance
 Window))
				(
TEDIT.GET
 (
TEXTOBJ
 TextStream)
					   FileName)
				(
NC.SetSubstance
 ID FileName)
				(
NC.SetTitle
 ID (
NC.FileCardTitle
 ID))
				(
WINDOWPROP
 Window (
QUOTE
 TITLE)
					    (
NC.SetTitle
 ID (
NC.FileCardTitle
 ID)))
				(
NC.PutProp
 ID (
QUOTE
 FileName)
					    FileName PSA.Database)
				(
NC.PutProp
 ID (
QUOTE
 FileVersion)
					    (
NC.FileCardFileVersionNumber
 ID))
				(
GIVE.TTY.PROCESS
 Window)
				(
RETURN
 Window))
			      (T (
TEDIT.QUIT
 TextStream)
				 (
NC.SetTextStream
 ID NIL)
				 (
RETURN
 NIL)))))
		    (T (
NC.CreateFileSubstance
)
		       (
NC.SetSubstance
 ID FileName)
		       (
NC.SetTitle
 ID FileName)
		       ID))))))
)
(* * Add file card type)


(DEFINEQ

(NC.AddFileCardType

  (LAMBDA NIL                                                (* fgh: "28-Apr-85 22:22")


          (* * Add a file card type to the card types list)



    (
NC.AddCardType
 (
QUOTE
 File)
		    (
QUOTE
 NoteCard)
		    (
QUOTE
 FILE)
		    (
LIST
 (
LIST
 (
QUOTE
 MakeCardFn)
				(
FUNCTION
 NC.MakeFileCard)))
		    (
LIST
 (
LIST
 (
QUOTE
 CardDisplayedInMenuFlg)
				T)))))
)
(NC.AddFileCardType)
(PUTPROPS NCFILECARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (940 3308 (NC.MakeFileCard 950 . 1360) (NC.MakeFileCardCore 1362 . 3306)) (3340 3783 (
NC.AddFileCardType 3350 . 3781)))))
STOP