(FILECREATED "26-Mar-85 23:06:42" {PHYLUM}<NOTECARDS>RELEASE1.2>FGHPATCH006.;1
 1568   

      changes to:  (VARS FGHPATCH006COMS))


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

(PRETTYCOMPRINT FGHPATCH006COMS)

(RPAQQ FGHPATCH006COMS
 ((FNS NC.MakeTEditMiddleMenu)))
(DEFINEQ

(NC.MakeTEditMiddleMenu

  (LAMBDA NIL                                                (* fgh: "26-Mar-85 22:57")


          (* * 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 (
FUNCTION
 \TEDIT.EXPANDED.MENU)
								      
					  "Brings up the menu for the advanced editing commands.")
					     (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 FGHPATCH006 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (299 1486 (NC.MakeTEditMiddleMenu 309 . 1484)))))
STOP