(FILECREATED "15-Jan-88 11:09:33" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH077.;1
 1593   

      changes to:  (VARS PMIPATCH077COMS))


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

(PRETTYCOMPRINT PMIPATCH077COMS)

(RPAQQ PMIPATCH077COMS
 ((* * pmi 1/15/88: A few programmer's interface functions that I needed for 
			     History card hacking, and thought would be of general interest:)
			  (* * New for NCPROGINT)
			  (FNS NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp)))
(* * pmi 1/15/88: A few programmer's interface functions that I needed for History card 
hacking, and thought would be of general interest:)


(* * New for NCPROGINT)


(DEFINEQ

(NCP.CoerceToInterestedWindow

  (LAMBDA (WinOrCardOrNoteFile)                              (* pmi: "21-Oct-87 15:56")


          (* * pmi 10/21/87: Created to give prog int users the ability to get a reasonable window from various inputs.)



    (
NC.CoerceToInterestedWindow
 WinOrCardOrNoteFile)))

(NCP.NewCardP

  (LAMBDA (Card)                                             (* pmi: "21-Oct-87 15:54")


          (* * pmi 10/21/87: First created. Allows prog int users to tell if a card has been saved yet.)



    (
NC.FetchNewCardFlg
 Card)))

(NCP.NoteFileAddProp

  (LAMBDA (NoteFile PROP NEWVALUE)                           (* pmi: "23-Oct-87 15:02")


          (* * Prog. int. way into NC.NoteFileAddProp.)



    (
NC.NoteFileAddProp
 NoteFile PROP NEWVALUE)))
)
(PUTPROPS PMIPATCH077 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (692 1511 (NCP.CoerceToInterestedWindow 702 . 1015) (NCP.NewCardP 1017 . 1274) (
NCP.NoteFileAddProp 1276 . 1509)))))
STOP