(FILECREATED "20-Sep-86 21:47:55" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH110.;1
 2025   

      changes to:  (VARS RHTPATCH110COMS))


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

(PRETTYCOMPRINT RHTPATCH110COMS)

(RPAQQ RHTPATCH110COMS
 ((* * Fixes call to NC.DeleteNoteCards in session icon menu.)
			  (* * This is here just so that loading this patch will cause menu to be 
			     recomputed.)
			  (VARS (NC.CardOpsMenu NIL)
				(NC.CardOpsItems NIL))
			  (* * Change to the ADDVARS near the top of NCINTERFACECOMS)
			  (ADDVARS (NC.CardOpsItems (Close% Cards (NC.CloseNoteCards NIL NIL NIL 
									   NC.NoteCardsIconWindow)
								  "Delete several note cards.")
						    (Delete% Cards (NC.DeleteNoteCards NIL T NIL 
									   NC.NoteCardsIconWindow)
								   "Delete several note cards.")
						    (NF% Indicators% On (NC.ShowNoteFiles)
									
				    "Turn on the NoteFile indicator for all currently open cards"
									(SUBITEMS
									  (Indicators% Off
									    (NC.ShowNoteFiles T)
									    
				    "Turn off any NoteFile indicator on each card on the screen.")))))
			  ))
(* * Fixes call to NC.DeleteNoteCards in session icon menu.)


(* * This is here just so that loading this patch will cause menu to be recomputed.)



(RPAQQ NC.CardOpsMenu
 NIL)

(RPAQQ NC.CardOpsItems
 NIL)
(* * Change to the ADDVARS near the top of NCINTERFACECOMS)



(ADDTOVAR NC.CardOpsItems
 (Close% Cards (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
					  "Delete several note cards.")
			    (Delete% Cards (NC.DeleteNoteCards NIL T NIL NC.NoteCardsIconWindow)
					   "Delete several note cards.")
			    (NF% Indicators% On (NC.ShowNoteFiles)
						
				    "Turn on the NoteFile indicator for all currently open cards"
						(SUBITEMS (Indicators% Off (NC.ShowNoteFiles T)
									   
				    "Turn off any NoteFile indicator on each card on the screen."))))
(PUTPROPS RHTPATCH110 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP