HostButton.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Hal Murray June 18, 1985 8:29:25 pm PDT
Hal Murray, January 23, 1986 1:14:42 am PST
DIRECTORY
Buttons USING [Button, ButtonProc, Create, SetDisplayStyle],
Rope USING [Cat, ROPE],
ThisMachine USING [Address, Name, ProcessorID];
HostButton:
CEDAR
PROGRAM
IMPORTS Buttons, Rope, ThisMachine =
BEGIN
Button: TYPE = Buttons.Button;
IEFBR14: Buttons.ButtonProc = { };
name: Rope.ROPE ← ThisMachine.Name[];
address: Rope.ROPE ← ThisMachine.Address[$Pup];
id: Rope.ROPE ← ThisMachine.ProcessorID[$Decimal];
button: Button ← Buttons.Create[
info: [name: Rope.Cat[name, " ", address, " ", id], parent:
NIL, border:
TRUE],
proc: IEFBR14, clientData: NIL, fork: TRUE];
Buttons.SetDisplayStyle[button, $WhiteOnBlack];
END.