<> <> <> <> <<>> 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.