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. ΈPGA176.mesa Copyright c 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 Κ&˜šœ ™ Icodešœ Οmœ1™