<> <> DIRECTORY PopUpSelection2; PopUpSelection2Private: CEDAR DEFINITIONS = {OPEN PopUpSelection2; Menu: TYPE = REF MenuPrivate; MenuPrivate: TYPE = RECORD [ choices: ChoiceS, header: Image, doc: ROPE, left, top: Label, rows, cols, timeOut: NAT, height, width: NAT -- total size of menu, in pixels -- _ 0, rowHeight, colWidth: NAT _ 0, llSize, tlSize: NAT _ 0, arrayLeft, arrayBot, arrayTopSep--from top of menu to top of array--, arrayHeight, arrayWidth: NAT _ 0 ]; }.