(FILECREATED "17-Sep-85 12:28:02" {QV}<NOTECARDS>RELEASE1.2I>FGHPATCH023.;1
 4186   

      changes to:  (VARS FGHPATCH023COMS)
		   (FNS NC.AddCardType))


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

(PRETTYCOMPRINT FGHPATCH023COMS)

(RPAQQ FGHPATCH023COMS
 ((* * Redefined from NCTYPESMECH)
			(FNS NC.AddCardType)))
(* * Redefined from NCTYPESMECH)


(DEFINEQ

(NC.AddCardType

  (LAMBDA (TypeName SuperType SubstanceType FnsAssocList VarsAssocList)
                                                             (* fgh: "17-Sep-85 12:26")


          (* * Create a new note acrd type and link it into the card type heirarchy.)



    (
PROG
 (NewType)
          (
COND

	    ((
NULL
 TypeName)
	      (
NC.ReportError
 "NC.AddCardType" "Illegal type name: NIL"))
	    ((for
 Type in
 NC.CardTypes never
 (
EQ
 (fetch
 (NoteCardType TypeName) of
 Type)
						 SuperType))
	      (
NC.ReportError
 "NC.AddCardType" (
CONCAT
 "Unknown type in super type field:  " 
						       SuperType)))
	    ((for
 Substance in
 NC.SubstanceTypes never
 (
EQ
 SubstanceType (fetch
 (SubstanceType 
										    SubstanceName)
									    of
 Substance)))
	      (
NC.ReportError
 "NC.AddCardType" (
CONCAT
 "Unknown substance type field:  " 
						       SubstanceType))))

          (* * Remove old instance of this NoteCardType)



          (for
 CardType in
 NC.CardTypes when
 (
EQ
 (fetch
 (NoteCardType TypeName) of
 CardType)
						 TypeName)
	     do
 (
SETQ
 NC.CardTypes (
REMOVE
 CardType NC.CardTypes)))

          (* * Create new NoteCardType)



          (
SETQ
 NC.CardTypes
	    (
NCONC1
 NC.CardTypes
		    (
SETQ
 NewType (create
 NoteCardType
					  TypeName ← TypeName
					  SuperType ← SuperType
					  SubstanceType ← SubstanceType
					  MakeCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 MakeCardFn)
								   FnsAssocList))
					  EditCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 EditCardFn)
								   FnsAssocList))
					  QuitCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 QuitCardFn)
								   FnsAssocList))
					  GetCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 GetCardFn)
								  FnsAssocList))
					  PutCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 PutCardFn)
								  FnsAssocList))
					  CopyCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 CopyCardFn)
								   FnsAssocList))
					  MarkCardDirtyFn ←(
CADR
 (
ASSOC
 (
QUOTE
 MarkCardDirtyFn)
									FnsAssocList))
					  CardDirtyPFn ←(
CADR
 (
ASSOC
 (
QUOTE
 CardDirtyPFn)
								     FnsAssocList))
					  CollectLinksInCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 
									     CollectLinksInCardFn)
									     FnsAssocList))
					  DeleteLinksInCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 
									      DeleteLinksInCardFn)
									    FnsAssocList))
					  UpdateLinkIconsInCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 
									  UpdateLinkIconsInCardFn)
										FnsAssocList))
					  InsertLinkInCardFn ←(
CADR
 (
ASSOC
 (
QUOTE
 InsertLinkInCardFn)
									   FnsAssocList))
					  TranslateWindowPositionToCardPositionFn ←(
CADR

					    (
ASSOC
 (
QUOTE
 TranslateWindowPositionToCardPositionFn)
						   FnsAssocList))
					  LinkDisplayMode ←(
CADR
 (
ASSOC
 (
QUOTE
 LinkDisplayMode)
									VarsAssocList))
					  CardDefaultHeight ←(
OR
 (
CADR
 (
ASSOC
 (
QUOTE
 
										CardDefaultHeight)
									      VarsAssocList))
								 (
CADR
 (
ASSOC
 (
QUOTE
 DefaultHeight)
									      VarsAssocList)))
					  CardDefaultWidth ←(
OR
 (
CADR
 (
ASSOC
 (
QUOTE
 CardDefaultWidth)
									     VarsAssocList))
								(
CADR
 (
ASSOC
 (
QUOTE
 DefaultWidth)
									     VarsAssocList)))
					  CardLinkAnchorModesSupported ←(
CADR
 (
ASSOC
 (
QUOTE
 
								     CardLinkAnchorModesSupported)
										     VarsAssocList))
					  CardDisplayedInMenuFlg ←(
CADR
 (
ASSOC
 (
QUOTE
 
									   CardDisplayedInMenuFlg)
									       VarsAssocList))))))
          (
SETQ
 NC.NoteCardTypeMenu)
          (
RETURN
 NewType))))
)
(PUTPROPS FGHPATCH023 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (389 4104 (NC.AddCardType 399 . 4102)))))
STOP