<> <> <> DIRECTORY Imager, PopUpButtons, PopUpSelection2, Rope, ViewerClasses; PopUpButtonsPrivate: CEDAR DEFINITIONS = {OPEN PUS: PopUpSelection2, PopUpButtons; GuardState: TYPE = {guarded, arming, armed}; Class: TYPE = REF ClassPrivate; ClassPrivate: TYPE = RECORD [ spec: ClassSpec, menu: PUS.Menu, wDir: ROPE, choiceQuaRopes, documentation: ROPEList, helpCount, choiceCount: NAT ]; Instance: TYPE = REF InstancePrivate; InstancePrivate: TYPE = RECORD [ spec: InstanceSpec, packageGlobalFrame: POINTER, packageName: ROPE _ NIL, executingCount: INTEGER _ 0, depressed, highlight: BOOL _ FALSE, shownVS: VisibleState _ [FALSE, FALSE, FALSE], state: GuardState, Paint: PaintProc, -- for buttons created by InstantiateButtonProvided InTest: InTestProc -- for buttons created by InstantiateButtonProvided ]; }.