(FILECREATED "23-Feb-87 14:07:29" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH206.;1
 3065   

      changes to:  (VARS RHTPATCH206COMS))


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

(PRETTYCOMPRINT RHTPATCH206COMS)

(RPAQQ RHTPATCH206COMS
 ((* * Adds an item to the notecards icon CardOps menu to control the 
			     tedit-killer process.)
	(FILES (FROM {QV}<TRIGG>LISP>)
	       TEDIT-PROCESS-KILLER)
	(* * Changes to NCINTERFACE)
	(* * This is to add a new TEdit% Killer% On menu item to NC.CardOpsItems Note that the 
	   ADDVARS in NCINTERFACECOMS needs to be changed.)
	(P (EDITV NC.CardOpsItems
		  (INSERT (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.")))
			  AFTER NF% Indicators% On)))
	(* * Following is just so loading this patch works. Should NOT be integrated.)
	(VARS (NC.CardOpsMenu NIL))))
(* * Adds an item to the notecards icon CardOps menu to control the tedit-killer process.)


(FILESLOAD (FROM {QV}<TRIGG>LISP>)
	   TEDIT-PROCESS-KILLER)
(* * Changes to NCINTERFACE)


(* * This is to add a new TEdit% Killer% On menu item to NC.CardOpsItems Note that the ADDVARS
 in NCINTERFACECOMS needs to be changed.)


(EDITV NC.CardOpsItems (INSERT (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.")))
			       AFTER NF% Indicators% On))
(* * Following is just so loading this patch works. Should NOT be integrated.)



(RPAQQ NC.CardOpsMenu
 NIL)
(PUTPROPS RHTPATCH206 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP