(FILECREATED " 3-Apr-86 13:11:10" {QV}<PEDERSEN>LISP>RESETPLOTMENUS.;1
 3420   

      changes to:  (VARS RESETPLOTMENUSCOMS)
		   (FNS RESETPLOTMENUS))


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

(PRETTYCOMPRINT RESETPLOTMENUSCOMS)

(RPAQQ RESETPLOTMENUSCOMS
 ((FNS RESETPLOTMENUS)))
(DEFINEQ

(RESETPLOTMENUS

  [LAMBDA (PLOT)                                             (* jop: " 3-Apr-86 13:10")


          (* *)



    (
PROG
 [[MIDDLEMENUITEMS (
QUOTE
 ((Label TOGGELLABEL "Toggle label on/off"
					       (SUBITEMS (Relabel RELABELSELECTEDPLOTOBJECT 
								  "Change label")))
					 (Delete DELETEPLOTOBJECT "Delete object"]
	     (RIGHTMENUITEMS (
QUOTE
 ((Layout PLOT.SKETCH.CREATE "Create a sketch of the PLOT")
					(Redraw REDRAWPLOTWINDOW "Redraw plot")
					[Rescale RESCALEPLOT "Rescale plot axes"
						 (SUBITEMS (X% Axis
							     (
RESCALEPLOT
 (
QUOTE
 X))
							     "Rescale X axis"
							     (SUBITEMS (Automatic
									 (
RESCALEPLOT
 (
QUOTE

											  X))
									 "Rescale automatically")
								       (Manual (
MANUALRESCALE

										 (
QUOTE
 X))
									       "Rescale manually")))
							   (Y% Axis
							     (
RESCALEPLOT
 (
QUOTE
 Y))
							     "Rescale Y axis"
							     (SUBITEMS (Automatic
									 (
RESCALEPLOT
 (
QUOTE

											  Y))
									 "Rescale automatically")
								       (Manual (
MANUALRESCALE

										 (
QUOTE
 Y))
									       "Rescale manually"]
					(Extend TOGGLEEXTENDEDAXES "Extend plot axes on/off"
						(SUBITEMS (X% Axis (
TOGGLEEXTENDEDAXES

								     (
QUOTE
 X))
								   "Extend X axis on/off")
							  (Y% Axis (
TOGGLEEXTENDEDAXES

								     (
QUOTE
 Y))
								   "Extend Y axis on/off")))
					(Labels WHICHLABEL "Relabel plot"
						(SUBITEMS (Title (
ASKFORLABEL
 (
QUOTE
 TOP))
								 "Title plot")
							  (Left (
ASKFORLABEL
 (
QUOTE
 LEFT))
								"Label left of plot")
							  (Bottom (
ASKFORLABEL
 (
QUOTE
 BOTTOM))
								  "Label bottom of plot")
							  (Right (
ASKFORLABEL
 (
QUOTE
 RIGHT))
								 "Label right of plot")))
					(Tics TOGGLETICS "Tics on or off"
					      (SUBITEMS (Top (
TOGGLETICS
 (
QUOTE
 TOP))
							     "Top tics on/off")
							(Left (
TOGGLETICS
 (
QUOTE
 LEFT))
							      "Left tics on/off")
							(Bottom (
TOGGLETICS
 (
QUOTE
 BOTTOM))
								"Bottom tics on/off")
							(Right (
TOGGLETICS
 (
QUOTE
 RIGHT))
							       "Right tics on/off")))
					(Undelete UNDELETEPLOTOBJECT "Undelete last deleted object"
						  (SUBITEMS (Top (
UNDELETEPLOTOBJECT
 (
QUOTE

											 TOP))
								 "Undelete last deleted object")
							    (Select (
UNDELETEPLOTOBJECT

								      (
QUOTE
 SELECT))
								    "Select object to undelete")
							    (Above (
UNDELETEPLOTOBJECT

								     (
QUOTE
 ABOVE))
								   
						     "Undelete all objects above selected object")
							    (All (
UNDELETEPLOTOBJECT
 (
QUOTE

											 ALL))
								 "Undelete all deleted objects")))
					(Fixed% Menu TOGGLEFIXEDMENU "Fix Plot menu"]
	    (
PLOTMENUITEMS
 PLOT (
QUOTE
 MIDDLE)
			     (
COPY
 MIDDLEMENUITEMS))
	    (
PLOTMENUITEMS
 PLOT (
QUOTE
 RIGHT)
			     (
COPY
 RIGHTMENUITEMS))
	    (
RETURN
 PLOT])
)
(PUTPROPS RESETPLOTMENUS COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (318 3335 (RESETPLOTMENUS 328 . 3333)))))
STOP