SoftcardToolPrivate.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Willie-Sue, March 18, 1987 12:55:00 pm PST
DIRECTORY
ImagerFont USING [Font],
IO USING [STREAM, Value],
Rope USING [ROPE],
ViewerClasses USING [ClickProc, Viewer];
SoftcardToolPrivate: CEDAR DEFINITIONS = BEGIN
DragonState: TYPE = {unknown, running, stopped};
ClickProc: TYPE = ViewerClasses.ClickProc;
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
Viewer: TYPE = ViewerClasses.Viewer;
entryHeight: INTEGER = 14;
betweenHeight: INTEGER = 4;
leftEdge: INTEGER = 3;
xFudge: INTEGER = 4;
activeFont: ImagerFont.Font;
labelFont: ImagerFont.Font;
selectFont: ImagerFont.Font;
tinySelectFont: ImagerFont.Font;
regDir: ROPE;
SetDragonStateLabelButton: PROC[which: DragonState];
GetAsInt: PROC[who: Viewer] RETURNS[val: INT];
GetAsCard: PROC[who: Viewer] RETURNS[val: CARD32];
CheckedGetAsCard: PROC[who: Viewer, which: ROPE, max: CARD32]
RETURNS[ok: BOOL, val: CARD32];
returns ok = FALSE if who has NIL contents; prints a message if which # NIL
if max # 0 then does a CheckForValid as well
CheckForValid: PROC[val, max: CARD32, which: ROPE] RETURNS[ok: BOOL];
returns FALSE is val > max; prints outs a message as well
DragonToSoftcardAddr: PROC[addr: CARD32] RETURNS[CARD32];
BuildVariousButtons: PROC[topViewer, sibx: Viewer] RETURNS[Viewer];
BuildMiscButtons: PROC[topViewer, sibx: Viewer] RETURNS[Viewer];
BuildPeekPokeButtons: PROC[topViewer, sibx: Viewer] RETURNS[Viewer];
BuildRegisterButtons: PROC[topViewer, sibx: Viewer] RETURNS[Viewer];
TSOutPutF: PROC[format: ROPENIL, v1, v2, v3, v4, v5: IO.Value ← [null[]]];
TSOutPutRope: PROC[r: ROPE];
TSOutPutChar: PROC[ch: CHAR];
END..