(FILECREATED " 8-Aug-86 14:11:52" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH086.;2
 4137   

      changes to:  (FNS NCP.MarkCardDirty NCP.CoerceToCard NCP.CardSubstance 
			NCP.DetermineDisplayRegion NCP.LinkFromLinkIcon NCP.MakeLinkIcon)
		   (VARS RHTPATCH086COMS)

      previous date: " 8-Aug-86 12:26:08" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH086.;1)


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

(PRETTYCOMPRINT RHTPATCH086COMS)

(RPAQQ RHTPATCH086COMS
 ((* * New functions for NCPROGINT.)
			  (FNS NCP.DetermineDisplayRegion NCP.LinkFromLinkIcon NCP.MakeLinkIcon 
			       NCP.MarkCardDirty NCP.CoerceToCard)
			  (* * Changes to NCPROGINT)
			  (FNS NCP.CardSubstance)))
(* * New functions for NCPROGINT.)


(DEFINEQ

(NCP.DetermineDisplayRegion

  (LAMBDA (Card Region/Position)                             (* rht: " 8-Aug-86 12:09")


          (* * Returns the region that Card would occupy if displayed. If Region/Position not passed in, then checks previous

	  size or default heights and widths for the card type. Also knows about BringUpCardAtPreviousPos.)



    (
NC.DetermineDisplayRegion
 Card Region/Position)))

(NCP.LinkFromLinkIcon

  (LAMBDA (LinkIcon)                                         (* rht: " 8-Aug-86 12:14")


          (* * If LinkIcon is an image object for a link icon, return the associated link.)



    (if
 (
NC.LinkIconImageObjP
 LinkIcon)
	then
 (
IMAGEOBJPROP
 LinkIcon (
QUOTE
 OBJECTDATUM)))))

(NCP.MakeLinkIcon

  (LAMBDA (Link)                                             (* rht: " 8-Aug-86 12:18")


          (* * Return a link icon image object for Link.)



    (
NC.MakeLinkIcon
 Link)))

(NCP.MarkCardDirty

  (LAMBDA (Card ResetFlg)                                    (* rht: " 8-Aug-86 13:49")


          (* * Mark Card's substance as dirty thus forcing it to be written down at the next save. If ResetFlg is non-nil, 

	  then unmark it as dirty.)



    (
NC.MarkCardDirty
 ResetFlg)))

(NCP.CoerceToCard

  (LAMBDA (CardIdentifier)                                   (* rht: " 8-Aug-86 13:50")


          (* * Return the card object associated with CardIdentifier which can currently be any of a card object, window or 

	  text stream.)



    (
NC.CoerceToCard
 CardIdentifier)))
)
(* * Changes to NCPROGINT)


(DEFINEQ

(NCP.CardSubstance

  (LAMBDA Args                                               (* rht: " 8-Aug-86 14:04")


          (* * Return the substance for this card.)




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




          (* * rht 8/8/86: Now can accept one or two args. Always returns old substance, but will replace substance with 

	  second arg if present.)



    (LET (Card)
         (
COND

	   ((
AND
 (
NEQ
 Args 1)
		   (
NEQ
 Args 2))
	     (
NCP.ReportError
 "Improper number of args to NCP.CardSubstance.")
	     NIL)
	   ((
NCP.ValidCardP
 (
SETQ
 Card (
ARG
 Args 1)))
	     (LET (WasActive)
	          (
OR
 (
SETQ
 WasActive (
NCP.CardCachedP
 Card))
			(
NCP.CacheCards
 Card))
	          (
PROG1
 (
NC.FetchSubstance
 Card)
			   (if
 (
EQ
 Args 2)
			       then
 (
NC.SetSubstance
 Card (
ARG
 Args 2))
				      (NCP.MarkCardDirty
 Card))
			   (
OR
 WasActive (
NCP.CloseCards
 Card)))))
	   (T (
NCP.ReportError
 Card " not an existing card.")
	      NIL)))))
)
(PRETTYCOMPRINT RHTPATCH086COMS)

(RPAQQ RHTPATCH086COMS
 ((* * New functions for NCPROGINT.)
			  (FNS NCP.DetermineDisplayRegion NCP.LinkFromLinkIcon NCP.MakeLinkIcon 
			       NCP.MarkCardDirty NCP.CoerceToCard)
			  (* * Changes to NCPROGINT)
			  (FNS NCP.CardSubstance)
			  (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
				    (ADDVARS (NLAMA)
					     (NLAML)
					     (LAMA NCP.CardSubstance)))))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 NCP.CardSubstance)
)
(PUTPROPS RHTPATCH086 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (740 2345 (NCP.DetermineDisplayRegion 750 . 1170) (NCP.LinkFromLinkIcon 1172 . 1501) (
NCP.MakeLinkIcon 1503 . 1714) (NCP.MarkCardDirty 1716 . 2032) (NCP.CoerceToCard 2034 . 2343)) (2379 
3478 (NCP.CardSubstance 2389 . 3476)))))
STOP