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. ¨HostButton.mesa Copyright c 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 Ê˜šœ™Icodešœ Ïmœ1™