PGA176.mesa
Copyright © 1987 by Xerox Corporation. All rights reserved.
Louis Monier March 27, 1987 2:34:11 pm PST
Last Edited by: Louis Monier March 27, 1987 2:38:18 pm PST
DIRECTORY CoreCreate, PadFrame, Rope;
PGA176: CEDAR DEFINITIONS = BEGIN
PGADescr: TYPE = REF PGADescrRec;
PGADescrRec:
TYPE =
RECORD[
pads: PadFrame.Pads ← NIL,
globalPos: NAT ← 0,
left, bottom, right, top, size, nbPads: NAT,
isPowerPad: PROC[pos: NAT] RETURNS [is: BOOL],
name, doc: Rope.ROPE
];
pga176: PGADescr;
SetPos: PROC [pga: PGADescr, pos: NAT];
SPad: PROC [pga: PGADescr, public: CoreCreate.WR, type: ATOM, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9: CoreCreate.PA ← []];
MakePGA176: PROC RETURNS [pga: PGADescr];
END.