(FILECREATED "21-Aug-86 18:16:20" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH093.;2
 4251   

      changes to:  (VARS RHTPATCH093COMS)
		   (FNS NCP.CreateBrowserCard)

      previous date: "21-Aug-86 17:12:58" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH093.;1)


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

(PRETTYCOMPRINT RHTPATCH093COMS)

(RPAQQ RHTPATCH093COMS
 ((* * Changes to NCPROGINT)
			  (FNS NCP.CreateCard NCP.CreateBrowserCard)))
(* * Changes to NCPROGINT)


(DEFINEQ

(NCP.CreateCard

  (LAMBDA (Type NoteFile Title NoDisplayFlg Props ParentFileBoxes TypeSpecificArgs)
                                                             (* rht: "21-Aug-86 16:58")


          (* * Creates a new notecard with given type, title, props and parents. Any of those args can be nil.

	  Type being NIL will cause user to be asked. Makes a card with initially empty substance.)




          (* * rht 11/20/84: Had to add a horrible kluge: if creating a document card in which embedded links may be copied, 

	  then need to have document card visible on screen. This is because ID is currently unattainable from just the 

	  Textstream -

	  need to have a window. Until that is fixed, we temporarily bring up the document card while it's being filled in.)




          (* * rht 11/17/85: Updated to handle new card and notefile objects.)




          (* * rht 7/10/86: Ripped out the above described document kludge.)




          (* * rht 8/21/86: Now sticks (APPEND Props) on the card's proplist, i.e. a top level copy.)



    (if
 (
NCP.CardTypeP
 Type)
	then
 (LET (Card CardIdentifier)
		    (if
 (
SETQ
 CardIdentifier (
NC.MakeNoteCard
 Type NoteFile Title NoDisplayFlg 
								    TypeSpecificArgs))
			then
 (
SETQ
 Card (if
 (
WINDOWP
 CardIdentifier)
						then
 (
NCP.CardFromWindow
 CardIdentifier)
					      else
 CardIdentifier))
			       (if
 Props
				   then
 (
NC.SetPropList
 Card (
APPEND
 Props))
					  (
NC.SetPropListDirtyFlg
 Card T))
			       (for
 Box in
 (
MKLIST
 ParentFileBoxes)
				  do
 (if
 (
NCP.FileBoxP
 Box)
					   then
 (
NCP.FileCards
 Card Box)
					 else
 (
NCP.ReportError
 Box " not an existing filebox.")))
			       Card))
      else
 (
NCP.ReportError
 "Unknown card type: " Type)
	     NIL)))

(NCP.CreateBrowserCard

  (LAMBDA (NoteFile Title ParamList NoDisplayFlg Props ParentFileBoxes)
                                                             (* rht: "21-Aug-86 18:05")


          (* * Creates a new browser notecard with given type, title, props, parents, starting ID and link labels.)




          (* * rht 11/17/85: Updated to handle new card and notefile objects.)




          (* * rht 8/21/86: Changed call from NCP.ValidLinkType to NCP.ValidLinkTypeP.)



    (LET (ValidLinkTypes LinkTypes NewParamList)
         (
SETQ
 ValidLinkTypes (for
 LinkType in
 (
SETQ
 LinkTypes (
LISTGET
 ParamList
										  (
QUOTE
 LINKTYPES))
						       )
				   join
 (
COND

					    ((
EQ
 LinkType (
QUOTE
 ALL))
					      (
NCP.LinkTypes
 NoteFile))
					    ((
EQ
 LinkType (
QUOTE
 ←ALL))
					      (
NCP.ReverseLinkTypes
 NoteFile))
					    ((
NOT
 (
NCP.ValidLinkTypeP
 LinkType NoteFile))
					      (
NCP.ReportError
 LinkType " not a valid link type.")
					      NIL)
					    (T (
LIST
 LinkType)))))
         (
SETQ
 ValidLinkTypes (
INTERSECTION
 ValidLinkTypes ValidLinkTypes))
         (if
 (
AND
 LinkTypes (
NULL
 ValidLinkTypes))
	     then
 NIL
	   else
                                            (* Make a copy of the user's param list since she may 

							     not want it to get rplaca'd.)

		  (if
 ParamList
		      then
 (
SETQ
 NewParamList (
COPY
 ParamList))
			     (
LISTPUT
 NewParamList (
QUOTE
 LINKTYPES)
					ValidLinkTypes)
		    else
 (
SETQ
 NewParamList (
LIST
 (
QUOTE
 LINKTYPES)
							ValidLinkTypes)))
		  (NCP.CreateCard
 (
QUOTE
 Browser)
				    NoteFile Title NoDisplayFlg Props ParentFileBoxes NewParamList))))
)
)
(PUTPROPS RHTPATCH093 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (489 4169 (NCP.CreateCard 499 . 2379) (NCP.CreateBrowserCard 2381 . 4167)))))
STOP