DIRECTORY NSPilotSystem USING [HostNumber], NewEthernetFace USING [Status], EtherTesterOps USING [StatsType], NumberLabels USING [NumberLabel], Rope USING [ROPE], ViewerClasses USING [Viewer]; EtherTesterViewer: DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Viewer: TYPE = ViewerClasses.Viewer; entryHeight: INTEGER = 14; xFudge: INTEGER = 4; ParseError: SIGNAL; ButtonItem: TYPE = REF ButtonItemObject; ButtonItemObject: TYPE = RECORD[ button, text: Viewer, default: ROPE, valType: ValueType]; ValueType: TYPE = {int, cardinal, rope, hostNum}; BoolItem: TYPE = REF BoolItemObject; BoolItemObject: TYPE = RECORD[ button: Viewer, proc: BoolItemProc, value: BOOL]; BoolItemProc: TYPE = PROC[value: BOOL]; StatsItem: TYPE = REF StatsItemObject; StatsItemObject: TYPE = RECORD[ box, label: Viewer, num: NumberLabels.NumberLabel, val: whichFlipper_ left, which: EtherTesterOps.StatsType, currentlyDisplayed: INT_ 0, next: StatsItem]; whichFlipper: TYPE = {left, right}; boardNum, sourceHost, destHost, myHost: ButtonItem; numRecvBuffers, inputBuffLen, numSendBuffers, outputBuffLen: ButtonItem; ticksBefore: ButtonItem; patternButton, hwModeButton: Viewer; statsDisplayer: StatsItem; ButtonAndText: PROC[name: ROPE, sib: Viewer, width: INTEGER, newLine: BOOL_ FALSE, default: ROPE_ NIL, valType: ValueType_ cardinal] RETURNS[item: ButtonItem]; ReadCard: PROC [item: ButtonItem] RETURNS[val: CARDINAL]; ReadINT: PROC[item: ButtonItem] RETURNS[val: INT]; ReadHostNum: PROC[v: Viewer] RETURNS[num: NSPilotSystem.HostNumber]; StatusToRope: PROC[s: NewEthernetFace.Status] RETURNS [r: ROPE]; MakeBoolItem: PROC[ name: ROPE, proc: BoolItemProc, sib: Viewer, init: BOOL, newLine: BOOL_ FALSE] RETURNS[button: Viewer]; PatternButton: PROC[sib: Viewer, newLine: BOOL_ FALSE]; HWModeButton: PROC[sib: Viewer, newLine: BOOL_ FALSE]; MakeStatsDisplayers: PROC[y: INTEGER, parent: Viewer]; UpdateStatsBoxes: PROC; StatsTypeToRope: PROC[which: EtherTesterOps.StatsType] RETURNS[r: ROPE]; END. æEtherTesterViewer.mesa last edited by Willie-Sue, January 9, 1986 1:50:21 pm PST lifted from EtherTesterDefs.mesa, AOF, 26-Sep-83 16:19:51 variables shared between EtherTesterControlImpl and EtherTesterViewerImpl Procedures Ê!˜Jšœ™Jšœ9™9Jšœ9™9J˜šÏk ˜ Jšœœ˜!Jšœœ ˜Jšœœ ˜!Jšœ œ˜!Jšœœœ˜Jšœœ ˜—J˜Jšœ œ˜ Jš˜J˜Jšœœœ˜Jšœœ˜$Jšœ œ˜Jšœœ˜J˜Jšœ œ˜J˜Jšœ œœ˜(šœœœ˜ Jšœ˜Jšœ œ˜Jšœ˜—Jšœ œ"˜1J˜Jšœ œœ˜$šœœœ˜Jšœ˜Jšœ˜Jšœœ˜ —JšÏn œœœœ˜'J˜Jšœ œœ˜&šœœœ˜Jšœ˜J˜Jšœ˜Jšœ ˜ Jšœœ˜Jšœ˜—J˜Jšœœ˜#J˜JšœI™IJ˜Jšœ3˜3JšœH˜HJšœ˜Jšœ$˜$J˜J˜Jšœ ™ J˜Jšž œœœœ œœ œœ œ˜¡J˜Jšžœœœœ˜9J˜Jšžœœœœ˜2J˜Jšž œœ œ ˜DJ˜Jšž œœœœ˜@J˜Jšž œœ œ)œ œœœ˜~J˜Jšž œœœœ˜7J˜Jšž œœœœ˜6J˜Jšžœœœ˜7Jšžœœ˜J˜Jšžœœ"œœ˜HJ˜Jšœ˜—…—Ò Ù