(FILECREATED "19-Feb-87 18:31:25" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH205.;1
 1957   

      changes to:  (VARS RHTPATCH205COMS)
		   (FNS NCP.OpenNoteFile))


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

(PRETTYCOMPRINT RHTPATCH205COMS)

(RPAQQ RHTPATCH205COMS
 ((* * Fix to bug #391: NCP.OpenNoteFile now handles MenuPosition arg 
			     properly.)
			  (* * Change to NCPROGINT)
			  (FNS NCP.OpenNoteFile)))
(* * Fix to bug #391: NCP.OpenNoteFile now handles MenuPosition arg properly.)


(* * Change to NCPROGINT)


(DEFINEQ

(NCP.OpenNoteFile

  (LAMBDA (NoteFileOrFileName Don'tCreateFlg Convertw/oConfirmFlg QuietFlg MenuPosition ReadOnlyFlg 
			      Don'tCreateInterfaceFlg)       (* rht: "19-Feb-87 18:29")


          (* * Prog's intface version of opening a notefile.)




          (* * rht 7/7/86: Now takes QuietFlg and MenuPosition arg. Takes either NoteFile object or file name.)




          (* * rht 7/16/86: Added ReadOnlyFlg arg.)




          (* * rht 7/26/86: Added Don'tCreateInterfaceFlg)




          (* * Fix to bug #391: Now calls NC.OpenNoteFile instead of NC.OpenDatabaseFile.)



    (if
 (type?
 NoteFile NoteFileOrFileName)
	then
 (
NC.OpenNoteFile
 NoteFileOrFileName NIL NIL Don'tCreateFlg Convertw/oConfirmFlg NIL 
				  NIL Don'tCreateInterfaceFlg NIL NIL NIL NIL MenuPosition QuietFlg
				  (
AND
 ReadOnlyFlg (
QUOTE
 INPUT))
				  NIL)
      else
 (LET ((FileNameWithExt (
NC.DatabaseFileName
 "Name of NoteFile to open:" " -- " T NIL 
							   NoteFileOrFileName)))
	          (
AND
 FileNameWithExt
			 (
NC.OpenNoteFile
 FileNameWithExt NIL NIL Don'tCreateFlg 
					    Convertw/oConfirmFlg NIL NIL Don'tCreateInterfaceFlg NIL 
					    NIL NIL NIL MenuPosition QuietFlg (
AND
 ReadOnlyFlg
										     (
QUOTE
 INPUT))
					    NIL))))))
)
(PUTPROPS RHTPATCH205 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (557 1875 (NCP.OpenNoteFile 567 . 1873)))))
STOP