(FILECREATED "17-Mar-86 11:33:56" {QV}<NOTECARDS>1.3K>FGHPATCH024.;1
 1803   

      changes to:  (VARS FGHPATCH024COMS)
		   (FNS NC.MakeTEditMiddleMenu))


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

(PRETTYCOMPRINT FGHPATCH024COMS)

(RPAQQ FGHPATCH024COMS
 ((* * TEDIT expanded menus fixed)
			  (FNS NC.MakeTEditMiddleMenu)))
(* * TEDIT expanded menus fixed)


(DEFINEQ

(NC.MakeTEditMiddleMenu

  (LAMBDA NIL                                                (* fgh: "17-Mar-86 11:32")


          (* * Make the Middle Button Menu fort a Tedit card.)



    (
\TEDIT.CREATEMENU
 (
DREMOVE
 NIL (
BQUOTE
 ((Restart% Editor (
FUNCTION
 NC.ResetTEdit)
								    
					      "Resets and restarts the editor for this Card/Box.")
						   ,
						   (
AND
 NC.AnnoFlg (for
 Item
									in
 (fetch
 (
MENU
 ITEMS)
										of
 
									       TEDIT.DEFAULT.MENU)
									when
 (
EQ
 (
CAR
 Item)
										     (
QUOTE
 
											 Annotate))
									do
 (
RETURN
 Item)))
						   (Advanced% Editing% Menu (
QUOTE
 Expanded% Menu)
									    NIL
									    (SUBITEMS Expanded% Menu 
										 Character% Looks 
									    Paragraph% Formatting 
										     Page% Layout))
						   (Change% Font (
FUNCTION
 NC.\TEDIT.LOOKS)
								 
							 "Changes the font of the selected text.")
						   (Hardcopy (
FUNCTION
 TEDIT.HARDCOPY)
							     "Send a copy to the default printer.")
						   ,
						   (for
 Item in
 (fetch
 (
MENU
 ITEMS)
								       of
 TEDIT.DEFAULT.MENU)
						      when
 (
EQ
 (
CAR
 Item)
								   (
QUOTE
 Edit% Marks))
						      do
 (
RETURN
 Item))))))))
)
(PUTPROPS FGHPATCH024 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (400 1721 (NC.MakeTEditMiddleMenu 410 . 1719)))))
STOP