SoftcardToolPrivate.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Willie-Sue, February 19, 1987 12:05:18 pm PST
DIRECTORY
IO USING [STREAM],
Menus USING [ClickProc],
Rope USING [ROPE],
ViewerClasses USING [Viewer];
SoftcardToolPrivate: CEDAR DEFINITIONS = BEGIN
DragonState: TYPE = {unknown, running, stopped};
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
ClickProc: TYPE = Menus.ClickProc;
entryHeight: INTEGER = 14;
xFudge: INTEGER = 4;
SelectRecord: TYPE = RECORD[name: ROPE, val: INT];
freqSelectArray: ARRAY [0..3] OF SelectRecord;
euSelectArray: ARRAY [0..8] OF SelectRecord;
tsViewer: Viewer;
tsOut: IO.STREAM;
SetDragonStateLabelButton: PROC[which: DragonState];
InitArrays: PROC;
GetAsInt: PROC[who: Viewer] RETURNS[val: INT];
GetAsCard: PROC[who: Viewer] RETURNS[val: LONG CARDINAL];
ReadControlBits: ClickProc;
SetControlBits: ClickProc;
ResetControlBits: ClickProc;
ReadStatusBits: ClickProc;
ResetStatusBits: ClickProc;
BuildMiscButtons: PROC[topViewer, sibx: Viewer, tsLogFile: ROPE];
BuildPeekPokeButtons: PROC[topViewer, sibx: Viewer] RETURNS[Viewer];
END..