(FILECREATED "19-Dec-86 10:45:37" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH013.;1
 5017   

      changes to:  (VARS PMIPATCH013COMS))


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

(PRETTYCOMPRINT PMIPATCH013COMS)

(RPAQQ PMIPATCH013COMS
 ((* * pmi 12/19/86 This fix corrects the spelling of "Permanently" in the 
			     Delete Card menu item)
			  (* * Change to NCTYPESMECH)
			  (GLOBALVARS NC.DefaultLeftButtonMenuItems)
			  (* * Substitute this initialization of NC.DefaultLeftButtonMenuItems for 
			     the one in the INITVARS of NCTYPESMECH)
			  (VARS (NC.DefaultLeftButtonMenuItems
				  (BQUOTE ((Edit% Property% List (FUNCTION NC.EditProperties)
								 
					"Brings up an editor for the property list of this card.")
					   (Show% Links (FUNCTION NC.ShowLinks)
							
					   "Brings up a list of the links to and from this card.")
					   (Show% Info (FUNCTION NC.ShowInfo)
						       
			     "Brings up a window containing special information about this card."
						       (SUBITEMS (Indicate% NoteFile
								   (FUNCTION NC.AttachNoteFileName)
								   
							"Shows the name of this card's NoteFile.")))
					   (Designate% FileBoxes
					     (FUNCTION NC.AddParents)
					     "File this note card in one or more file boxes."
					     (SUBITEMS (Unfile% from% FileBoxes
							 (FUNCTION NC.UnfileNoteCard)
							 
					   "Remove this card from one or more of its file boxes.")))
					   (Assign% Title (FUNCTION NC.AssignTitle)
							  "Assigns a (new) title to this note card.")
					   (Title/FileBoxes (FUNCTION (LAMBDA (TextStream)
									      (NC.AssignTitle 
										       TextStream)
									      (NC.AddParents 
										       TextStream)))
							    
					    "Do both assigning of title and filing in fileboxes.")
					   , NC.LocalInsertLinkMenuItem
					   (Close% and% Save (FUNCTION CLOSEW)
							     
					  "Close this note card after saving it in the NoteFile."
							     (SUBITEMS (Close% and% Save
									 (FUNCTION CLOSEW)
									 
					  "Close this note card after saving it in the NoteFile.")
								       (Close% w/o% Saving
									 (FUNCTION 
									     NC.QuitWithoutSaving)
									 
		      "Close this note card without saving any changes made since the last Save.")
								       (Save% in% NoteFile
									 (FUNCTION NC.CardSaveFn)
									 
				       "Save this card in the NoteFile but don't close the card.")
								       (Delete% Card
									 (FUNCTION NC.DeleteNoteCards)
									 
						"Permanently delete this card from the NoteFile.")))))
				  ))))
(* * pmi 12/19/86 This fix corrects the spelling of "Permanently" in the Delete Card menu item
)


(* * Change to NCTYPESMECH)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.DefaultLeftButtonMenuItems)
)
(* * Substitute this initialization of NC.DefaultLeftButtonMenuItems for the one in the 
INITVARS of NCTYPESMECH)



(RPAQ NC.DefaultLeftButtonMenuItems
 (BQUOTE ((Edit% Property% List (FUNCTION NC.EditProperties)
								     
					"Brings up an editor for the property list of this card.")
					       (Show% Links (FUNCTION NC.ShowLinks)
							    
					   "Brings up a list of the links to and from this card.")
					       (Show% Info (FUNCTION NC.ShowInfo)
							   
			     "Brings up a window containing special information about this card."
							   (SUBITEMS (Indicate% NoteFile
								       (FUNCTION 
									    NC.AttachNoteFileName)
								       
							"Shows the name of this card's NoteFile.")))
					       (Designate% FileBoxes
						 (FUNCTION NC.AddParents)
						 "File this note card in one or more file boxes."
						 (SUBITEMS (Unfile% from% FileBoxes
							     (FUNCTION NC.UnfileNoteCard)
							     
					   "Remove this card from one or more of its file boxes.")))
					       (Assign% Title (FUNCTION NC.AssignTitle)
							      
						       "Assigns a (new) title to this note card.")
					       (Title/FileBoxes (FUNCTION (LAMBDA (TextStream)
										  (NC.AssignTitle
										    TextStream)
										  (NC.AddParents
										    TextStream)))
								
					    "Do both assigning of title and filing in fileboxes.")
					       , NC.LocalInsertLinkMenuItem
					       (Close% and% Save
						 (FUNCTION CLOSEW)
						 
					  "Close this note card after saving it in the NoteFile."
						 (SUBITEMS (Close% and% Save (FUNCTION CLOSEW)
									     
					  "Close this note card after saving it in the NoteFile.")
							   (Close% w/o% Saving
							     (FUNCTION NC.QuitWithoutSaving)
							     
		      "Close this note card without saving any changes made since the last Save.")
							   (Save% in% NoteFile
							     (FUNCTION NC.CardSaveFn)
							     
				       "Save this card in the NoteFile but don't close the card.")
							   (Delete% Card (FUNCTION NC.DeleteNoteCards)
									 
						"Permanently delete this card from the NoteFile.")))))
)
(PUTPROPS PMIPATCH013 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP