(FILECREATED "16-Jul-86 19:33:28" {QV}<NOTECARDS>1.3K>RHTPATCH076.;1
 5066   

      changes to:  (VARS RHTPATCH076COMS))


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

(PRETTYCOMPRINT RHTPATCH076COMS)

(RPAQQ RHTPATCH076COMS
 ((* * Fix to a fix in RHTPATCH075)
			  (* * Change to NCINTERFACE)
			  (FNS NC.NoteFileOperations)))
(* * Fix to a fix in RHTPATCH075)


(* * Change to NCINTERFACE)


(DEFINEQ

(NC.NoteFileOperations

  (LAMBDA (NoteFile)                                         (* rht: "16-Jul-86 18:37")

                                                             (* Ask usere to choose which database operation.

							     Called from main menu whenselected fn.)


          (* * fgh 11/14/85 Updated to handle NoteFile object and per NoteFile menus.)




          (* * kirk 14Jan86 Added Close/Delete cards and changed the format)




          (* * fgh 6/13/86 Now sets BusyOperation of NF menu to something interesting.)




          (* * kirk 3Jul86 passed NoteFileMenuWindow to NC.CompactNoteFile)




          (* * fgh 7/5/86 Fixed above fix and put NoteFileMenuWindow is all calls.)




          (* * rht 7/5/86: Added read-only open to notefileops menu.)




          (* * kirk 7/14/86 Took comma out of FullFileName in NC.DeleteDatabaseFile call)



    (LET ((NoteFileMenu (fetch
 (NoteFile Menu) of
 NoteFile))
	  (Font NC.MenuFont)
	  (FullFileName (fetch
 (NoteFile FullFileName) of
 NoteFile))
	  NoteFileMenuWindow Menu)
         (
SPAWN.MOUSE
)
         (
SETQ
 NoteFileMenuWindow (
WFROMMENU
 NoteFileMenu))
         (
OR
 (
SETQ
 Menu (
WINDOWPROP
 NoteFileMenuWindow (
QUOTE
 DatabaseOperationsMenu)))
	       (
WINDOWPROP
 NoteFileMenuWindow (
QUOTE
 DatabaseOperationsMenu)
			     (
SETQ
 Menu
			       (create
 MENU
					 ITEMS ←(
BQUOTE
 ((Open (
NC.OpenDatabaseFile
 , NoteFile 
											NIL NIL NIL 
											NIL NIL NIL 
											NIL NIL NIL , 
									       NoteFileMenuWindow)
								 "Opens this NoteFile."
								 (SUBITEMS
								   (Read-only% Open
								     (
NC.OpenDatabaseFile

								       , NoteFile (
QUOTE
 INPUT)
								       NIL NIL NIL NIL NIL NIL NIL 
								       NIL , NoteFileMenuWindow)
								     
							     "Opens this NoteFile for read-only.")))
							   (Checkpoint (
NC.CheckpointDatabase

									 , NoteFile NIL NIL NIL NIL , 
									 NoteFileMenuWindow)
								       
						"Checkpoint this NoteFile, saving changed cards.")
							   (Close (
NC.CloseDatabaseFile
 , NoteFile 
											  , 
									       NoteFileMenuWindow)
								  "Closes this NoteFile.")
							   (Abort (
NC.AbortSession
 , NoteFile , 
									       NoteFileMenuWindow)
								  
					     "Close NF, deleteing changes since last checkpoint.")
							   (Compact (
NC.CompactNoteFile
 , NoteFile 
											  NIL NIL , 
									       NoteFileMenuWindow)
								    
							  "Compacts a NoteFile to a target file."
								    (SUBITEMS (
Compact% To% Target% File (
NC.CompactNoteFile
 , NoteFile NIL NIL , NoteFileMenuWindow)
			  "Compacts this NoteFile to a target file.")
									      (Compact% In% Place
										(
NC.CompactNoteFile

										  , NoteFile NIL T , 
									       NoteFileMenuWindow)
										
							       "Compacts this NoteFile in place.")))
							   (Inspect&Repair
							     (
NC.InspectAndRepairNoteFile
 , 
											 NoteFile NIL 
											    , 
									       NoteFileMenuWindow)
							     
						 "Inspects and optionally repairs this NoteFile."
							     (SUBITEMS (Read% Substances
									 (


								      
NC.InspectAndRepairNoteFile

									   , NoteFile T , 
									   NoteFileMenuWindow)
									 
"Inspects and optionally repairs a Notefile, but reads every substance.  This slows it WAY down.")))
							   (Copy (
NC.CopyNoteFile
 , NoteFile NIL , 
									       NoteFileMenuWindow)
								 
							 "Copies this notefile to a target file.")
							   (Rename (
NC.RenameNoteFile
 , NoteFile)
								   "Rename this NoteFile")
							   (Delete (
NC.DeleteDatabaseFile
 , 
											 NoteFile , 
									       NoteFileMenuWindow)
								   "Deletes this NoteFile.")))
					 CHANGEOFFSETFLG ←(
QUOTE
 Y)
					 MENUOFFSET ←(
CONS
 -1 0)
					 CENTERFLG ← NIL
					 TITLE ← "NoteFile Ops"
					 MENUTITLEFONT ← Font
					 MENUFONT ← Font
					 ITEMHEIGHT ←(
IPLUS
 (
FONTPROP
 Font (
QUOTE
 HEIGHT))
							      1)
					 WHENSELECTEDFN ←(
FUNCTION
 (LAMBDA (Item Menu Button)
					     (
WINDOWPROP
 (
WFROMMENU
 (fetch
 (NoteFile Menu)
									   of
 (
GETMENUPROP

										  Menu
										  (
QUOTE
 NoteFile)))
									)
							   (
QUOTE
 BusyOperation)
							   (
CAR
 Item))
					     (
DEFAULTWHENSELECTEDFN
 Item Menu Button)))))))
         (
PUTMENUPROP
 Menu (
QUOTE
 NoteFile)
			NoteFile)
         (
MENU
 Menu))))
)
(PUTPROPS RHTPATCH076 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (434 4984 (NC.NoteFileOperations 444 . 4982)))))
STOP