(FILECREATED " 5-Nov-87 16:02:21" {QV}<NOTECARDS>1.3KNEXT>RGPATCH064.;1
 2477   

      changes to:  (VARS RGPATCH064COMS)
		   (FNS NCP.DisplayCard NCP.OpenCard))


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

(PRETTYCOMPRINT RGPATCH064COMS)

(RPAQQ RGPATCH064COMS
 ((* * RG 11/5/87 oops. changed order of ReadOnly arg to these fns so as not 
			    to interfere with existing code.)
			 (* * changes to NCPROGINT)
			 (FNS NCP.DisplayCard NCP.OpenCard)))
(* * RG 11/5/87 oops. changed order of ReadOnly arg to these fns so as not to interfere with 
existing code.)


(* * changes to NCPROGINT)


(DEFINEQ

(NCP.DisplayCard

  [LAMBDA (Card Region/Position TypeSpecificArgs ReadOnly)   (* Randy.Gobbel " 5-Nov-87 16:01")


          (* * display Card on the screen.)




          (* * rht 11/16/86: Changed call to NCP.ReportError)




          (* * rg 11/4/87 added ReadOnly)



    (if
 (
NC.ValidCardP
 Card)
	then
 (if
 (
NCP.CardCachedP
 Card)
		   then
 [LET ((OldProc (
TTY.PROCESS
)))
			       (
PROG1
 (
NC.EditNoteCard
 Card (
OR
 ReadOnly
								      (fetch
 (NoteFile ReadOnlyFlg)
									 of
 (fetch
 (Card NoteFile)
										 of
 Card)))
							   Region/Position TypeSpecificArgs)
					(
AND
 (
PROCESSP
 OldProc)
					       (
TTY.PROCESS
 OldProc]
		 else
 (
NCP.ReportError
 (
QUOTE
 NCP.DisplayCard)
					   (
CONCAT
 Card 
					     " must be cached before displayed: NCP.DisplayCard.")))
      else
 (
NCP.ReportError
 (
QUOTE
 NCP.DisplayCard)
				(
CONCAT
 Card " not an existing card or box."])

(NCP.OpenCard

  [LAMBDA (Card Region/Position TypeSpecificArgs ReadOnly)   (* Randy.Gobbel " 5-Nov-87 16:01")


          (* * Cache this card, if necessary, and display on the screen.)




          (* * rht 11/16/86: Changed call to NCP.ReportError)



    (if
 (
NC.ValidCardP
 Card)
	then
 [LET ((OldProc (
TTY.PROCESS
)))
		    (
PROG1
 (
NC.EditNoteCard
 Card (
OR
 ReadOnly (fetch
 (NoteFile ReadOnlyFlg)
								       of
 (fetch
 (Card NoteFile)
									       of
 Card)))
						Region/Position TypeSpecificArgs)
			     (
AND
 (
PROCESSP
 OldProc)
				    (
TTY.PROCESS
 OldProc]
      else
 (
NCP.ReportError
 (
QUOTE
 NCP.OpenCard)
				(
CONCAT
 Card " not an existing card or box."])
)
(PUTPROPS RGPATCH064 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (636 2396 (NCP.DisplayCard 646 . 1639) (NCP.OpenCard 1641 . 2394)))))
STOP