DIRECTORY
FS USING [ComponentPositions, Error, ExpandName],
Graph USING [BackgroundIndex, CaretIndex, ColorMap, ColorMode, Error, GraphHandle, GraphProc, ROPE, Viewer],
GraphCleanUp USING [CleanUpHandle],
GraphOps USING [Lock, Unlock],
GraphPrivate USING [CallWithLock, GetGraph, PaintAll, Print, RemoveAllCurves, ShowChart, ShowController, SwitchAuto, SwitchCaretVisibility, SwitchCaretBlinking, SwitchSlope, SwitchTarget, SwitchGrid, UserEditAllowed, WriteGraphFile, WriteTextFile],
GraphUtil USING [BlinkMsg, ControllerNotNil, HandleFromViewer, HandleNotNil, ReplaceFileExt, SetCursorForBackgroundIndex, UseCedarColors, UseDefaultColors, UseMyColors, WDirOfViewer],
Menus USING [AppendMenuEntry, CreateEntry, CreateMenu, GetNumberOfLines, Menu, MenuLine, MenuProc, MouseButton],
PopUpMenu USING [RequestSelection],
Rope USING [Concat, Find, IsEmpty],
Terminal USING [ColorCursorPresentation, Current, SetColorCursorPresentation, Virtual],
TiogaMenuOps USING [AllLevels, FewerLevels, FirstLevelOnly, MoreLevels],
ViewerBLT USING [ChangeNumberOfLines],
ViewerOps USING [FindViewer, MoveViewer, OpenIcon, PaintViewer, SaveViewer, TopViewer],
ViewerTools USING [GetSelectionContents, MakeNewTextViewer];

GraphMenus: CEDAR MONITOR
IMPORTS FS, Graph, GraphCleanUp, GraphOps, GraphPrivate, GraphUtil, Menus, PopUpMenu, Rope, Terminal, TiogaMenuOps, ViewerBLT, ViewerOps, ViewerTools
EXPORTS GraphPrivate = { OPEN Graph, GraphOps, GraphPrivate, GraphUtil;

ControllerMenus: PUBLIC PROC [] RETURNS [menu: Menus.Menu] = {
ENABLE UNWIND => NULL;
menu _ Menus.CreateMenu[2]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry[name: "Chart", proc: ShowChartProc]];
Menus.AppendMenuEntry
[menu, Menus.CreateEntry[name: "Spec", proc: ShowSpecProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry[name: "Values", proc: ShowXYsProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry[name: "Table", proc: ShowTableProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry[name: "Levels", proc: LevelsProc]]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "AutoDiv", proc: AutoDivisionsProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "AutoBounds", proc: AutoBoundsProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "Xhair1", proc: PrimXhairProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "Xhair2", proc: SecXhairProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "Slope", proc: SlopeProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "TextCaret", proc: TextCaretProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "TargetX", proc: TargetXProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "TargetY", proc: TargetYProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "GridX", proc: GridXProc], 1]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "GridY", proc: GridYProc], 1]; 

Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "FirstLevelOnly", proc: FirstLevelOnlyProc], 2]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "MoreLevels", proc: MoreLevelsProc], 2]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "FewerLevels", proc: FewerLevelsProc], 2]; 
Menus.AppendMenuEntry[
menu, Menus.CreateEntry[name: "AllLevels", proc: AllLevelsProc], 2]; 

}; -- ControllerMenus
ShowSpecProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF ControllerNotNil[handle.controller] THEN { OPEN handle.controller;
IF NOT specVisible THEN {
specVisible _ TRUE; -- rule always goes with spec.
xysVisible _ tableVisible _ FALSE;
ViewerOps.MoveViewer[viewer: xys, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
IF table # NIL THEN ViewerOps.MoveViewer[
viewer: table, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
ViewerOps.MoveViewer[viewer: spec, x: 0, y: 0, w: viewer.ww, h: 400, paint: TRUE];
};
};
};
CallWithLock[handle, proc];
}; -- ShowSpecProc

ShowXYsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF ControllerNotNil[handle.controller] THEN { OPEN handle.controller;
IF NOT xysVisible THEN {
xysVisible _ TRUE;
specVisible _ tableVisible _ FALSE; -- rule always goes with spec.
ViewerOps.MoveViewer[viewer: spec, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
IF table # NIL THEN ViewerOps.MoveViewer[
viewer: table, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
ViewerOps.MoveViewer[viewer: xys, x: 0, y: 0, w: viewer.ww, h: 1000, paint: TRUE];
};
};
};
CallWithLock[handle, proc];
}; -- ShowXYsProc

ShowTableProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF ControllerNotNil[handle.controller] THEN { OPEN handle.controller;
IF NOT tableVisible THEN {
tableVisible _ TRUE;
specVisible _ xysVisible _ FALSE; -- rule always goes with spec.
ViewerOps.MoveViewer[viewer: spec, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
ViewerOps.MoveViewer[viewer: xys, x: 1000, y: 0, w: 0, h: 0, paint: FALSE];
IF table # NIL THEN ViewerOps.MoveViewer[
viewer: table, x: 0, y: 0, w: viewer.ww, h: 1000, paint: TRUE];
};
};
};
CallWithLock[handle, proc];
}; -- ShowTableProc

ShowChartProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
Lock[handle];
ShowChart[handle]; -- will unlock handle. - No more, 11/13/85.
Unlock[handle]; -- added this on 11/13/85.
}; -- ShowChartProc

LevelsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
IF HandleNotNil[handle] THEN {
Lock[handle]; { OPEN handle;
numLines: Menus.MenuLine _ Menus.GetNumberOfLines[controller.menu];
SELECT numLines FROM
2 => numLines _ 3;
3 => numLines _ 2;
ENDCASE => ERROR;
ViewerBLT.ChangeNumberOfLines[controller.viewer, numLines];
}; Unlock[handle];
};
}; -- SwitchesProc

SwitchIt: PROC [wasOn: BOOL, mouseButton: Menus.MouseButton, label: ROPE] RETURNS [BOOL] = {
RETURN[SELECT mouseButton FROM
red => NOT wasOn,
blue => wasOn,
ENDCASE => SELECT PopUpMenu.RequestSelection[
label: label, choice: LIST["on (red)", "off (blue)"], default: 1] FROM
1 => NOT wasOn,
2 => wasOn,
ENDCASE => FALSE];
}; -- SwitchIt

AutoDivisionsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
IF SwitchIt[graph.auto[divisions], mouseButton, "Auto Divisions"] THEN SwitchAuto[handle, divisions];
};
CallWithLock[handle, proc];
}; -- AutoDivisionsProc

AutoBoundsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
IF SwitchIt[graph.auto[bounds], mouseButton, "Auto Bounds"] THEN SwitchAuto[handle, bounds];
};
CallWithLock[handle, proc];
}; -- AutoBoundsProc

PrimXhairProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
SwitchCaret[parent, mouseButton, primary, shift];
};

SecXhairProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
SwitchCaret[parent, mouseButton, secondary, shift];
};

TextCaretProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
SwitchCaret[parent, mouseButton, text, shift];
};

SwitchCaret: PROC[parent: REF ANY, mouseButton: Menus.MouseButton, index: CaretIndex, shift: BOOL] = {
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
IF shift THEN {
IF SwitchIt[chart.caretState[index].toBlink, mouseButton, "Blinking"] THEN {
SwitchCaretBlinking[handle, index];
IF chart.caretState[index].toBlink AND NOT graph.caret[index].on THEN
SwitchCaretVisibility[handle, index];
}
}
ELSE IF SwitchIt[graph.caret[index].on, mouseButton, "Caret"] THEN SwitchCaretVisibility[handle, index];
};
CallWithLock[handle, proc];
}; -- SwitchCaret

SlopeProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
IF SwitchIt[graph.showSlope, mouseButton, "Slope"] THEN SwitchSlope[handle];
};
CallWithLock[handle, proc];
}; -- SlopeProc

TargetXProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF SwitchIt[handle.graph.target[x].on, mouseButton, "Target X"] THEN
SwitchTarget[handle, x]};
CallWithLock[handle, proc];
}; -- TargetXProc

TargetYProc: ENTRY Menus.MenuProc =  {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { 
IF SwitchIt[handle.graph.target[y].on, mouseButton, "Target X"] THEN
SwitchTarget[handle, y]};
CallWithLock[handle, proc];
}; -- TargetYProc

GridXProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF SwitchIt[handle.graph.grids[x], mouseButton, "Vertical Grids"] THEN
SwitchGrid[handle, x]};
CallWithLock[handle, proc];
}; -- GridXProc

GridYProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {
IF SwitchIt[handle.graph.grids[y], mouseButton, "Horiz. Grids"] THEN
SwitchGrid[handle, y]};
CallWithLock[handle, proc];
}; -- GridYProc

FirstLevelOnlyProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {TiogaMenuOps.FirstLevelOnly[handle.controller.table]};
CallWithLock[handle, proc];
}; -- FirstLevelOnlyProc

MoreLevelsProc: ENTRY Menus.MenuProc =  {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {TiogaMenuOps.MoreLevels[handle.controller.table]};
CallWithLock[handle, proc];
}; -- MoreLevelsProc

FewerLevelsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {TiogaMenuOps.FewerLevels[handle.controller.table]};
CallWithLock[handle, proc];
}; -- FewerLevelsProc

AllLevelsProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = {TiogaMenuOps.AllLevels[handle.controller.table]};
CallWithLock[handle, proc];
}; -- AllLevelsProc

ChartMenus: PUBLIC PROC [] RETURNS [menu: Menus.Menu] = {
ENABLE UNWIND => NULL;
menu _ Menus.CreateMenu[]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Color", SetColorProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Cursor", SetCursorColorProc]];
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Background", SetBackgroundIndexProc]];
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Get", GetGraphProc]]; --, guarded: TRUE]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Merge", MergeGraphProc]];
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Store", PutGraphProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["List", ListGraphProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Interpress", InterpressProc]]; 
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Clear/Refresh", ClearRefreshProc]];
Menus.AppendMenuEntry
[menu, Menus.CreateEntry["Controller", ShowControllerProc]];
}; -- ChartMenus

SetColorProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
newColorMap: ColorMap;
newColorMode: ColorMode;
SELECT PopUpMenu.RequestSelection[
label: "Options",
choice: LIST[
"my colors",
"graph default colors",
"my colors _ graph default",
"cedar default colors",
"black and white"
],
default: 1] FROM
1 => {newColorMode _ color; newColorMap _ mine};
2 => {newColorMode _ color; newColorMap _ default};
3 => {newColorMode _ color; newColorMap _ replace};
4 => {newColorMode _ color; newColorMap _ cedar};
5 => {newColorMode _ bw; newColorMap _ colorMap};
ENDCASE => {newColorMode _ colorMode; newColorMap _ colorMap};
SetCursorForBackgroundIndex[backgroundIndex];
IF colorMode # newColorMode THEN {
colorMode _ newColorMode;
PaintAll[handle, TRUE, FALSE, TRUE];
};
IF colorMap # newColorMap THEN {
colorMap _ newColorMap;
SELECT newColorMap FROM
mine => UseMyColors[handle];
cedar => UseCedarColors[];
default => UseDefaultColors[];
replace => UseDefaultColors[handle];
ENDCASE;
};
}; -- proc
CallWithLock[handle, proc];
}; -- SetColorProc

SetCursorColorProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
virtual: Terminal.Virtual _ Terminal.Current[];
SELECT PopUpMenu.RequestSelection[
label: "Options",
choice: LIST["black", "white"],
default: 1] FROM
1 => [] _ Terminal.SetColorCursorPresentation[virtual, onesAreBlack];
2 => [] _ Terminal.SetColorCursorPresentation[virtual, onesAreWhite];
ENDCASE => SetCursorForBackgroundIndex[backgroundIndex]; -- *
};
CallWithLock[handle, proc];
}; -- SetCursorColorProc

SetBackgroundIndexProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
newBkGndIndex: BackgroundIndex = SELECT PopUpMenu.RequestSelection[
label: "Options",
choice: LIST["white", "gray", "dark gray", "black"],
default: 1] FROM
1 => white,
2 => gray,
3 => darkGray,
4 => black,
ENDCASE => backgroundIndex;
IF backgroundIndex # newBkGndIndex THEN {
backgroundIndex _ newBkGndIndex;
SetCursorForBackgroundIndex[backgroundIndex];
PaintAll[handle, TRUE, FALSE, TRUE];
};
};
CallWithLock[handle, proc];
}; -- SetBackgroundIndexProc

GetGraphProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
file, msg: ROPE _ NIL;
[file, msg] _ SelectedFile[WDirOfViewer[chart.viewer], "graph"];
IF msg = NIL THEN {
SELECT PopUpMenu.RequestSelection[
label: "Confirm replacing data with", choice: LIST[file], default: 1] FROM
1 => {
handle _ GraphCleanUp.CleanUpHandle[handle, FALSE];
msg _ GetGraph[handle, file ! Error => {msg _ info; CONTINUE}];
IF msg = NIL THEN { -- replace the caption.
handle.chart.viewer.name _ file;
ViewerOps.PaintViewer[handle.chart.viewer, caption, FALSE, NIL];
};
};
ENDCASE;
};
IF msg # NIL THEN BlinkMsg[msg];
};
IF UserEditAllowed[handle] THEN CallWithLock[handle, proc];
}; -- GetGraphProc

SelectedFile: PROC [defaultWDir, defaultExt: ROPE] RETURNS [file, msg: ROPE _ NIL] = {
file _ ViewerTools.GetSelectionContents[];
IF file.IsEmpty[] THEN msg _ "Please select a file name."
ELSE {
[file, ] _ FS.ExpandName[file, defaultWDir !
FS.Error => {msg _ error.explanation; CONTINUE}];
IF msg = NIL THEN IF file.Find["."] < 0 THEN file _ ReplaceFileExt[file, defaultExt];
};
}; -- SelectedFile

MergeGraphProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
file, msg: ROPE _ NIL;
[file, msg] _ SelectedFile[WDirOfViewer[chart.viewer], "graph"];
IF msg = NIL THEN {
SELECT PopUpMenu.RequestSelection[
label: "Confirm merging data from", choice: LIST[file], default: 1] FROM
1 => msg _ GetGraph[handle, file ! Error => {msg _ info; CONTINUE}];
ENDCASE;
};
IF msg # NIL THEN BlinkMsg[msg];
};
IF UserEditAllowed[handle] THEN CallWithLock[handle, proc];
}; -- MergeGraphProc

ListGraphProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
file, msg: ROPE _ NIL;
[file, msg] _ SelectedFile[WDirOfViewer[chart.viewer], "list"];
IF file.Find["/", 1] > 1 OR file.Find["]"] > 1 THEN msg _ "Please specify a local directory.";
IF msg = NIL THEN {
SELECT PopUpMenu.RequestSelection[
label: "Confirm listing data in", choice: LIST[file], default: 1] FROM
1 => {
v: Viewer;
msg _ WriteTextFile[handle, file];
v _ ViewerOps.FindViewer[file];
IF v = NIL THEN {
v _ ViewerTools.MakeNewTextViewer[info: [name: file, file: file]];
ViewerOps.SaveViewer[v];
};
IF v.iconic THEN ViewerOps.OpenIcon[icon: v, bottom: FALSE]
ELSE ViewerOps.TopViewer[viewer: v];
};
ENDCASE;
};
IF msg # NIL THEN BlinkMsg[msg];
};
CallWithLock[handle, proc];
}; -- ListGraphProc
PutGraphProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
file, msg, newName: ROPE;
[file, msg] _ SelectedFile[WDirOfViewer[chart.viewer], "graph"];
IF file.Find["/", 1] > 1 OR file.Find["]"] > 1 THEN msg _ "Please specify a local directory.";
IF msg = NIL THEN {
SELECT PopUpMenu.RequestSelection[
label: "Confirm file name", choice: LIST[file], default: 1] FROM
1 => [msg, newName] _ WriteGraphFile[handle, file
! Error => {msg _ info; CONTINUE}];
ENDCASE;
};
IF msg = NIL THEN BlinkMsg[newName.Concat[" is written."]]
ELSE BlinkMsg[msg]
};
CallWithLock[handle, proc];
}; -- PutGraphProc

InterpressProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
file, msg: ROPE _ NIL;
printingColorMode, colorModeSave: ColorMode;
SELECT PopUpMenu.RequestSelection[
label: "Options",
choice: LIST["color", "black and white"],
default: 1] FROM
1 => printingColorMode _ color;
2 => printingColorMode _ bw;
ENDCASE => msg _ "You must choose either color or black-and-white.";
IF msg = NIL THEN [file, msg] _ SelectedFile[WDirOfViewer[chart.viewer], "ip"];
IF file.Find["/", 1] > 1 OR file.Find["]"] > 1 THEN msg _ "Please specify a local directory.";
IF msg = NIL THEN SELECT PopUpMenu.RequestSelection[
label: "Confirm writing interpress master in", choice: LIST[file], default: 1] FROM
1 => {
colorModeSave _ colorMode;
colorMode _ printingColorMode;
msg _ Print[handle, file ! Error => {msg _ info; CONTINUE}];
IF msg = NIL THEN msg _ file.Concat[" is written."];
colorMode _ colorModeSave;
};
ENDCASE;
BlinkMsg[msg];
};
CallWithLock[handle, proc];
}; -- InterpressProc

ClearRefreshProc: ENTRY Menus.MenuProc = {
ENABLE UNWIND => NULL;
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
SELECT PopUpMenu.RequestSelection[
label: "Options",
choice: LIST["refresh", "clear and refresh", "update div/bounds", "remove all curves"],
default: 1] FROM
1 => PaintAll[handle, FALSE, FALSE, TRUE];
2 => PaintAll[handle, TRUE, FALSE, TRUE];
3 => PaintAll[handle, TRUE, TRUE, TRUE];
4 => RemoveAllCurves[handle];
ENDCASE;
};
CallWithLock[handle, proc];
}; -- ClearRefreshProc

ShowControllerProc: ENTRY Menus.MenuProc = {
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
IF UserEditAllowed[handle] THEN {
proc: GraphProc = {
ShowController[handle, WDirOfViewer[handle.chart.viewer]];
};
CallWithLock[handle, proc];
};
}; -- ShowControllerProc
}.

LOG.
SChen, create at October 9, 1985 6:41:19 pm PDT
ΘGraphMenus.mesa, Copyright c 1985 by Xerox Corporation.  All rights reserved.
Last Edited by:
Sweetsun Chen, November 27, 1985 3:42:10 pm PST
TiogaOps USING [Jump, ViewerDoc],
menus

switches
levels menus

menuprocs
show up the spec panel
ViewerOps.MoveViewer[viewer: rule, x: 0, y: 399, w: rule.ww, h: 1, paint: FALSE];
ViewerOps.PaintViewer[viewer: viewer, hint: client];
show up the XY values panel
ViewerOps.MoveViewer[viewer: rule, x: 1000, y: 0, w: rule.ww, h: 1, paint: FALSE];
ViewerOps.PaintViewer[viewer: viewer, hint: client];
show up the table of texts and curves
ViewerOps.MoveViewer[viewer: rule, x: 1000, y: 0, w: rule.ww, h: 1, paint: FALSE];
ViewerOps.PaintViewer[viewer: viewer, hint: client];
handle.waitingGraph _ TRUE;
AutoBoundsProc: Menus.MenuProc = {
handle: GraphHandle _ HandleFromViewer[NARROW[parent]];
proc: GraphProc = { OPEN handle;
wasOn: BOOL _ graph.auto[bounds];
update, switchIt: BOOL _ TRUE;
SELECT mouseButton FROM
red => switchIt _ NOT wasOn;
blue => switchIt _ wasOn;
ENDCASE => SELECT PopUpMenu.RequestSelection[
label: "Auto Bounds", choice: LIST["on (red)", "off (blue)"], default: 1] FROM
1 => switchIt _ NOT wasOn;
2 => switchIt _ wasOn;
ENDCASE => switchIt _ update _ FALSE;

IF switchIt THEN SwitchAuto[handle, bounds]
ELSE IF update AND wasOn THEN {
IF chart.viewer = NIL THEN graph.bounds _ DataBounds[graph.entityList, graph.bounds]
ELSE PaintAll[handle];
};
};
CallWithLock[handle, proc];
}; -- AutoBoundsProc

menuprocs
[parent: REF, clientData: REF, mouseButton: MouseButton, shift, control: BOOL]
chart.viewer (parent) # nil
try selected viewer first.
v: Viewer _ ViewerTools.GetSelectedViewer[];
IF v = NIL THEN msg _ hint
ELSE IF v.class.flavor = $Text THEN file _ v.file

Κ›˜JšœΟm
œ1™Mš
œ™Icode™/—š
Οk	˜	Jšžœ
žœ)˜1JšœžœSžœ
˜lJšœ
žœ˜#Jšœ	žœ˜Jšœ
žœζ
˜ψ
Jšœ
žœ¨
˜·
Jšœžœe˜pJšœ
žœ˜#Jšœžœ˜#Jšœ	žœI˜WJšœ
žœ6˜HJšœ	žœ™!Jšœ
žœ˜&Jšœ
žœH˜WJšœžœ+˜<—J˜šœžœ
ž˜Jšžœ
žœ‹
˜•
Jšžœžœ*˜G—J˜J™šΟnœžœ
žœžœ˜>Jšžœ
žœžœ
˜Jš
œ˜˜Jš
œ>˜>—š
œ˜Jš
œ=˜=—š
œ˜Jš
œ>˜>—š
œ˜Jš
œ?˜?—š
œ˜Jš
œ=˜=—J™J™š
œ˜Jš
œG˜G—š
œ˜Jš
œG˜G—š
œ˜Jš
œB˜B—š
œ˜Jš
œA˜A—š
œ˜Jš
œ=˜=—š
œ˜Jš
œE˜E—š
œ˜Jš
œA˜A—š
œ˜Jš
œA˜A—š
œ˜Jš
œ=˜=—š
œ˜Jš
œ=˜=—J˜J™š
œ˜Jš
œO˜O—š
œ˜Jš
œG˜G—š
œ˜Jš
œI˜I—š
œ˜Jš
œE˜E—J˜JšœΟc˜—™Jš
œ	™	šœžœ˜&J™Jšžœ
žœžœ
˜Jšœ'žœ
˜7˜šžœ%žœžœ˜Ešžœ
žœ
žœ˜Jšœžœ ˜2Jšœžœ
˜"JšœJžœ™QJšœDžœ˜Kšžœ	žœ
žœ˜)Jšœ1žœ˜8—JšœLžœ˜RJš
œ4™4Jš
œ˜—J˜—J˜—Jš
œ˜Jšœ ˜J˜—šœ
žœ˜%Jš
œ™Jšžœ
žœžœ
˜Jšœ'žœ
˜7˜šžœ%žœžœ˜Ešžœ
žœžœ˜Jšœ
žœ
˜Jšœžœ ˜BJšœEžœ˜LJšœKžœ™Ršžœ	žœ
žœ˜)Jšœ1žœ˜8—JšœLžœ˜RJš
œ4™4J˜—J˜—J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜'J™%Jšžœ
žœžœ
˜Jšœ'žœ
˜7˜šžœ%žœžœ˜Ešžœ
žœžœ˜Jšœžœ
˜Jšœžœ ˜@JšœEžœ˜LJšœKžœ™RJšœDžœ˜Kšžœ	žœ
žœ˜)Jšœ9žœ˜?—Jš
œ4™4J˜—J˜—J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜'Jšžœ
žœžœ
˜Jšœ'žœ
˜7J˜
Jšœžœ
™Jšœ +˜>Jšœ ˜*Jšœ ˜J˜—šœžœ˜$Jšžœ
žœžœ
˜Jšœ'žœ
˜7šžœžœ˜šœžœ˜Jš
œC˜Cšžœ
ž˜Jš
œ˜Jš
œ˜Jšžœžœ
˜—Jš
œ;˜;J˜—J˜—Jšœ ˜J˜—šŸœžœ	žœ)žœžœžœ˜\šžœ
žœ
ž˜Jšœžœ˜Jš
œ˜šžœžœ˜-Jšœžœ(ž˜FJšœžœ˜Jš
œ˜Jšžœžœ˜——Jšœ ˜J˜—šœžœ˜+Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšžœ@žœ˜eJ˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜(Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšžœ:žœ˜\J˜—Jš
œ˜Jšœ ˜J˜—š
œ"™"Jšœ'žœ
™7šœžœ™ Jšœžœ™!Jšœžœžœ
™šžœ
ž™Jšœžœ™Jšœžœ™šžœžœ™-Jšœžœ(ž™NJšœ
žœ™Jšœ
žœ™Jšžœžœ
™%J™——Jšžœ
žœ™+šžœ
žœžœžœ™Jšžœžœ
žœ:™TJšžœ™J™—J™—Jš
œ™Jšœ ™J™—šœžœ˜'Jšžœ
žœžœ
˜Jš
œ1˜1Jš
œ˜J˜—šœžœ˜&Jšžœ
žœžœ
˜Jš
œ3˜3Jš
œ˜J˜—šœžœ˜'Jšžœ
žœžœ
˜Jš
œ.˜.Jš
œ˜J˜š
Ÿœžœ	žœ
žœ<žœ˜fJšœ'žœ
˜7šœžœ˜ šžœžœ˜šžœDžœ˜LJš
œ#˜#šžœ!žœ
žœž˜EJš
œ%˜%—J˜
—J˜
—Jšžœ
žœ7žœ&˜hJ˜—Jš
œ˜Jšœ ˜J˜——šœžœ˜#Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšžœ1žœ˜LJ˜—Jš
œ˜Jšœ ˜J˜—šœ
žœ˜%Jšžœ
žœžœ
˜Jšœ'žœ
˜7š
œ˜šžœ>ž˜DJš
œ˜——Jš
œ˜Jšœ ˜J˜—šœ
žœ˜&Jšžœ
žœžœ
˜Jšœ'žœ
˜7š
œ˜šžœ>ž˜DJš
œ˜——Jš
œ˜Jšœ ˜J˜—šœžœ˜#Jšžœ
žœžœ
˜Jšœ'žœ
˜7š
œ˜šžœ@ž˜FJš
œ˜——Jš
œ˜Jšœ ˜J˜—šœžœ˜#Jšžœ
žœžœ
˜Jšœ'žœ
˜7š
œ˜šžœ>ž˜DJš
œ˜——Jš
œ˜Jšœ ˜—J˜šœžœ˜,Jšžœ
žœžœ
˜Jšœ'žœ
˜7Jš
œI˜IJš
œ˜Jšœ ˜J˜—šœžœ˜)Jšžœ
žœžœ
˜Jšœ'žœ
˜7Jš
œE˜EJš
œ˜Jšœ ˜J˜—šœžœ˜)Jšžœ
žœžœ
˜Jšœ'žœ
˜7Jš
œF˜FJš
œ˜Jšœ ˜J˜—šœžœ˜'Jšžœ
žœžœ
˜Jšœ'žœ
˜7Jš
œD˜DJš
œ˜Jšœ ˜—J˜—šŸ
œžœ
žœžœ˜9Jšžœ
žœžœ
˜Jš
œ˜˜Jš
œ2˜2—˜Jš
œ8˜8—˜Jš
œ@˜@—š
œ˜Jšœ0 ˜E—š
œ˜Jš
œ3˜3—š
œ˜Jš
œ2˜2—˜J˜2—˜J˜9—˜J˜=—˜J˜<—Jšœ 
˜J˜J™	šœžœ˜&Jš
œN™NJšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jš
œ˜Jš
œ˜šžœ˜"Jš
œ˜šœžœ
˜
Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœž˜Jš
œ0˜0Jš
œ3˜3Jš
œ3˜3Jš
œ1˜1Jš
œ1˜1Jšžœ7˜>—Jš
œ-˜-šžœžœ˜"Jš
œ˜Jš
œ™Jšœžœžœžœ˜$J˜—šžœžœ˜ Jš
œ˜šžœ
ž˜Jš
œ˜Jš
œ˜J˜J˜$Jšžœ
˜—J˜—Jšœ ˜
—Jš
œ˜Jšœ ˜J˜—šœžœ˜,Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jš
œ/˜/šžœ˜"Jš
œ˜Jšœžœ˜Jšœž˜Jš
œE˜EJš
œE˜EJšžœ2 ˜=—J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜0Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ šœ!žœ˜CJš
œ˜Jšœžœ(˜4Jšœž˜Jš
œ˜Jš
œ
˜
Jš
œ˜J˜Jšžœ˜—šžœ!žœ˜)Jš
œ ˜ Jš
œ-˜-Jšœžœžœžœ˜$J˜—J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜&Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšœžœžœ
˜Jš
œ@˜@šžœžœ
žœ˜šžœ˜"Jšœ.žœž˜Jš
œ˜Jšœ,žœ˜3Jšœ4žœ˜?šžœžœ
žœ ˜+J˜ Jšœ4žœžœ˜@J˜—J˜—Jšžœ
˜—J˜—Jšžœžœ
žœ˜ J˜—Jšžœžœ˜;Jšœ ˜J˜šŸœžœžœžœ
žœžœ˜V™Jš
œ,™,Jšžœžœ
žœ™Jšžœ
žœžœ™1—Jš
œ*˜*Jšžœžœ#˜9šžœ˜šœžœ˜,Jšžœ$žœ˜1—Jš
žœžœ
žœ
žœžœ)˜UJ˜—Jšœ ˜—J˜—šœžœ˜(Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšœžœžœ
˜Jš
œ@˜@šžœžœ
žœ˜šžœ˜"Jšœ,žœž˜HJšœ9žœ˜DJšžœ
˜—J˜—Jšžœžœ
žœ˜ J˜—Jšžœžœ˜;Jšœ ˜J˜—šœžœ˜'Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšœžœžœ
˜Jš
œ?˜?Jšžœžœžœ+˜^šžœžœ
žœ˜šžœ˜"Jšœ*žœž˜Fš
œ˜Jš
œ
˜
J˜"Jš
œ˜šžœžœ
žœ˜Jš
œB˜BJ˜J˜—Jšžœ
žœ%žœ
˜;Jšžœ ˜$J˜—Jšžœ
˜—J˜—Jšžœžœ
žœ˜ J˜—Jš
œ˜Jšœ ˜J™—šœžœ˜&Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšœžœ
˜Jš
œ@˜@Jšžœžœžœ+˜^šžœžœ
žœ˜šžœ˜"Jšœ$žœž˜@š
œ1˜1Jšœžœ˜#—Jšžœ
˜—J˜—Jšžœžœ
žœ)˜:Jšžœ˜J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜(Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ Jšœžœžœ
˜Jš
œ,˜,šžœ˜"Jš
œ˜Jšœžœ˜)Jšœž˜Jš
œ˜Jš
œ˜Jšžœ=˜D—Jšžœžœ
žœ>˜OJšžœžœžœ+˜^šžœžœ
žœ
žœ˜4Jšœ7žœž˜Sš
œ˜Jš
œ˜Kš
œ˜Jšœ1žœ˜<Kšžœžœ
žœ#˜4Kš
œ˜J˜—Jšžœ
˜—J˜J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜*Jšžœ
žœžœ
˜Jšœ'žœ
˜7šœžœ˜ šžœ˜"Jš
œ˜JšœžœK˜WJšœž˜Jšœžœžœžœ˜*Jšœžœžœžœ˜)Jšœžœžœžœ˜(Jš
œ˜Jšžœ
˜—J˜—Jš
œ˜Jšœ ˜J˜—šœžœ˜,Jšœ'žœ
˜7šžœžœ˜!˜Jš
œ:˜:J˜—Jš
œ˜J˜—Jšœ ˜——J˜J˜šžœ
˜J˜/——…—HŠdν