(FILECREATED "16-Mar-87 15:48:40" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH207.;2
 4170   

      changes to:  (VARS RHTPATCH207COMS)

      previous date: "27-Feb-87 22:26:21" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH207.;1)


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

(PRETTYCOMPRINT RHTPATCH207COMS)

(RPAQQ RHTPATCH207COMS
 ((* * Fixes bug where TEDIT-PROCESS-KILLER wasn't loaded into latest sysout. 
			     This loads it and recomputes the CardOps menu.)
	(* * The following should be put into NOTECARDS coms. Perhaps in the same FILES expression 
	   with STYLESHEET.)
	(FILES (FROM LISPUSERS)
	       TEDIT-PROCESS-KILLER)
	(P (START-TEDIT-KILLER))
	(* * The rest of this stuff should not be integrated. It's just to recompute make the Card 
	   Ops menu get recomputed.)
	(VARS (NC.CardOpsMenu NIL)
	      (NC.CardOpsItems (QUOTE ((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.")))
				       (TEdit% Killer% On
					 (START-TEDIT-KILLER)
					 "Start the TEDIT-KILLER process."
					 (SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
								       
								 "Stop the TEDIT-KILLER process.")
						   (New% Process% Limit
						     (SETQ TEDIT-PROCESS-LIMIT
							   (OR (NUMBERP (RNUMBER (CONCAT 
								      "Old TEdit process limit: "
											 
									      TEDIT-PROCESS-LIMIT)
										 NIL NIL NIL T))
							       TEDIT-PROCESS-LIMIT))
						     "Change value of TEdit process limit.")
						   (New% Wait% Time
						     (SETQ TEDIT-KILLER-WAIT-TIME
							   (OR (NUMBERP (RNUMBER (CONCAT 
								   "Old TEdit killer wait time: "
											 
									   TEDIT-KILLER-WAIT-TIME)
										 NIL NIL NIL T))
							       TEDIT-KILLER-WAIT-TIME))
						     "Change value of TEdit killer wait time."))))))))
)
(* * Fixes bug where TEDIT-PROCESS-KILLER wasn't loaded into latest sysout. This loads it and 
recomputes the CardOps menu.)


(* * The following should be put into NOTECARDS coms. Perhaps in the same FILES expression 
with STYLESHEET.)


(FILESLOAD (FROM LISPUSERS)
	   TEDIT-PROCESS-KILLER)
(START-TEDIT-KILLER)
(* * The rest of this stuff should not be integrated. It's just to recompute make the Card Ops
 menu get recomputed.)



(RPAQQ NC.CardOpsMenu
 NIL)

(RPAQQ 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.")))
			  (TEdit% Killer% On (START-TEDIT-KILLER)
					     "Start the TEDIT-KILLER process."
					     (SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
									   
								 "Stop the TEDIT-KILLER process.")
						       (New% Process% Limit
							 (SETQ TEDIT-PROCESS-LIMIT
							       (OR (NUMBERP (RNUMBER (CONCAT 
								      "Old TEdit process limit: "
											     
									      TEDIT-PROCESS-LIMIT)
										     NIL NIL NIL T))
								   TEDIT-PROCESS-LIMIT))
							 "Change value of TEdit process limit.")
						       (New% Wait% Time
							 (SETQ TEDIT-KILLER-WAIT-TIME
							       (OR (NUMBERP (RNUMBER (CONCAT 
								   "Old TEdit killer wait time: "
											     
									   TEDIT-KILLER-WAIT-TIME)
										     NIL NIL NIL T))
								   TEDIT-KILLER-WAIT-TIME))
							 "Change value of TEdit killer wait time."))))
)
(PUTPROPS RHTPATCH207 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP