(FILECREATED " 3-Sep-87 14:56:39" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH060.;1 9324   

      changes to:  (VARS PMIPATCH060COMS)
		   (FNS NC.DoNoteFileOp))


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

(PRETTYCOMPRINT PMIPATCH060COMS)

(RPAQQ PMIPATCH060COMS ((* * pmi 9/3/87: Fixes bug %#670 and unreported problems with Compact using 
			     wrong prompt window.)
			  (* * Changed in NCINTERFACE)
			  (FNS NC.DoNoteFileOp)))
(* * pmi 9/3/87: Fixes bug %#670 and unreported problems with Compact using wrong prompt 
window.)

(* * Changed in NCINTERFACE)

(DEFINEQ

(NC.DoNoteFileOp
  (LAMBDA (Op)                                               (* pmi: " 3-Sep-87 14:51")

          (* * Do a NoteFile op chosen from NC icon menu)



          (* * rht 7/2/86: Now calls NC.AbortSession with NC.NoteCardsIconWindow arg.)



          (* * rht 7/5/86: Added Read-only% Open entry.)



          (* * rht 7/17/86: Now calls NC.InspectAndRepairNoteFile instead of NC.ScavengerPhase1.)



          (* * pmi 12/4/86: Added NC.NoteCardsIconWindow argument to calls to NC.ListOfNoteFilesMenu for "Delete" and 
"Rename" operations)



          (* * rht 2/11/87: Now handles case when Op has unexpected value.)



          (* * rht 2/16/87: Added Close% w/o% confirm case.)



          (* * pmi 5/15/87: overhauled to use NC.NoticedNoteFileNamesMenu instead of NC.ListOfNoteFilesMenu.
	  Added "Create and Open" and "Create and Read-only Open" options.)



          (* * pmi 9/3/87: Now passes NC.NoteCardsIconWindow for InterestedWindow in calls to Compact functions.)


    (DECLARE (GLOBALVARS NC.NoteCardsIconWindow NC.MsgDelay))
    (SELECTQ Op
	       (Open% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										  
									   NC.NoteCardsIconWindow
										  (QUOTE 
										   Open% NoteFile))))
				    (if (NULL NoteFileName)
					then NIL
				      else (if (EQ NoteFileName (QUOTE NEW))
						 then (SETQ NoteFileName NIL))
					     (NC.OpenDatabaseFile NoteFileName NIL NIL NIL NIL NIL 
								    NIL NIL NIL NIL 
								    NC.NoteCardsIconWindow))))
	       (Read-only% Open (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										   
									   NC.NoteCardsIconWindow
										   (QUOTE 
										   Open% NoteFile))))
				     (if (NULL NoteFileName)
					 then NIL
				       else (if (EQ NoteFileName (QUOTE NEW))
						  then (SETQ NoteFileName NIL))
					      (NC.OpenDatabaseFile NoteFileName (QUOTE INPUT)
								     NIL NIL NIL NIL NIL NIL NIL NIL 
								     NC.NoteCardsIconWindow))))
	       (Checkpoint% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu NIL
											(QUOTE
											  OPEN)
											
									   NC.NoteCardsIconWindow
											(QUOTE
											  
									     Checkpoint% NoteFile))))
				          (if NoteFileName
					      then (NC.CheckpointDatabase (
									  NC.NoteFileFromFileName
										NoteFileName)
									      NIL NIL 
									   NC.NoteCardsIconWindow)
					    else (NC.PrintMsg NC.NoteCardsIconWindow NIL 
								  "Checkpoint cancelled."
								  (CHARACTER 13))
						   (DISMISS NC.MsgDelay)
						   (NC.ClearMsg NC.NoteCardsIconWindow T))))
	       (Close% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu NIL (QUOTE
										     OPEN)
										   
									   NC.NoteCardsIconWindow
										   (QUOTE 
										  Close% NoteFile))))
				     (if NoteFileName
					 then (NC.CloseNoteFile (NC.NoteFileFromFileName 
										     NoteFileName)
								    NC.NoteCardsIconWindow)
				       else (NC.PrintMsg NC.NoteCardsIconWindow NIL 
							     "Close cancelled."
							     (CHARACTER 13))
					      (DISMISS NC.MsgDelay)
					      (NC.ClearMsg NC.NoteCardsIconWindow T))))
	       (Close% w/o% confirm (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu NIL
										       (QUOTE
											 OPEN)
										       
									   NC.NoteCardsIconWindow
										       (QUOTE
											 
										  Close% NoteFile))))
				         (if NoteFileName
					     then (NC.CloseNoteFile (NC.NoteFileFromFileName
									  NoteFileName)
									NC.NoteCardsIconWindow NIL T)
					   else (NC.PrintMsg NC.NoteCardsIconWindow NIL 
								 "Close w/o confirm cancelled."
								 (CHARACTER 13))
						  (DISMISS NC.MsgDelay)
						  (NC.ClearMsg NC.NoteCardsIconWindow T))))
	       (Abort% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu NIL (QUOTE
										     OPEN)
										   
									   NC.NoteCardsIconWindow
										   (QUOTE 
										  Abort% NoteFile))))
				     (if NoteFileName
					 then (NC.AbortSession (NC.NoteFileFromFileName 
										     NoteFileName)
								   NC.NoteCardsIconWindow)
				       else (NC.PrintMsg NC.NoteCardsIconWindow NIL 
							     "Abort cancelled."
							     (CHARACTER 13))
					      (DISMISS NC.MsgDelay)
					      (NC.ClearMsg NC.NoteCardsIconWindow T))))
	       (Compact% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE
										       CLOSED)
										     
									   NC.NoteCardsIconWindow
										     (QUOTE 
										Compact% NoteFile))))
				       (if (NULL NoteFileName)
					   then NIL
					 else (if (EQ NoteFileName (QUOTE NEW))
						    then (SETQ NoteFileName NIL))
						(NC.CompactNoteFile NoteFileName NIL NIL 
								      NC.NoteCardsIconWindow))))
	       (Compact% In% Place (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE
											CLOSED)
										      
									   NC.NoteCardsIconWindow
										      (QUOTE 
										Compact% NoteFile))))
				        (if (NULL NoteFileName)
					    then NIL
					  else (if (EQ NoteFileName (QUOTE NEW))
						     then (SETQ NoteFileName NIL))
						 (NC.CompactNoteFile NoteFileName NIL T 
								       NC.NoteCardsIconWindow))))
	       (Inspect&Repair% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu
							       T
							       (QUOTE CLOSED)
							       NC.NoteCardsIconWindow
							       (QUOTE Inspect&Repair% NoteFile))))
					      (if (NULL NoteFileName)
						  then NIL
						else (if (EQ NoteFileName (QUOTE NEW))
							   then (SETQ NoteFileName NIL))
						       (NC.InspectAndRepairNoteFile NoteFileName 
										      NIL 
									   NC.NoteCardsIconWindow))))
	       (Read% Substances (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										    
									   NC.NoteCardsIconWindow
										    (QUOTE 
									 Inspect&Repair% NoteFile))))
				      (if (NULL NoteFileName)
					  then NIL
					else (if (EQ NoteFileName (QUOTE NEW))
						   then (SETQ NoteFileName NIL))
					       (NC.InspectAndRepairNoteFile NoteFileName T 
									   NC.NoteCardsIconWindow))))
	       (Copy% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										  
									   NC.NoteCardsIconWindow
										  (QUOTE 
										   Copy% NoteFile))))
				    (if (NULL NoteFileName)
					then NIL
				      else (if (EQ NoteFileName (QUOTE NEW))
						 then (SETQ NoteFileName NIL))
					     (NC.CopyNoteFile NoteFileName NIL 
								NC.NoteCardsIconWindow))))
	       (Rename% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										    
									   NC.NoteCardsIconWindow
										    (QUOTE 
										 Rename% NoteFile))))
				      (if (NULL NoteFileName)
					  then NIL
					else (if (EQ NoteFileName (QUOTE NEW))
						   then (SETQ NoteFileName NIL))
					       (NC.RenameNoteFile NoteFileName NIL 
								    NC.NoteCardsIconWindow))))
	       (Delete% NoteFile (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu T (QUOTE CLOSED)
										    
									   NC.NoteCardsIconWindow
										    (QUOTE 
										 Delete% NoteFile))))
				      (if (NULL NoteFileName)
					  then NIL
					else (if (EQ NoteFileName (QUOTE NEW))
						   then (SETQ NoteFileName NIL))
					       (NC.DeleteDatabaseFile NoteFileName 
									NC.NoteCardsIconWindow))))
	       (Create% NoteFile (NC.CreateDatabaseFile NIL NIL NIL NIL NIL NIL 
							  NC.NoteCardsIconWindow NIL NIL NIL NIL NIL 
							  NIL))
	       (Create% and% Open (NC.CreateDatabaseFile NIL NIL NIL NIL NIL NIL 
							   NC.NoteCardsIconWindow NIL NIL T NIL NIL 
							   NIL))
	       (LET ((NoteFileName (NC.NoticedNoteFileNamesMenu NIL (QUOTE EITHER)
								  NC.NoteCardsIconWindow)))
		    (if NoteFileName
			then (APPLY* Op (NC.NoteFileFromFileName NoteFileName)
					 NC.NoteCardsIconWindow))))))
)
(PUTPROPS PMIPATCH060 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (599 9242 (NC.DoNoteFileOp 609 . 9240)))))
STOP